NAMA  : DEFRIMAN WARUWU
NPM     : 13110814

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Items.Add("PAB-PAK-100")
        kode.Items.Add("PAB-BEL-101")
        kode.Items.Add("RUM-BEL-102")
        kode.Items.Add("SWA-MED-103")

    End Sub

    Private Sub kbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Mid(kode.Text, 1, 3)
        Select Case x
            Case "TOK"
                tipe.Text = "TOKO"
                bbeban.Text = 150000
                hargam3.Text = 500
            Case "RUM"
                tipe.Text = "RUMAH"
                bbeban.Text = 50000
                hargam3.Text = 200
            Case "SWA"
                tipe.Text = "SWALAYAN"
                bbeban.Text = 400000
                hargam3.Text = 1500

            Case "PAB"
                tipe.Text = "PABRIK"
                bbeban.Text = 1000000
                hargam3.Text = 10000
        End Select
        x = Mid(kode.Text, 5, 3)
        Select Case x
            Case "MED" : daerah.Text = "MEDAN"
            Case "BEL" : daerah.Text = "BELAWAN"
            Case "TEM" : daerah.Text = "AKSARA"
            Case "MAR" : daerah.Text = "MARENDAL"
            Case "BIN" : daerah.Text = "BINJAI"
           Case "PAK" : daerah.Text = "LUBUK PAKAM"
           
        End Select
        x = Mid(kode.Text, 9, 11)
        Select Case x
            Case "100" : nama.Text = "PT.LUMAYAN"
            Case "101" : nama.Text = "PT.MENENGAH"
            Case "102" : nama.Text = "PT. SEDERHANA"
            Case "103" : nama.Text = "PT."KEBERHASILAN
        End Select
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        ttagihan.Text = (hargam3.Text * pakai.Text) + bbeban.Text
        pajak.Text = 0.01 * ttagihan.Text
        pbayar.Text = ttagihan.Text + pajak.Text
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        kode.Text = ""
        nama.Text = ""
        bbeban.Text = ""
        hargam3.Text = ""
        pakai.Text = ""
        ttagihan.Text = ""
        pajak.Text = ""
        pbayar.Text = ""
        daerah.Text = ""
        tipe.Text = ""

    End Sub

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