Minggu, 29 Januari 2012

kasusnya : Tagihan PDAM


PROGRAM PDAM



Public Class LOGIN

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        If NAMA.Text = "MEFALDY" And PASSWORD.Text = "360" Then
            MENU_UTAMA.Show()
            Me.Hide()
        Else
            MsgBox("Data Username/Password Salah!!!")
            NAMA.Text = ""
            PASSWORD.Text = ""
            NAMA.Focus()
        End If
    End Sub

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

    Private Sub nama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NAMA.KeyPress
        If e.KeyChar = vbCr Then
            PASSWORD.Focus()
        End If
    End Sub

    Private Sub password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PASSWORD.KeyPress
        If e.KeyChar = vbCr Then
            OK.Focus()
        End If
    End Sub

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

    End Sub
End Class


Public Class MENU_UTAMA

    Private Sub TAGIHANPELANGGANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAGIHANPELANGGANToolStripMenuItem.Click
        TAGIHANPELANGGAN.Show()
    End Sub

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

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub
End Class











Public Class TAGIHANPELANGGAN
    Private Sub Tagihan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode.Focus()
        kode.Items.Add("TOK-MED-100")
        kode.Items.Add("TOK-BEL-101")
        kode.Items.Add("TOK-MAR-102")
        kode.Items.Add("TOK-TEM-103")
        kode.Items.Add("TOK-BIN-104")
        kode.Items.Add("TOK-PAK-105")


        kode.Items.Add("SWA-MED-200")
        kode.Items.Add("SWA-BIN-201")
        kode.Items.Add("SWA-MAR-202")
        kode.Items.Add("SWA-TEM-203")
        kode.Items.Add("SWA-BEL-204")
        kode.Items.Add("SWA-PAK-205")

        kode.Items.Add("RUM-MED-300")
        kode.Items.Add("RUM-BIN-301")
        kode.Items.Add("RUM-MAR-302")
        kode.Items.Add("RUM-TEM-303")
        kode.Items.Add("RUM-BEL-304")
        kode.Items.Add("RUM-PAK-305")

        kode.Items.Add("PAB-PAK-400")
        kode.Items.Add("PAB-BIN-401")
        kode.Items.Add("PAB-MAR-402")
        kode.Items.Add("PAB-TEM-403")
        kode.Items.Add("PAB-BEL-404")
        kode.Items.Add("PAB-MED-405")

        buattabel()


    End Sub






    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click
        totaltagi.Text = Val(biaya.Text) + Val(harga.Text) * Val(banyakpemakaian.Text)


        pajak.Text = Val(1.0) * Val(totaltagi.Text)


        totalpembayaran.Text = Val(totaltagi.Text) + Val(pajak.Text)


    End Sub



    Private Sub BERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BERSIH.Click
        KODE.Text = ""
        NAMA.Text = ""
        TIPE.Text = ""
        biaya.Text = ""
        harga.Text = ""
        banyakpemakaian.Text = ""
        totaltagi.Text = ""
        PAJAK.Text = ""
        TOTALPEMBAYARAN.Text = ""
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        If kode.Text = "TOK-MED-100" Then
            tipe.Text = "TOKO"
            biaya.Text = "250000"
            harga.Text = "300"
        ElseIf kode.Text = "RUM-MED-200" Then
            tipe.Text = "RUMAH"
            biaya.Text = "15000"
            harga.Text = "100"
        ElseIf kode.Text = "SWA-MED-300" Then
            tipe.Text = "SWALAYAN"
            biaya.Text = "10000"
            harga.Text = "200"
        ElseIf kode.Text = "PAB-MED-400" Then
            tipe.Text = "PABRIK"
            biaya.Text = "250000"
            harga.Text = "500"
        End If
    End Sub

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


    Sub buattabel()
        livi.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Center)
        livi.Columns.Add("TIPE PELANGGAN", 170, HorizontalAlignment.Center)
        livi.Columns.Add("NAMA PELANGGAN", 185, HorizontalAlignment.Center)
        livi.Columns.Add("TARIF PER M3 ", 182, HorizontalAlignment.Center)
        livi.Columns.Add("TOTAL TAGIHAN", 182, HorizontalAlignment.Center)
        livi.Columns.Add("PAJAK", 182, HorizontalAlignment.Center)
        livi.Columns.Add("TOTAL PEMBAYARAN", 190, HorizontalAlignment.Center)
        livi.View = View.Details
        livi.GridLines = True
        livi.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = KODE.Text
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(totaltagi.Text)
        lst.SubItems.Add(PAJAK.Text)
        lst.SubItems.Add(TOTALPEMBAYARAN.Text)
        livi.Items.Add(lst)
    End Sub

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

Diposting oleh di Tidak ada komentar:
kasus :latihan pada halaman 33

 
PROGRAM QUIZ HALAMAN 33















Public Class Form1

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

    Private Sub JUMLAH_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        Dim Tombol As Integer = Asc(e.KeyChar)
        If Tombol = 13 Then
            total.Text = Val(harga.Text * jumlah.Text)
        End If
    End Sub


    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        If kode.Text = "TS001" Then
            merk.Text = "TOSHIBA"
            nama.Text = "FLASHDISK 2GB"
            harga.Text = "90000"
        ElseIf kode.Text = "TS002" Then
            merk.Text = "TOSHIBA"
            nama.Text = "FLASHDISK 4GB"
            harga.Text = "105000"
        ElseIf kode.Text = "VG001" Then
            merk.Text = "V-GEN"
            nama.Text = "FLASHDISK 2GB"
            harga.Text = "60000"
        ElseIf kode.Text = "VG002" Then
            merk.Text = "V-GEN"
            nama.Text = "FLASHDISK 4GB"
            harga.Text = "90000"
        End If
    End Sub

    Sub buattabel()
        lv.Columns.Add("NO PEMBELI", 50, HorizontalAlignment.Center)
        lv.Columns.Add("KODE BARANG", 160, HorizontalAlignment.Center)
        lv.Columns.Add("NAMA BARANG", 160, HorizontalAlignment.Center)
        lv.Columns.Add("MERK", 160, HorizontalAlignment.Center)
        lv.Columns.Add("HARGA", 170, HorizontalAlignment.Center)
        lv.Columns.Add("JUMLAH BELI", 80, HorizontalAlignment.Center)
        lv.Columns.Add("TOTAL HARGA", 190, HorizontalAlignment.Center)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        lv.Items.Add(lst)
    End Sub
    Private Sub BERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        jumlah.Text = ""
        merk.Text = ""
        harga.Text = ""
        total.Text = ""
    End Sub

  

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

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

    End Sub
    Private Sub hapussemuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemuadata.Click
        lv.Items.Clear()
    End Sub

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



   End Class
Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)