Pemograman Pemakaian Listrik

PEMOGRAMAN  PEMAKAIAN LISTRIK

Quiz Online
Berikut Ini Adalah Design nya :

Berikut Ini Adalah Cara Penyelesaiannya :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Program Pemakaian listrik"
        Call buattabel()
        Me.BackColor = Color.HotPink
        kpelanggan.Items.Add("PAB-PAK-100")
        kpelanggan.Items.Add("TOK-MED-101")
        kpelanggan.Items.Add("RUM-BEL-102")
        kpelanggan.Items.Add("SWA-TEM-103")
        kpelanggan.Items.Add("PAB-MAR-104")
        kpelanggan.Items.Add("TOK-BIN-105")
    End Sub

    Private Sub kpelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kpelanggan.SelectedIndexChanged
        Dim A As String
        A = Strings.Left(kpelanggan.Text, 3)
        Select Case A
            Case "PAB"
                tipe.Text = "Pabrik"
            Case "TOK"
                tipe.Text = "Toko"
            Case "RUM"
                tipe.Text = "Rumah"
            Case "SWA"
                tipe.Text = "Swalayan"
        End Select
        A = Strings.Mid(kpelanggan.Text, 5, 3)
        Select Case A
            Case "PAK"
                daerah.Text = "Lubuk Pakam"
            Case "MED"
                daerah.Text = "Medan"
            Case "BEL"
                daerah.Text = "Belawan"
            Case "TEM"
                daerah.Text = "Aksara"
            Case "MAR"
                daerah.Text = "Marendal"
            Case "BIN"
                daerah.Text = "Binjai"
            Case Else
                daerah.Text = "_"
        End Select
        A = Strings.Right(kpelanggan.Text, 3)
        Select Case A
            Case "100"
                nurut.Text = 100
                Nama.Text = "Saibatul Aslamiah Saragi"
                mbulanlalu.Text = 500000
            Case "101"
                nurut.Text = 101
                Nama.Text = "widia asnita"
                mbulanlalu.Text = 60000

            Case "102"
                nurut.Text = 102
                Nama.Text = "lia Waroka"
                mbulanlalu.Text = 400000

            Case "103"
                nurut.Text = 103
                Nama.Text = "Vermina Mrbun"
                mbulanlalu.Text = 70000

            Case "104"
                nurut.Text = 104
                Nama.Text = "desi"
                mbulanlalu.Text = 600000
            Case "105"
                nurut.Text = 105
                Nama.Text = "DEVI"
                mbulanlalu.Text = 50000

        End Select

        If tipe.Text = "Toko" Then
            hargaperkwh.Text = 500
            bbeban.Text = 150000
        ElseIf tipe.Text = "Pabrik" Then
            hargaperkwh.Text = 10000
            bbeban.Text = 1000000
        ElseIf tipe.Text = "Rumah" Then
            hargaperkwh.Text = 200
            bbeban.Text = 50000
        ElseIf tipe.Text = "Swalayan" Then
            hargaperkwh.Text = 1500
            bbeban.Text = 400000
        Else
            hargaperkwh.Text = "_"
            bbeban.Text = "_"
        End If
    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim mia As String
        mia = MsgBox("apakah anda yakin ingin keluar dari form ini", MsgBoxStyle.YesNo)
        If mia = vbYes Then
            Me.Close()
        End If
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        kpelanggan.Text = ""
        nurut.Text = ""
        Nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        hargaperkwh.Text = ""
        bbeban.Text = ""
        mbulanini.Text = ""
        jpemakaian.Text = ""
        bpemakaian.Text = ""
        pajak.Text = ""
        Ttagihan.Text = ""
        pembayaran.Text = ""
    End Sub
    Sub buattabel()
        lv.Columns.Add("Kode Pelanggan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("No Urut", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Nama", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Tipe", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Daerah", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Harga Per KWH", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Biaya Beban", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Meter Bulan Ini", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Meter Bulan Lalu", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Jumlah Pemakaian", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Besar P/selisih", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pajak", 50, HorizontalAlignment.Left)
        lv.Columns.Add("Total Tagihan", 80, HorizontalAlignment.Left)
        lv.Columns.Add("Pembayaran", 50, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitabel()
        Dim mia As New ListViewItem
        mia.Text = kpelanggan.Text
        mia.SubItems.Add(nurut.Text)
        mia.SubItems.Add(Nama.Text)
        mia.SubItems.Add(tipe.Text)
        mia.SubItems.Add(daerah.Text)
        mia.SubItems.Add(hargaperkwh.Text)
        mia.SubItems.Add(bbeban.Text)
        mia.SubItems.Add(mbulanini.Text)
        mia.SubItems.Add(mbulanlalu.Text)
        mia.SubItems.Add(jpemakaian.Text)
        mia.SubItems.Add(bpemakaian.Text)
        mia.SubItems.Add(pajak.Text)
        mia.SubItems.Add(Ttagihan.Text)
        mia.SubItems.Add(pembayaran.Text)
        lv.Items.Add(mia)
    End Sub

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

        kpelanggan.Text = ""
        nurut.Text = ""
        Nama.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        hargaperkwh.Text = ""
        bbeban.Text = ""
        mbulanini.Text = ""
        mbulanlalu.Text = ""
        jpemakaian.Text = ""
        bpemakaian.Text = ""
        pajak.Text = ""
        Ttagihan.Text = ""
        pembayaran.Text = ""
    End Sub

    Private Sub hsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hsemua.Click
        lv.Items.Clear()
    End Sub

    Private Sub hitem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitem.Click
        lv.Items.Remove(lv.SelectedItems(0))
    End Sub

    Private Sub lv_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lv.Click
        kpelanggan.Text = lv.SelectedItems(0).SubItems(0).Text
        nurut.Text = lv.SelectedItems(0).SubItems(1).Text
        Nama.Text = lv.SelectedItems(0).SubItems(2).Text
        tipe.Text = lv.SelectedItems(0).SubItems(3).Text
        daerah.Text = lv.SelectedItems(0).SubItems(4).Text
        hargaperkwh.Text = lv.SelectedItems(0).SubItems(5).Text
        bbeban.Text = lv.SelectedItems(0).SubItems(6).Text
        mbulanini.Text = lv.SelectedItems(0).SubItems(7).Text
        mbulanlalu.Text = lv.SelectedItems(0).SubItems(8).Text
        jpemakaian.Text = lv.SelectedItems(0).SubItems(9).Text
        bpemakaian.Text = lv.SelectedItems(0).SubItems(10).Text
        pajak.Text = lv.SelectedItems(0).SubItems(11).Text
        Ttagihan.Text = lv.SelectedItems(0).SubItems(12).Text
        pembayaran.Text = lv.SelectedItems(0).SubItems(13).Text
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        jpemakaian.Text = Val(mbulanini.Text) - Val(mbulanlalu.Text)
        bpemakaian.Text = Val(mbulanini.Text) - Val(mbulanlalu.Text)
        Ttagihan.Text = (Val(bbeban.Text)) + (Val(hargaperkwh.Text) * Val(bpemakaian.Text))
        pajak.Text = Val(Ttagihan.Text) * 0.015
        pembayaran.Text = Val(Ttagihan.Text) + Val(pajak.Text)
    End Sub
End Class

Dan Berikut Ini Adalah hasil dari penyelesaian diatas :

Demikian lah cara penyelesaian Kasus Pemograman Pemakaian Listrik.

Nama : Saibatul Aslamiah Saragi
Npm  : 13110674

Quiz Online Pemograman VB.NET

Cara Mengembalikan File atau Folder yang Terhapus Permanen

Cara Mengembalikan File atau Folder yang Terhapus Permanen

Pernah gak temen2 secara kagak sengaja menghapus file atau folder penting secara permanen (shift+del)???coba bayangin kalau hal itu terjadi???

Tuiiiing…Tuiiiiinggg…pastiny apa lagi kalau itu file skripsweet kita (personal experience)cxixixi…serasa malaikat izrofil akan meniup sangkakala (kiamat red)… Setelah menjelajahi bit-bit dunia maya yang tanpa batas akhirnya I can solve this problem….caranya bijimana???

WinUtilities Undelete….yups ni jawabannya

WinUtilities Undelete adalah tool recovery data yang dapat membantu kita mencari data yang terhapus secara permanen (shift+del) dan mengembalikannya ke tempat yang kita inginkan. 

Tool ini bisa juga untuk mengembalikan data dari storage eksternal (flashdisk) atau kartu memori kamera digital yang terformat.

Bijimana cara menggunakannya????

Cara menggunakan ini tool cukup mudah (user friendly dah). Setelah instalasi, buka aplikasinya dan klik drive dimana kita akan mencari file yang hilang di sisi sebelah kiri. Setelah tool tersebut melakukan scanning akan muncul semua file yang ada di drive tersebut beserta file-file yang sudah kita delete secara permanen. So..tinggal anda pilih file mana yang akan anda kembalikan dengan cara klik kanan file tersebut dan klik undelete.

jika ingin softwarenya , silahkan anda download .
 terimakaih , semoga bermanfaat ...!!