Senin, 15 Desember 2014

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

Selesaikanlah Kasus Berikut :
Kasus Pemrograman Pemakaian Listrik
Berikut jawaban program :

Public Class formListrik

    Dim pj, jp, tt, tb, bb, hrg, krg, tkrg As Double
    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress
        Dim t, d, nu As String
        t = Microsoft.VisualBasic.Left(kode.Text, 3)
        d = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
        nu = Microsoft.VisualBasic.Right(kode.Text, 3)
        If Asc(e.KeyChar) = 13 Then
            If t = "TOK" Then
                tipe.Text = "TOKO"
                bb = 150000
                hrg = 500
            ElseIf t = "RUM" Then
                tipe.Text = "RUMAH"
                bb = 50000
                hrg = 200
            ElseIf t = "SWA" Then
                tipe.Text = "SWALAYAN"
                bb = 400000
                hrg = 1500
            ElseIf t = "PAB" Then
                tipe.Text = "PABRIK"
                bb = 1000000
                hrg = 10000
            End If
            If d = "MED" Then
                daerah.Text = "MEDAN"
            ElseIf d = "BEL" Then
                daerah.Text = "BELAWAN"
            ElseIf d = "TEM" Then
                daerah.Text = "AKSARA"
            ElseIf d = "MAR" Then
                daerah.Text = "MARENDAL"
            ElseIf d = "BIN" Then
                daerah.Text = "BINJAI"
            ElseIf d = "PAK" Then
                daerah.Text = "LUBUK PAKAM"
            End If
            nourut.Text = nu
        End If
    End Sub

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        krg = sakhir.Text - sawal.Text
        tkrg = hrg * krg
        totaltagihan.Text = Val(bb) + Val(tkrg)
        pajak.Text = totaltagihan.Text * 0.015
        totalbayar.Text = Val(totaltagihan.Text) + Val(pajak.Text)
    End Sub

    Private Sub formListrik_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tampilLV.Columns.Add("Kode", 30)
        tampilLV.Columns.Add("Tipe", 30)
        tampilLV.Columns.Add("Daerah", 30)
        tampilLV.Columns.Add("No Urut", 30)
        tampilLV.Columns.Add("Stand Bulan   Pemakaian", 120, HorizontalAlignment.Right)
        tampilLV.Columns.Add("Stand Bulan   Pemakaian", 120, HorizontalAlignment.Right)
        tampilLV.Columns.Add("Total Tagihan", 60, HorizontalAlignment.Right)
        tampilLV.Columns.Add("Pajak", 60, HorizontalAlignment.Right)
        tampilLV.Columns.Add("Total Bayar", 60, HorizontalAlignment.Right)
        tampilLV.View = View.Details
        tampilLV.GridLines = True
        tampilLV.FullRowSelect = True
    End Sub

    Private Sub btnInput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click
        Dim dt As New ListViewItem
        dt.Text = kode.Text
        dt.SubItems.Add(tipe.Text)
        dt.SubItems.Add(daerah.Text)
        dt.SubItems.Add(nourut.Text)
        dt.SubItems.Add(bawal.Text & "   " & sawal.Text)
        dt.SubItems.Add(bakhir.Text & "   " & sakhir.Text)
        dt.SubItems.Add(totaltagihan.Text)
        dt.SubItems.Add(pajak.Text)
        dt.SubItems.Add(totalbayar.Text)
        tampilLV.Items.Add(dt)
    End Sub

    Private Sub bthHps1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthHps1.Click
        tampilLV.Items.Remove(tampilLV.SelectedItems(0))
    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click
        tampilLV.Items.Clear()
    End Sub

    Sub clearFrm(ByVal frm As System.Windows.Forms.Form)
        For Each x As Control In frm.Controls
            If TypeOf x Is TextBox Then x.Text = ""
        Next
    End Sub

    Private Sub clearForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles clearForm.Click
        clearFrm(Me)
    End Sub

End Class

Tampilan Hasil :

Demikilahlah postingan saya  Nama : (SUCI HILDAYANI)  NPM : (13110950)
Selamat Belajar Pemrograman VB NET

Tidak ada komentar:

Posting Komentar