Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net

kasus pembayaran rekening listrik

Public Class Form1

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

        LV.Columns.Add("Kode", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Jenis Pelanggan ", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Beban", 80, HorizontalAlignment.Left)

        LV.Columns.Add("Pemakaian", 80, HorizontalAlignment.Left)

        LV.Columns.Add("harga KWH", 90, HorizontalAlignment.Left)

        LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

        kode.Items.Add("1")

        kode.Items.Add("2")

        kode.Items.Add("3")

    End Sub

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

        Select Case kode.Text

            Case "1"

                JPelanggan.Text = "rumah"

                Beban.Text = 25000

                KWH.Text = 3000

            Case "2"

                JPelanggan.Text = "TOKO"

                Beban.Text = 50000

                KWH.Text = 5000

            Case "3"

                JPelanggan.Text = "PABRIK"

                Beban.Text = 100000

                KWH.Text = 10000

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        Pembayaran.Text = Val(Beban.Text) + Val(KWH.Text) * Val(Pemakaian.Text)

        Dim lst As New ListViewItem

        lst.Text = kode.Text

        lst.SubItems.Add(JPelanggan.Text)

        lst.SubItems.Add(Beban.Text)

        lst.SubItems.Add(Pemakaian.Text)

        lst.SubItems.Add(KWH.Text)

        lst.SubItems.Add(Pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub HapusList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HapusList.Click

        LV.Items.Clear()

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click

        kode.Text = ""

        JPelanggan.Text = ""

        Beban.Text = ""

        Pemakaian.Text = ""

        Pemakaian.Text = ""

        KWH.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

Demikilahlah postingan saya  

Nama : irwansyah putra sinaga

 NPM : 14110869

Selamat Belajar Pemrograman VB NET 

Read More

Contoh Program Visual Basic Pembayaran Tagihan PDAM

CONTOH PROGRAM VISUAL BASIC, "FORM PEMBAYARAN TAGIHAN PDAM" MENGGUNAKAN CASE

 

Public Class Form1

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

        KPembayaran.Items.Add("001")

        KPembayaran.Items.Add("002")

        KPembayaran.Items.Add("003")

        Tipe.Items.Add("TOKO")

        Tipe.Items.Add("RUMAH")

        Tipe.Items.Add("SWALAYAN")

        Tipe.Items.Add("PABRIK")

    End Sub

    Private Sub KPembayaran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KPembayaran.SelectedIndexChanged

        Select Case KPembayaran.Text

            Case "001" : Nama.Text = "Jhani"

            Case "002" : Nama.Text = "EKO"

            Case "003" : Nama.Text = "DIAN"

        End Select

    End Sub

    Private Sub Tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe.SelectedIndexChanged

        Select Case Tipe.Text

            Case "TOKO"

                Biaya.Text = 25000

                Harga.Text = 300

            Case "RUMAH"

                Biaya.Text = 15000

                Harga.Text = 100

            Case "SWALAYAN"

                Biaya.Text = 10000

                Harga.Text = 200

            Case "PABRIK"

                Biaya.Text = 25000

                Harga.Text = 500

        End Select

    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click

        TTagihan.Text = Val(Biaya.Text) + Val(Harga.Text) * JPemakaian.Text

        Pajak.Text = 0.01 * TTagihan.Text

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

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        KPembayaran.Text = ""

        Nama.Text = ""

        Tipe.Text = ""

        Biaya.Text = ""

        Harga.Text = ""

        JPemakaian.Text = ""

        TTagihan.Text = ""

        Pajak.Text = ""

        Pembayaran.Text = ""

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

End Class

Read More

CONTOH PROGRAM VISUAL BASIC PENJUALAN TV

CONTOH PROGRAM PENJUALAN TV

 

Public Class Form1

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

        JTV.Items.Add("SONY")

        JTV.Items.Add("SAMSUNG")

        JTV.Items.Add("PANASONIC")

        JTV.Items.Add("LG")

        Ukuran.Items.Add("14 inchi")

        Ukuran.Items.Add("17 inchi")

        Ukuran.Items.Add("21 inchi")

        Ukuran.Items.Add("29 inchi")

    End Sub

    Private Sub JTV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JTV.SelectedIndexChanged

       

    End Sub

    Private Sub Ukuran_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ukuran.SelectedIndexChanged

        If JTV.Text = "SONY" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1000000

        ElseIf JTV.Text = "SONY" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1200000

        ElseIf JTV.Text = "SONY" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1700000

        ElseIf JTV.Text = "SONY" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 2000000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1200000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1500000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1900000

        ElseIf JTV.Text = "SAMSUNG" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 2300000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1100000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1400000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1700000

        ElseIf JTV.Text = "PANASONIC" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 2000000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "14 inchi" Then

            HargaTV.Text = 1150000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "17 inchi" Then

            HargaTV.Text = 1250000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "21 inchi" Then

            HargaTV.Text = 1650000

        ElseIf JTV.Text = "LG" And Ukuran.Text = "29 inchi" Then

            HargaTV.Text = 1950000

        End If

    End Sub

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        THarga.Text = Val(Jumlah.Text) * Val(HargaTV.Text)

        Diskon.Text = 0.1 * Val(THarga.Text)

        Pajak.Text = 0.05 * THarga.Text

        TBayar.Text = Val(THarga.Text) + Val(Pajak.Text) - Val(Diskon.Text)

    End Sub

End Class

Read More