quis online 1&2

Public Class Form1

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

        Golongan.Items.Add("IIIA")

        Golongan.Items.Add("IIIB")

        Golongan.Items.Add("IIIC")

        Gaji.Items.Add("1500000")

        Gaji.Items.Add("2500000")

        Gaji.Items.Add("3500000")

    End Sub

    Private Sub NP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Namapegawai.KeyPress

        If e.KeyChar = Chr(13) Then

            Golongan.Focus()

        End If

    End Sub

    Private Sub Gol_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Golongan.KeyPress

        If e.KeyChar = Chr(13) Then

            Pinjaman.Focus()

            Pajak.Text = 0.15 * Gaji.Text

        End If

    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged

        Select Case Golongan.Text

            Case "IIIA" : Gaji.Text = "1500000"

            Case "IIIB" : Gaji.Text = "2500000"

            Case "IIIC" : Gaji.Text = "3500000"

        End Select

    End Sub

    Private Sub Pinjaman_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pinjaman.KeyPress

        If e.KeyChar = Chr(13) Then

            Gajibersih.Text = Gaji.Text - Pinjaman.Text - Pajak.Text

        End If

    End Sub

    Private Sub Gaji_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gaji.SelectedIndexChanged

        Pajak.Text = 0.015 * Gaji.Text

    End Sub

End Class

