Quis online vb

Public Class Form1

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

        bn_kopel.Items.Add("MED")
        bn_kopel.Items.Add("BEL")
        bn_kopel.Items.Add("TEM")
        bn_kopel.Items.Add("MAR")
        bn_kopel.Items.Add("BIN")
        bn_kopel.Items.Add("PAK")

        bn_tipel.Items.Add("TOK")
        bn_tipel.Items.Add("RUM")
        bn_tipel.Items.Add("SWA")
        bn_tipel.Items.Add("PAB")

    End Sub

    Private Sub bn_kopel_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bn_kopel.KeyPress
        bn_total.Text = Val(bn_tagihan.Text) + Val(bn_pajak.Text)
    End Sub

    Private Sub bn_kopel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bn_kopel.SelectedIndexChanged
        Select Case bn_kopel.Text
            Case ("MED")
                bn_daerah.Text = "MEDAN"
                bn_pajak.Text = 0.015
            Case ("BEL")
                bn_daerah.Text = "BELAWAN"
                bn_pajak.Text = 0.015
            Case ("TEM")
                bn_daerah.Text = "AKSARA"
                bn_pajak.Text = 0.015
            Case ("MAR")
                bn_daerah.Text = "MARELAN"
                bn_pajak.Text = 0.015
            Case ("BIN")
                bn_daerah.Text = "BINJAI"
                bn_pajak.Text = 0.015
            Case ("PAK")
                bn_daerah.Text = "LUBUK PAKAM"
                bn_pajak.Text = 0.015
        End Select
    End Sub

    Private Sub bn_daerah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bn_daerah.TextChanged
        Select Case bn_daerah.Text
            Case "MED" : bn_daerah.Text = "Medan"
            Case "BEL" : bn_daerah.Text = "Belawan"
            Case "TEM" : bn_daerah.Text = "Aksara"
            Case "MAR" : bn_daerah.Text = "Marelan"
            Case "BIN" : bn_daerah.Text = "Binjai"
            Case "PAK" : bn_daerah.Text = "Pakam"
        End Select
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        bn_besar.Text = bn_meteran.Text - bn_msekarang.Text
        bn_tagihan.Text = bn_biben.Text + (bn_harga.Text + bn_besar.Text)
        bn_total.Text = bn_tagihan.Text * bn_pajak.Text
    End Sub

    Private Sub bn_tipel_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bn_tipel.SelectedIndexChanged
        Select Case bn_tipel.Text
            Case ("TOK")
                bn_titok.Text = "TOKO"
                bn_biben.Text = 150000
                bn_harga.Text = 500
            Case ("RUM")
                bn_titok.Text = "RUMAH"
                bn_biben.Text = 500000
                bn_harga.Text = 1500
            Case ("SWA")
                bn_titok.Text = "SWALAYAN"
                bn_biben.Text = 400000
                bn_harga.Text = 1500
            Case ("PAB")
                bn_titok.Text = "PABRIK"
                bn_biben.Text = 1000000
                bn_harga.Text = 10000

        End Select
    End Sub
    Sub TABEL()
        LV.Columns.Add("bn_kopel", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_daerah", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_titok", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_tipel", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_biben", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_meteran", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_msekarang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_besar", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_tagihan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("bn_total", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim x As New ListViewItem
        With x
            .Text = bn_kopel.Text
            .SubItems.Add(bn_daerah.Text)
            .SubItems.Add(bn_tipel.Text)
            .SubItems.Add(bn_titok.Text)
            .SubItems.Add(bn_biben.Text)
            .SubItems.Add(bn_meteran.Text)
            .SubItems.Add(bn_msekarang.Text)
            .SubItems.Add(bn_harga.Text)
            .SubItems.Add(bn_besar.Text)
            .SubItems.Add(bn_pajak.Text)
            .SubItems.Add(bn_tagihan.Text)
            .SubItems.Add(bn_total.Text)
            Lv.items.add(x)
        End With
    End Sub

    Private Sub bn_total_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles bn_total.KeyPress
        If Asc(e.KeyChar) = 13 Then
            bn_total.Text = Val(bn_biben.Text) + Val(bn_harga.Text) + Val(bn_besar.Text)
        End If
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        BERSIH()
    End Sub

    Sub BERSIH()
        bn_kopel.Text = ""
        bn_tipel.Text = ""
        bn_titok.Text = ""
        bn_pajak.Text = ""
        bn_meteran.Text = ""
        bn_msekarang.Text = ""
        bn_total.Text = ""
        bn_daerah.Text = ""
        bn_harga.Text = ""
        bn_biben.Text = ""
        bn_tagihan.Text = ""
        bn_besar.Text = ""
    End Sub

    Private Sub Btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbatal.Click
        BERSIH()
    End Sub

    Private Sub Btnhapus1lv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus1lv.Click
        LV.items.remove(LV.selecteditems(0))
    End Sub
End Class

Mempelajari Tentang Blog

Mesran[dot]Net
menurut saya mesran[dot]net ini sangat bermanfaat bagi semua mahasiswa/i ,karna dapat menanbah ilmu bagi setiap mahasiswa/i terutama bagi mahasiswa/i STMIK Budidarma .
Disini terdapat silabus perkuliahan,modul perkuliahan,bahkan sampai juga E-book juga bisa didownload .
buat kawan-kawan sekalian silahkan berkunjung ke Mesran.blogspot.com
Disana kalian dapat melihat dan mempelajari tentang bahasa pemrograman.