QUIS ONLINE




Public Class Form1
    Sub buatTabel()
        LV.Columns.add("KP", 80, horizontalalignment.center)
        LV.Columns.add("Nama", 180, HorizontalAlignment.Left)
        LV.view = View.Details
        LV.gridlines() = True
        LV.FullRowSelect = True
    End Sub

    Sub isiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = KP.Text
        Lst.SubItems.Add(Nama.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()

        KP.Items.Add("TOK-MED-100")
        KP.Items.Add("PAB-BEL-101")
        KP.Items.Add("SWA-BEL-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")
    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)


        If x = "100" Then
            Nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            Nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            Nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            Nama.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then
            HargaM3.Text = 500
            Bbeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            Bbeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            Bbeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            Bbeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            Daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Ttagihan.Text = HargaM3.Text * Pemakaian.Text + Val(Bbeban.Text)
            Pajak.Text = 0.01 * Ttagihan.Text
            Pembayaran.Text = Val(Ttagihan.Text) + Val(Pajak.Text)
        End If
    End Sub

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

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        Ttagihan.Text = ""
        HargaM3.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Pemakaian.Text = ""
        Daerah.Text = ""
        Bbeban.Text = ""
    End Sub
    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        isiTabel()
        KP.Text = ""
        Nama.Text = ""
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
End Class
 

Leave a Reply