Tutorial Blog Mas Andes Official - Tips Blogging | Trik Blogger | Tutorial Blogger | Widget Blogger | Blog Design | Taktik SEO (Search Engine Optimization)

Mengenal dan Memahami Control Array



Pada visual Basic, array tidak hanya berlaku untuk variabel tetapi juga berlaku untuk komponen. Pemakaian array pada komponen ini dinamakan dengan control array. Control array ini banyak terjadi ketika membuat komponen dengan cara meng-copy dari komponen yang sudah ada, misalkan untuk membuat command button dengan meng-copy command1 akan muncul konfirmasi “You already have a control named command1. Do you want to create a control array ?”. Bila pertanyaan ini djawab dengan Yes, maka hasil command yang kedua mempunyai nama command1(1), sedangkan command yang pertama mempunyai nama command1(0). Control array ini sangat berguna bila membuat suatu project dengan banyak komponen yang mempunyai model dan kegunaan yang sama. Control array juga berguna untuk membuat project dengan komponen serupa yang sangat banyak misalkan untuk lampu indikator yang menyatakan volume atau kekuatan.

Contoh Aplikasi 1 :
Membuat kalkulator dengan kemampuan penjumlahan dan pengurangan, dapat dilakukan dengan memanfaatkan control array pada tombol-tombol yang digunakan.
1.       Buat project baru dengan StandardEXE. Untuk form, isi porperty [Name] dengan formLatihan1.
2.    Tambahkan komponen TextBox, atur property [Font] dengan size 18 dan bold, atur property alignment dengan 1-Right Justify. Isi property [Text] dengan 0 (nol).
3.    Tambahkan command Button, atur property [Font] dengan size 14 dan bold. Buatlah 14 buah command button dengan cara meng-copy dan jadikan control array sehingga menjadi command1(0), command1(1), command1(2) sampai dengan command1(13).
4.       Atur posisinya seperti gambar berikut :



(Latihan membuat kalkulator)

5.       Pada jendela code, tambahkan kode program sebagai operasi kalkulator sebagai berikut:

%  Definisi variabel global
Dim kal, operasi As String
Dim bil As Integer

Private Sub Command1_Click(Index As Integer)
%  Penambahan kerakter setiap tombol angka ditekan
kal = kal + Trim(Str(Index))
Text1 = kal
End Sub

Private Sub Command2_Click()
%  Membersihkan memory dan text1
Text1 = "0"
kal = ""
End Sub

Private Sub Command3_Click(Index As Integer) Select Case Index
Case 0:
%  Operasi perhitungan bila tombol = ditekan
bil2 = Val(kal)
If operasi = "+" Then bil = bil + bil2

If operasi = "-" Then bil = bil - bil2 Text1 = bil
kal = Trim(Str(bil))
Case 1:
%Penampungan variabel dan operator untuk penjumlahan
bil = Val(kal)
operasi = "+"
kal = ""
Case 2:
%Penampungan variabel dan operator untuk pengurangan
bil = Val(kal)
operasi = "-"
kal = ""
End Select
End Sub

6.       Simpan project dengan nama projectLatihan1. Cobalah lakukan proses perhitungan seperti kalkulator biasa. Kalkulator ini memang masih sederhana, dan bisa ditambah fasilitasnya dengan menambah command button dan setiap eventnya.

Contoh Aplikasi 2:
Membuat indikator proses dengan  memanfaatkan control array. Lakukan pengulangan 1 sampai dengan 20, setiap pengulangan lakukan pengulangan lagi sebanyak 1000000 dn lakukan proses perhitungan sederhana misalkan x=2*j+1. Buatlah indikator yang menunjukkan sudah berapa pengulangan pertama yang selesai dengan indikator dibuat memanfaatkan property [Visible] pada shape. Untu membuat program ini lakukan langkah-langkah sebagai berikut:
1.   Buat project baru dengan StandardEXE. Untuk form1, isi property [Name] dengan formLatihan2.
2.   Tambahkan komponen Command, isi property [Caption] dengan Proses.
3. Tambahkan komponen shape, isi property [FillColor] dengan Pallete Merah, dan isi property [FillStyle] dengan 0-Solid. Copy komponen shape ini sebanyak 19 kali sehingga totalnya adalah 20 shape dan letakkan berjajar, seperti pada gambar  berikut :

(Membuat indikator proses)
4.  Pada jendela code, tambahkan kode  program untuk menampilkan indikator pengulangan sebagai berikut:

Private Sub Command1_Click()
'Hilangkan semua shape dengan mengatur visible
For i = 0 To 19
Shape1(i).Visible = False
Next i
'Lakukan pengulangan
For i = 1 To 20
'Lakukan pengulangan sebanyak 1000000
For j = 1 To 1000000
'Lakukan proses perhitungan sederhana
x = 2 * i + 1
Next j
'Tampilkan shape ke i-1
Shape1(i - 1).Visible = True
Shape1(i - 1).Refresh
Next i
End Sub

5.       Simpan project dengan nama projectLatihan2. 


Berlangganan artikel via email

  • Berkomentarlah dengan sopan dan bijak sesuai dengan isi konten.
  • Komentar yang tidak diperlukan oleh pembaca lain [spam] akan segera dihapus.
  • Apabila artikel yang berjudul "Mengenal dan Memahami Control Array" ini bermanfaat, share ke jejaring sosial.
Konversi Kode