Quis online soal 3

Jawaban soal 3 (Azminullah)

Listing program

form login :

Public Class login

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click

        If user.Text = "azmi" And password.Text = "0911296" Then

            menuutama.Show()

            Me.Hide()

        Else

            MsgBox("data username/password salah?")

            user.Text = ""

            password.Text = ""

        End If

    End Sub

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

        End

    End Sub

End Class

hasil program :

Menuutama :

Public Class menuutama

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click

        PDAM.show()

    End Sub

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

        end()

    End Sub

End Class

hasil program :

 

PDAM

Public Class PDAM

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Dim X As String

        X = Microsoft.VisualBasic.Left(kode.Text, 3)

        If X = "TOK" Then

            tipe.Text = "toko"

            biaya.Text = 25000

            harga.Text = 300

        ElseIf X = "RUM" Then

            tipe.Text = "rumah"

            biaya.Text = 15000

            harga.Text = 100

        ElseIf X = "SWA" Then

            tipe.Text = "swalayan"

            biaya.Text = 10000

            harga.Text = 200

        ElseIf X = "PAB" Then

            tipe.Text = "pabrik"

            biaya.Text = 250000

            harga.Text = 500

        End If

        X = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)

        If X = "MED" Then

            daerah.Text = "medan"

        ElseIf X = "BEL" Then

            daerah.Text = "belawan"

        ElseIf X = "TEM" Then

            daerah.Text = "aksara"

        ElseIf X = "MAR" Then

            daerah.Text = "marendal"

        ElseIf X = "BIN" Then

            daerah.Text = "binjai"

        ElseIf X = "PAK" Then

            daerah.Text = "lubukpakam"

        End If

        no_urut.Text = Microsoft.VisualBasic.Right(kode.Text, 3)

    End Sub

    Sub AddJumlah()

        For i = 1 To 100

            jumlah.Items.Add(i)

        Next

    End Sub

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

        kode.Items.Add("TOK-MED-100")

        kode.Items.Add("TOK-BEL-101")

        kode.Items.Add("TOK-TEM-102")

        kode.Items.Add("TOK-MAR-103")

        kode.Items.Add("TOK-BIN-104")

        kode.Items.Add("TOK-PAK-105")

        kode.Items.Add("RUM-MED-106")

        kode.Items.Add("RUM-BEL-107")

        kode.Items.Add("RUM-TEM-108")

        kode.Items.Add("RUM-MAR-109")

        kode.Items.Add("RUM-BIN-110")

        kode.Items.Add("RUM-PAK-111")

        kode.Items.Add("SWA-MED-112")

        kode.Items.Add("SWA-BEL-113")

        kode.Items.Add("SWA-TEM-114")

        kode.Items.Add("SWA-MAR-115")

        kode.Items.Add("SWA-BIN-116")

        kode.Items.Add("SWA-PAK-117")

        kode.Items.Add("PAB-MED-118")

        kode.Items.Add("PAB-BEL-119")

        kode.Items.Add("PAB-TEM-120")

        kode.Items.Add("PAB-MAR-121")

        kode.Items.Add("PAB-BIN-122")

        kode.Items.Add("PAB-PAK-123")

        AddJumlah()

        RancangTabel()

    End Sub

    Private Sub total_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles total.Enter

        total.Text = biaya.Text + harga.Text * jumlah.Text

    End Sub

    Private Sub pajak_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles pajak.Enter

        pajak.Text = 0.1 * total.Text

    End Sub

    Private Sub pembayaran_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles pembayaran.Enter

        pembayaran.Text = Val(total.Text) + Val(pajak.Text)

    End Sub

    Sub RancangTabel()

        With LV

            .Columns.Add("kode pelanggan", 80, HorizontalAlignment.Center)

            .Columns.Add("daerah", 120, HorizontalAlignment.Left)

            .Columns.Add("tipe pelanggan", 60, HorizontalAlignment.Center)

            .Columns.Add("biaya beban", 80, HorizontalAlignment.Right)

            .Columns.Add("harga", 100, HorizontalAlignment.Center)

            .Columns.Add("jumlah pemakaian", 80, HorizontalAlignment.Center)

            .Columns.Add("total tagihan", 80, HorizontalAlignment.Right)

            .Columns.Add("pajak", 80, HorizontalAlignment.Right)

            .Columns.Add("pembayaran", 80, HorizontalAlignment.Right)

            .View = View.Details

            .GridLines = True

            .FullRowSelect = True

        End With

    End Sub

    Sub MasukTabel()

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        lst.SubItems.Add(pembayaran.Text)

        lst.SubItems.Add(pajak.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        MasukTabel()

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        LV.Items.Clear()

    End Sub

    Private Sub hps_baris_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_baris.Click

        If LV.SelectedItems.Count <> 0 Then

            LV.Items.Remove(LV.SelectedItems(0))

        Else

            MsgBox("Pilih terlebih dahulu baris data yang akan di hapus")

        End If

    End Sub

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

        End

    End Sub

End Class

hasil program :

 

lihat soal : klik aja disini