pembayaran rekening air

Public Class pembayaranrekeningair

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-MED-102")
        rancangtbl()
    End Sub

    Private Sub jp_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tt.Text = Val(bb.Text) + (hM.Text * jp.Text)
            pjk.Text = 0.01 * tt.Text
            pem.Text = Val(tt.Text) + Val(pjk.Text)
        End If
    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)
        Select Case x
            Case "100" : nm.Text = "rizwansyah"
            Case "101" : nm.Text = "atok"
            Case "102" : nm.Text = "faisal"
        End Select
        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        Select Case x
            Case "TOK"
                hM.Text = 250
                bb.Text = 15000
                tp.Text = "toko"
            Case "RUM"
                hM.Text = 150
                bb.Text = 10000
                tp.Text = "rumah"
            Case "PAB"
                hM.Text = 25000
                bb.Text = 250000
                tp.Text = "pabrik"
            Case "SWA"
                hM.Text = 20000
                bb.Text = 600000
                tp.Text = "swalayan"
        End Select
        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        Select Case x
            Case "MED" : drh.Text = "Medan"
            Case "BEL" : drh.Text = "belawan"
            Case Else : drh.Text = "-"
        End Select
    End Sub
    Sub rancangtbl()
        lv.Columns.Add("Kode Pelanggan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Nama", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Tipe", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga M3", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jlh Pemakaian", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = False
        lv.View = View.Details
    End Sub
    Sub isitabel()
        Dim x As New ListViewItem
        x.Text = kp.Text
        x.SubItems.Add(nm.Text)
        x.SubItems.Add(tp.Text)
        x.SubItems.Add(drh.Text)
        x.SubItems.Add(hM.Text)
        x.SubItems.Add(jp.Text)
        x.SubItems.Add(tt.Text)
        x.SubItems.Add(pem.Text)
        x.SubItems.Add(bb.Text)
        x.SubItems.Add(pjk.Text)
        lv.Items.Add(x)
    End Sub

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

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

PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

PROGRAM PENCARIAN NILAI

Desain lha Form berikut ini...!!!

Berikut Listing Programnya

Public Class Form1

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

        npm.Items.Add("12110174")

        npm.Items.Add("12110148")

        npm.Items.Add("12110093")

        kd.Items.Add("Ms001")

        kd.Items.Add("TL002")

        kd.Items.Add("HS003")

        kmk.Items.Add("VB")

        kmk.Items.Add("SBD")

        kmk.Items.Add("MT")

        Dim i As Integer

        For i = 100 To 50 Step -5

            nk.Items.Add(i)

            nt.Items.Add(i)

            uts.Items.Add(i)

            uas.Items.Add(i)

        Next

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.35 * uts.Text + 0.4 * uas.Text

        If na.Text >= 55 Then

            keterangan.Text = "LULUS"

        Else

            keterangan.Text = "GAGAL"

        End If

        If na.Text >= 80 Then

            nh.Text = "A"

        ElseIf na.Text >= 70 Then

            nh.Text = "B"

        ElseIf na.Text >= 60 Then

            nh.Text = "C"

        ElseIf na.Text >= 50 Then

            nh.Text = "D"

        Else

            nh.Text = "E"

        End If

    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110174"

                nm.Text = "Rizwansyah"

                jj.Text = "Teknik Informatika"

                jr.Text = "S1"

            Case "12110148"

                nm.Text = "fran doly"

                jj.Text = "Sistem Informasi"

                jr.Text = "D3"

            Case "12110093" : nm.Text = "frengki situmeang"

                jj.Text = "Manajemen Informatika"

                jr.Text = "D1"

        End Select

    End Sub

    Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged

        Select Case kd.Text

            Case "Ms001" : nd.Text = "Mesran,S.Kom,M.Kom"

            Case "TL002" : nd.Text = "M.Syahrizal,S.KOm,M.Kom"

            Case "HS003" : nd.Text = "Rivalry,S.Kom,M.Kom"

        End Select

    End Sub

    Private Sub kmk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmk.SelectedIndexChanged

        Select Case kmk.Text

            Case "VB" : mk.Text = "visual basic"

            Case "SBD" : mk.Text = "sistem basis data"

            Case "MT" : mk.Text = "matriks dan transformasi linear"

        End Select

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        npm.Text = ""

        nm.Text = ""

        jj.Text = ""

        jr.Text = ""

        kd.Text = ""

        nd.Text = ""

        kmk.Text = ""

        mk.Text = ""

        nk.Text = ""

        nt.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        nh.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        End

    End Sub

End Class

hasil nya