Tugas VB Pungsi Operator

Listing :

Private Sub Command1_Click()

End Sub

Private Sub Command2_Click()

End Sub

Private Sub Command3_Click()

End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command5_Click()

End Sub

Private Sub Command6_Click()

End Sub

Private Sub Command14_Click()

End Sub

Private Sub Command12_Click()

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

Private Sub CMDAND_Click()
If TXTNIL1 = "TRUE" Or TXTNIL2 = "TRUE" Then
TXTHASIL = "TRUE"
ElseIf TXTNIL1 = "TRUE" Or TXTNIL2 = "FALSE" Then
TXTHASIL = "FALSE"
ElseIf TXTNIL1 = "FALSE" Or TXTNIL2 = "TRUE" Then
TXTHASIL = "FALSE"
Else
TXTHASIL = "FALSE"
End If
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 CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDKURANG_Click()
TXTHASIL = Val(TXTNIL1.Text) - Val(TXTNIL2.Text)
End Sub

Private Sub CMDLAGI_Click()
TXTNIL1.Text = ""
TXTNIL2.Text = ""
TXTHASIL.Text = ""
TXTNOT.Text = ""
TXTNIL1.SetFocus
End Sub

Private Sub CMDMOD_Click()
TXTHASIL = Val(TXTNIL1.Text) Mod Val(TXTNIL2.Text)
End Sub

Private Sub CMDNOT_Click()
If CMBNOT = True Then
TXTNOT = Not True
Else
TXTNOT = Not False
End If

End Sub

Private Sub CMDOR_Click()
If TXTNIL1 = "TRUE" Or TXTNIL2 = "TRUE" Then
TXTHASIL = "TRUE"
ElseIf TXTNIL1 = "TRUE" Or TXTNIL2 = "FALSE" Then
TXTHASIL = "TRUE"
ElseIf TXTNIL1 = "FALSE" Or TXTNIL2 = "TRUE" Then
TXTHASIL = "TRUE"
Else
TXTHASIL = "FALSE"
End If
End Sub

Private Sub CMDTAMBA_Click()
TXTHASIL.Text = Val(TXTNIL1.Text) + Val(TXTNIL2.Text)
End Sub