Minggu, 29 Januari 2012

Jawaban Soal No 3 Tagihan PDAM (Dhany Pranata)


Kasus Program Tagihan PDAM
Scrip Form Login :
Public Class Form2

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click
        If UserNM.Text = "Dhany Pranata" And Password.Text = "simanjuntak" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("Data Username/Password Anda Salah!!")
            UserNM.Text = ""
            Password.Text = ""
        End If
    End Sub

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

Tampilan Program Login :
 

 
Scrip Menu Utama :
Public Class Menu_Utama

    Private Sub DataPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPDAMToolStripMenuItem.Click
        Form1.Show()
    End Sub

    Private Sub Form3_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        If MsgBox("Anda Yakin Ingin Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Me.Hide()
        End If
    End Sub

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

Tampilan Program Menu Utama :





Scrip Data Pelanggan :
Public Class Form1
  
    Sub ISIKdPelanggan()
        KdPelangan.Items.Add("TOK-MED-")
        KdPelangan.Items.Add("TOK-BEL-001")
        KdPelangan.Items.Add("TOK-TEM-001")
        KdPelangan.Items.Add("TOK-MAR-001")
        KdPelangan.Items.Add("TOK-BIN-001")
        KdPelangan.Items.Add("TOK-PAK-001")

        KdPelangan.Items.Add("RUM-MED-001")
        KdPelangan.Items.Add("RUM-BEL-001")
        KdPelangan.Items.Add("RUM-TEM-001")
        KdPelangan.Items.Add("RUM-MAR-001")
        KdPelangan.Items.Add("RUM-BIN-001")
        KdPelangan.Items.Add("RUM-PAK-001")

        KdPelangan.Items.Add("SWA-MED-001")
        KdPelangan.Items.Add("SWA-BEL-001")
        KdPelangan.Items.Add("SWA-TEM-001")
        KdPelangan.Items.Add("SWA-MAR-001")
        KdPelangan.Items.Add("SWA-BIN-001")
        KdPelangan.Items.Add("SWA-PAK-001")

        KdPelangan.Items.Add("PAB-MED-001")
        KdPelangan.Items.Add("PAB-BEL-001")
        KdPelangan.Items.Add("PAB-TEM-001")
        KdPelangan.Items.Add("PAB-MAR-001")
        KdPelangan.Items.Add("PAB-BIN-001")
        KdPelangan.Items.Add("PAB-PAK-001")
    End Sub

    Sub kodeplgCOMBO()
        Dim A, B, C As String
        A = Microsoft.VisualBasic.Left(KdPelangan.Text, 3)
        B = Microsoft.VisualBasic.Mid(KdPelangan.Text, 5, 3)
        C = Microsoft.VisualBasic.Right(KdPelangan.Text, 3)
        No_urut.Text = C
        If A = "TOK" Then
            TypPlanggan.Text = "Toko"
            Beban.Text = 25000
            HargaM3.Text = 300
        ElseIf A = "RUM" Then
            TypPlanggan.Text = "Rumah"
            Beban.Text = 15000
            HargaM3.Text = 100
        ElseIf A = "SWA" Then
            TypPlanggan.Text = "Swalayan"
            Beban.Text = 10000
            HargaM3.Text = 200
        ElseIf A = "PAB" Then
            TypPlanggan.Text = "Pabrik"
            Beban.Text = 250000
            HargaM3.Text = 500

        End If
        If B = "MED" Then
            NmDaerah.Text = "Medan"
        ElseIf B = "BEL" Then
            NmDaerah.Text = "Belawan"
        ElseIf B = "TEM" Then
            NmDaerah.Text = "Aksara"
        ElseIf B = "MAR" Then
            NmDaerah.Text = "Marendal"
        ElseIf B = "BIN" Then
            NmDaerah.Text = "Binjay"
        ElseIf B = "PAK" Then
            NmDaerah.Text = "Lubuk Pakam"
        End If
    End Sub
    Private Sub Rata_rata_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Rata_rata.KeyPress
        If Asc(e.KeyChar) = 13 Then
            PerBulan.Text = Rata_rata.Text * 30
            Total.Text = PerBulan.Text * HargaM3.Text + Val(Beban.Text)
            Pajak.Text = 0.01 * Total.Text
            Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)

        End If
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

