Pengikut

Diberdayakan oleh Blogger.
Minggu, 29 Januari 2012

JAWABAN SOAL 3 (JAKA PRAMANA)

02.13 | Diposting oleh visual basic | | Edit Entri
JAWABAN SOAL 3 (JAKA PRAMANA)
 NPM : 0911445
KLS   : TI-M0912

LINK KASUS  : Tagihan PDAM
________________________________________
LISTING PROGRAM
Form1.vb
Public Class Form1

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

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


    Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
        If username.Text = "JAKA" And password.Text = "111" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("data username/password salah!")
            username.Text = ""
            password.Text = ""

        End If
    End Sub

    Private Sub username_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles username.TextChanged

    End Sub
End Class


program.vb
Public Class program
    Sub isitable()
        Dim lst As New ListViewItem
        lst.Text = nama.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nourut.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(biayabeban.Text)
        lst.SubItems.Add(m3.Text)
        lst.SubItems.Add(pemakaian.Text)
        lst.SubItems.Add(tagihan.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        lv.Items.Add(lst)
    End Sub
    Sub buattable()
        lv.Columns.Add("Nama Pelanggan", 150, HorizontalAlignment.Left)
        lv.Columns.Add("Kode Pelanggan", 110, HorizontalAlignment.Left)
        lv.Columns.Add("No Urut", 60, HorizontalAlignment.Left)
        lv.Columns.Add("Tipe Pelanggan", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Daerah Pelanggan", 130, HorizontalAlignment.Left)
        lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Harga PerM3", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Pemakaian", 100, HorizontalAlignment.Left)
        lv.Columns.Add("Tagihan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak 1%", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
        lv.View = View.Details
        lv.GridLines = True
        lv.FullRowSelect = True
    End Sub
    Sub cekpelanggan()
        Dim x As String
        x = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        Dim xx As String
        xx = Microsoft.VisualBasic.Left(kode.Text, 3)

        nourut.Text = Microsoft.VisualBasic.Right(kode.Text, 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 = "LUBUK PAKAM"

        End If


        If xx = "TOK" Then
            tipe.Text = "TOKO"
            biayabeban.Text = 25000
            m3.Text = 300
        ElseIf xx = "RUM" Then
            tipe.Text = "RUMAH"
            biayabeban.Text = 15000
            m3.Text = 100
        ElseIf xx = "SWA" Then
            tipe.Text = "SWALAYAN"
            biayabeban.Text = 10000
            m3.Text = 200
        ElseIf xx = "PAB" Then
            tipe.Text = "PABRIK"
            biayabeban.Text = 250000
            m3.Text = 500
        End If



        tagihan.Text = Val(biayabeban.Text) + (Val(m3.Text) * Val(pemakaian.Text))

        pajak.Text = 0.01 * Val(tagihan.Text)

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

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

    Private Sub kode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub tipe_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub daerah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub biayabeban_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biayabeban.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub m3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m3.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub tagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tagihan.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub pemakaian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
        Call cekpelanggan()

    End Sub

    Private Sub pembayaran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pembayaran.TextChanged
        Call cekpelanggan()

    End Sub



    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isitable()
        nama.Text = ""
        kode.Text = ""
        nourut.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        m3.Text = ""
        pemakaian.Text = ""
        tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nama.Text = ""
        kode.Text = ""
        nourut.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        m3.Text = ""
        pemakaian.Text = ""
        tagihan.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
    End Sub

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

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

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

    Private Sub nourut_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nourut.TextChanged
        cekpelanggan()

    End Sub
End Class
menuutama.vb
Public Class menuutama

   
    Private Sub PEMBAYARANAIRMINUMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PEMBAYARANAIRMINUMToolStripMenuItem.Click
        program.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 KELUARToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem1.Click
        End
    End Sub

    Private Sub DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DToolStripMenuItem.Click
        daftar.show()
    End Sub
End Class


daftar.vb
Public Class daftar

    Sub cekdaftar()
        If jenis.Text = "TOKO" Then
            biaya.Text = 25000
            m3.Text = 300
        ElseIf jenis.Text = "RUMAH" Then
            biaya.Text = 15000
            m3.Text = 100
        ElseIf jenis.Text = "SWALAYAN" Then
            biaya.Text = 10000
            m3.Text = 200
        ElseIf jenis.Text = "PABRIK" Then
            biaya.Text = 250000
            m3.Text = 500
        End If
    End Sub

    Private Sub daftar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        jenis.Items.Add("TOKO")
        jenis.Items.Add("RUMAH")
        jenis.Items.Add("SWALAYAN")
        jenis.Items.Add("PABRIK")
    End Sub

    Private Sub jenis_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenis.SelectedIndexChanged
        Call cekdaftar()
    End Sub

    Private Sub biaya_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biaya.TextChanged
        Call cekdaftar()
    End Sub

    Private Sub m3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles m3.TextChanged
        Call cekdaftar()
    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
Menu Log in












menu strip

 
Pengisian Data












Memasukkan data ke Listview

 

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

Blogger Template created with Artisteer.