1. Mendesain Form
terlebih dahulu
Dibawah ini merupakan tampilan
desain program yang memiliki label (NIM, NAMA, PRODI), textbox, dan Button
Tambah .
a. Fungsi
dari Label yang terdapat pada microsft visual sendiri adalah sebagai penamaan
suatu teks atau judul untuk tampilan tersebut,
b. Fungsi
dari text box adalah untuk agar saat program di jalankan dapat mengisi form
yang kosong tersebut(text box),
c. Fungsi
dari Button adalah inti dari semua proses tampilan yang dijalankan dan melalui
buton ini program mengcoding dijalankan. butto nya sendri yaitu Tambah untuk
menambahkan data pada program Array satu dimensi.
d. Fungsi
dari Listview adalah menampilkan data yang telah di inputkan yang menapilkan
sebuah teks sesuai dengan Array satu dimensi
2. Coding
setiap button dengan source code seperti di bawah ini
Public Class Form1
Private Sub
ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles
ListView1.SelectedIndexChanged
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
Private Sub btnTambah_Click(sender As Object,
e As 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
3. Salah
satu property pada Desain tampilan program tadi.
Disini kita dapat megedit seluruh
desain yang kita inginkan yang dimana sebelum nya menggunakan toolbox
“btnTambah”.
4. Setelah Selesai
Jalankan atau Running Program
Tampilan hasil running pada program Percobaan
Form ketikan sudah selesai mingisi data dan mengklik button tambah.
Tidak ada komentar:
Posting Komentar