If Asc(e.KeyChar) = 13 Then
            PerBulan.Text = Rata_rata.Text * 30
            Total.Text = PerBulan.Text * HargaM3.Text + Val(Beban.Text)
            Pajak.Text = 0.01 * Total.Text
            Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)

        End If
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        If MsgBox("Anda Yakin Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Me.Hide()
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ISIKdPelanggan()
    End Sub

    Private Sub KDP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
        kodeplgCOMBO()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        KdPelangan.Visible = False
        Cara.Visible = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        KdPelangan.Visible = True
        Cara.Visible = False
    End Sub

    Private Sub Rata_rata_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rata_rata.TextChanged
        If Not IsNumeric(Rata_rata.Text) Then
            Rata_rata.Clear()
        End If
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Hapus(Me)
        KdPelangan.Focus()
    End Sub
    Sub Hapus(ByVal F As Form)
        Dim x As Object
        For Each x In F.Controls
            If TypeOf x Is TextBox Then x.text = ""
            If TypeOf x Is ComboBox Then x.text = ""
        Next
    End Sub

    Private Sub KdPelangan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdPelangan.SelectedIndexChanged
        kodeplgCOMBO()
    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExit.Click
        End
    End Sub
End Class
 
 
Diposting oleh di Tidak ada komentar:

Skrip Program Soal No. 2 (Dhany Pranata)


SOAL KASUS : Scrip Program Penjualan Flasdisk :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattable()
        kdBrg.Items.Add("TS001")
        kdBrg.Items.Add("TS002")
        kdBrg.Items.Add("VG001")
        kdBrg.Items.Add("VG002")
    End Sub
    Sub kde()
        If Microsoft.VisualBasic.Left(kdBrg.Text, 2) = "TS" Then
            Merek.Text = "Thosiba"
        ElseIf Microsoft.VisualBasic.Left(kdBrg.Text, 2) = "VG" Then
            Merek.Text = "V-Gen"
        End If
        If Microsoft.VisualBasic.Right(kdBrg.Text, 3) = "001" Then
            NmBrg.Text = "Flashdick 4GB"
        ElseIf Microsoft.VisualBasic.Right(kdBrg.Text, 3) = "002" Then
            NmBrg.Text = "Flashdick 2GB"

        End If

    End Sub
    Sub buattable()
        LV.Columns.Add("No Pembelian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Merek", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.FullRowSelect = True
        LV.GridLines = True
    End Sub
    Sub isi()
        Dim Lst As New ListViewItem
        lst.Text = NoPemb.Text
        lst.SubItems.Add(kdBrg.Text)
        lst.SubItems.Add(NmBrg.Text)
        lst.SubItems.Add(Merek.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(JlhBeli.Text)
        lst.SubItems.Add(TtlHarga.Text)
        LV.Items.Add(lst)
    End Sub
    Sub hrg()
        If kdBrg.Text = "TS001" Then
            Harga.Text = 105000
        ElseIf kdBrg.Text = "TS002" Then
            Harga.Text = 75000
        ElseIf kdBrg.Text = "VG001" Then
            Harga.Text = 90000
        ElseIf kdBrg.Text = "VG002" Then
            Harga.Text = 60000
        End If
    End Sub
    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdBrg.SelectedIndexChanged
        kde()
        hrg()
    End Sub

    Private Sub Merek_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Merek.TextChanged

    End Sub

    Private Sub Harga_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Harga.TextChanged
        hrg()
    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JlhBeli.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TtlHarga.Text = JlhBeli.Text * Harga.Text
        End If
    End Sub
    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        isi()
        NoPemb.Text = ""
        kdBrg.Text = ""
        NmBrg.Text = ""
        Merek.Text = ""
        Harga.Text = ""
        JlhBeli.Text = ""
        TtlHarga.Text = ""
        NoPemb.Focus()
    End Sub

    Private Sub Hapus_semua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_semua.Click
        LV.Items.Clear()
    End Sub

    Private Sub Hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_data.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
End Class

Tampilan Menu Pembelian Flesdisk:




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