HASIL PENJUALAN MOBIL MITSUBISHI

Diketahui hasil penjualan mitsubishi sebagai berikut :

·         Nama konsumen

·         Nama kendaraan (mitsubishi)

·         Jenis kendaraan (COLT T120ss,MITSUBISHI LANCER SOTIC 1990,MITSUBISHI MAVEN 2006,MITSUBISHI L300 2006,MITSUBISHI COLT DIESEL 2007,MITSUBISHI PAJERO 2000,MITSUBISHI GRANDIS)

·         Harga kendaraan berdasarkan jenis kendaraan

§  Jika jenis kendaraan COLT T120ss maka harga kendaraan Rp. 37.000.000

§  Jika jenis kendaraan MITSUBISHI LANCER SOTIC 1990 maka harga kendaraan Rp. 41.000.000

§  Jika jenis kendaraan MITSUBISHI MAVEN 2006 maka harga kendaraan Rp.95.000.000

§  Jika jenis kendaraan MITSUBISHI L300 2006 maka harga kendaraan Rp.89.000.000

§  Jika jenis kendaraan MITSUBISHI COLT DIESEL 2007 maka harga kendaraan Rp.220.000.000

§  Jika jenis kendaraan MITSUBISHI PAJERO 2000 maka harga kendaraan Rp.130.000.000

§  Jika jenis kendaraan MITSUBISHI GRANDIS maka harga kendaraan Rp.88.000.000

·         Harga kotor = jumlah kendaraan x harga kendaraan

·         Jenis pembayaran (cash, credit)

Jika jenis pembayarannya cash maka diskon 5% dari harga kotor

Jika jenis pembayarannya credit maka diskon 0% dari harga kotor

·         Total bayar = harga kotor – diskon

·         Private Sub Combo2_Click()

·         If Combo2 = "COLT T120ss" Then

·              Text2 = 37000000

·              Else

·         If Combo2 = "MITSUBISHI LANCER SOTIC 1990" Then

·              Text2 = 41000000

·              Else

·         If Combo2 = "MITSUBISHI MAVEN 2006" Then

·              Text2 = 95000000

·              Else

·         If Combo2 = "MITSUBISHI L300 2006" Then

·              Text2 = 89000000

·              Else

·         If Combo2 = "MITSUBISHI COLT DIESEL 2007" Then

·             Text2 = 220000000

·             Else

·         If Combo2 = "MITSUBISHI PAJERO 2000" Then

·             Text2 = 130000000

·             Else

·             Text2 = 88000000

·         End If

·         End If

·         End If

·         End If

·         End If

·         End If

·         End Sub

·          

·         Private Sub Combo3_Click()

·         If Combo3 = "cash" Then

·             Text5 = 0.05 * Val(Text4)

·             Else

·             Text5 = 0

·         End If

·         Text6 = Val(Text4) - Val(Text5)

·          

·         End Sub

·          

·         Private Sub Command1_Click()

·         Combo1 = Clear

·         Combo2 = Clear

·         Combo3 = Clear

·          

·         End Sub

·          

·         Private Sub Label11_Click()

·         Combo1 = Clear

·         Combo2 = Clear

·         Combo3 = Clear

·          

·         End Sub

·          

·         Private Sub Text3_Change()

·         Text4 = Val(Text2) * Val(Text3)

·         End Sub

·          

·         Private Sub Timer1_Timer()

·         Label12.Caption = Format(Now(), "HH:MM:SS")

·         Form1.BackColor = RGB(Rnd * 225, Rnd * 225, Rnd * 225)

·         A = Left(Label10.Caption, 1)

·         B = Len(Label10.Caption)

·         C = Right(Label10.Caption, B - 1)

·         Label10.Caption = C + A

·          

·         End Sub