Control Array Visual Basic : Kalkulator Versi 2

Di dalam visual Basic, penggunaan array tidak hanya berlaku untuk data / variabel saja, kita bisa menggunakan array untuk komponen. Pemakaian array seperti inilah yang di sebut dengan control array. control array ini biasanya di gunakan untuk membuat sebuah program dengan banyak komponen dengan property dan fungsi yang sama. Ciri dari control array bisa kita lihat di property name di setiap komponen, yang biasanya text1 dan text2, menjadi text1(0) dan text1(1), hal itu bisa kita buat dengan cara duplicate komponen yang akan di jadikan array, caranya klik kanan > copy atau tekan CTRL C, lalu tekan CTRL V atau paste komponen di form, maka akan muncul pesan "You already have a control named command1. Do you want to create a control array ?", seperti ini :

Jika anda memilih NO, maka anda tidak akan menjadikan komponen tersebut sebagai control array, hanya sebagai komponen biasa, dengan name text1 dan text2, Jika anda memilih YES, maka komponen tersebut akan menjadi control array, sehingga name text1 akan berubah menjadi text1(0) dan text2 menjadi text1(1), dimana nilai dari 0 dan 1 akan terus bertambah ketika anda menduplicate komponen yang di copy.

Di bawah ini saya buatkan tutorialnya, agar anda bisa lebih memahaminya, program yang akan kita buat adalah Kalkulaor, tapi berbeda dengan tutorial membuat kalkulator versi 1, sebelumnya yang tidak menggunakan Control array, Baiklah berikut tutorialnya :

1. Pertama jalankan VB dengan project Standar EXE.
2. Tambahkan 2 command button dan 1 text box, lalu rubah propertinya :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Command 1 dan 2	Font Size	12
Text 1	Text	(Kosong)
	Enable	False

3. Lalu copy dan jadikan commad1 sebagai komponen array sebanyak 10, dan ganti captionnya untuk command1(0) = 0, command1(1) = 1, dan seterusnya.
dan jadikan juga command2 sebagai komponen array sebanyak 5 buah, dan ganti captionya, command2(0) = C, command2(1) menjadi =, command2(2) = X, (3) = /, (4) = +, (5) = -, aturlah posisinya sehingga seperti ini :

4. Lalu tuliskan script berikut :
Dim kal, operasi As String 'Definisi Variabel Global
Dim bil As Integer

Private Sub Command1_Click(Index As Integer)
kal = kal + Trim(Str(Index)) 'Menambahkan angka yang di tekan ke text1
Text1 = kal 'Dan menyimpannya di memory komputer
End Sub

Private Sub Command2_Click(Index As Integer)
Select Case Index 'Seleksi index
Case 0: 'Case 0 adalah command button dengan caption "C" (Clear
Text1 = "0" 'Mengosongkan isi dari Text1, dan menambahkan angka 0
kal = ""

Case 1: '(Sama dengan)
bil2 = Val(kal) 'Menambahkan nilai dari kal (text1), ke memory bil2
If operasi = "+" Then bil = bil + bil2 
'Jika memory Operasi adalah +, maka dilakukan penjumlahan bil dan bil2
If operasi = "-" Then bil = bil - bil2
If operasi = "X" Then bil = bil * bil2
If operasi = "/" Then bil = bil / bil2
Text1 = bil  'Hasil dari operasi di atas, akan di tuliskan di text1
kal = Trim(Str(bil))

Case 2: '(Perkalian)
bil = Val(kal) 'Menambahkan nilai dari kal (text1) ke memori bil
operasi = "X" 'Menambahkan X ke memory operasi
kal = ""

Case 3: '(Pembagian)
bil = Val(kal)
operasi = "/"
kal = ""

Case 4: '(Penjumlahan)
bil = Val(kal)
operasi = "+"
kal = ""

Case 5: '(Pengurangan)
bil = Val(kal)
operasi = "-"
kal = ""
End Select
End Sub

5. Langkah selanjutnya, coba tes program yang telah anda buat

Sekian tutorial kali ini, Selamat belajar

Terimakasih