Latihan Visual Basic "Fungsi Operator"

berikut ini salah satu contoh latihan visual basic dasar mengenai penjualan. semoga menjadi solusi bagi kalian guys. dipelajari guys logikanya, ga terlalu rumit ko... untuk tampilannya seperti ini ya guys di buat aja dulu desain formnya baru dilihat listingannya. jangan lupa guys untuk nama-nama comandbutton, textbox dll namanya harus sesuai dengan listingannya biar ga debug hehe..

Private Sub and_Click()
If nilai1 = "false" Or nilai2 = "false" Then
hasil = "false"
ElseIf nilai1 = "true" Or nilai2 = "false" Then
hasil = "false"
ElseIf nilai1 = "false" Or nilai2 = "true" Then
hasil = "false"
Else hasil = "true"
End If
End Sub

Private Sub bagi_Click()
hasil = Val(nilai1.Text) / Val(nilai2.Text)
End Sub

Private Sub cmdnot_Click()
If nilai = True Then
hasil2 = Not True
Else hasil2 = Not False
End If
End Sub
Private Sub div_Click()
hasil = Val(nilai1.Text) \ Val(nilai2.Text)
End Sub
Private Sub kali_Click()
hasil = Val(nilai1.Text) * Val(nilai2.Text)
End Sub
Private Sub keluar_Click() a = MsgBox("Anda yakin akan keluar?", vbQuestion + vbOKCancel, "Informasi")
If a = vbOK Then
End
End If
End Sub
Private Sub kurang_Click()
hasil = Val(nilai1.Text) - Val(nilai2.Text)
End Sub
Private Sub kurangdari_Click()
hasil = Val(nilai1.Text) < Val(nilai2.Text) End Sub Private Sub kurangsamadengan_Click() hasil = Val(nilai1.Text) <= Val(nilai2.Text) End Sub Private Sub lagi_Click() nilai1.Text = "" nilai2.Text = "" hasil.Text = "" hasil2.Text = "" nilai1.SetFocus nilai.Text = "" End Sub Private Sub lebihdari_Click() hasil = Val(nilai1.Text) > Val(nilai2.Text)
End Sub
Private Sub lebihsamadengan_Click()
hasil = Val(nilai1.Text) >= Val(nilai2.Text)
End Sub
Private Sub mod_Click()
hasil = Val(nilai1.Text) Mod Val(nilai2.Text)
End Sub
Private Sub or_Click()
If nilai1 = "true" Or nilai2 = "true" Then
hasil = "true"
ElseIf nilai1 = "true" Or nilai2 = "false" Then
hasil = "true"
ElseIf nilai1 = "false" Or nilai2 = "true" Then
hasil = "true"
Else hasil = "false"
End If
End Sub
Private Sub samadengan_Click()
hasil = Val(nilai1.Text) = Val(nilai2.Text)
End Sub
Private Sub tambah_Click()
hasil = Val(nilai1.Text) + Val(nilai2.Text)
End Sub
Private Sub tidaksamadengan_Click()
hasil = Val(nilai1.Text) <> Val(nilai2.Text)
End Sub