Control Array Visual Basic : Kalkulator Versi 2

Di dalam visual Basic, penggunaan array tidak hanya berlaku untuk data / variabel saja, kita dapat memakai array untuk komponen. Pemakaian array menyerupai inilah yang di sebut dengan control array. control array ini biasanya di gunakan untuk menciptakan sebuah aktivitas dengan banyak komponen dengan property dan fungsi yang sama. Ciri dari control array dapat kita lihat di property name di setiap komponen, yang biasanya text1 dan text2, menjadi text1(0) dan text1(1), hal itu dapat kita buat dengan cara duplicate komponen yang akan di jadikan array, caranya klik kanan > copy atau tekan CTRL C, kemudian 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 ?", menyerupai ini :

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

Di bawah ini saya buatkan tutorialnya, semoga anda dapat lebih memahaminya, aktivitas yang akan kita buat ialah Kalkulaor, tapi berbeda dengan tutorial menciptakan kalkulator versi 1, sebelumnya yang tidak memakai Control array, Baiklah berikut tutorialnya :

1. Pertama jalankan VB dengan project Standar EXE.
2. Tambahkan 2 command button dan 1 text box, kemudian 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 menyerupai 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 ialah 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 aktivitas yang telah anda buat

Sekian tutorial kali ini, Selamat belajar

Terimakasih