Program Visual Basic Operator

Sintaknya :

Private Sub cmdbersih_Click()
txtnil1.Text = " "
txtnil2.Text = " "
txthasil.Text = " "
txtnil1.SetFocus
End Sub

Private Sub cmdkeluar_Click()
x = MsgBox("Anda Ingin Keluar Dari Form Ini?", vbQuestion + vbOKCancel, "Informasi")
If x = vbOK Then
End
End If
End Sub

Private Sub cmdtambah_Click()
txthasil = Val(txtnil1.Text) + Val(txtnil2.Text)
End Sub

Private Sub cmdkurang_Click()
txthasil = Val(txtnil1.Text) - Val(txtnil2.Text)
End Sub

Private Sub cmdbagi_Click()
txthasil = Val(txtnil1.Text) / Val(txtnil2.Text)
End Sub

Private Sub cmdkali_Click()
txthasil = Val(txtnil1.Text) * Val(txtnil2.Text)
End Sub

Private Sub cmdpangkat_Click()
txthasil = Val(txtnil1.Text) ^ Val(txtnil2.Text)
End Sub

Private Sub cmdmod_Click()
txthasil = Val(txtnil1.Text) Mod Val(txtnil2.Text)
End Sub

Private Sub cmd1_Click()
txthasil = Val(txtnil1.Text) > Val(txtnil2.Text)
End Sub

Private Sub cmd2_Click()
txthasil = Val(txtnil1.Text) < Val(txtnil2.Text) End Sub Private Sub cmd3_Click() txthasil = Val(txtnil1.Text) >= Val(txtnil2.Text)
End Sub

Private Sub cmd4_Click()
txthasil = Val(txtnil1.Text) <= Val(txtnil2.Text) End Sub Private Sub cmd5_Click() txthasil = Val(txtnil1.Text) = Val(txtnil2.Text) End Sub Private Sub cmd6_Click() txthasil = Val(txtnil1.Text) <> Val(txtnil2.Text)
End Sub