Penggunaan Operator

1.1 Apa itu Operator ?

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 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 membandingkan nilai data.Simbol-simbol

yang digunakan :

 

3. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan.Simbol-simbol yang digunakan :

 

1.2 Contoh Program : Operator Test

-Aktifkan VB 6 melalui tombol Start.

-Buka kembali project Latihan.vbp.

-Tambahkan Form baru ke dalam Project.

-Pada Jendela Form buatlah UI seperti ini :

 

Pengaturan property setiap object-nya adalah sebagai berikut :

Buka Jendela Code dan pada bagian Code Editor 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

Simpan Form4

Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi

Form4.

Coba jalankan Project1. Perhatikan hasil setiap operasi !