Ini adalah Cara membuat "Program Aplikasi Listview penjualan Kredit Mobil". artikel ini saya buat untuk memenuhi tugas mataKuliah pemograman visual.
Berikut adalah hasuilnya:
Public Class Form1
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
Me.Close()
End Sub
Private Sub Btn_Hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapusdata.Click
Kode.Text = ""
Nama.Text = ""
Tahun.Text = ""
Kondisi.Text = ""
Jumlah.Text = ""
Harga.Text = ""
Total_Harga.Text = ""
Uang_Muka.Text = ""
Komisi_Sales.Text = ""
Total_Harga.Text = ""
Lama_Kredit.Text = ""
Angsuran_Perbulan.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode.Items.Add("MB01")
Kode.Items.Add("MB02")
Kode.Items.Add("MB03")
Kode.Items.Add("MB04")
Tahun.Items.Add("2012")
Tahun.Items.Add("2013")
Tahun.Items.Add("2014")
Kondisi.Items.Add("Baru")
Kondisi.Items.Add("Bekas")
Lama_Kredit.Items.Add("12")
Lama_Kredit.Items.Add("36")
Lama_Kredit.Items.Add("48")
rancang_table()
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = "MB01" Then
Nama.Text = "fortuner"
ElseIf Kode.Text = "MB02" Then
Nama.Text = "Avanza"
ElseIf Kode.Text = "MB03" Then
Nama.Text = "MITSUBISHI BMW"
ElseIf Kode.Text = "MB04" Then
Nama.Text = "FAJERO SPORT"
End If
End Sub
Private Sub Kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kondisi.SelectedIndexChanged
If Kode.Text = "MB01" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = 200000000
ElseIf Kode.Text = "MB01" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
Harga.Text = 100000000
ElseIf Kode.Text = "MB01" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = 300000000
ElseIf Kode.Text = "MB01" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
Harga.Text = 200000000
ElseIf Kode.Text = "MB01" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = 400000000
ElseIf Kode.Text = "MB01" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
Harga.Text = 300000000
ElseIf Kode.Text = "MB02" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = 150000000
ElseIf Kode.Text = "MB02" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
Harga.Text = 75000000
ElseIf Kode.Text = "MB02" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = 250000000
ElseIf Kode.Text = "MB02" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
Harga.Text = 200000000
ElseIf Kode.Text = "MB02" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = 350000000
ElseIf Kode.Text = "MB02" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
Harga.Text = 250000000
ElseIf Kode.Text = "MB03" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = 200000000
ElseIf Kode.Text = "MB03" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
Harga.Text = 100000000
ElseIf Kode.Text = "MB03" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = 300000000
ElseIf Kode.Text = "MB03" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
Harga.Text = 150000000
ElseIf Kode.Text = "MB03" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = 350000000
ElseIf Kode.Text = "MB03" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
Harga.Text = 250000000
ElseIf Kode.Text = "MB04" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = 1500000000
ElseIf Kode.Text = "MB04" And Tahun.Text = "2012" And Kondisi.Text = "Bekas" Then
Harga.Text = 100000000
ElseIf Kode.Text = "MB04" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = 200000000
ElseIf Kode.Text = "MB04" And Tahun.Text = "2013" And Kondisi.Text = "Bekas" Then
Harga.Text = 150000000
ElseIf Kode.Text = "MB04" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = 300000000
ElseIf Kode.Text = "MB04" And Tahun.Text = "2014" And Kondisi.Text = "Bekas" Then
Harga.Text = 200000000
End If
End Sub
Private Sub Jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah.KeyPress
If Asc(e.KeyChar) = 13 Then
Total_Harga.Text = Jumlah.Text * Harga.Text
End If
End Sub
Private Sub Total_Harga_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Total_Harga.KeyPress
If Asc(e.KeyChar) = 13 Then
Uang_Muka.Text = 0.3 * Total_Harga.Text
End If
End Sub
Private Sub Uang_Muka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Uang_Muka.KeyPress
If Asc(e.KeyChar) = 13 Then
Komisi_Sales.Text = 0.02 * Jumlah.Text * Uang_Muka.Text
End If
End Sub
Private Sub Lama_Kredit_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Lama_Kredit.KeyPress
If Asc(e.KeyChar) = 13 Then
Angsuran_Perbulan.Text = (((Total_Kredit.Text) * (0.03 * (Lama_Kredit.Text)) + Total_Kredit.Text) / Lama_Kredit.Text)
End If
End Sub
Private Sub Komisi_Sales_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Komisi_Sales.KeyPress
If Asc(e.KeyChar) = 13 Then
Total_Kredit.Text = Val(Total_Harga.Text) - Val(Uang_Muka.Text)
End If
End Sub
Sub rancang_table()
lv.Columns.Add("kode", 80, HorizontalAlignment.Center)
lv.Columns.Add("nama", 120, HorizontalAlignment.Center)
lv.Columns.Add("tahun", 120, HorizontalAlignment.Center)
lv.Columns.Add("kondisi", 120, HorizontalAlignment.Center)
lv.Columns.Add("jumlah", 120, HorizontalAlignment.Center)
lv.Columns.Add("total_harga", 120, HorizontalAlignment.Center)
lv.Columns.Add("uang_muka", 120, HorizontalAlignment.Center)
lv.Columns.Add("komisi_sales", 120, HorizontalAlignment.Center)
lv.Columns.Add("total_kredit", 120, HorizontalAlignment.Center)
lv.Columns.Add("lama_kredit", 120, HorizontalAlignment.Center)
lv.Columns.Add("angsuran_perbulan", 120, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub ISI_TABLE()
Dim LST As New ListViewItem
LST.Text = kode.Text
LST.SubItems.Add(nama.Text)
LST.SubItems.Add(Tahun.Text)
LST.SubItems.Add(Kondisi.Text)
LST.SubItems.Add(Jumlah.Text)
LST.SubItems.Add(total_harga.Text)
LST.SubItems.Add(uang_muka.Text)
LST.SubItems.Add(komisi_sales.Text)
LST.SubItems.Add(total_kredit.Text)
LST.SubItems.Add(lama_kredit.Text)
LST.SubItems.Add(Angsuran_Perbulan.Text)
lv.Items.Add(LST)
End Sub
Private Sub btn_isilv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_isilv.Click
Call ISI_TABLE()
Kode.Text = ""
Nama.Text = ""
Tahun.Text = ""
Kondisi.Text = ""
Harga.Text = ""
Jumlah.Text = ""
Total_Harga.Text = ""
Uang_Muka.Text = ""
Komisi_Sales.Text = ""
Total_Kredit.Text = ""
Lama_Kredit.Text = ""
Angsuran_Perbulan.Text = ""
End Sub
Private Sub btnHapus_Kode_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus_Kode.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btn_Hapuslv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Hapuslv.Click
lv.Items.Clear()
End Sub
End Class
Inilah Hasil dari program Diatas!!!
Selamat Mencoba :)
Demikilahlah postingan saya Semoga Bermanfaat.....
Nama : Desi Ratna
NPM : 13110536
Selamat Belajar Pemrograman VB NET http://mesran.net
