Pada artikel kali ini membahas tentang membuat contoh
program array test dengan visual basic 6.0.
Langsung saja Buka Aplikasi VB 6.0 anda
Buatlah Design Form Seperti gambar dibawah ini, (Gunakan komponen ListBox, ComboBox, TextBox dan CommandButton) :
Buatlah Design Form Seperti gambar dibawah ini, (Gunakan komponen ListBox, ComboBox, TextBox dan CommandButton) :
setelah anda membuat design form sesuai dengan gambar diatas yang digunakan untuk contoh program array test maka kita lanjut dengan memasukkan kodingnya dibawah ini :
Dim
NamaSiswa() As String
Private
Sub Command2_Click()
Dim num As Integer, i As Integer
If Not IsNumeric(Text1.Text) Then Exit Sub
num = CInt(Text1.Text)
ReDim NamaSiswa(1 To num)
Combo1.Clear
List1.Clear
For i = 1 To UBound(NamaSiswa)
Combo1.AddItem i
List1.AddItem "NamaSiswa(" &
i & ")=" & NamaSiswa(i)
Next i
Combo1.ListIndex = 0
End
Sub
Private
Sub Form_Load()
Dim i As Integer
ReDim NamaSiswa(1 To 10)
For i = 1 To 10
Combo1.AddItem i
Next i
Combo1.ListIndex = 0
End
Sub
Private
Sub Command1_Click()
Dim no As Integer, i As Integer
no = CInt(Combo1.Text)
NamaSiswa(no) = InputBox("Tuliskan
nama siswa no : " & no, "Input Nama Siswa")
If NamaSiswa(no) <> "" Then
List1.Clear
For i = 1 To UBound(NamaSiswa)
List1.AddItem
"NamaSiswa(" & i & ")=" & NamaSiswa(i)
Next i
End
If
End
Sub
Sekian
artikel tentang membuat contoh program array test dengan visual basic 6.0,
semoga bermanfaat,jangan lupa koment :)