Contoh Array Dengan Vb 6.0

untuk membuat nya seperti gambar disamping bisa sobat download disini
Disini setelah sobat download jangan lupa extract
dulu file zip nya dn jalankan programnya
atau bisa sobat baca tutorial seperti dibawah ini:

1. Buatlah sebuah aplikasi baru (File | New Project | Standard EXE)
2. Masukan 1 TextBox, 1 Label, 1 ListBox dan 2 CommandButton
3. Gantilah properties masing-masing komponen seperti tertera dibawah ini :
Object Properties Value :
Form1 Caption Array Dimensi Satu
Label1 Caption Jumlah Data
Text1 Text
List1 List
Command1 Caption Input
Command2 Caption Keluar
atau bisa sobat sesuaikan dengan contoh gambar nya

5. Masukan code untuk CommandButton Input
Dim larik(6) As String
Dim i As Integer
Dim data As Integer
data = CInt(Text1.Text)
If data > 6 Then
MsgBox "Jumlah data tidak boleh lebih dari 6 data", vbInformation
Else
If data < 0 Then MsgBox "jumlah data tidak boleh kurang dari 0", vbInformation Else List1.Clear For i = 0 To data - 1 prompt$ = "Enter data yang akan dimasukan ke dalam array" nilai$ = InputBox(prompt$, "Array Dimensi Satu") larik(i) = nilai$ List1.AddItem larik(i), i Next i End If End If

6. Masukan code untuk CommandButton Keluar
Unload Me

7. Tekan F5 untuk menjalankan program (Running)

contoh kode program diatas masih terdapat erornya pada kode "data = CInt(Text1.Text)"
Tapi saya mengganti nya dengan "data = Len(Text1.Text)"
Selamat mencoba semoga bermanfaat

Catatan : Jangan Lupa Baca dan Klik Dibawah ini ya

Artikel Keren Lainnya