Membuat Program Array Input Data Nama Mahasiswa Dengan Visual Basic 6.0

Pada kali ini saya akan membuat program Array input data nama mahasiswa, yang dimana kita dapat memasukan nama mahasiswa kedalam temporary array tersebut, contoh gambar dan desainnya seperti dibawah ini.

Tampilan Program Array Input Data Mahasiswa

Pada gambar diatas terdapat TextBox, Command Button (SIMPAN, TAMPILKAN, CLEAR dan EXIT) serta terdapat sebuah kotak List untuk menampilkan nama - nama mahasiswa yang telah diinputkan (SIMPAN).

Setelah melakukan desain seperti gambar diatas selanjutnya mengkoding setiap masing - masing Command Button, berikut source codenya:

• Ketikan terlebih dahulu sintak di paling awal, masukan sintak berikut ini:

Dim nama(20) As String
Dim n As Integer
Dim i As Integer

• Lalu klik 2x Command Button 1 (SIMPAN) lalu masukan sintak ini:

Private Sub Command1_Click()
n = n + 1
nama(n) = Text1.Text
Text1.Text = " "
Text1.SetFocus
End Sub

• Lalu klik 2x pada Command Button 2 (TAMPILKAN) lalu masukan sintak ini:

Private Sub Command2_Click()
For i = 1 To n
List1.AddItem nama(i)
Next i
End Sub

• Lalu klik 2x pada Command Button 3 (CLEAR) lalu masukan sintak ini:

Private Sub Command3_Click()
For i = 1 To n
nama(i) = ""
Next i
List1.Clear
n = 0
End Sub

• Lalu klik 2x pada Command Button 4 (EXIT) lalu masukan sintak ini:

Private Sub Command4_Click()
End
End Sub

Setelah semua di ketikan sintaknya lalu jalankan dengan tekan 'Run', setelah muncul lalu kita inputkan nama lalu klik "SIMPAN" begitu seterusnya, bila sudah klik "TAMPILKAN" maka akan muncul nama - nama yang tadi kita inputkan, bila ingin diulangi atau dihapus semua maka tekan "CLEAR" dan bila ingin keluar dari program maka tekan "EXIT".