Minggu, 17 Januari 2016

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.ObjectByVal 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.ObjectByVal e As System.EventArgs)Handles kd_pelanggan.SelectedIndexChanged
  45.         Dim x As String
  46.         x = Microsoft.VisualBasic.Right(kd_pelanggan.Text3)
  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.Text3)
  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.Text53)
  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 ObjectByVal 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.ObjectByVal 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.ObjectByVal 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.ObjectByVal 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...

Tidak ada komentar:

Posting Komentar