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

http://www.mesran.blogspot.com/2013/05/kasus-pemrograman-pemakaian-listrik.html

Public Class Form1

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

KP.Items.Add("PAB-PAK-100")

KP.Items.Add("PAB-MED-100")

KP.Items.Add("RUM-BEL-101")

KP.Items.Add("SWA-MED-100")

KP.Items.Add("TOK-MED-100")

KP.Items.Add("PAB-PAK-100")

KP.Items.Add("PAB-MAR-100")

KP.Items.Add("RUM-BEL-100")

KP.Items.Add("SWA-BIN-100")

KP.Items.Add("TOK-MED-100")

End Sub

Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged

Dim x As String

x = Mid(KP.Text, 1, 3)

Select Case x

Case "TOK"

Tipe.Text = "TOKO"

Biaya.Text = 150000

Harga.Text = 500

Case "RUM"

Tipe.Text = "RUMAH"

Biaya.Text = 50000

Harga.Text = 200

Case "SWA"

Tipe.Text = "SWALAYAN"

Biaya.Text = 400000

Harga.Text = 1500

Case "PAB"

Tipe.Text = "PABRIK"

Biaya.Text = 1000000

Harga.Text = 10000

End Select

x = Mid(KP.Text, 5, 3)

Select Case x

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 "PAK" : Daerah.Text = "LUBUKPAKAM"

End Select

End Sub

Private Sub TProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TProses.Click

TH.Text = Val(Biaya.Text) + (Harga.Text * Pemakaian.Text)

Pajak.Text = 0.015 * TH.Text

Bayar.Text = Val(TH.Text) + Val(Pajak.Text)

End Sub

Private Sub THapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles THapus.Click

KP.Text = ""

Tipe.Text = ""

Biaya.Text = ""

Harga.Text = ""

Pemakaian.Text = ""

TH.Text = ""

Pajak.Text = ""

Bayar.Text = ""

End Sub

Private Sub TKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TKeluar.Click

Dim x As String

x = MsgBox("Tekan OK Jika Ingin Keluar", MsgBoxStyle.OkCancel, "Pesan")

If x = vbOK Then

Me.Close()

End If

End Sub

End Class

Demikian Postingan Saya

Nama : Putra Heri

NPM : 13110732