Program Dasar Penggunaan Array

Program ini adalah program dasar dimana kita menggunkan ARRAY dalam program ini..
orang yang pertama kali belajar VB pasti sudah tahu apa itu ARRAY..
dan ini lah program penggunaan array trsebut...

Lihat Coding

Private Sub Command1_Click()
Dimlarik(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 = o To data - 1
prompt$ = "enter data yang akan dimasukkan ke dalam array"
nilai$ = InputBox(prompt$, "array dimensi satu")
larik(i) = nilai$
List1.AddItem larik(i), i
Next i
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Download FULL Coding dan .Exe
klik link di bawah ini
http://www.mediafire.com/?irrdzhwn6r99fod

Posting Lebih Baru Posting Lama