Visual Basic#1
Dasar dalam menggunakan Visual Basic, yang kita coba di bawah ini adalah mengenai OPERATOR yang sering di gunakan dalam VB.
Dim var1 As Single, var2 As Single Dim hasil As Single Private Sub Label1_Click() End Sub Private Sub Option1_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 + var2 Label3.Caption = hasil End Sub Private Sub Option10_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 >= var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option11_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <= var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option12_Click() var1 = IIf(Text1.Text = "True", -1, 0) hasil = Not (var1) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option13_Click() var1 = IIf(Text1.Text = "True", -1, 0) var1 = IIf(Text2.Text = "True", -1, 0) hasil = (var1 Or var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option14_Click() var1 = IIf(Text1.Text = "True", -1, 0) var1 = IIf(Text2.Text = "True", -1, 0) hasil = (var1 And var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option2_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 - var2 Label3.Caption = hasil End Sub Private Sub Option3_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 * var2 Label3.Caption = hasil End Sub Private Sub Option4_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 / var2 Label3.Caption = hasil End Sub Private Sub Option5_Click() var1 = Text1.Text var2 = Text2.Text hasil = var1 & var2 Label3.Caption = hasil End Sub Private Sub Option6_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 > var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option7_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 < var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option8_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 = var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Option9_Click() var1 = Text1.Text var2 = Text2.Text hasil = (var1 <> var2) Label3.Caption = Format(hasil, "True/False") End Sub Private Sub Text1_Change() End Sub Private Sub Text2_Change() End Sub
SCREENSHOOT BELOW.

Source Code Download HERE.
Categories: Visual Basic
Tags: operator - Visual Basic
[...] Visual Basic#1 Visual Basic#3 Apr [...]