Jawaban Soal No 3(Bobby Okasma Lase)

Kasusnya : http://mesran.wordpress.com/2012/01/26/kasus-program-tagihan-pdam/

Program :


Public Class Form1

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

    End Sub
    Sub Cek()
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode_Plggn.Text, 3)
        If x = "TOK" Then
            Type_Plggn.Text = "TOKO"
            Biaya.Text = 25000
            Hrg.Text = 300
        ElseIf x = "RUM" Then
            Type_Plggn.Text = "RUMAH"
            Biaya.Text = 15000
            Hrg.Text = 100
        ElseIf x = "SWA" Then
            Type_Plggn.Text = "SWALAYAN"
            Biaya.Text = 10000
            Hrg.Text = 200
        ElseIf x = "PAB" Then
            Type_Plggn.Text = "PABRIK"
            Biaya.Text = 250000
            Hrg.Text = 500
        Else
            Type_Plggn.Text = "0"
            Biaya.Text = "0"
            Hrg.Text = "0"
        End If

        x = Microsoft.VisualBasic.Mid(Kode_Plggn.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 = "Binje"
        ElseIf x = "PAK" Then
            Daerah.Text = "Pakam"
        Else
            Daerah.Text = ""
        End If

        No_Urut.Text = Microsoft.VisualBasic.Right(Kode_Plggn.Text, 3)
    End Sub
  
    Sub Bayar()
        Total_Tghan.Text = Val(Biaya.Text) + (Val(Pemakaian.Text) * Val(Hrg.Text))
    End Sub
    Sub totalBayar()
        Pjk.Text = 0.01 * Val(Total_Tghan.Text)
        Total_Byr.Text = Val(Total_Tghan.Text) + Val(Pjk.Text)
    End Sub
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_proses.Click
        Call Cek()
        Call Bayar()
        Call totalBayar()
    End Sub


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

Jawaban Soal No 2(Bobby Okasma Lase)

Kasusnya :http://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-selasa-2/

Programnya :


Public Class Form1


  

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

    Sub isi_tabel()
        Dim lst As New ListViewItem
        lst.Text = No.Text
        lst.SubItems.Add(KodeBrg.Text)
        lst.SubItems.Add(NamaBrg.Text)
        lst.SubItems.Add(Merek.Text)
        lst.SubItems.Add(HargaBrg.Text)
        lst.SubItems.Add(JumlahBeli.Text)
        lst.SubItems.Add(TotalHarga.Text)
        LV.Items.Add(lst)
    End Sub


    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBrg.SelectedIndexChanged
        Call Cek()
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Bersih.Click
        bersih()
    End Sub
    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        End
    End Sub
    Private Sub Jmlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JumlahBeli.KeyPress
        If e.KeyChar = vbCr Then
            TotalHarga.Text = JumlahBeli.Text * HargaBrg.Text
        End If
    End Sub
    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Simpan.Click
        isi_tabel()
        bersih()
    End Sub

    Sub Cek()
        Dim x As String
        x = Microsoft.VisualBasic.Left(KodeBrg.Text, 2)
        If x = "TS" Then
            Merek.Text = "Toshiba"
            x = Microsoft.VisualBasic.Right(KodeBrg.Text, 3)
            If x = "001" Then
                HargaBrg.Text = "105000"
                NamaBrg.Text = "Flasdisk 4GB"
            ElseIf x = "002" Then
                HargaBrg.Text = "90000"
                NamaBrg.Text = "Flasdisk 2GB"
            End If
        ElseIf x = "VG" Then
            Merek.Text = "V-Gen"
            x = Microsoft.VisualBasic.Right(KodeBrg.Text, 3)
            If x = "001" Then
                HargaBrg.Text = "75000"
                NamaBrg.Text = "Flasdisk 4GB"
            ElseIf x = "002" Then
                HargaBrg.Text = "60000"
                NamaBrg.Text = "Flasdisk 2GB"
            End If
        End If
    End Sub

    Sub buat_tabel()
        LV.Columns.Add("No.Pembelian", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Merek", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Total Harga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub bersih()
        No.Text = ""
        KodeBrg.Text = ""
        NamaBrg.Text = ""
        Merek.Text = ""
        HargaBrg.Text = ""
        JumlahBeli.Text = ""
        TotalHarga.Text = ""
    End Sub


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

    Private Sub BtnHpsDplih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hps_Dplih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class

Hasilnya :