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

http://www.mesran.net/quiz.html

Pemakaian Listrik

Listing Program :

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

End Sub

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

End Sub

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

End Sub

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

End Sub

Public Class Form1

    Sub BuatTabel()

        LV.Columns.Add("Pelanngan", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Tipe pelanggan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Biaya beban", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Harga per KWH", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Meter bulan ini", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Meter bulan lalu", 90, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah pemkaian", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Tagihan", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Pajak", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Total tagihan", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Pembayaran", 120, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = Pelanggan.Text

        Lst.SubItems.Add(Tipepel.Text)

        Lst.SubItems.Add(Biaya.Text)

        Lst.SubItems.Add(Harga.Text)

        Lst.SubItems.Add(Meterbulanini.Text)

        Lst.SubItems.Add(Meterbulanlalu.Text)

        Lst.SubItems.Add(Jumlah.Text)

        Lst.SubItems.Add(Tagihan.Text)

        Lst.SubItems.Add(Pajak.Text)

        Lst.SubItems.Add(Total.Text)

        Lst.SubItems.Add(Pembayaran.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()

        Pelanggan.Items.Add("MEDAN")

        Pelanggan.Items.Add("BELAWAN")

        Pelanggan.Items.Add("AKSARA")

        Pelanggan.Items.Add("MRENDAL")

        Pelanggan.Items.Add("BINJAI")

        Pelanggan.Items.Add("LUBUK PAKAM")

        Tipepel.Items.Add("TOKO")

        Tipepel.Items.Add("RUMAH")

        Tipepel.Items.Add("SWALAYAN")

        Tipepel.Items.Add("PABRIK")

    End Sub

    Private Sub PAB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipepel.SelectedIndexChanged

        Select Case Tipepel.Text

            Case "TOKO" : Biaya.Text = 150000

            Case "RUMAH" : Biaya.Text = 50000

            Case "SWALAYAN" : Biaya.Text = 400000

            Case "PABRIK" : Biaya.Text = 1000000

        End Select

        Select Case Tipepel.Text

            Case "TOKO" : Harga.Text = 500

            Case "RUMAH" : Harga.Text = 200

            Case "SWALAYAN" : Harga.Text = 1500

            Case "PABRIK" : Harga.Text = 10000

        End Select

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Total.Text = Val(Biaya.Text) + Val(Harga.Text) * Val(Jumlah.Text)

    End Sub

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

        IsiTabel()

    End Sub

    Private Sub BtnHapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapussemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub BtnHapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusdata.Click

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Me.Close()

    End Sub

    Private Sub Jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah.TextChanged

        Jumlah.Text = Meterbulanini.Text - Meterbulanlalu.Text

    End Sub

    Private Sub Pembayaran_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pembayaran.TextChanged

        Public Class btn_besar_pakai

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

        BuatTabel()

        daerah.Items.Add("MED")

        daerah.Items.Add("BEL")

        daerah.Items.Add("TEM")

        daerah.Items.Add("PAK")

        daerah.Items.Add("MAR")

        daerah.Items.Add("BIN")

        Tipe_pelanggan.Items.Add("TOK")

        Tipe_pelanggan.Items.Add("RUM")

        Tipe_pelanggan.Items.Add("SWA")

        Tipe_pelanggan.Items.Add("PAB")

    End Sub

    Sub BuatTabel()

        LV.Columns.Add("ID PELANGGAN", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Center)

        lv.Columns.Add("TIPE PELANGGAN", 80, HorizontalAlignment.Center)

        lv.Columns.Add("BIAYA BEBAN", 180, HorizontalAlignment.Left)

        lv.Columns.Add("HARGA PER KWH", 180, HorizontalAlignment.Left)

        lv.Columns.Add("METER BULAN INI", 180, HorizontalAlignment.Left)

        lv.Columns.Add("METER BULAN LALU", 180, HorizontalAlignment.Left)

        lv.Columns.Add("BESAR PEMAKAIAN", 180, HorizontalAlignment.Left)

        lv.Columns.Add("BESAR TAGIHAN", 180, HorizontalAlignment.Left)

        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        lv.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = id_pelanggan.Text

        lst.SubItems.Add(NAMA.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        IsiTabel()

        id_pelanggan.Text = " "

        nama.Text = " "

    End Sub

    Private Sub daerah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daerah.SelectedIndexChanged

    End Sub

    Private Sub Tipe_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tipe_pelanggan.SelectedIndexChanged

        If Tipe_pelanggan.Text = "TOK" Then

            biaya_beban.Text = 150000

            harga_kwh.Text = 500

        ElseIf Tipe_pelanggan.Text = "RUM" Then

            biaya_beban.Text = 50000

            harga_kwh.Text = 200

        ElseIf Tipe_pelanggan.Text = "SWA" Then

            biaya_beban.Text = 400000

            harga_kwh.Text = 1500

        ElseIf Tipe_pelanggan.Text = "PAB" Then

            biaya_beban.Text = 1000000

            harga_kwh.Text = 10000

        End If

    End Sub

    Private Sub tagihan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tagihan.TextChanged

        Tagihan.Text = Biaya.Text + Harga.Text * Jumlah.Text

    End Sub

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

        Jumlah.Text = Meterbulanini.Text - Meterbulanini.Text

    End Sub

    Private Sub btn_tagihan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tagihan.Click

        Tagihan.Text = Biaya.Text + Harga.Text * Jumlah.Text

    End Sub

    Private Sub btn_pajak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pajak.Click

        Pajak.Text = 0.015 * Tagihan.Text

    End Sub

    Private Sub Bayar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pembayaran.Click

        Pembayaran.Text = Tagihan.Text + Pajak.Text

    End Sub

End Class

Hasil Program

Demikian Postingan saya
Nama : Tita arianti
NPM  : 1111059

 

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

http://mesran.net/quiz.html

Penggajian pegawai PT.Telkom

Public Class Form1

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

        Gol.Items.Add("IIIA")

        Gol.Items.Add("IIIB")

        Gol.Items.Add("IIIC")

    End Sub

    Private Sub Gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Gol.SelectedIndexChanged

        Select Case Gol.Text

            Case "IIIA" : Gaji.Text = 1500000

            Case "IIIB" : Gaji.Text = 2500000

            Case "IIIC" : Gaji.Text = 3500000

        End Select

        Pajak.Text = 0.15 * Gaji.Text

    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Gajiber.Text = Val(Gaji.Text) - Val(Pinjaman.Text) - Val(Gajiber.Text)

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Me.Close()

    End Sub

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

    End Sub

End Class

 Hasil Programnya

Demikian postingan saya
Nama : Tita arianti
NPM :  1111059