Form Fungsi Operator (VB I)

1. Design form dibawah ini dengan nama form operator, gunakan label, textbox, combobox, frame dan button pada toolbox

2. logika program

• operator aritmatika sebagai perhitungan angka, mod (modulus) sbgai sisa bagi, dan div sbgai hasil bagi
• operator relasi sebagai pernyataan true atau false apabila diinputkan angka pada nilai 1 dan nilai 2
• operator logika sebagai pernyataan true atau false apabila diinputkan kata false atau true pada nilai 1 dan nilai 2
• klik button lagi maka textbox kembali kosong
• klik button keluar maka mengakhiri program

Listing Code :

Private Sub tambah_Click()
txthasil = Val(txtnilai1.Text) + Val(txtnilai2.Text)
End Sub

Private Sub kurang_Click()
txthasil = Val(txtnilai1.Text) - Val(txtnilai2.Text)
End Sub

Private Sub bagi_Click()
txthasil = Val(txtnilai1.Text) / Val(txtnilai2.Text)
End Sub

Private Sub kali_Click()
txthasil = Val(txtnilai1.Text) * Val(txtnilai2.Text)
End Sub

Private Sub txtkeluar_Click()
End
End Sub

Private Sub txtlagi_Click()
txtnilai1.Text = ""
txtnilai2.Text = ""
txthasil = ""
txtnot = ""
txtnilai1.SetFocus
End Sub

Private Sub not_Click()
If cmbnot = True Then
txtnot = Not True
Else
txtnot = Not False
End If
End Sub

Private Sub txtor_Click()
If txtnilai1 = "true" Or txtnilai2 = "true" Then
txthasil = "true"
ElseIf txtnilai1 = "true" Or txtnilai2 = "false" Then
txthasil = "true"
ElseIf txtnilai1 = "false" Or txtnilai2 = "true" Then
txthasil = "true"
Else
txthasil = "false"
End If
End Sub

Private Sub txtand_Click()
If txtnilai1 = "true" And txtnilai2 = "true" Then
txthasil = "true"
ElseIf txtnilai1 = "true" And txtnilai2 = "false" Then
txthasil = "false"
ElseIf txtnilai1 = "false" And txtnilai2 = "true" Then
txthasil = "false"
Else
txthasil = "false"
End If
End Sub

Private Sub txtor1_Click()
txthasil = Val(txtnilai1.Text) = Val(txtnilai2.Text)
End Sub

Private Sub txtor2_Click()
txthasil = Val(txtnilai1.Text) < Val(txtnilai2.Text)
End Sub

Private Sub txtor3_Click()
txthasil = Val(txtnilai1.Text) > Val(txtnilai2.Text)
End Sub

Private Sub txtor4_Click()
txthasil = Val(txtnilai1.Text) <= Val(txtnilai2.Text)
End Sub

Private Sub txtor5_Click()
txthasil = Val(txtnilai1.Text) >= Val(txtnilai2.Text)
End Sub

Private Sub txtor6_Click()
txthasil = Val(txtnilai1.Text) <> Val(txtnilai2.Text)
End Sub

Private Sub txtdiv_Click()
txthasil = Val(txtnilai1.Text) \ Val(txtnilai2.Text)
End Sub

Private Sub txtmod_Click()
txthasil = Val(txtnilai1.Text) Mod Val(txtnilai2.Text)
End Sub

Catatan :
cara mudah membedakan didalam operator logika

not = kebalikannya.
contoh : true => false, false =>true

and = hrus bernilai benar keduanya, maka true. slain itu false
contoh : nilai1 = true, nilai2 =true . maka true

or  = hrus bernilai salah keduanya, maka false. slain itu true
contoh : nilai1 = false, nilai2 =false . maka false

xor = apabila sama bernilai false, berbeda maka true
contoh :
nilai1 = false, nilai2 =false . maka false
nilai1 = true, nilai2 =true . maka false