Cara Penggunaan Operator Di VB 6.0 : Contoh

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 :

Simbol	Operasi Matematis	Contoh
^	Pemangkatan	5 ^ 2 = 25
*	Perkalian	5 * 2 = 10
/	pembagian (hasil pecahan)	5 / 2 = 2,5
\	pembagian (hasil bulat)	5 \ 2 = 2
Mod	Sisa Pembagian	5 Mod 2 = 1
+	Penjumlahan	5 + 2 = 7
-	Pengurangan	5 – 2 = 3
$	penggabungan string	5 $ 2 = 52

2. Operator Perbandingan digunakan untuk operasi yang membandingkan nilai data. Simbol-simbol
yang digunakan :

Simbol	Operasi Perbandingan	Contoh
<	Lebih Kecil	5 < 2 Hasilnya FALSE
>	Lebih Besar	5 > 2 Hasilnya TRUE
<=	Lebih Kecil Sama Dengan	5 <= 2 Hasilnya FALSE
>=	Lebih Besar Sama Dengan	5 >= 2 Hasilnya TRUE
=	Sama Dengan	5 = 2 Hasilnya FALSE
<>	Tidak sama Dengan	5 <> 2 Hasilnya TRUE

3. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan. Simbolsimbol yang digunakan :

Simbol	Operasi Logika	Contoh
Or	Atau	(5 < 2) Or (5 > 2) hasilnya TRUE
And	Dan	(5 < 2) And (5 > 2) hasilnya FALSE
Not	Tidak	Not (5 < 2) hasilnya TRUE

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 (nama file : Lat4.frm).

Catatan :
Anda bisa men-download file Lat4.frm serta file-file latihan sebelumnya.
Untuk menambahkan file Form ke dalam sebuah Project, lakukan langkah-langkah berikut ini :
1. Klik menu Project > Add Form. Kemudian klik tab Existing.

2. Tentukan lokasi file pada bagian Look in, lalu pilih filenya.
3. Klik tombol Open.
Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi
Form4.
Coba jalankan Project1. Perhatikan hasil setiap operasi !
 semoga bermanfaat jangan lupa coment $ share

Share this post