Kasus Pemrograman Pemakaian Listrik http://mesran.blogspot.com/2013/05/kasus-pemrograman-pemakaian-listrik.html
Berikut Jawaban Program :
Public Class Form1
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodePelanggan.TextChanged
Dim X As String
X = Microsoft.VisualBasic.Left(KodePelanggan.Text, 3)
Select Case X
Case "TOK" : TipePelanggan.Text = "Toko"
Case "RUM" : TipePelanggan.Text = "Rumah"
Case "SWA" : TipePelanggan.Text = "Swalayan"
Case "PAB" : TipePelanggan.Text = "Pabrik"
End Select
X = Microsoft.VisualBasic.Left(KodePelanggan.Text, 1)
Select Case X
Case "T" : BiayaBeban.Text = 150000
Case "R" : BiayaBeban.Text = 50000
Case "S" : BiayaBeban.Text = 400000
Case "P" : BiayaBeban.Text = 1000000
End Select
X = Microsoft.VisualBasic.Left(KodePelanggan.Text, 2)
Select Case X
Case "TO" : HargaPerKwh.Text = "500"
Case "RU" : HargaPerKwh.Text = "200"
Case "SW" : HargaPerKwh.Text = "1500"
Case "PA" : HargaPerKwh.Text = "10000"
End Select
X = Microsoft.VisualBasic.Right(KodePelanggan.Text, 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 = "Lubuk Pakam"
End Select
End Sub
Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
JumlahPemakaian.Text = JmlPmkaianBlnIni.Text - JmlPmkaianBlnLalu.Text
Pajak.Text = JumlahPemakaian.Text * HargaPerKwh.Text * 0.015
TotalTagihan = HargaPerKwh.Text * JumlahPemakaian.Text + BiayaBeban.Text + Pajak.Text
End Sub
End Class
Demikilahlah postingan saya Nama : Khairun Nizar Nasution NPM : 1111233
Selamat Pemrograman VB NET http://mesran.net/
Demikilahlah postingan saya Nama : Khairun Nizar Nasution NPM : 1111233
Selamat Pemrograman VB NET http://mesran.net/
Tidak ada komentar:
Posting Komentar