Mengenal Data dan Variabel Visual Basic 6.0

Mengenal Data dan Variabel Visual Basic 6.0

Ketik Visual Basic! - Data dan variabel adalah dua hal yang selalu kita pakai di setiap program yang akan dibuat, maka kita pun harus paha... 02.59

Ketik Visual Basic! - Data dan variabel adalah dua hal yang selalu kita pakai di setiap program yang akan dibuat, maka kita pun harus paham dan mengenalnya dengan baik. Data dapat kita terjemahkan sebagai sebuah informasi yang diperlukan oleh program komputer untuk menghasilkan sebuah keluaran sesuai yang dikehendaki. Sedangkan variabel adalah sebuah tempat atau wadah yang digunakan untuk menampung data, dalam hal ini adalah memori komputer.

Beberapa tipe data yang dikenali oleh visual basic 6.0

• Integer adalah tipe data untuk angka bulat
• Single adalah tipe data untuk angka pecahan
• String adalah tipe data untuk teks (huruf, angka dan tanda baca)
• Boolean adalah tipe data yang hanya bernilai TRUE atau FALSE
• Currency adalah tipe data untuk angka mata uang
• Date adalah tipe data untuk tanggal dan jam

Setiap data disimpan di dalam sebuah variabel, dan untuk tipe data tertentu akan membutuhkan alokasi atau jumlah memory (byte) dalam ukuran yang berbeda.

Variabel dideklarasikan dalam sebuah kode program seperti berikut ini
Dim <nama_variabel> As <tipe_data>

Contoh: Dim lebarX As integer

Berikut adalah aturan dalam menulis sebuah variabel visual basic 6.0

• Harus diawali dengan huruf
• Tidak boleh menggunakan spasi tetapi bisa diganti dengan underscore
• Tidak boleh menggunakan karakter khusu (seperti: +, -, *, /, <, >, dll)
• Tidak boleh menggunakan kata kunci yang sudah dikenal oleh visual basic (seperti: dim, as, integer, string dll)

Perlu diingat bahwa sebuah variabel hanya dapat menyimpan sebuah data sesuai dengan tipe datanya. Dan cara mengisinya dapat dilakukan seperti

Contoh: LebarX = 20

Untuk tipe data tertentu nilai data harus diapit dengan tanda pembatas, misalnya tipe data string diapit dengan tanda petik ganda "nilai_data"; tipe data date diapit tanda pagar #nilai_data#. sedangkan tipe data yang lain tidak perlu diapit oleh tanda pembatas.

Sebuah variabel mempunyai ruang lingkup (scope) dan juga waktu hidup (life time)

• Variabel Lokal adalah sebuah variabel yang hanya dikenali satu bagian program saja, nilai data yang tersimpan didalamnya hanya akan hidup atau terpakai hanya jika bagian program tersebut dijalankan
• Variabel Global adalah sebuah variabel yang dikenali oleh seluruh bagian program, dan nilai data yang tersimpan didalamnya akan hidup selama program tersebut dijalankan.

Variabel yang nilai datanya tetap atau tidak berubah disebut sebagai Konstanta, dan penulisan di dalam kode program adalah sebagai berikut

Const <nama_konstanta> As <tipe_data> = <nilai_data>

Contoh: Const Phi As Single = 3.14  

Contoh program hitung luas bangun visual basic 6.0

1. Buat user interface seperti berikut ini

User Interface (UI) Aplikasi Hitung Luas

2. Atur property masing-masing object seperti tabel berikut

Object	Property	Value
Form1	Caption	Aplikasi hitung luas
Frame1	Caption	Pilih bangunan
Option1	Caption	Bujur sangkar
Option2	Caption	Persegi panjang
Option3	Caption	Lingkaran
Option4	Caption	Segitiga
Frame2	Caption	Masukkan nilai data
Label1	-	-
Label2	-	-
Text1	Text	0
Text2	Text	0
Label3	Caption	Luas Bangunan
Text3	Text	0
Command1	Caption Font Font Style Size	Hitung Luasan Arial Bold 12

3. Buka jendela kode program dan tulis kode program hitung luas bidang

Jendela Code Editor Visual Basic 6.0

4. Masukkan kode program berikut kedalam jendela kode

Dim var1 As Single, var2 As Single
Dim luasan As Single
Const phi As Single = 3.14

Private Sub Command1_Click()
var1 = Text1.Text
var2 = Text2.Text

If Option1.Value = True Then
    luasan = var1 * var1
    Text3.Text = luasan
End If

If Option2.Value = True Then
    luasan = var1 * var2
    Text3.Text = luasan
