Home » » pemakaian if else dalam penyelesaian

pemakaian if else dalam penyelesaian

Posted by Unknown Posted on 02.19 with No comments
Desain Form Seperti Dibawah


  1. Listing Program
  2. Public Class Form1
  3.  
  4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5.         hapus()
  6.     End Sub
  7.  
  8.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  9.         kode.Items.Add("RAA-001-002")
  10.         kode.Items.Add("RBB-003-004")
  11.         kode.Items.Add("RCC-005-006")
  12.         kode.Items.Add("RDD-007-008")
  13.         tabel()
  14.         nama.Enabled = False
  15.         tipe.Enabled = False
  16.         hargam3.Enabled = False
  17.         biayab.Enabled = False
  18.         totalt.Enabled = False
  19.         pajak.Enabled = False
  20.         pembayaran.Enabled = False
  21.         daerah.Enabled = False
  22.  
  23.     End Sub
  24.  
  25.     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handleskode.SelectedIndexChanged
  26.         Dim xx As String
  27.         xx = Microsoft.VisualBasic.Left(kode.Text, 3)
  28.         If xx = "RAA" Then
  29.             nama.Text = "reza ariansyah"
  30.         ElseIf xx = "RBB" Then
  31.             nama.Text = "Jailamm igaph"
  32.         ElseIf xx = "RCC" Then
  33.             nama.Text = "chanif arvani"
  34.         Else
  35.             nama.Text = "Lya syahfitri"
  36.         End If
  37.  
  38.         xx = Microsoft.VisualBasic.Right(kode.Text, 3)
  39.         Select Case xx
  40.             Case "002"
  41.                 tipe.Text = "PABRICK"
  42.                 hargam3.Text = 250
  43.                 biayab.Text = 26000
  44.             Case "004"
  45.                 tipe.Text = "TOKO"
  46.                 hargam3.Text = 260
  47.                 biayab.Text = 29000
  48.             Case "006"
  49.                 tipe.Text = "RUMAH"
  50.                 hargam3.Text = 290
  51.                 biayab.Text = 200000
  52.             Case "008"
  53.                 tipe.Text = "SWALAYAN"
  54.                 hargam3.Text = 220
  55.                 biayab.Text = 2000000
  56.         End Select
  57.         xx = Microsoft.VisualBasic.Mid(kode.Text, 5, 3)
  58.         Select Case xx
  59.             Case "001" : daerah.Text = "Medan"
  60.             Case "003" : daerah.Text = "Belawan"
  61.             Case "005" : daerah.Text = "Jakarta"
  62.             Case "007" : daerah.Text = "Jerman"
  63.             Case Else : daerah.Text = "_"
  64.         End Select
  65.  
  66.  
  67.  
  68.     End Sub
  69.  
  70.     Private Sub TextBox8_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)Handles jumlahp.KeyPress
  71.         If e.KeyChar = Chr(13) Then
  72.             totalt.Text = Val(biayab.Text) + Val(hargam3.Text * jumlahp.Text)
  73.             pajak.Text = 0.01 * totalt.Text
  74.             pembayaran.Text = Val(totalt.Text) + Val(pajak.Text)
  75.         End If
  76.     End Sub
  77.     Sub tabel()
  78.         lv.Columns.Add("KODE PELANGGAN", 80, HorizontalAlignment.Left)
  79.         lv.Columns.Add("NAMA", 80, HorizontalAlignment.Left)
  80.         lv.Columns.Add("TIPE", 80, HorizontalAlignment.Left)
  81.         lv.Columns.Add("HARGA M3", 80, HorizontalAlignment.Left)
  82.         lv.Columns.Add("BIAYA BEBAN", 100, HorizontalAlignment.Left)
  83.         lv.Columns.Add("PEMKAIAN AIR", 100, HorizontalAlignment.Left)
  84.         lv.Columns.Add("TOTAL TAGIHAN", 100, HorizontalAlignment.Left)
  85.         lv.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
  86.         lv.Columns.Add("PEMBAYARAN", 100, HorizontalAlignment.Left)
  87.         lv.Columns.Add("DAERAH", 80, HorizontalAlignment.Left)
  88.         lv.View = View.Details
  89.         lv.GridLines = True
  90.         lv.FullRowSelect = True
  91.     End Sub
  92.     Sub isitabel()
  93.         Dim lst As New ListViewItem
  94.         lst.Text = kode.Text
  95.         lst.SubItems.Add(nama.Text)
  96.         lst.SubItems.Add(tipe.Text)
  97.         lst.SubItems.Add(hargam3.Text)
  98.         lst.SubItems.Add(biayab.Text)
  99.         lst.SubItems.Add(jumlahp.Text)
  100.         lst.SubItems.Add(totalt.Text)
  101.         lst.SubItems.Add(pajak.Text)
  102.         lst.SubItems.Add(pembayaran.Text)
  103.         lst.SubItems.Add(daerah.Text)
  104.         lv.Items.Add(lst)
  105.     End Sub
  106.     Sub hapus()
  107.         kode.Text = ""
  108.         nama.Text = ""
  109.         tipe.Text = ""
  110.         hargam3.Text = ""
  111.         biayab.Text = ""
  112.         biayab.Text = ""
  113.         totalt.Text = ""
  114.         pajak.Text = ""
  115.         pembayaran.Text = ""
  116.         jumlahp.Text = ""
  117.         daerah.Text = ""
  118.     End Sub
  119.  
  120.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  121.         isitabel()
  122.         hapus()
  123.     End Sub
  124.  
  125.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  126.         lv.Items.Remove(lv.Items(0))
  127.     End Sub
  128.  
  129.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  130.         lv.Items.Remove(lv.Items(0))
  131.     End Sub
  132. End Class


Labels:

0 comments:

Posting Komentar