Yuk Mari! Belajar Pemrograman Visual Basic Di Mesran.Net

1. KASUS PEMBAYARAN REK. LISTRIK









 Public Class Form1

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

    Private Sub nd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nd.TextChanged
        Select Case nd.Text
            Case "Perbaungan" : tp.Text = "Kios Ponsel"
            Case "Tebing Tinggi" : tp.Text = "Perumahan"
            Case "Dolok Masiul" : tp.Text = "Market"
            Case "Lubuk Pakam" : tp.Text = "Kantor"

        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Mid(tp.Text, 3, 1)
        Select Case tp.Text
            Case "Sekolah" : kp.Text = "1489"
            Case "Rumah" : kp.Text = "11322"
        End Select
    End Sub


    Private Sub pk_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pk.TextChanged
        Select Case pk.Text
            Case "200 kwh" : bb.Text = "1500"
            Case "150 kwh" : bb.Text = "145000"
            Case "50 kwh" : bb.Text = "10000"

        End Select
        Dim x As String
        x = Microsoft.VisualBasic.Mid(hp.Text, 3, 1)
        Select Case pk.Text
            Case "1 kwh" : hp.Text = "1000"
        End Select
    End Sub
    Sub buattabel()
        lv.Columns.Add("NAMA KOTA", 100, HorizontalAlignment.Center)
        lv.Columns.Add("BULAN", 100, HorizontalAlignment.Center)
        lv.Columns.Add("BIAYA", 100, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA PELANGGAN", 100, HorizontalAlignment.Center)
        lv.Columns.Add("PEMAKAIAN LISTRIK", 100, HorizontalAlignment.Center)
        lv.Columns.Add("KODE PELANGGAN", 100, HorizontalAlignment.Center)
        lv.Columns.Add("HARGA KWH", 100, HorizontalAlignment.Center)
        lv.Columns.Add("BIAYA", 100, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub

    End Sub
    Sub IT()
        Dim lst As New ListViewItem
        lst.Text = nd.Text
        lst.SubItems.Add(tp.Text)
        lst.SubItems.Add(kp.Text)
        lst.SubItems.Add(bl.Text)
        lst.SubItems.Add(pk.Text)
        lst.SubItems.Add(hp.Text)
        lst.SubItems.Add(bb.Text)
        lst.SubItems.Add(pj.Text)
        lst.SubItems.Add(bt.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()
        lv.Columns.Add("NAMA KOTA", 100, HorizontalAlignment.Center)
        lv.Columns.Add("BULAN", 100, HorizontalAlignment.Center)
        lv.Columns.Add("BIAYA", 100, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA PELANGGAN", 100, HorizontalAlignment.Center)
        lv.Columns.Add("PEMAKAIAN LISTRIK", 100, HorizontalAlignment.Center)
        lv.Columns.Add("KODE PELANGGAN", 100, HorizontalAlignment.Center)
        lv.Columns.Add("HARGA KWH", 100, HorizontalAlignment.Center)
        lv.Columns.Add("BIAYA", 100, HorizontalAlignment.Center)

End Class