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

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        lv.Columns.Add("B.Beban", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        lv.Columns.Add("J.Pemakaian", 100, HorizontalAlignment.Left)
        lv.Columns.Add("T.Tagihan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
        kp.Items.Add("001")
        kp.Items.Add("002")
        kp.Items.Add("003")
        tipe.Items.Add("Toko")
        tipe.Items.Add("Rumah")
        tipe.Items.Add("Swalayan")
        tipe.Items.Add("Pabrik")
    End Sub

    Private Sub kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kp.SelectedIndexChanged
        If kp.Text = "001" Then
            nama.Text = "Kaldius Ndruru"
        ElseIf kp.Text = "002" Then
            nama.Text = "Sriwulan"
        ElseIf kp.Text = "003" Then
            nama.Text = "Laia"
        End If
    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged
        If tipe.Text = "Toko" Then
            bb.Text = 25000
            hrg.Text = 300
        ElseIf tipe.Text = "Rumah" Then
            bb.Text = 15000
            hrg.Text = 100
        ElseIf tipe.Text = "Swalayan" Then
            bb.Text = 10000
            hrg.Text = 200
        ElseIf tipe.Text = "Pabrik" Then
            bb.Text = 250000
            hrg.Text = 500
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        Dim lst As New ListViewItem
        lst.Text = kp.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(bb.Text)
        lst.SubItems.Add(hrg.Text)
        lst.SubItems.Add(jp.Text)
        lst.SubItems.Add(tt.Text)
        lst.SubItems.Add(pjk.Text)
        lst.SubItems.Add(pemb.Text)
        lv.Items.Add(lst)
    End Sub

    Private Sub btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhps.Click
        kp.Text = ""
        nama.Text = ""
        tipe.Text = ""
        bb.Text = ""
        jp.Text = ""
        tt.Text = ""
        pjk.Text = ""
        pemb.Text = ""
        hrg.Text = ""
    End Sub

    Private Sub btnklr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnklr.Click
        End
    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    End Sub

    Private Sub jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Call proses()
        End If
    End Sub
    Sub proses()
        tt.Text = Val(bb.Text) + Val(hrg.Text * jp.Text)
        pjk.Text = 0.01 * tt.Text
        pemb.Text = Val(tt.Text) + Val(pjk.Text)
    End Sub

    Private Sub jp_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jp.TextChanged

    End Sub
End Class