Yuk! Belajar Pemrograman Visual Basic dot Net di Mesran.Net

Yuk! Belajar Pemrograman Visual Basic dot Net di Mesran.Net

Desain Form berikut ini...!!!

  

Listing Program...

Public Class Form1

    Sub rancangtabel()

        With LV

            .Columns.Add("Kode Pembelian", 100, HorizontalAlignment.Left)

            .Columns.Add("Nama", 80, HorizontalAlignment.Left)

            .Columns.Add("Tipe", 80, HorizontalAlignment.Left)

            .Columns.Add("Daerah", 80, HorizontalAlignment.Left)

            .Columns.Add("Harga M3", 80, HorizontalAlignment.Left)

            .Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)

            .Columns.Add("Pemakaian Air", 80, HorizontalAlignment.Left)

            .Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)

            .Columns.Add("Pajak", 80, HorizontalAlignment.Left)

            .Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        With lst

            .Text = kp.Text

            .SubItems.Add(nm.Text)

            .SubItems.Add(tp.Text)

            .SubItems.Add(de.Text)

            .SubItems.Add(hm.Text)

            .SubItems.Add(bb.Text)

            .SubItems.Add(pa.Text)

            .SubItems.Add(tt.Text)

            .SubItems.Add(pj.Text)

            .SubItems.Add(pm.Text)

            LV.Items.Add(lst)

        End With

    End Sub

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

        Call rancangtabel()

        kp.Items.Add("TOK-MED-100")

        kp.Items.Add("PAB-BEL-101")

        kp.Items.Add("SWA-BEL-102")

        kp.Items.Add("PAB-MED-103")

        kp.Items.Add("RUM-MED-104")

    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Right(kp.Text, 3)

        If x = "100" Then

            nm.Text = "Sulaiman Zuhdi"

        ElseIf x = "101" Then

            nm.Text = "Jekson Sinaga"

        ElseIf x = "102" Then

            nm.Text = "Triani Arista"

        ElseIf x = "103" Then

            nm.Text = "Aldyan"

        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)

        If x = "PAB" Then

            hm.Text = 500

            bb.Text = 250000

            tp.Text = "Pabrik"

        ElseIf x = "TOK" Then

            hm.Text = 500

            bb.Text = 25000

            tp.Text = "Toko"

        ElseIf x = "RUM" Then

            hm.Text = 500

            bb.Text = 10000

            tp.Text = "Rumah"

        ElseIf x = "SWA" Then

            hm.Text = 200

            bb.Text = 15000

            tp.Text = "Swalayan"

        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)

        If x = "MED" Then

            de.Text = "Medan"

        ElseIf x = "BEL" Then

            de.Text = "Belawan"

        End If

    End Sub

    Private Sub pa_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles pa.KeyPress

        If Asc(e.KeyChar) = 13 Then

            tt.Text = Val(hm.Text) * Val(pm.Text) + Val(bb.Text)

            pj.Text = 0.01 * tt.Text

            pm.Text = Val(tt.Text) + Val(pj.Text)

        End If

    End Sub

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

        kp.Text = ""

        nm.Text = ""

        tp.Text = ""

        tt.Text = ""

        hm.Text = ""

        pj.Text = ""

        pm.Text = ""

        pa.Text = ""

        de.Text = ""

        bb.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        isitabel()

    End Sub

End Class

Hasil Program..