dua gambar diatas adalah coding yang digunakan untuk membuat programnya.
dan dua gambar diatas ini adalah form programnya.
gambar yang terakhir ini adalah hasil dari program yang sudah di debug.
ini adalah coding untuk membuar form yang pertama:
Public Class Form1
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox4.Text = TextBox2.Text * TextBox3.Text
TextBox5.Text = TextBox4.Text * 0.1
TextBox6.Text = TextBox4.Text - TextBox5.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
form2.Show()
End Sub
End Class
lalu yang ini adalah coding untuk membuat form kedua
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = TextBox1.Text - TextBox2.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("LUNAS", "PEMBAYARAN", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
End Class
Tidak ada komentar:
Posting Komentar