Contoh Program Array

Di pembahasan sebelumnya kita telah belajar mengenai Apa itu Array, kali ini kita akan membuat sebuah program dengan menggunakan Array, dimana kita akan menulsikan sebuah data berupa nama siswa dengan nomor yang di buat secara otomatis, dengan jumlah data maksimum adalah 15 data, dan kemudian kita akan menampilkan nama yang sudah di tulis kedalam sebuah list, baiklah berikut tutorialnya :

1. Pertama jalankan VB dengan project Standar EXE
2. Tambahkan beberapa tool box, seperti 1 label, 1 text box, 1 list box, dan 2 command button
3. Ubah Properti dari masing-masing toolbox, seperti ini :

Tool Box	Properties	Keterangan
Form 1	Caption	Program Array
	Star Up Positions	Center Screen
Label 1	Caption	Nama
Text 1	Text	(Kosong)
Command 1	Caption	Simpan
Command 2		Lihat

sehingga akan terlihat seperti ini:

4. Lalu tuliskan script berikut :

Dim nama(15) As String 'Mendefinisikan variabel global nama sebagai array
Dim n As Integer 'Jumlah data

Private Sub Command1_Click()
n = n + 1 'Setiap Command 1 di klik maka nilai n akan bertambah 1
nama(n) = Trim(Text1.Text) 'Memindahkan / menuliskan isi text1 ke array nama
Text1.Text = "" 'Isi dari text 1, setelah klik command 1, akan kosong
Text1.SetFocus 'Menempatkan kursor ke text1
End Sub

Private Sub Command2_Click()
List1.Clear 'Mengkosongkan area list 1
For i = 1 To n 'Menampilkan semua isi array nama di list 1
List1.AddItem nama(i)
Next i
End Sub

Private Sub Form_Load()
n = 0 'Pada saat form di panggil, maka jumlah array disi dengan nol

Dim nama(15) As String 'Mendefinisikan variabel global nama sebagai array Dim n As Integer 'Jumlah data Private Sub Command1_Click() n = n + 1 'Setiap Command 1 di klik maka nilai n akan bertambah 1 nama(n) = Trim(Text1.Text) 'Memindahkan / menuliskan isi text1 ke array nama Text1.Text = "" 'Isi dari text 1, setelah klik command 1, akan kosong Text1.SetFocus 'Menempatkan kursor ke text1 End Sub Private Sub Command2_Click() List1.Clear 'Mengkosongkan area list 1 For i = 1 To n 'Menampilkan semua isi array nama di list 1 List1.AddItem nama(i) Next i End Sub Private Sub Form_Load() n = 0 'Pada saat form di panggil, maka jumlah array disi dengan nol End Sub

5. Jika sudah Selesai Jalankan program

Keterangan :

Pertama tuliskan terlebih dahulu sebuah nama / kata di Text1, lalu klik SIMPAN, maka data yang telah di tulis akan di simpan di memory komputer, dan jikta anda ingin menampilkanya klik saja lihat, maka di list 1 akan tampil daftar nama yang telah di tuliskan.

Sekian untuk tutorial kali ini, semoga bermanfaat