December 2014 | Catatan Si Ozi

Home » Archives for December 2014

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

Posted by Catatan Si Ozi on Sunday, December 7, 2014 Label: turtorial - turtorial

Kasus Pemrograman Pemakaian Listrik

Program Penyelesaian Pembayaran Pemakaian Listrik Menggunakan Visual Basic dot Net

Public Class Form1

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

With Kp

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

.Items.Add("TOK-BEL-101")

.Items.Add("TOK-TEM-102")

.Items.Add("TOK-MAR-103")

.Items.Add("TOK-BIN-104")

.Items.Add("TOK-PAK-105")

.Items.Add("RUM-MED-200")

.Items.Add("RUM-BEL-201")

.Items.Add("RUM-TEM-202")

.Items.Add("RUM-MAR-203")

.Items.Add("RUM-BIN-204")

.Items.Add("RUM-PAK-205")

.Items.Add("SWA-MED-300")

.Items.Add("SWA-BEL-301")

.Items.Add("SWA-TEM-302")

.Items.Add("SWA-MAR-303")

.Items.Add("SWA-BIN-304")

.Items.Add("SWA-PAK-305")

.Items.Add("PAB-MED-400")

.Items.Add("PAB-BEL-401")

.Items.Add("PAB-TEM-402")

.Items.Add("PAB-MAR-403")

.Items.Add("PAB-BIN-404")

.Items.Add("PAB-PAK-405")

End With

Call buattabel()

End Sub

Private Sub Kp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kp.SelectedIndexChanged

Pemakain_listrik.Focus()

Dim x As String

x = Microsoft.VisualBasic.Left(Kp.Text, 3)

If x = "TOK" Then

Harga_KWH.Text = 500

Biaya_Beban.Text = 150000

Tipe.Text = "Toko"

ElseIf x = "RUM" Then

Harga_KWH.Text = 200

Biaya_Beban.Text = 50000

Tipe.Text = "Rumah"

ElseIf x = "SWA" Then

Harga_KWH.Text = 1500

Biaya_Beban.Text = 400000

Tipe.Text = "Swalayan"

ElseIf x = "PAB" Then

Harga_KWH.Text = 10000

Biaya_Beban.Text = 1000000

Tipe.Text = "Pabrik"

End If

x = Microsoft.VisualBasic.Mid(Kp.Text, 5, 3)

If x = "MED" Then

Daerah.Text = "Medan"

ElseIf x = "BEL" Then

Daerah.Text = "Belawan"

ElseIf x = "TEM" Then

Daerah.Text = "Aksara"

ElseIf x = "MAR" Then

Daerah.Text = "Marendal"

ElseIf x = "BIN" Then

Daerah.Text = "Binjai"

ElseIf x = "PAK" Then

Daerah.Text = "Lubuk Pakam"

End If

End Sub

Private Sub Pemakain_listrik_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakain_listrik.KeyPress

If Asc(e.KeyChar) = 13 Then

Total_tagihan.Text = Val(Biaya_Beban.Text) + Val(Harga_KWH.Text) * Pemakain_listrik.Text

Pajak.Text = 0.015 * Total_tagihan.Text

Pembayaran.Text = Val(Total_tagihan.Text) + Val(Pajak.Text)

End If

End Sub

Sub buattabel()

lv.Columns.Add("Kode", 100, HorizontalAlignment.Left)

lv.Columns.Add("Tipe", 100, HorizontalAlignment.Left)

lv.Columns.Add("Daerah", 100, HorizontalAlignment.Left)

lv.Columns.Add("Biaya Beban", 100, HorizontalAlignment.Center)

lv.Columns.Add("Harga KWH", 100, HorizontalAlignment.Center)

lv.Columns.Add("Pemakaian", 100, HorizontalAlignment.Center)

lv.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Center)

lv.Columns.Add("Pajak", 100, HorizontalAlignment.Center)

lv.Columns.Add("Pembayaran", 100, HorizontalAlignment.Center)

Lv.View = View.Details

Lv.GridLines = True

Lv.FullRowSelect = True

End Sub

Sub isitabel()

Dim lst As New ListViewItem

lst.Text = Kp.Text

lst.SubItems.Add(Tipe.Text)

lst.SubItems.Add(Daerah.Text)

lst.SubItems.Add(Biaya_Beban.Text)

lst.SubItems.Add(Harga_KWH.Text)

lst.SubItems.Add(Pemakain_listrik.Text)

lst.SubItems.Add(Total_tagihan.Text)

lst.SubItems.Add(Pajak.Text)

lst.SubItems.Add(Pembayaran.Text)

lv.Items.Add(lst)

Kp.Text = ""

Tipe.Text = ""

Daerah.Text = ""

Biaya_Beban.Text = ""

Harga_KWH.Text = ""

Pemakain_listrik.Text = ""

Total_tagihan.Text = ""

Pajak.Text = ""

Pembayaran.Text = ""

End Sub

Private Sub Isi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Isi.Click

Call isitabel()

End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

Kp.Text = ""

Tipe.Text = ""

Daerah.Text = ""

Biaya_Beban.Text = ""

Harga_KWH.Text = ""

Pemakain_listrik.Text = ""

Total_tagihan.Text = ""

Pajak.Text = ""

Pembayaran.Text = ""

End Sub

Private Sub hapus_data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_data.Click

lv.Items.Clear()

End Sub

Private Sub hapus_list_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_list.Click

If lv.SelectedItems.Count = 0 Then

MsgBox("Pilih Item Terlebih Dahulu")

Else

lv.Items.Remove(lv.SelectedItems(0))

End If

End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

Dim x As String

x = MsgBox("Anda Yakin Ingin Menutup Program Ini!!!", MsgBoxStyle.YesNo, "Pesan!")

If x = vbYes Then

Me.Close()

End If

End Sub

End Class

Demikian lah Program Penyelesaian Pembayaran Pemakaian Listrik

Demikian Lah Postingan Saya

Nama : Apri Rozi Yanto

NPM : 13110511

Selamat Belajar Pemrograman VB NET

Belajar Bahasa Pemrograman Di Mesran.Blogspot.Com

Posted by Catatan Si Ozi on Wednesday, December 3, 2014 Label: turtorial - turtorial

Selamat Siang Sobat Bloger…. kali ini saya akan Memposting tentang belajar bahasa pemrograman. Nah disini saya akan memberikan info pada para sobat di mana kita bisa belajar bahasa pemrograman melaui situs Mesran.Blogspot.Com

Mesran.Blogspot.Com merupakan situs web yang mengulas tentang bahasa pemrograman . terdiri beberapa artikel diantaranya artikel mengenai tips tips belajar bahasa pemrograman serta beberapa bahasa pemrograman salah satunya Visual Basic dot Net , PHP, C/C++, Java , Pascal dan masih banyak lain nya. Ayo Bagi yang mau jago bahasa pemrograman belajar lah dari situs yang satu ini :D

----------------------------------------------

http://mesran.blogspot.com

----------------------------------------------

SEMOGA BERMANFAAT..

TERIMA KASIH