Penggunaan Operator VB 6.0

Jumat, 29 Oktober 2010

OPERATOR di dalam bahasa pemrograman bisa diartikan sebagai simbol yang digunakan untuk melakukan suatu operasi terhadap nilai data. Simbol operator bisa berupa karakter ataupun kata khusus.

Visual basic 6.0 mengenal tiga jenis operator yaitu:

1.   Operator Aritmatika digunakan untuk operasi matematis
      terhadap nilai data. Simbol-simbol yang digunakan
2.   Operator Perbandingan digunakan untuk operasi yang memban
      dingkan nilai data. Simbol-simbol yang digunakan 
3.   Operator Logika digunakan untuk operasi yang membandingkan
      suatu perbandingan. Simbolsimbol yang digunakan.

Membuat Program Operator

 Pengaturan properti:
Object                               Properties                                Value

Form1                                Caption                                     Prog Operator                                   
                                          StartUpPosition

Label1-2                            Caption                                      Var1
                                                                                            Var2


Text1-2                              Text                                           Kosong


Frame1-3                           Caption                                      Aritmatika
                                                                                            Perbandingan
                                                                                            Logika


Option1-13                        Captions                                    +, -, *, /
                                                                                            >, <, =, <>, >=, <=
                                                                                            Not, Or, And


Label3                               Alignment                                   2 – Center
                                         Caption                                      Kosong

Buka jendela kode, kemudian Ketikkan kode programnya sebagai berikut:

Dim var1 As Single, var2 As Single
Dim hasil As Single

Private Sub Option1_Click()
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 + var2
Label3.Caption = hasil
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 = hasil
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 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)
var2 = 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)
var2 = IIf(Text2.Text = "True", -1, 0)
hasil = (var1 And var2)
Label3.Caption = Format(hasil, "True/False")
End Sub


Kemudian Save Form.

Tuliskan komentar anda di kotak komentar di bawah ini