Jawaban Soal No 3 Tagihan PDAM (Rizki Hamdani)

Klik Disini Soal Tagihan PDAM

Untuk Code Log in

Public Class Form2

    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click

        If User.Text = "" Or Pass.Text = "" Then

            MsgBox("Data Tidak Ada", MsgBoxStyle.Critical, Me)

        ElseIf User.Text = "Rizki" And Pass.Text = "77" Then

            Form3.Show()

        ElseIf User.Text <> "Rizki" Or Pass.Text <> "77" Then

            MsgBox("Log in Salah", MsgBoxStyle.Critical)

        End If

        Teks.Visible = True

    End Sub

    Sub tk()

        Teks.Text = "User : Rizki" & vbCrLf & _

        "Pass  : 77 "

    End Sub

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

        tk()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Teks.Visible = True

    End Sub

End Class

Untuk Code Menu

Public Class Form3

    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 Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            Me.Hide()

        End If

    End Sub

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

    End Sub

End Class

Untuk Code Tagihan Pdam

Public Class Form1

    Sub kodeplg()

        Dim A, B, C As String

        A = Microsoft.VisualBasic.Left(Kode_p.Text, 3)

        B = Microsoft.VisualBasic.Mid(Kode_p.Text, 5, 3)

        C = Microsoft.VisualBasic.Right(Kode_p.Text, 3)

        No_urut.Text = C

        If A = "TOK" Then

            Type_p.Text = "Toko"

            Beban.Text = 25000

            Harga_M3.Text = 300

        ElseIf A = "RUM" Then

            Type_p.Text = "Rumah"

            Beban.Text = 15000

            Harga_M3.Text = 100

        ElseIf A = "SWA" Then

            Type_p.Text = "Swalayan"

            Beban.Text = 10000

            Harga_M3.Text = 200

        ElseIf A = "PAB" Then

            Type_p.Text = "Pabrik"

            Beban.Text = 250000

            Harga_M3.Text = 500

        End If

        If B = "MED" Then

            Nama_D.Text = "Medan"

        ElseIf B = "BEL" Then

            Nama_D.Text = "Belawan"

        ElseIf B = "TEM" Then

            Nama_D.Text = "Aksara"

        ElseIf B = "MAR" Then

            Nama_D.Text = "Marendal"

        ElseIf B = "BIN" Then

            Nama_D.Text = "Binjay"

        ElseIf B = "PAK" Then

            Nama_D.Text = "Lubuk Pakam"

        End If

    End Sub

    Sub kodeplgCOMBO()

        Dim A, B, C As String

        A = Microsoft.VisualBasic.Left(KDP.Text, 3)

        B = Microsoft.VisualBasic.Mid(KDP.Text, 5, 3)

        C = Microsoft.VisualBasic.Right(KDP.Text, 3)

        No_urut.Text = C

        If A = "TOK" Then

            Type_p.Text = "Toko"

            Beban.Text = 25000

            Harga_M3.Text = 300

        ElseIf A = "RUM" Then

            Type_p.Text = "Rumah"

            Beban.Text = 15000

            Harga_M3.Text = 100

        ElseIf A = "SWA" Then

            Type_p.Text = "Swalayan"

            Beban.Text = 10000

            Harga_M3.Text = 200

        ElseIf A = "PAB" Then

            Type_p.Text = "Pabrik"

            Beban.Text = 250000

            Harga_M3.Text = 500

        End If

        If B = "MED" Then

            Nama_D.Text = "Medan"

        ElseIf B = "BEL" Then

            Nama_D.Text = "Belawan"

        ElseIf B = "TEM" Then

            Nama_D.Text = "Aksara"

        ElseIf B = "MAR" Then

            Nama_D.Text = "Marendal"

        ElseIf B = "BIN" Then

            Nama_D.Text = "Binjay"

        ElseIf B = "PAK" Then

            Nama_D.Text = "Lubuk Pakam"

        End If

    End Sub

    Private Sub Kode_p_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Kode_p.KeyPress

        If Asc(e.KeyChar) = 13 Then

            kodeplg()

        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 * Harga_M3.Text + Val(Beban.Text)

            Pajak.Text = 0.01 * Total.Text

            Pembayaran.Text = Val(Total.Text) + Val(Pajak.Text)

        End If

    End Sub

    Sub ISIKDP()

        KDP.Items.Add("TOK-MED-001")

        KDP.Items.Add("TOK-BEL-001")

        KDP.Items.Add("TOK-TEM-001")

        KDP.Items.Add("TOK-MAR-001")

        KDP.Items.Add("TOK-BIN-001")

        KDP.Items.Add("TOK-PAK-001")

        KDP.Items.Add("RUM-MED-001")

        KDP.Items.Add("RUM-BEL-001")

        KDP.Items.Add("RUM-TEM-001")

        KDP.Items.Add("RUM-MAR-001")

        KDP.Items.Add("RUM-BIN-001")

        KDP.Items.Add("RUM-PAK-001")

        KDP.Items.Add("SWA-MED-001")

        KDP.Items.Add("SWA-BEL-001")

        KDP.Items.Add("SWA-TEM-001")

        KDP.Items.Add("SWA-MAR-001")

        KDP.Items.Add("SWA-BIN-001")

        KDP.Items.Add("SWA-PAK-001")

        KDP.Items.Add("PAB-MED-001")

        KDP.Items.Add("PAB-BEL-001")

        KDP.Items.Add("PAB-TEM-001")

        KDP.Items.Add("PAB-MAR-001")

        KDP.Items.Add("PAB-BIN-001")

        KDP.Items.Add("PAB-PAK-001")

    End Sub

    Sub keterangan()

        Ket.Text = "Cara Penginputan Dengan Text Box" & vbCrLf & _

        "       Type-Kota-No.Urut" & vbCrLf & _

        "Contoh = PAB-PAK-001" & vbCrLf & _

        "Type         Kota" & vbCrLf & _

        "--------------------------" & vbCrLf & _

        "PAB          MED" & vbCrLf & _

        "SWA         BEL" & vbCrLf & _

        "RUM         TEM" & vbCrLf & _

        "TOK          MAR" & vbCrLf & _

        "                  BIN" & vbCrLf & _

        "                  PAK" & vbCrLf & vbCrLf & _

        "NO URUT HANYA BOLEH 3 ANGKA"

    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

        ISIKDP()

        keterangan()

    End Sub

    Private Sub KDP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDP.SelectedIndexChanged

        kodeplgCOMBO()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Kode_p.Visible = True

        KDP.Visible = False

        Cara.Visible = False

        Ket.Visible = True

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        KDP.Visible = True

        Kode_p.Visible = False

        Cara.Visible = False

        Ket.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 Ket_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ket.TextChanged

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

        brsh(Me)

        keterangan()

    End Sub

    Sub brsh(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

End Class

Menggunakan TEXBOX













 Menggunakan COMBOBOX

 

Jawaban Soal No 2 (Rizki Hamdani)

Klik Kasus Soal Di Sini

Public Class Form1

    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?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            End

        End If

    End Sub

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

        kode.Items.Add("TS001")

        kode.Items.Add("TS002")

        kode.Items.Add("VG001")

        kode.Items.Add("VG002")

        buattable()

    End Sub

    Sub kde()

        If Microsoft.VisualBasic.Left(kode.Text, 2) = "TS" Then

            Merek.Text = "Thosiba"

        ElseIf Microsoft.VisualBasic.Left(kode.Text, 2) = "VG" Then

            Merek.Text = "V-Gen"

        End If

        If Microsoft.VisualBasic.Right(kode.Text, 3) = "001" Then

            Nama_Barang.Text = "Flashdick 4GB"

        ElseIf Microsoft.VisualBasic.Right(kode.Text, 3) = "002" Then

            Nama_Barang.Text = "Flashdick 2GB"

        End If

    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        kde()

        If kode.Text = "TS001" Then

            Harga.Text = 105000

        ElseIf kode.Text = "TS002" Then

            Harga.Text = 75000

        ElseIf kode.Text = "VG001" Then

            Harga.Text = 90000

        ElseIf kode.Text = "VG002" Then

            Harga.Text = 60000

        End If

    End Sub

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

    End Sub

    Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Total.Text = Jumlah.Text * Harga.Text

        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 = No_pem.Text

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(Nama_Barang.Text)

        lst.SubItems.Add(Merek.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(Jumlah.Text)

        lst.SubItems.Add(Total.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

        isi()

    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 Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

        If Not IsNumeric(Jumlah.Text) Then

            Jumlah.Clear()

        End If

        Total.ReadOnly = True

    End Sub

    Private Sub BtnBesih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBesih.Click

        brsh(Me)

    End Sub

    Sub brsh(ByVal F As Form1)

        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 BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        If MsgBox("Apakah Anda Ingin Keluar?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            End

        End If

    End Sub

End Class