Tugas Ke-1 (Operator)

Gambar : Program Fungsi Operator 

 Listingnya:

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" And Txtnil2 = "true" Then
Txthasil = "true"
ElseIf txtnil1 = "true" And Txtnil2 = "false" Then
Txthasil = "false"
ElseIf txtnil1 = "true" And Txtnil2 = "false" Then
Txthasil = "false"
ElseIf txtnil1 = "false" And 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()
End
End Sub

Private Sub CmdKurang_Click()
Txthasil = Val(txtnil1.Text) - Val(Txtnil2.Text)
End Sub

Private Sub CmdLagi_Click()
txtnil1.Text = ""
Txtnil2.Text = ""
Txthasil = ""
txtnot = ""
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 CmdTambah_Click()
Txthasil = Val(txtnil1.Text) + Val(Txtnil2.Text)
End Sub