Kita sudah mempelajari pengertian array beserta jenis-jenisnya di postingan saya sebelumnya di Memahami dan mengenal array pada Microsoft Visual Basic 2010. sesuai janji saya yang pada postingan sebelumnya itu untuk langsung mencoba implementasikan kedalam form agar teman-teman lebih mendalami jauh, lagi, sekarang kita langsung saja tinggal mempraktekannya. array yang di garap kali ini yaitu array satu dimensi. Caranya sangat sederhana dan mudah dipahami, dimulai dari sekarang.
2. Buat form dan desain seperti gambar beikut ini :
3. Tambahkan kontrol ke Form seperti gambar diatas dan atur propertinya seperti tabel berikut :
Object | Properties | Nilai |
Form1 | Name Text |
Form1 Array Satu Dimensi |
Label1 | Text | NIM |
Label2 | Text | Nama |
Label3 | Text | Prodi |
TextBox1 | Name | TxtNIM |
TextBox2 | Name | TxtNama |
Text Box3 | Name | TxtProdi |
ListView1 | Name | ListView1 |
Button1 | Name | BtnTambah Tambah |
4. Klik Ganda pada Form utama, kemudian masukan kode program berikut ini :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListView1.GridLines = True
ListView1.View = View.Details
ListView1.Columns.Add("NIM")
ListView1.Columns.Add("NAMA", 115)
ListView1.Columns.Add("PRODI", 110)
TxtNIM.Text = 1
TxtNama.Focus()
End Sub
ListView1.GridLines = True
ListView1.View = View.Details
ListView1.Columns.Add("NIM")
ListView1.Columns.Add("NAMA", 115)
ListView1.Columns.Add("PRODI", 110)
TxtNIM.Text = 1
TxtNama.Focus()
End Sub
5. Klik ganda BtnTambah, kemudian masukan kode berikut ini :
Private Sub BtnTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTambah.Click
Dim Arr(2) As String
Arr(0) = TxtNIM.Text
Arr(1) = TxtNama.Text
Arr(2) = TxtProdi.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(Arr(0))
listitem.SubItems.Add(Arr(1))
listitem.SubItems.Add(Arr(2))
TxtNIM.Text = TxtNIM.Text + 1
TxtNama.Text = ""
TxtProdi.Text = ""
TxtNama.Focus()
End Sub
End Class
Dim Arr(2) As String
Arr(0) = TxtNIM.Text
Arr(1) = TxtNama.Text
Arr(2) = TxtProdi.Text
Dim listitem As ListViewItem
listitem = New ListViewItem
listitem = ListView1.Items.Add(Arr(0))
listitem.SubItems.Add(Arr(1))
listitem.SubItems.Add(Arr(2))
TxtNIM.Text = TxtNIM.Text + 1
TxtNama.Text = ""
TxtProdi.Text = ""
TxtNama.Focus()
End Sub
End Class
6. Coba jalankan dan operasikan programnya dengan menekan tombol F5 atau Debug > Start Debugging, programnya akan nampak bekerja seperti ini.
7. Simpan projectnya jika perlu.
Akhirnya kita telah menyelesaikan form array satu dimensi, next kita coba selesaikan form array multi dimensi.
0 komentar: