Entri penjualan Laptop Apple tgs3.3

Private Sub cbokode_Click()
Dim MT, HS As String
Select Case Mid(cbokode, 7, 5)
Case Is = "MC965"
MT = "Apple MacBook Air MC965"
HS = "12800000"
Case Is = "MC966"

MT = "Apple MacBook Air MC966"
HS = "15800000"
Case Is = "MC968"
MT = "Apple MacBook Air MC968"
HS = "9900000"
Case Is = "MC969"
MT = "Apple MacBook Air MC969"
HS = "11900000"
Case Is = "MC700"
MT = "Apple MacBook Pro MC700"
HS = "10800000"
Case Is = "MC721"
MT = "Apple MacBook Pro MC721"
HS = "15900000"
Case Is = "MC723"
MT = "Apple MacBook Pro MC723"
HS = "19300000"
Case Is = "MC724"
MT = "Apple MacBook Pro MC724"
HS = "13700000"
Case Is = "MC311"
MT = "Apple MacBook Pro MC311"
HS = "24200000"
Case Is = "MC313"
MT = "Apple MacBook Pro MC313"
HS = "11900000"
Case Is = "MC314"
MT = "Apple MacBook Pro MC314"
HS = "14700000"
Case Is = "MC318"
MT = "Apple MacBook Pro MC318"
HS = "17600000"
Case Is = "MC322"
MT = "Apple MacBook Pro MC322"
HS = "21300000"
Case Is = "MC965"
MT = "Apple MacBook Air MC965"
HS = "12800000"
Case Is = "MC966"
MT = "Apple MacBook Air MC966"
HS = "15800000"
End Select
txtmerk.Text = MT
txths.Text = HS
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtmerk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtdis.Text = “”
txttb.Text = “”
End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txtjj.Text) * Val(txths.Text)
If txthp.Text >= 140000000 Then
txtdis.Text = 0.15 * txthp.Text
ElseIf txthp.Text >= 135000000 Then
txtdis.Text = 0.1 * txthp.Text
ElseIf txthp.Text >= 130000000 Then
txtdis.Text = 0.5 * txthp.Text
ElseIf txthp.Text >= 125000000 Then
txtdis.Text = 0.2 * txthp.Text
Else
txtdis.Text = 0
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 MC966 MacBook Air"
End Sub