Rabu, 28 Desember 2011

Visual Basic

SOAL VB:

Diketahui penjualan mobil Daihatsu sebagai berikut:
Nama pembeli,
Tanggal membeli,
Jenis mobil,
Jumlah membeli,
Data yang dip roses:
Harga mobil berdasarkan jenis mobil ,
Jika xenia maka 250.000.000,jika terios maka 200.000.000,jika Bran max maka 190.000.000, jika luxio maka 150.000.000,jika sirion maka 100.000.000.
Jumlah bayar=jumlah membeli*jumlah membayar
Tipe pembelian(case,keredit)
Ketentuan discount berdasarkan tipe pembelian ,jika "case" maka discountnya 10% dan DP nya =0
Jika "keredit" maka discounnya =0,jumlah bayar kredit berdasarkan lama keredit ,
jika kredit 4 tahun maka jum.bayar kredit=48*jum.beli*12 juta,Dp=50 juta
jika kredit 3 tahun maka jum.bayar kredit= 36*jum.beli*12 juta,Dp=60juta
jika kredit 2 tahun maka jum.bayar kredit= 24*jum.beli*14 juta,Dp=100juta
jika kredit 6 bulan maka jum.bayar kredit= 6*jum.beli*28juta,Dp=120 juta
Jumlah bayar akhir=jumlah bayar kredit +DP


Jawab:






                               

RUMUS:




Private Sub Combo1_Click()
If Combo1 = "xenia" Then
    Text2 = 250000000
Else
If Combo1 = "terios" Then
    Text2 = 200000000
Else
If Combo1 = "bran max" Then
    Text2 = 190000000
Else
If Combo1 = "luxio" Then
    Text2 = 150000000
Else
    Text2 = 100000000
End If
End If
End If
End If

End Sub




Private Sub Combo2_Click()
If Combo2 = "case" Then
    Text6 = 0
    Text7 = 0
    Text5 = 0.1 * Val(Text4)
    Combo3 = 0
    Text8 = Val(Text4) - Val(Text5)
Else
    Text5 = 0
End If

End Sub


Private Sub Combo3_Click()
If Combo3 = "4 tahun" Then
    Text6 = 48 * 12000000 * Val(Text3)
    Text7 = 50000000
Else
If Combo3 = "3 tahun" Then
    Text6 = 36 * 14000000 * Val(Text3)
    Text7 = 60000000
Else
If Combo3 = "2 tahun" Then
    Text6 = 24 * 18000000 * Val(Text3)
    Text7 = 70000000
Else
If Combo3 = "1 tahun" Then
    Text6 = 12 * 24000000 * Val(Text3)
    Text7 = 10000000
Else
If Combo3 = "6 bulan" Then
    Text6 = 6 * 28000000 * Val(Text3)
    Text7 = 120000000
End If
End If
End If
End If
End If

Text8 = Val(Text6) + Val(Text7)

End Sub


Private Sub Form_Load()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
Combo1 = Clear
Combo2 = Clear
Combo3 = Clear
Combo4 = Clear

End Sub


Private Sub Label16_Click()

Text5 = Clear
Text6 = Clear
Text7 = Clear
Text8 = Clear
Combo3 = Clear

End Sub

Private Sub Text3_Change()
Text4 = Val(Text3) * Val(Text2)
End Sub

Private Sub Timer1_Timer()
Label13.Caption = Format(Now(), "hh:mm:ss")
End Sub