jawaban Soal no3(sobrun) Tagihan PDAM

Jawaban Soal QUIZ Online Hari SELASA jika ingin melihat soalnya klik DISINI

Listing Programnya login:
Public Class formlogin

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If username.Text = "SOBRUN" And password.Text = "VISUALBASIC" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("maaf user name dan password anda salah")
            username.Text = ""
            password.Text = ""

        End If
    End Sub

    Private Sub formlogin_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
End Class

Tampilan Form Menu Login adalah sebagai Berikut:

 

untuk menjalankanya tekan f5 maka akan tampil sebagai berikut:

 

 

Inputkan Nama User dan Password seperti yang ada di Form lalu klik OK untuk menuju menu sebagai berikut:

 

 

setelah tampil klik menu file maka akan tampil sebagai berikut:

 

 

 

 

klik menu file pilih data PDAM maka akan tampil:

 

lalu inputkan pilihan sesuai data diatas lalu tekan button proses dan klik button simpan ke list view maka akan tampil sebagai berikut:

 

demikian program tagihan PDAM  yang dapat saya tampilkan. terimakasih..

jawaban QUIZ Online Hari SELASA(sobrun) point 2

jawaban QUIZ Online Hari SELASA point 2 jika ingin melihat soalnya linknya ada DISINI program dari latihan halaman 33 pada modul vb. net adalah sebagai berikut :

Public Class Form1

    Sub buattabel()
        Lv.Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Barang", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Barang", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Merk", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Harga", 120, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True

    End Sub

    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = nopembelian.Text
        lst.SubItems.Add(kodebarang.Text)
        lst.SubItems.Add(namabarang.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlahbeli.Text)
        lst.SubItems.Add(total.Text)
        Lv.Items.Add(lst)

    End Sub

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

    End Sub

    Private Sub kodebarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodebarang.SelectedIndexChanged
        Dim vjen As String
        Dim vjur As String
        vjen = Microsoft.VisualBasic.Left(kodebarang.Text, 2)
        merk.Text = If(vjen = "TS", "Thosiba", If(vjen = "VG", "V-GEN", ""))

        vjur = Microsoft.VisualBasic.Right(kodebarang.Text, 3)
        namabarang.Text = If(vjur = "001", "Flashdisk 4GB", If(vjur = "002", "Flashdisk 2GB", ""))

        Select Case kodebarang.Text
            Case "TS001"
                harga.Text = "105000"
            Case "TS002"
                harga.Text = "75000"
            Case "VG001"
                harga.Text = "90000"
            Case "VG002"
                harga.Text = "60000"
        End Select
    End Sub

    Private Sub jumlahbeli_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahbeli.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            btnproses_Click(sender, e)
        End If
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = (harga.Text) * (jumlahbeli.Text)
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
        kodebarang.Focus()
    End Sub

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

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nopembelian.Text = ""
        kodebarang.Text = ""
        namabarang.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlahbeli.Text = ""
        total.Text = ""
        kodebarang.Focus()
    End Sub

    Private Sub hapusyangdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusyangdipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
        kodebarang.Focus()
    End Sub

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

    Private Sub jumlahbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahbeli.TextChanged

    End Sub

    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub
End Class


dan hasil program setelah kita tekan f5 adalah sebagai berikut :

setelah tampil inputkan data sesuai dengan pilihan pada form, seperti yang saya inputkan dibawah ini, maka hasilnya sebagai berikut:

demikian progaram yang dapat saya postingkan. terimakasih.