Private Sub cbokode_Click()

Dim MERK As String

Dim HS As Currency

Select Case cbokode.Text

Case “Aplee MC965 MacBook Air”

txtmerk.Text = “Apple MacBook Air MC965”

txths.Text = “12800000”

Case “Aplee MC966 MacBok Air”

txtmerk.Text = “Apple MacBook Air MC966”

txths.Text = “15000000”

Case “Apple MC968 MacBook Air”

txtmerk.Text = “Apple MacBook Air MC968”

txths.Text = “9900000”

Case “Apple MC969 MacBook Air”

txtmerk.Text = “Apple MacBook Air MC969”

txths.Text = “11900000”

Case “Apple MC700 MacBook Pro”

txtmerk.Text = “Apple MacBook Pro MC700”

txths.Text = “10800000”

Case “Apple MC723 MacBook Pro”

txtmerk.Text = “Apple MacBook Pro MC721”

txths.Text = “15900000”

Case “Apple MC724 MacBook Pro”

txtmerk.Text = “Apple MacBook Pro MC724”

txths.Text = “19300000”

Case “Apple MC311 MacBook Pro”

txtmerk.Text = “Apple MacBook Pro MC311”

txths.Text = “24200000”

Case “Apple MC314 MacBook Pro”

txtmerk.Text = “Apple MacBook Pro MC314”

txths.Text = “14700000”

Case “Apple MC318 MacBook Pro”

txtmerk.Text = “APPLE MACBOOK PRO MC318”

txths.Text = “17600000”

Case “Apple MC313 MacBook Pro”

txtmerk.Text = “APPLE MACBOOK PRO MC313”

txths.Text = “19300000”

Case “APPLE MD322 MacBook Pro”

txtmerk.Text = “APPLE MACBOOK PRO MD322”

txths.Text = “21000000”

Case “APPLE MD965 MacBook Pro”

txtmerk.Text = “APPLE MACBOOK PRO MD965”

txths.Text = “12800000”

End Select

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtmerk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txttb.Text = “”

txtterbilang.Text = “”

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 “Aplee MC965 MacBook Air”

cbokode.AddItem “Aplee MC966 MacBok Air”

cbokode.AddItem “Apple MC968 MacBook Air”

cbokode.AddItem “Apple MC969 MacBook Air”

cbokode.AddItem “Apple MC700 MacBook Pro”

cbokode.AddItem “Apple MC723 MacBook Pro”

cbokode.AddItem “Apple MC724 MacBook Pro”

cbokode.AddItem “Apple MC311 MacBook Pro”

cbokode.AddItem “Apple MC314 MacBook Pro”

cbokode.AddItem “Apple MC318 MacBook Pro”

cbokode.AddItem “Apple MC313 MacBook Pro”

cbokode.AddItem “APPLE MD322 MacBook Pro”

cbokode.AddItem “APPLE MD965 MacBook Pro”

End Sub