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 BoxPropertiesKeterangan
Form 1CaptionProgram Array
Star Up PositionsCenter Screen
Label 1CaptionNama
Text 1Text(Kosong)
Command 1CaptionSimpan
Command 2Lihat

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

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

Comments