Public Class Form1

    Sub BuatTabel()

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("TERITORI PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA /KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN INI", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JUMLAH PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL PEMBAYARAN", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub Isitabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Area.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(PBL.Text)

        lst.SubItems.Add(PBI.Text)

        lst.SubItems.Add(JP.Text)

        lst.SubItems.Add(TT.Text)

        lst.SubItems.Add(PT.Text)

        lst.SubItems.Add(TP.Text)

        Lv.Items.Add(lst)

    End Sub

    Sub Kosongkan()

        Kode.Text = ""

        Area.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        PBL.Clear()

        PBI.Clear()

        JP.Clear()

        TT.Clear()

        PT.Clear()

        TP.Clear()

    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress

        If e.KeyChar = Chr(13) Then

            Area.Focus()

        End If

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

    End Sub

    Private Sub Area_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Area.KeyPress

        If e.KeyChar = Chr(13) Then

            Tipe.Focus()

        End If

    End Sub

    Private Sub Area_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area.SelectedIndexChanged

    End Sub

    Private Sub Tipe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tipe.KeyPress

        If e.KeyChar = Chr(13) Then

            Biaya.Focus()

        End If

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        If Tipe.Text = "TOK" Then

            Biaya.Text = "150000"

            Harga.Text = "500"

        ElseIf Tipe.Text = "RUM" Then

            Biaya.Text = "50000"

            Harga.Text = "200"

        ElseIf Tipe.Text = "SWA" Then

            Biaya.Text = "400000"

            Harga.Text = "1500"

        ElseIf Tipe.Text = "PAB" Then

            Biaya.Text = "1000000"

            Harga.Text = "10000"

        End If

    End Sub

  

Public Class Form1

    Sub BuatTabel()

        Lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)

        Lv.Columns.Add("TERITORI PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("BIAYA BEBAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("HARGA /KWH", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN LALU", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PEMAKAIAN BULAN INI", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("JUMLAH PEMAKAIAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("PAJAK TAGIHAN", 80, HorizontalAlignment.Left)

        Lv.Columns.Add("TOTAL PEMBAYARAN", 80, HorizontalAlignment.Left)

        Lv.View = View.Details

        Lv.GridLines = True

        Lv.FullRowSelect = True

    End Sub

    Sub Isitabel()

        Dim lst As New ListViewItem

        lst.Text = Kode.Text

        lst.SubItems.Add(Area.Text)

        lst.SubItems.Add(Tipe.Text)

        lst.SubItems.Add(Biaya.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(PBL.Text)

        lst.SubItems.Add(PBI.Text)

        lst.SubItems.Add(JP.Text)

        lst.SubItems.Add(TT.Text)

        lst.SubItems.Add(PT.Text)

        lst.SubItems.Add(TP.Text)

        Lv.Items.Add(lst)

    End Sub

    Sub Kosongkan()

        Kode.Text = ""

        Area.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        PBL.Clear()

        PBI.Clear()

        JP.Clear()

        TT.Clear()

        PT.Clear()

        TP.Clear()

    End Sub

    Private Sub Kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode.KeyPress

        If e.KeyChar = Chr(13) Then

            Area.Focus()

        End If

    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged

    End Sub

    Private Sub Area_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Area.KeyPress

        If e.KeyChar = Chr(13) Then

            Tipe.Focus()

        End If

    End Sub

    Private Sub Area_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Area.SelectedIndexChanged

    End Sub

    Private Sub Tipe_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tipe.KeyPress

        If e.KeyChar = Chr(13) Then

            Biaya.Focus()

        End If

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        If Tipe.Text = "TOK" Then

            Biaya.Text = "150000"

            Harga.Text = "500"

        ElseIf Tipe.Text = "RUM" Then

            Biaya.Text = "50000"

            Harga.Text = "200"

        ElseIf Tipe.Text = "SWA" Then

            Biaya.Text = "400000"

            Harga.Text = "1500"

        ElseIf Tipe.Text = "PAB" Then

            Biaya.Text = "1000000"

            Harga.Text = "10000"

        End If

    End Sub

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

        Area.Items.Add("MED")

        Area.Items.Add("BEL")

        Area.Items.Add("TEM")

        Area.Items.Add("MAR")

        Area.Items.Add("BIN")

        Area.Items.Add("PAK")

       

        Tipe.Items.Add("TOK")

        Tipe.Items.Add("RUM")

        Tipe.Items.Add("SWA")

        Tipe.Items.Add("PAB")

        Biaya.Items.Add("150000")

        Biaya.Items.Add("50000")

        Biaya.Items.Add("400000")

        Biaya.Items.Add("1000000")

        Harga.Items.Add("500")

        Harga.Items.Add("200")

        Harga.Items.Add("1500")

        Harga.Items.Add("10000")

        Dim ID_1 As String

        Dim ID_2 As Integer

        ID_1 = ("PAB-PAK-")

        For ID_2 = 1 To 100

            Kode.Items.Add(item:=ID_1 & (ID_2))

        Next

        BuatTabel()

    End Sub

    Private Sub PBL_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PBL.KeyPress

        If e.KeyChar = Chr(13) Then

            PBI.Focus()

        End If

    End Sub

    Private Sub PBL_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PBL.TextChanged

    End Sub

    Private Sub PBI_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PBI.KeyPress

        If e.KeyChar = Chr(13) Then

            JP.Focus()

            JP.Text = PBI.Text - PBL.Text

        End If

    End Sub

    Private Sub PBI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PBI.TextChanged

    End Sub

    Private Sub JP_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JP.KeyPress

        If e.KeyChar = Chr(13) Then

            TT.Focus()

            TT.Text = Biaya.Text + Harga.Text * JP.Text

        End If

    End Sub

    Private Sub JP_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JP.TextChanged

    End Sub

    Private Sub TT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TT.KeyPress

        If e.KeyChar = Chr(13) Then

            PT.Focus()

            PT.Text = 0.015 * TT.Text

        End If

    End Sub

    Private Sub TT_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TT.TextChanged

    End Sub

    Private Sub PT_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PT.KeyPress

        If e.KeyChar = Chr(13) Then

            PT.Focus()

            TP.Text = Val(TT.Text) + Val(PT.Text)

        End If

    End Sub

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

        Isitabel()

        Kosongkan()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Call Kosongkan()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Kosongkan()

    End Sub

End Class
http://mesran.net/artikel.htmlhttp://mesran.net/artikel.html