Materi + Contoh Program VB

Materi VB. net episode ke 7 beserta contoh program.

Berikut adalah contoh program yang dibuat pada pertemuan pelajaran Visual basic pada pertemuan ke 7. Pada kali ini kita membuat sebuah program yang menggunakan sebuah penyimpanan sementara yang tidak ada sangkutpautnya dengan yang namanya database. Semua data yang tersimpan disini hanya sementara akan hilang ketika program di tutup. Program tersebut hanya menggunakan tool berupa textboox, label, button, dan listview. Semua tampak rumit jika tidak dipahami, tapi ketika kita tahu algoritma / sebuah jalan ceritanya dan mau mencoba berkali-kali kita akan mudah membuat program tersebut dan bisa memakan waktu hanya 5 menit atau mungkin kurang. Langsung saja pada pemakaian program, dibawah ini sudah ada syntax yang digunakan dalam program tersebut. Dan jangan lupa pada saat menggunakan tool, perhatikan juga pengaturan properti-nya karena jika tidak maka program tersebut akan salah/ error.

Syntax program  :

Public Class Form1

    Dim listtxt(3) As String

    Dim listitem As ListViewItem

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        listtxt(0) = Trim(TextBox1.Text)

        listtxt(1) = Trim(TextBox2.Text)

        listtxt(2) = Trim(TextBox3.Text)

        listitem = New ListViewItem(listtxt)

        ListView1.Items.Add(listitem)

    End Sub

    Sub setlistview()

        ListView1.View = View.Details

        ListView1.Columns.Add("NPM", 100, HorizontalAlignment.Center)

        ListView1.Columns.Add("Nama", 100, HorizontalAlignment.Left)

        ListView1.Columns.Add("Alamat", 100, HorizontalAlignment.Left)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call setlistview()

    End Sub

    Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        TextBox4.Text = e.Item.Text

    End Sub

End Class

Dengan membuat form seperti ini pada awal tadi, kita bisa merunning program tersebut dan jika sudah tidak ada error yang tercipta, maka program akan running seperti ini…

Demikian pembuatan program yang menggunakan penyimpanan yang bersifat sementara ini, semoga bermanfaat dan bisa dipraktekan masing-masing. Sampai jumpa pada postingan berikutnya thanks….. !!!! Bye bye  and  Assalamu ‘alaikum wr. wb.