Dim nama_variabel(jumlah_array) as Tipe_Data
Perintah ini diletakkan sesuai kebutuhan apakah array ini hanya untuk subroutine (event) lokal atau pada seluruh event di form.
Array pada Visual Basic dimulai dari indeks 0. Sehingga data pertama dituliskan dengan var(0). Visual Basic juga mengenal array dinamis, dimana jumlahnya bisa tak terbatas. Untuk mendefinisikan array dinamis dapat dilakukan dengan mendefinisikan array tanpa menuliskan jumlah maksimum arraynya sebagai berikut:
Dim variabel() as tipe_data
Untuk contoh nama di atas, dapat dituliskan dengan:
Dim nama() as string
Contoh Aplikasi:
Membuat project untuk menuliskan data-data nama siswa dengan nomor dibuat otomatis, dengan jumlah data siswa maksimum adalah 20. Kemudian menampilkan semua data nama siswa yang sudah dimasukkan.
-
Buat project baru dengan StandardEXE
-
Tambahkan komponen-komponen: 1 label, 1 textbox, 1 listbox dan 2 command button
-
Masukkan nilai property dari masing-masing komponen dan form seperti tabel di bawah ini, dan atur penempatan setiap komponen seperti gambar 6.1.
-
Tambahkan kode program pada jendela kode sebagai berikut: ‘ Mendefinisikan variabel global nama sebagai array
‘ dan jumlah data
Dim nama(20) As String
Dim n As Integer
Private Sub Command1_Click()
‘ Menambah nomor array dan memindahkan isi text1
‘ ke array nama
n = n + 1
nama(n) = Trim(Text1.Text)
‘ Mengosongkan isi text1 dan menaruh kursor ke text1
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
‘ Menampilkan semua isi array nama
List1.Clear
For i = 1 To n
List1.AddItem nama(i)
Next i
End Sub
Private Sub Form_Load()
‘ Saat form dipanggil jumlah array diisi dengan nol
n = 0
End Sub
-
Simpan project dengan nama projectLatihan61.
|