Contoh Aktivitas Array

Di pembahasan sebelumnya kita telah mencar ilmu mengenai Apa itu Array, kali ini kita akan menciptakan sebuah kegiatan dengan memakai Array, dimana kita akan menulsikan sebuah data berupa nama siswa dengan nomor yang di buat secara otomatis, dengan jumlah data maksimum yaitu 15 data, dan kemudian kita akan menampilkan nama yang sudah di tulis kedalam sebuah list, sepakat berikut tutorialnya :

1. Pertama jalankan VB dengan project Standar EXE
2. Tambahkan beberapa tool box, menyerupai 1 label, 1 text box, 1 list box, dan 2 command button
3. Ubah Properti dari masing-masing toolbox, menyerupai 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 menyerupai 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, sesudah 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 ketika 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, sesudah 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 ketika 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, kemudian 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, supaya bermanfaat