Tips Dan trick Pembuatan
Tampilan Awal:
Kode program:
Public Class Form1
Sub RancamgTable()
LV.Columns.Add("Kode", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tahun", 50, HorizontalAlignment.Center)
LV.Columns.Add("Kondisi", 100, HorizontalAlignment.Center)
LV.Columns.Add("Harga", 50, HorizontalAlignment.Center)
LV.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Center)
LV.Columns.Add("Total Harga", 80, HorizontalAlignment.Center)
LV.Columns.Add("Uang Muka", 80, HorizontalAlignment.Center)
LV.Columns.Add("Komisi Sales", 80, HorizontalAlignment.Center)
LV.Columns.Add("Total Kredit", 80, HorizontalAlignment.Center)
LV.Columns.Add("Lama Kredit", 80, HorizontalAlignment.Center)
LV.Columns.Add("Angusran Perbulan", 80, HorizontalAlignment.Center)
LV.GridLines = True
LV.FullRowSelect = True
LV.View = View.Details
End Sub
Sub IsiTabel()
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(Harga.Text)
lst.SubItems.Add(JB.Text)
lst.SubItems.Add(TH.Text)
lst.SubItems.Add(UM.Text)
lst.SubItems.Add(KS.Text)
lst.SubItems.Add(TK.Text)
lst.SubItems.Add(LK.Text)
lst.SubItems.Add(AP.Text)
LV.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Kode.Items.Add("MB1")
Kode.Items.Add("MB2")
Kode.Items.Add("MB3")
Kode.Items.Add("MB4")
Tahun.Items.Add("2012")
Tahun.Items.Add("2013")
Tahun.Items.Add("2014")
Kondisi.Items.Add("Baru")
Kondisi.Items.Add("Lama")
For i = 1 To 10
JB.Items.Add(i)
Next (i)
For i = 1 To 60
LK.Items.Add(i)
Next (i)
Call RancamgTable()
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = "MB1" Then
Nama.Text = "Avanza Veloz"
ElseIf Kode.Text = "MB2" Then
Nama.Text = "Avanza G"
ElseIf Kode.Text = "MB3" Then
Nama.Text = "Zenia G"
ElseIf Kode.Text = "MB4" Then
Nama.Text = "Yaris"
Else
Nama.Text = ""
End If
End Sub
Private Sub Kondisi_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kondisi.SelectedIndexChanged
If Nama.Text = "Avanza Veloz" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = "17500000"
ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
Harga.Text = "12000000"
ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = "19500000"
ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
Harga.Text = "13000000"
ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = "2080000"
ElseIf Nama.Text = "Avanza Veloz" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
Harga.Text = "1700000"
ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = "1900000"
ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
Harga.Text = "1500000"
ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = "2100000"
ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
Harga.Text = "1500000"
ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = "2300000"
ElseIf Nama.Text = "Avanza G" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
Harga.Text = "1900000"
ElseIf Nama.Text = "Zenia" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = "21000000"
ElseIf Nama.Text = "Zenia" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
Harga.Text = "17000000"
ElseIf Nama.Text = "Zenia" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = "2300000"
ElseIf Nama.Text = "Zenia" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
Harga.Text = "1950000"
ElseIf Nama.Text = "Zenia" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = "25000000"
ElseIf Nama.Text = "Zenia" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
Harga.Text = "21000000"
ElseIf Nama.Text = "Yaris" And Tahun.Text = "2012" And Kondisi.Text = "Baru" Then
Harga.Text = "1100000"
ElseIf Nama.Text = "Yaris" And Tahun.Text = "2012" And Kondisi.Text = "Lama" Then
Harga.Text = "750000"
ElseIf Nama.Text = "Yaris" And Tahun.Text = "2013" And Kondisi.Text = "Baru" Then
Harga.Text = "1500000"
ElseIf Nama.Text = "Yaris" And Tahun.Text = "2013" And Kondisi.Text = "Lama" Then
Harga.Text = "900000"
ElseIf Nama.Text = "Yaris" And Tahun.Text = "2014" And Kondisi.Text = "Baru" Then
Harga.Text = "1800000"
ElseIf Nama.Text = "Yaris" And Tahun.Text = "2014" And Kondisi.Text = "Lama" Then
Harga.Text = "1250000"
End If
End Sub
Private Sub JB_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles JB.KeyPress
End Sub
Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
TH.Text = JB.Text * Harga.Text
UM.Text = 0.3 * TH.Text
KS.Text = 0.02 * JB.Text * UM.Text
TK.Text = Val(TH.Text) - Val(UM.Text)
AP.Text = (((TK.Text) * (0.03 * LK.Text)) + Val(TK.Text)) / LK.Text
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
Call IsiTabel()
End Sub
End Class
Hasil Program
0 komentar:
Posting Komentar