End If

If Option3.Value = True Then
    luasan = phi * var1 * var1
    Text3.Text = luasan
End If

If Option4.Value = True Then
    luasan = 0.5 * var1 * var2
    Text3.Text = luasan
End If

End Sub

Private Sub Option1_Click()
    Label1.Caption = "Sisi"
    Label2.Visible = False
    Label3.Caption = "Luas Bujur Sangkar"
    Text2.Visible = False
    Text3.Text = 0
End Sub

Private Sub Option2_Click()
    Label1.Caption = "Panjang"
    Label2.Visible = True
    Label2.Caption = "Lebar"
    Label3.Caption = "Luas Persegi Panjang"
    Text1.Visible = True
    Text2.Visible = True
    Text1.Text = 0
    Text2.Text = 0
    Text3.Text = 0
End Sub

Private Sub Option3_Click()
    Label1.Caption = "Jari-Jari"
    Label2.Visible = False
    Label3.Caption = "Luas Lingkaran"
    Text1.Visible = True
    Text2.Visible = False
    Text1.Text = 0
    Text3.Text = 0
End Sub

Private Sub Option4_Click()
    Label1.Caption = "Alas"
    Label2.Visible = True
    Label2.Caption = "Tinggi"
    Label3.Caption = "Luas Segitiga Siku-Siku"
    Text1.Visible = True
    Text2.Visible = True
    Text1.Text = 0
    Text2.Text = 0
    Text3.Text = 0
End Sub

Untuk menjalankan aplikasi yang dibuat tekan tombol F5. Dan hasil aplikasi tersebut dapat dilihat seperti gambar berikut:

Aplikasi menghitung luas bidang

Penjelasan aplikasi menghitung luas bidang 

1. Ketika aplikasi dijalankan secara default belum ada jenis bangun atau bidang yang dipilih (bujur sangkar, persegi panjang, lingkaran, dan segitiga siku-siku)
2. Ketika jenis bangun atau bidang dipilih maka label1 akan berubah menjadi "Sisi" dan label2 beserta textbox-nya akan hilang
3. Isikan nilai "Sisi" dan tekan tombol "Hitung Luasan"
4. Maka "Luas Bangun" akan terisi dengan luas bujur sangkar. Begitu juga dengan pilihan bidang lainnya.

Penjelasan kode program aplikasi menghitung luas bidang

Blok pertama
Dim var1 As Single, var2 As Single
Dim luasan As Single
Const phi As Single = 3.14

digunakan untuk mendeklarasikan variabel termasuk variabel KONSTANTA "phi"


Blok kedua
Private Sub Command1_Click()
var1 = Text1.Text
var2 = Text2.Text

If Option1.Value = True Then
luasan = var1 * var1
Text3.Text = luasan
End If

dst...

End Sub

1. Ketika tombol Command1 (Hitung Luasan) ditekan maka var1 akan terisi oleh text1.text dan var2 terisi oleh text2.text
2. VB 6.0 akan melakukan scanning object (Option1 s/d Option2) mana yang dipilih
3. Misalkan Option1 yang dipilih (Option1.Value = True). Dalam hal ini adalah luas bujur sangkar, maka luasan = var1 * var2
4. Isikan Text3.text dengan nilai variabel luasan dalam hal ini adalah luas bujur sangkar

Blok ketiga
Private Sub Option1_Click()
Label1.Caption = "Sisi"
Label2.Visible = False
Label3.Caption = "Luas Bujur Sangkar"
Text2.Visible = False
Text3.Text = 0
End Sub

Untuk penjelasan blok ketiga berlaku untuk Option1 s/d Option4. Kita ambil contoh event yang terjadi pada Option1

1. Ketika Option1 dipilih (Option1.Value = True) maka beberapa property object akan berubah
2. Dimulai dari Label1 yang semula bernama "label1" berubah menjadi "Sisi";
3. Label2 yang semula tampil berubah menjadi tidak tampil dengan perintah Label2.Visible = False
4. Label3 yang semula bernama "Luas Bangun" berubah menjadi "Luas Bujur Sangkar"
5. Text2 yang semula tampil berubah menjadi tidak tampil dengan perintah Text2.Visible = False
6. Text3 selalu dikondisikan bernilai 0, hal ini dilakukan untuk mereset jika sebelumnya kita sudah memilih pilihan yang lain

Nah, penjelasan dan contoh aplikasi tersebut diatas semoga membantu para netter dalam mencari solusi mengenai mengenal data dan variabel dalam visual basic 6.0.