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

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To 5
            no.Items.Add(i)
        Next
        kode.Items.Add("1")
        kode.Items.Add("2")
        kode.Items.Add("3")
        lv.Columns.Add("NO", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Kode", 50, HorizontalAlignment.Center)
        lv.Columns.Add("Jenis Pelanggan", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Beban", 70, HorizontalAlignment.Left)
        lv.Columns.Add("Harga", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Pemakaian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Select Case kode.Text
            Case "1"
                jp.Text = "Rumah"
                beban.Text = 25000
                harga.Text = 3000
            Case "2"
                jp.Text = "Tokoh"
                beban.Text = 50000
                harga.Text = 5000
            Case "3"
                jp.Text = "Pabrik"
                beban.Text = 100000
                harga.Text = 10000
        End Select
    End Sub

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged
        pembayaran.Text = Val(beban.Text) + Val(harga.Text) * Val(pemakaian.Text)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim list As New ListViewItem
        list.Text = no.Text
        list.SubItems.Add(kode.Text)
        list.SubItems.Add(jp.Text)
        list.SubItems.Add(beban.Text)
        list.SubItems.Add(harga.Text)
        list.SubItems.Add(pemakaian.Text)
        list.SubItems.Add(pembayaran.Text)
        lv.Items.Add(list)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        no.Text = ""
        kode.Text = ""
        jp.Text = ""
        beban.Text = ""
        harga.Text = ""
        pemakaian.Text = ""
        pembayaran.Text = ""
    End Sub

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

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        lv.Items.Clear()
    End Sub
End Class