Minggu, 29 Januari 2012

Jawaban Quiz Online no.3

Untuk melihat kasus klik disini

Listing Program

Public Class LOGIN

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If username.Text = "yadi" And password.Text = "suhendro" Then
            tampil.Show()

            Me.Hide()


        Else
            MsgBox("data username/password salah")
            username.Text = ""
            password.Text = ""
        End If
    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 Gambar





Menu

Public Class tampil


    Private Sub DATATAGIHANPDAMToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATATAGIHANPDAMToolStripMenuItem.Click
        DATA_PDAM.Show()
        Me.Hide()


    End Sub

    Private Sub EXITToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem1.Click
        End
    End Sub
End Class

Hasil Gambar


Data Tagihan PDAM

Public Class DATA_PDAM

    Private Sub btn_proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_proses.Click
        Dim y As String
        y = Microsoft.VisualBasic.Left(kd_plnggan.Text, 3)
        If y = "TOK" Then
            tipe_pelanggan.Text = "TOKO"
            biayabbn.Text = 25000
            harga.Text = 300


        ElseIf y = "RUM" Then
            tipe_pelanggan.Text = "RUMAH"
            biayabbn.Text = 15000
            harga.Text = 100


        ElseIf y = "SWA" Then
            tipe_pelanggan.Text = "SWALYAN"
            biayabbn.Text = 10000
            harga.Text = 200



        ElseIf y = "PAB" Then
            tipe_pelanggan.Text = "PABRIK"
            biayabbn.Text = 25000
            harga.Text = 500

        End If





        y = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 4, 1)

        If y = "-" Then


        End If




        y = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 5, 3)
        If y = "MED" Then
            daerah_plggn.Text = "MEDAN"
        ElseIf y = "BEL" Then
            daerah_plggn.Text = "BELAWAN"
        ElseIf y = "TEM" Then
            daerah_plggn.Text = "AKSARA"
        ElseIf y = "BIN" Then
            daerah_plggn.Text = "BINJAI"
        ElseIf y = "PAK" Then
            daerah_plggn.Text = "LUBUK-PAKAM"



        End If





        y = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 8, 1)

        If y = "-" Then


        End If



        no_urutan.Text = Microsoft.VisualBasic.Mid(kd_plnggan.Text, 9, 4)

        totaltagihan.Text = Val(biayabbn.Text) + Val(harga.Text) * pemakaian_air.Text

        pajak.Text = (1 / 100) * Val(totaltagihan.Text)



    End Sub
End Class

Hasil Gambar

Jawaban Quiz Online no.2

Untuk melihat kasus klik disini

Listing program

Public Class yadi

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kd_brg.Items.Add("TS001")
        kd_brg.Items.Add("TS002")
        kd_brg.Items.Add("VG001")
        kd_brg.Items.Add("VG002")

        tabel()


    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_brg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kd_brg.Text, 2)
        If kd_brg.Text = ("TS001") Then
            merk.Text = "TOSHIBA"

        ElseIf kd_brg.Text = ("TS002") Then
            merk.Text = "TOSHIBA"

        End If


        x = Microsoft.VisualBasic.Left(kd_brg.Text, 2)
        If kd_brg.Text = ("VG001") Then
            merk.Text = "V-GEN"

        ElseIf kd_brg.Text = ("VG002") Then
            merk.Text = "V-GEN"

        End If

        x = Microsoft.VisualBasic.Mid(kd_brg.Text, 3, 3)
        If kd_brg.Text = ("TS001") Then
            nm_brg.Text = "FLASHDISK 4GB"
            harga.Text = 105000

        ElseIf kd_brg.Text = ("TS002") Then
            nm_brg.Text = "FLASHDISK 2GB"
            harga.Text = 75000

        ElseIf kd_brg.Text = ("VG001") Then
            nm_brg.Text = "FLASHDISK 4GB"
            harga.Text = 90000
        ElseIf kd_brg.Text = ("VG002") Then
            nm_brg.Text = "FLASHDISK 2GB"
            harga.Text = 60000

        End If




    End Sub



    Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh_beli.KeyPress
        If e.KeyChar = vbCr Then
            ttl_harga.Focus()


            ttl_harga.Text = jlh_beli.Text * harga.Text
        End If



    End Sub

    Sub tabel()
        lv.Columns.Add("no_pembelian", 100, HorizontalAlignment.Center)
        lv.Columns.Add("ko_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("na_barang", 100, HorizontalAlignment.Left)
        lv.Columns.Add("merk", 110, HorizontalAlignment.Left)
        lv.Columns.Add("harga", 110, HorizontalAlignment.Left)
        lv.Columns.Add("jumlah_beli", 110, HorizontalAlignment.Left)
        lv.Columns.Add("total_harga", 120, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True


    End Sub

    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = nobeli.Text
        lst.SubItems.Add(kd_brg.Text)
        lst.SubItems.Add(nm_brg.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jlh_beli.Text)
        lst.SubItems.Add(ttl_harga.Text)
        lv.Items.Add(lst)
    End Sub


    Private Sub btnsimpnlisview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpnlisview.Click
        isi()

    End Sub

    Private Sub btnhpssmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssmuadata.Click
        lv.Items.Clear()

    End Sub

    Private Sub btnhapsdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsdatapilih.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

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


    Private Sub btnbrsih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrsih.Click
        nobeli.Text = ""
        kd_brg.Text = ""
        nm_brg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jlh_beli.Text = ""
        ttl_harga.Text = ""
    End Sub
End Class

Hasil Gambar