Program "Fungsi Operator Logika" pada Visual Basic

ini adalah program untuk "Fungsi Operator Logika" pada Visual Basic, dari program ini kita akan mengetahui fungsi dari operator logika

1. buka software visula basicnya
2. setelah itu ada menu pilihan, pilih yang standard.exe
   
3. lalu desain formnya seperti gambar dibawah ini
   
4. ini kodingannya pada code windownya :
   Private Sub cmd1_Click()
   txtnilai3 = Val(txtnilai1) = Val(txtnilai2)
   End Sub
   
   Private Sub cmd2_Click()
   txtnilai3 = Val(txtnilai1) < Val(txtnilai2)
   End Sub
   
   Private Sub cmd3_Click()
   txtnilai3 = Val(txtnilai1) > Val(txtnilai2)
   End Sub
   
   Private Sub cmd4_Click()
   txtnilai3 = Val(txtnilai1) <= Val(txtnilai2)
   End Sub
   
   Private Sub cmd5_Click()
   txtnilai3 = Val(txtnilai1) >= Val(txtnilai2)
   End Sub
   
   Private Sub cmd6_Click()
   txtnilai3 = Val(txtnilai1) <> Val(txtnilai2)
   End Sub
   
   Private Sub cmdbagi_Click()
   txtnilai3 = Val(txtnilai1) / Val(txtnilai3)
   End Sub
   
   
   Private Sub cmdkali_Click()
   txtnilai3 = Val(txtnilai1) * Val(txtnilai2)
   End Sub
   
   Private Sub cmdkeluar_Click()
   End
   End Sub
   
   Private Sub cmdkurang_Click()
   txtnilai3 = Val(txtnilai1) - Val(txtnilai2)
   End Sub
   
   Private Sub cmdlagi_Click()
   txtnilai1.Text = ""
   txtnilai2.Text = ""
   txtnilai3 = ""
   txtnot = ""
   cmbnot = ""
   txtnilai1.SetFocus
   End Sub
   
   Private Sub cmdmod_Click()
   txtnilai3 = Val(txtnilai1) Mod Val(txtnilai2)
   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 txtnilai1 = "True" Or txtnilai2 = "True" Then
   txtnilai3 = "True"
   ElseIf txtnilai1 = "True" Or txtnilai2 = "False" Then
   txtnilai3 = "True"
   ElseIf txtnilai1 = "False" Or txtnilai2 = "True" Then
   txtnilai3 = "True"
   Else
   txtnilai3 = "False"
   End If
   
   End Sub
   
   Private Sub cmdtambah_Click()
   txtnilai3 = Val(txtnilai1) + Val(txtnilai2)
   End Sub

NB : untuk pengetikkan kodingan boleh dicopypaste, tapi untuk di statemen "Private Sub ........ _Click()" itu dicocokan dengan "Name" pada tiap elemen yang didunakan, untuk contoh diatas "Private Sub cmdor_Click()" mengapa disitu tertulis "cmdor" karena name commandbutton saya adalah "cmdor".