Variabel, Konstanta Dan Operator

:: VARIABEL ::
Variabel yaitu lokasi di memori tempat menyimpan informasi sementara.
Cara penulisan : Dim [nama_variabel] As [type_data]
Aturan variabel :

1. Maksimal 40 karakter,
2. Tidak boleh menggunakan spasi,
3. Tidak boleh menggunakan karakter khusus (seperti : +, -, *, /, <, >),
4. Karakter pertama harus huruf,
5. Tidak boleh menggunakan kata kunci, obyek, properti dan metode VB 6.
   

Tipe data untuk variabel pada VB 6 :

• Boolean : true atau false
• Integer : angka bulat -32768 s/d 32767
• Long (Integer) : -2147483648 s/d 2147483648
• Single : angka pecahan
• Double : angka
• Currency : mata uang
• Date : tanggal dan jam
• Obyek : referensi obyek
• String : karakter
• Variant : semua jenis data
  

Contoh variabel :

Dim Nilai As Double
Dim Nama As String
Dim Tgl As Date

Lingkup/Prosedur Variabel :

1. Level prosedur : untuk lingkup hanya pada prosedur.
2. Level form/modul : bisa dipanggil pada semua prosedur dalam form/modul
3. Level global : bisa dipanggil pada semua prosedur, menggunakan kata kunci public atau global.
   

:: KOSNTANTA ::
adalah variable yang nilainya tidak berubah.
Cara penulisan : Const [nama_kontanta] As [type_data] = [nilai_data]
Contoh :

Const phi = 3.14
Const tgl_gajian As Date = #25/09/2003#

:: OPERATOR ::
adalah fungsi untuk melakukan operasi.
Macam-macam operator :

1. Operator Penugasan, contoh Nilai = 2000
2. Operator Aritmatika digunakan untuk operasi matematis terhadap nilai data. Simbol-simbol yang digunakan :
• ^ pemangkatan 5 ^ 2 hasilnya 25
• * perkalian 5 * 2 hasilnya 10
• / pembagian (hasil pecahan) 5 / 2 hasilnya 2,5
• \ Pembagian (hasil bulat) 5 \ 2 hasilnya 2
• Mod sisa pembagian 5 Mod 2 hasilnya 1
• + penjumlahan 5 + 2 hasilnya 7
• - pengurangan 5 - 2 hasilnya 3
• & penggabungan string 5 & 2 hasilnya 52
3. Operator Perbandingan digunakan untuk operasi yang membandingkan nilai data. Simbol-simbol yang digunakan :
• <>
• > lebih besar; 5 > 2 hasilnya TRUE
• <= lebih kecil atau sama dengan; 5 <= 2 hasilnya FALSE
• >= lebih besar atau sama dengan; 5 >= 2 hasilnya TRUE
• = sama dengan; 5 = 2 hasilnya FALSE
• <> tidak sama dengan; 5 <> 2 hasilnya TRUE
4. Operator Logika digunakan untuk operasi yang membandingkan suatu perbandingan. Simbol-simbol yang digunakan :
• Or; atau; Benar, jika salah satu ekspresi benar; (5 <> 2) hasilnya TRUE
• And; dan; Benar, jika kedua ekspresi benar; (5 <> 2) hasilnya FALSE
• Not; Tidak Not; Menghasilkan nilai kebalikan (5 <>

Contoh Program
>> Form
>> Code

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 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

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