Setelah itu pastikan code-nya seperti ini
Private Sub clear_Click(Index As Integer)
bil1.Text = ""
bil2.Text = ""
hasil.Text = ""
End Sub
Private Sub kali_Click()
hasil.Text = Val(bil1.Text) * Val(bil2.Text)
End Sub
Private Sub bagi_Click()
hasil.Text = Val(bil1.Text) / Val(bil2.Text)
End Sub
Private Sub tambah_Click()
hasil.Text = Val(bil1.Text) + Val(bil2.Text)
End Sub
Private Sub kurang_Click()
hasil.Text = Val(bil1.Text) - Val(bil2.Text)
End Sub
Private Sub keluar_Click()
Unload Me
End Sub
Semoga dapat mengembangkannya ya.
0 komentar:
Post a Comment