Cara Menggunakan Case

Public Class Form1

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        th.Text = jb.Text * h.Text
    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged
        Dim x As String
        Dim a As String
        a = Microsoft.VisualBasic.Right(kb.Text, 3)
        x = Microsoft.VisualBasic.Left(kb.Text, 2)
        Select Case x
            Case "TS"
                m.Text = "Toshiba"
                Select Case a
                    Case "001"
                        nb.Text = "Falshdisk 1GB"
                        h.Text = "10500"
                    Case "002"
                        nb.Text = "Flashdisk 2GB"
                        h.Text = "7500"
                End Select
            Case "VG"
                m.Text = "V-Gen"
                Select Case a
                    Case "001"
                        nb.Text = "Falshdisk 4GB"
                        h.Text = "9000"
                    Case "002"
                        nb.Text = "Flashdisk 8GB"
                        h.Text = "6000"
                End Select
            Case "KG"
                m.Text = "Kingston"
                Select Case a
                    Case "001"
                        nb.Text = "Falshdisk 12GB"
                        h.Text = "90000"
                    Case "002"
                        nb.Text = "Flashdisk 16GB"
                        h.Text = "120000"
                End Select
        End Select
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kb.Items.Add("TS001")
        kb.Items.Add("TS002")
        kb.Items.Add("VG001")
        kb.Items.Add("VG002")
        kb.Items.Add("KG001")
        kb.Items.Add("KG002")
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Call clear()
    End Sub
    Sub clear()
        no.Text = ""
        kb.Text = ""
        nb.Text = ""
        h.Text = ""
        jb.Text = ""
        m.Text = ""
        th.Text = ""
        no.Focus()
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Dim i As MsgBoxResult
        i = MsgBox("Apa anda keluar dari program ini?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Daftar distribusi barang PT. Sejahtera")
        If i = MsgBoxResult.Yes Then
            Close()
        End If
    End Sub
End Class

Cara Menampilkan Listview

Public Class Form1
    Sub BuatTabel()
        Lv.Columns.Add("npm", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("nama", 180, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        Lv.Items.Add(lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        IsiTabel()
        npm.Text = ""
        nama.Text = ""
    End Sub
End Class

Menampilkan Nilai Akhir Program Visual Basic 2008

Public Class Form1

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

    Sub tabel()
        LV.Columns.Add("npm", 80, HorizontalAlignment.Center)
        LV.Columns.Add("nama", 180, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True

    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        LV.Items.Add(lst)

    End Sub


    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""

    End Sub
End Class

Puisi

1. Puisi romantis pertama
Dulu Aku selalu berharap disayangi dan dicintai Merasakan indahnya cerita cinta Dan kini Kau hadir wujudkan harapan dan mimpi-mimpi indahku Tentang cinta lagi
2. Puisi romantis kedua
Bagai burung Aku selalu terbang tanpa arah Tiada tujuan tuk lepaskan lelah kepakan sayapku Hingga kutemukan sarang dihatimu yang mampu labuhkan terbang khayalku Menjadi tempat terindah tuk ku hinggapi Dan mencoba tepiskan keraguan di hatiku
3. Puisi romantis ketiga
Aku memang bukan yang pertama untukmu Aku juga mungkin bukan yang terbaik bagimu Tapi Aku akan berusaha menjadi seseorang yang berarti di hatimu Menjadikan dirimu cinta terakhir di hidupku I Love You…
4. Puisi romantis keempat
Selama ini Aku selalu pesimis tentang cinta Selalu gagal, patah hati, dan tersakiti oleh cinta Hingga aku takut jatuh cinta Dan tak percaya akan cinta Tapi hadirmu Kini membuatku merasakan indahnya cinta…
5. Puisi romantis kelima
Sepenggal kisah yang aku jalani denganmu Berharap menjadi yang terbaik dan terindah di hidupku Berharap tak akan pernah berakhir Hilangkan semua kesedihan dan kesendirian Tercipta satu kisah indah untuk selamanya