Diklogi

Code programnya :

Dim pil1 As Single
Dim pil2 As Single
Dim hasil As Single

Private Sub Option1_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = pil1 + pil2
Text3.Text = hasil
End Sub

Private Sub Option10_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = (pil1 > pil2)
Text3.Text = hasil
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option11_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = (pil1 <> pil2)
Text3.Text = hasil
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option14_Click()
pil1 = IIf(Text1.Text = "True", 1, 0)
pil2 = IIf(Text2.Text = "True", 1, 0)
hasil = (pil1 Or pil2)
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option15_Click()
pil1 = IIf(Text1.Text = "True", 1, 0)
hasil = Not (pil1)
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option16_Click()
pil1 = IIf(Text1.Text = "True", 1, 0)
pil2 = IIf(Text2.Text = "True", 1, 0)
hasil = (pil1 And pil2)
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option2_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = pil1 - pil2
Text3.Text = hasil
End Sub

Private Sub Option3_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = pil1 * pil2
Text3.Text = hasil
End Sub

Private Sub Option4_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = pil1 / pil2
Text3.Text = hasil
End Sub

Private Sub Option5_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = pil1 & pil2
Text3.Text = hasil
End Sub

Private Sub Option6_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = (pil1 = pil2)
Text3.Text = hasil
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option7_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = (pil1 <= pil2)
Text3.Text = hasil
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option8_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = (pil1 >= pil2)
Text3.Text = hasil
Text3.Text = Format(hasil, "True/False")
End Sub

Private Sub Option9_Click()
pil1 = Text1.Text
pil2 = Text2.Text
hasil = (pil1 < pil2)
Text3.Text = hasil
Text3.Text = Format(hasil, "True/False")
End Sub

Salam ilmu pengetahuan ^^