Diberdayakan oleh Blogger.

Mengenai Saya

Foto saya
My name is Jesi Puspika Sari

Rabu, 05 Juni 2013

Tugas Online Program Pemakaian Listrik





Listing Program

Public Class Form1
    Sub buattabel()
        Lv.Columns.Add("Pelanggan", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("daerah", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("tipe", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("Biaya", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("KWH", 100, HorizontalAlignment.Left)
        Lv.Columns.Add("JP", 100, HorizontalAlignment.Center)
        Lv.Columns.Add("total", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("pajak", 80, 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(daerah.Text)
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(Biaya.Text)
        lst.SubItems.Add(KWH.Text)
        lst.SubItems.Add(Jp.Text)
        lst.SubItems.Add(Total.Text)
        lst.SubItems.Add(pajak.Text)
        lv.Items.Add(lst)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Pelanggan.Items.Add("Med")
        Pelanggan.Items.Add("Bel")
        Pelanggan.Items.Add("Tem")
        Pelanggan.Items.Add("Mar")
        Pelanggan.Items.Add("Bin")
        Pelanggan.Items.Add("Pak")

        tipe.Items.Add("Toko")
        tipe.Items.Add("Rumah")
        tipe.Items.Add("Swalayan")
        tipe.Items.Add("Pabrik")

        For i = 1 To 100
            Jp.Items.Add(i)
        Next i
        Call buattabel()
    End Sub

    Private Sub Pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pelanggan.SelectedIndexChanged
        Select Case Pelanggan.Text
            Case "Med" : daerah.Text = "Medan"
            Case "Bel" : daerah.Text = "Belawan"
            Case "Tem" : daerah.Text = "Aksara"
            Case "Mar" : daerah.Text = "Marelan"
            Case "Bin" : daerah.Text = "Binjai"
            Case "Pak" : daerah.Text = "L.Pakam"

        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 = "150000"
            Case "Rumah" : Biaya.Text = "50000"
            Case "Swalayan" : Biaya.Text = "400000"
            Case "Pabrik" : Biaya.Text = "1000000"
        End Select
        Select Case tipe.Text
            Case "Toko" : KWH.Text = "500"
            Case "Rumah" : KWH.Text = "200"
            Case "Swalayan" : KWH.Text = "1500"
            Case "Pabrik" : KWH.Text = "10000"
        End Select
        pajak.Text = 0.015 * Biaya.Text
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        If tipe.Text = "Toko" Then
            total.Text = 500
        ElseIf tipe.Text = "Rumah" Then
            total.Text = 200
        ElseIf tipe.Text = "Swalayan" Then
            total.Text = 1500
        ElseIf tipe.Text = "Pabrik" Then
            total.Text = 10000
        Else
            total.Text = 0
        End If
        total.Text = Val(total.Text * Jp.Text) + Val(Biaya.Text) + Val(KWH.Text) - Val(pajak.Text)
    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        Pelanggan.Text = ""
        daerah.Text = ""
        tipe.Text = ""
        Biaya.Text = ""
        KWH.Text = ""
        Jp.Text = ""
        total.Text = ""
        pajak.Text = ""
    End Sub
End Class

Tidak ada komentar:

Posting Komentar