Poenjualan di suatu dealer  mobil yaitu  tersedia jenis mesin yaitu toyota, honda, suzuki dan katana.

Keterangan :

Jika  jenis mesin toyota maka harga 100.000.000

Dan mendapatkan bones vocher 100.000

Jika jenis mesin honda maka harga 200.000.000

Dan mendapatkan bonus voucher 80.000

Jika jenis mesin suzuki dengan harga 70.000.000

Dan mendapatkan bonus vocher 70.000

Jika jenis mesin katana dengan harga 70.000.000

Dan mendapat bonus vocher 250.000

Data yang diinput :

Nama unit

Jenis unit

Jumlah unit

Data yang diproses

Jumlah bonus=jenis unit x 5%

Discount=jenis unit – harga – jumlah bonus

 RUMUS HUDA


 

Private Sub Combo1_Click()

If Combo1 = "toyota" Then

    Text2 = 100000000

    Text3 = 100000

 Else

If Combo1 = "honda" Then

    Text2 = 200000000

    Text3 = 80000

Else

If Combo1 = "suzuki" Then

    Text2 = 80000000

    Text3 = 50000

 Else

    Text2 = 70000000

    Text3 = 250000

End If

End If

End If

End Sub

Private Sub Combo2_Click()

If Combo2 = "karyawan" Then

    Text6 = Val(Text2) * 5 / 100

    Text8 = Val(Text2) - Val(Text3) - Val(Text6)

Else

    Text6 = 0

End If

End Sub

Private Sub Command1_Click()

MsgBox "inilah hasil ya"

MsgBox "terimakasih"

End

End Sub

Private Sub Command2_Click()

Text1 = Clear

Text2 = Clear

Text3 = Clear

Text4 = Clear

Text5 = Clear

Text6 = Clear

Text7 = Clear

Text8 = Clear

Combo1 = Clear

Combo2 = Clear

End Sub

Private Sub Text4_Change()

Text5 = Val(Text3) * Val(Text4)

End Sub

Private Sub Timer1_Timer()

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

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

End Sub