PEMOGRAMAN VB.NET : CONTOH PROGRAM PEMBAYARAN LISTRIK PADA PEMOGRAMAN VB.NET

JAWABAN KUIS NO 1

Buat tampilan seperti gambar dibawah ini :

Masukkan listing programnya sebagai berikut : 

Public Class Form1

    Sub BuatTabel()

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

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

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

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

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

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

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

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

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

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

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

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

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isiTabel()

        Dim lst As New ListViewItem

        LV.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.Columns.Add("no")

        LV.Columns.Add("daerah")

        LV.Columns.Add("tipe")

        LV.Columns.Add("kode")

        LV.Columns.Add("MBI")

        LV.Columns.Add("MBL")

        LV.Columns.Add("pajak")

        LV.Columns.Add("biaya")

        LV.Columns.Add("harga")

        LV.Columns.Add("jumlah")

        LV.Columns.Add("total")

        LV.Columns.Add("pembayaran")

    End Sub

    Private Sub tipe_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tipe.SelectedIndexChanged

        If tipe.Text = "toko" Then

            biaya.Text = "150000"

            harga.Text = "500"

        ElseIf tipe.Text = "rumah" Then

            biaya.Text = "50000"

            harga.Text = "200"

        ElseIf tipe.Text = "swalayan" Then

            biaya.Text = "400000"

            harga.Text = "1500"

        Else

            biaya.Text = "1000000"

            harga.Text = "10000"

        End If

    End Sub

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

        daerah.Items.Add("MEDAN")

        daerah.Items.Add("BELAWAN")

        daerah.Items.Add("AKSARA")

        daerah.Items.Add("MARENDAL")

        daerah.Items.Add("BINJAI")

        daerah.Items.Add("LUBUK PAKAM")

        tipe.Items.Add("toko")

        tipe.Items.Add("rumah")

        tipe.Items.Add("swalayan")

        tipe.Items.Add("pabrik")

        no.Items.Add("1")

        no.Items.Add("2")

        no.Items.Add("3")

        no.Items.Add("4")

        no.Items.Add("5")

        no.Items.Add("6")

        no.Items.Add("7")

        no.Items.Add("8")

        no.Items.Add("9")

        no.Items.Add("10")

        BuatTabel()

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        daerah.Text = ""

        tipe.Text = ""

        jumlah.Text = ""

        total.Text = ""

        pajak.Text = ""

        pembayaran.Text = ""

        kode.Text = ""

        biaya.Text = ""

        harga.Text = ""

        MBI.Text = ""

        MBL.Text = ""

        no.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        jumlah.Text = MBI.Text - MBL.Text

        total.Text = biaya.Text + harga.Text * jumlah.Text

        pembayaran.Text = total.Text + pajak.Text

        pajak.Text = 0.015 * total.Text

        kode.Text = tipe.Text + daerah.Text + no.Text

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        Dim lst As New ListViewItem

        lst.Text = no.Text

        lst.SubItems.Add(daerah.Text)

        lst.SubItems.Add(tipe.Text)

        lst.SubItems.Add(kode.Text)

        lst.SubItems.Add(MBI.Text)

        lst.SubItems.Add(MBL.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(biaya.Text)

        lst.SubItems.Add(harga.Text)

        lst.SubItems.Add(jumlah.Text)

        lst.SubItems.Add(total.Text)

        lst.SubItems.Add(pembayaran.Text)

        LV.Items.Add(lst)

    End Sub

    Private Sub BtnhapusLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnhapusLV.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnkeluarLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnkeluarLV.Click

        Me.Close()

    End Sub

End Class

MAKA , TAMPILANNYA AKAN SEPERTI INI : 

Silakahkan Dicoba .... 

  Pemrograman VB.NET

Author : Unknown

Share this

Related Posts