jawaban Tugas VB.net soal dari modul halaman 33

sesuai dengan Tutorial dari pengerjaan tugasnya. untuk lebih detailnya silahkan kunjungi ke sini

Listing Program :

Public Class latihan
    Sub table()
        ListView1.Columns.Add("NO.Pembelian", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Kode Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Nama Brg", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Merk", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.Gaji", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = no.Text
        lst.SubItems.Add(kode.Text)
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(merk.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(jumlah.Text)
        lst.SubItems.Add(total.Text)
        ListView1.Items.Add(lst)
    End Sub


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


     

        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")

    End Sub
    Sub AddJumlah()
        For i = 1 To 100
            jumlah.Items.Add(i)
        Next
    End Sub
    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        total.Text = Val(jumlah.Text) * Val(harga.Text)

    End Sub



    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim latihan As String
        Microsoft.VisualBasic.Left(kode.Text, 2)
        latihan = Microsoft.VisualBasic.Left(kode.Text, 2)
        If latihan = "TS" Then
            merk.Text = "TOSHIBA"
        ElseIf latihan = "VG" Then
            merk.Text = "V-Gen"
        End If
        latihan = Microsoft.VisualBasic.Right(kode.Text, 3)
        If latihan = "001" Then
            nama.Text = "Flasdic 4GB"
        ElseIf latihan = "002" Then
            nama.Text = "Flasdisc 2GB"
     

        End If
        harga.Text = Microsoft.VisualBasic.Right(kode.Text, 5)
        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
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)




    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Byte
        i = MsgBox("Apakah Anda Ingin Keluar Dari program Ini", MsgBoxStyle.YesNo, "Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            hitung_Click(sender, e)

        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        no.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapusss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusss.Click
        ListView1.Items.Clear()
    End Sub

 
    Private Sub jumlah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.SelectedIndexChanged

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub
End Class


Hasil Program :

Postingan Jawaban Vissual Basic untuk soal no. 3

Seperti soal nomor 3 yang telah di cantumkan dalam blog Pak mesran,untuk lebih jelasnya klik Klik Disini
inilah programnya :

Listing Program :

Public Class Login
  
    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        If user.Text = "paisal" And pas.Text = "paisal" Then
            Menu_Utama.Show()
            Me.Hide()
        Else
            MsgBox("Data Yg Anda Masukan Salah !!!!  Silahkan Anda Coba Lagi")
            user.Text = ""
            pas.Text = ""

        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim i As Integer
        i = MsgBox(" Apakah Anda Ingin Keluar dari Program ini", MsgBoxStyle.YesNo, " Kembali Ke Menu Utama")
        If i = vbYes Then
            End

        End If
    End Sub

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

    End Sub

    Private Sub user_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles user.TextChanged

    End Sub
End Class

Hasil program :

Listing Program Menu Utama :

Public Class Menu_Utama

    Private Sub TagihanPDAMToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagihanPDAMToolStripMenuItem.Click
        Tagihan_PDAM.MdiParent = Me
        Tagihan_PDAM.Show()
    End Sub

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
        Dim i As String
        i = MsgBox("Apakah Anda Ingin Keluar Dari Program ini", MsgBoxStyle.YesNo, "Kembali Ke menu utama")
        If i = vbYes Then
            End

        End If
    End Sub

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

    End Sub
End Class

Hasil Program :

Listing Program untuk Tagihan PDAM :

Public Class Tagihan_PDAM
 
    Sub table()
        ListView1.Columns.Add("K.Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Daerah", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("T.Pelanggan", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("N.Urut", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("B.Beban", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("J.pemakaain", 80, HorizontalAlignment.Center)
        ListView1.Columns.Add("Harga", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("T.tagihan", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("Pembayaran", 80, HorizontalAlignment.Left)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True
    End Sub
    Sub isi()
        Dim lst As New ListViewItem
        lst.Text = kode.Text
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(plgn.Text)
        lst.SubItems.Add(no.Text)
        lst.SubItems.Add(biaya.Text)
        lst.SubItems.Add(jmlh.Text)
        lst.SubItems.Add(harga.Text)
        lst.SubItems.Add(tagihann.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(pembayaran.Text)
        ListView1.Items.Add(lst)
    End Sub

    Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim i As String
        i = Microsoft.VisualBasic.Left(kode.Text, 3)
        If i = "TOK" Then
            plgn.Text = "Toko"
            biaya.Text = 25000
            harga.Text = 300
        ElseIf i = "RUM" Then
            plgn.Text = "Rumah"
            biaya.Text = 15000
            harga.Text = 100
        ElseIf i = "SWA" Then
            plgn.Text = "swalayan"
            biaya.Text = 10000
            harga.Text = 200
        ElseIf i = "PAB" Then
            plgn.Text = "pabrik"
            biaya.Text = 250000
            harga.Text = 500
        End If
        i = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        If i = "MED" Then
            daerah.Text = "medan"
        ElseIf i = "BEL" Then
            daerah.Text = "Belawan"
        ElseIf i = "MAR" Then
            daerah.Text = "marendal"
        ElseIf i = "BIN" Then
            daerah.Text = "binjai"
        ElseIf i = "PAK" Then
            daerah.Text = "lubukpakam"
        ElseIf i = "TEM" Then
            daerah.Text = "Akasara"

        End If
        no.Text = Microsoft.VisualBasic.Right(kode.Text, 3)
    End Sub

    Sub AddJumlah()
        For i = 1 To 100
            jmlh.Items.Add(i)
        Next
    End Sub

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

        kode.Items.Add("TOK-MED-100")
        kode.Items.Add("TOK-BEL-101")
        kode.Items.Add("TOK-TEM-102")
        kode.Items.Add("TOK-MAR-103")
        kode.Items.Add("TOK-BIN-104")
        kode.Items.Add("TOK-PAK-105")
        kode.Items.Add("RUM-MED-106")
        kode.Items.Add("RUM-BEL-107")
        kode.Items.Add("RUM-TEM-108")
        kode.Items.Add("RUM-MAR-109")
        kode.Items.Add("RUM-BIN-110")
        kode.Items.Add("RUM-PAK-111")
        kode.Items.Add("SWA-MED-112")
        kode.Items.Add("SWA-BEL-113")
        kode.Items.Add("SWA-TEM-114")
        kode.Items.Add("SWA-MAR-115")
        kode.Items.Add("SWA-BIN-116")
        kode.Items.Add("SWA-PAK-117")
        kode.Items.Add("PAB-MED-118")
        kode.Items.Add("PAB-BEL-119")
        kode.Items.Add("PAB-TEM-120")
        kode.Items.Add("PAB-MAR-121")
        kode.Items.Add("PAB-BIN-122")
        kode.Items.Add("PAB-PAK-123")

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        isi()
        kode.Text = ""
        daerah.Text = ""
        plgn.Text = ""
        no.Text = ""
        biaya.Text = ""
        harga.Text = ""
        jmlh.Text = ""
        pajak.Text = ""
        tagihann.Text = ""
        pembayaran.Text = ""


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        ListView1.Items.Remove(ListView1.SelectedItems(0))
    End Sub

    Private Sub hapuss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapuss.Click
        ListView1.Items.Clear()
    End Sub

    Private Sub hitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung.Click
        tagihann.Text = biaya.Text + harga.Text * jmlh.Text
        pajak.Text = 0.1 * tagihann.Text
        pembayaran.Text = Val(tagihann.Text) + Val(pajak.Text)



    End Sub
End Class

Hasil Program :

  terima kasih...!!
buat pengunjung jangan lupa sering mangkal Kesini ya..!!! ^_^

Kaca yang berdebu

Kaca yang berdebuwmv