pembayaran PDAM dengan vb

  

PDAM DENGAN VB

Sebelum kita membuat program, anda harus mengenal dulu apa itu Vb.Net. Vb.Net merupakan aplikasi untuk membuat sebuah program, misal untuk membuat Progam Perusaan, Perkantoran, Sekolah, maupun Kepemerintahan. Jadi kali in saya kan berbagi sedikit yang saya ketahui tentang Vb.Net .

Berikut ini adalah tampilan Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net :

Listing Program :

1. Public Class QuiZ_PdAM
2.     Dim x As Byte
3.  
4.     Sub buattable()
5.         LV.Columns.Add("No", 40, HorizontalAlignment.Left)
6.         LV.Columns.Add("Kode", 90, HorizontalAlignment.Left)
7.         LV.Columns.Add("Tipe", 100, HorizontalAlignment.Left)
8.         LV.Columns.Add("Harga", 100, HorizontalAlignment.Left)
9.         LV.Columns.Add("Jml Pemakaian", 100, HorizontalAlignment.Left)
10.         LV.Columns.Add("Daerah", 100, HorizontalAlignment.Left)
11.         LV.Columns.Add("Biaya Beban", 180, HorizontalAlignment.Left)
12.         LV.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
13.         LV.Columns.Add("Pembayaran", 100, HorizontalAlignment.Left)
14.         LV.Columns.Add("Total Tagihan", 100, HorizontalAlignment.Left)
15.         LV.View = View.Details
16.         LV.GridLines = True
17.         LV.FullRowSelect = True
18.     End Sub
19.     Sub isitable()
20.         Dim lst As New ListViewItem
21.         lst.Text = x
22.         lst.SubItems.Add(kd_pelanggan.Text)
23.         lst.SubItems.Add(tipe.Text)
24.         lst.SubItems.Add(harga.Text)
25.         lst.SubItems.Add(jml_pemakaian.Text)
26.         lst.SubItems.Add(daerah.Text)
27.         lst.SubItems.Add(biaya_beban.Text)
28.         lst.SubItems.Add(pajak.Text)
29.         lst.SubItems.Add(pembayaran.Text)
30.         lst.SubItems.Add(total_tagihan.Text)
31.         LV.Items.Add(lst)
32.  
33.         x = 1 + x
34.     End Sub
35.     Private Sub Tagihan_PDAM_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
36.         buattable()
37.         x = 1
38.         kd_pelanggan.Items.Add("PAB-MED-100")
39.         kd_pelanggan.Items.Add("RUM-MED-101")
40.         kd_pelanggan.Items.Add("TOK-BEL-102")
41.         kd_pelanggan.Items.Add("SWA-MED-103")
42.     End Sub
43.  
44.     Private Sub kd_pelanggan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles kd_pelanggan.SelectedIndexChanged
45.         Dim x As String
46.         x = Microsoft.VisualBasic.Right(kd_pelanggan.Text, 3)
47.         Select Case x
48.             Case "100" : nama.Text = "UCOK"
49.             Case "101" : nama.Text = "JHAN F"
50.             Case "102" : nama.Text = "ERIN"
51.             Case "103" : nama.Text = "ERIN"
52.         End Select
53.         x = Microsoft.VisualBasic.Left(kd_pelanggan.Text, 3)
54.         Select Case x
55.             Case "TOK"
56.                 harga.Text = 250
57.                 biaya_beban.Text = 15000
58.                 tipe.Text = "TOKO"
59.             Case "RUM"
60.                 harga.Text = 150
61.                 biaya_beban.Text = 10000
62.                 tipe.Text = "RUMAN"
63.             Case "PAB"
64.                 harga.Text = 25000
65.                 biaya_beban.Text = 25000
66.                 tipe.Text = "PABRIK"
67.             Case "SWA"
68.                 harga.Text = 20000
69.                 biaya_beban.Text = 60000
70.                 tipe.Text = "SWALAYAN"
71.         End Select
72.         x = Microsoft.VisualBasic.Mid(kd_pelanggan.Text, 5, 3)
73.         Select Case x
74.             Case "MED" : daerah.Text = "Medan"
75.             Case "BEL" : daerah.Text = "Belawan"
76.             Case Else : daerah.Text = "-"
77.         End Select
78.     End Sub
79.  
80.     Private Sub jml_pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles jml_pemakaian.KeyPress
81.         If jml_pemakaian.Text = "" Then
82.             jml_pemakaian.Focus()
83.         ElseIf Asc(e.KeyChar) = 13 Then
84.             total_tagihan.Text = Val(biaya_beban.Text) + (harga.Text * jml_pemakaian.Text)
85.             pajak.Text = 0.01 * total_tagihan.Text
86.             pembayaran.Text = Val(total_tagihan.Text) + Val(pajak.Text)
87.         End If
88.     End Sub
89.  
90.     Private Sub btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_hapus.Click
91.         kd_pelanggan.Text = ""
92.         nama.Text = ""
93.         tipe.Text = ""
94.         harga.Text = ""
95.         jml_pemakaian.Text = ""
96.         total_tagihan.Text = ""
97.         pembayaran.Text = ""
98.         daerah.Text = ""
99.         biaya_beban.Text = ""
100.         pajak.Text = ""
101.     End Sub
102.  
103.     Private Sub btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handlesbtn_keluar.Click
104.         Dim k As String
105.         k = MsgBox("Apakah Anda yakin Ingin Keluar", MsgBoxStyle.YesNo)
106.         If k = vbYes Then
107.             Me.Close()
108.         End If
109.     End Sub
110.  
111.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
112.         isitable()
113.     End Sub
114. End Class

Demikianlah isi dari Artikel saya yang berjudul Program  Aplikasi Tagihan Air Minum Menggunkan Listview pada Vb.Net  ,, Semoga bermanfaat bagi anda Semua...