PROGRAM PENJUALAN LAPTOP APPLE

Private Sub Cbokode_Click()
Dim A As String
A = Mid(Cbokode.Text, 7, 5)
If A = “MC965″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC965″
Txths.Text = “12800000”
ElseIf A = “MC966″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC966″
Txths.Text = “15800000”
ElseIf A = “MC968″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC968″
Txths.Text = “19900000”
ElseIf A = “MC969″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC969″
Txths.Text = “11900000”
ElseIf A = “MC700″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC700″
Txths.Text = “10800000”
ElseIf A = “MC721″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC721″
Txths.Text = “15900000”
ElseIf A = “MC721″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC721″
Txths.Text = “15900000”
ElseIf A = “MC723″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC723″
Txths.Text = “19300000”
ElseIf A = “MC724″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC724″
Txths.Text = “13700000”
ElseIf A = “MC311″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC311″
Txths.Text = “24200000”
ElseIf A = “MC313″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC313″
Txths.Text = “11900000”
ElseIf A = “MC314″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC314″
Txths.Text = “14700000”
ElseIf A = “MC318″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC318″
Txths.Text = “17600000”
ElseIf A = “MC322″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC322″
Txths.Text = “21300000”
ElseIf A = “MC965″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC965″
Txths.Text = “12800000”
ElseIf A = “MC966″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC966″
Txths.Text = “15800000”
End If
Txtjj.SetFocus
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txtjj.Text) * Val(Txths.Text)
If Txthp.Text > 140000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 135000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 130000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 125000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.2
End If
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Form_Load()
Cbokode.AddItem “APPLE MC965 MACBOOK AIR”
Cbokode.AddItem “APPLE MC966 MACBOOK AIR”
Cbokode.AddItem “APPLE MC968 MACBOOK AIR”
Cbokode.AddItem “APPLE MC969 MACBOOK AIR”
Cbokode.AddItem “APPLE MC700 MACBOOK PRO”
Cbokode.AddItem “APPLE MC721 MACBOOK PRO”
Cbokode.AddItem “APPLE MC723 MACBOOK PRO”
Cbokode.AddItem “APPLE MC724 MACBOOK PRO”
Cbokode.AddItem “APPLE MC311 MACBOOK PRO”
Cbokode.AddItem “APPLE MC313 MACBOOK PRO”
Cbokode.AddItem “APPLE MC314 MACBOOK PRO”
Cbokode.AddItem “APPLE MC318 MACBOOK PRO”
Cbokode.AddItem “APPLE MC322 MACBOOK PRO”
Cbokode.AddItem “APPLE MC965 MACBOOK AIR”
Cbokode.AddItem “APPLE MC965 MACBOOK AIR”
End Sub
Private Sub Txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
Txtdis.SetFocus
End If
End Sub