Listing Code :
Private Sub bagi_Click() txthasil.Text = Val(txtnilai1.Text) / Val(txtnilai2.Text) End Sub Private Sub kali_Click() txthasil.Text = Val(txtnilai1.Text) * Val(txtnilai2.Text) End Sub Private Sub keluar_Click() p = MsgBox("Anda yakin akan keluar", vbQuestion + vbOKCancel, "Informasi") If p = vbOK Then End End If End Sub Private Sub tambah_Click() txthasil.Text = Val(txtnilai1.Text) + Val(txtnilai2.Text) End Sub Private Sub kurang_Click() txthasil.Text = Val(txtnilai1.Text) - Val(txtnilai2.Text) End Sub
0 komentar:
Posting Komentar