Tugas 3.3 Entri Penjualan Laptop Aplle oleh mahasiswa stmik

Tugas 3.3 Entri Penjualan Laptop Aplle

Berikut Source Codenya:

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 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

Private Sub cbokode_Click()
Dim mt, hs As String
Select Case Mid(cbokode, 7, 5)
Case "MC965"
mt = "Apple MC965 Macbook Air  "
hs = "12800000"
Case "MC966"
mt = "Apple MC966 Macbook Air  "
hs = "15800000"
Case "MC968"
mt = "Apple MC968 Macbook Air "
hs = "9900000"
Case "MC969"
mt = "Apple MC969 Macbook Air "
hs = "11900000"
Case "MC700"
mt = "Apple MC700 Macbook Pro "
hs = "10800000"
Case "MC721"
mt = "Apple MC721 Macbook Pro  "
hs = "15900000"
Case "MC723"
mt = "Apple MC723 Macbook Pro "
hs = "19300000"
Case "MC724"
mt = "Apple  MC724 Macbook Pro"
hs = "13700000"
Case "MC7311"
mt = "Apple MC311 Macbook Pro "
hs = "24200000"
Case "MC313"
mt = "Apple MC313  Macbook Pro "
hs = "11900000"
Case "MC314"
mt = "Apple MC314 Macbook Pro "
hs = "14700000"
Case "MC318"
mt = "Apple MC318 Macbook Pro  "
hs = "17600000"
Case "MC322"
mt = "Apple MC322 Macbook Pro  "
hs = "21300000"
Case "MC965"
mt = "Apple MC965 Macbook Air "
hs = "12800000"
Case "MC966"
mt = "Apple MC966 Macbook Air "
hs = "15800000"
End Select
txtmerk = mt
txths = hs
txtjj.SetFocus
End Sub

Private Sub cmdhitunglagi_Click()
cbokode.Text = ""
txtmerk.Text = ""
txths.Text = ""
txtjj.Text = ""
txtdis.Text = ""
txttb.Text = ""
txthp = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
txthp = Val(txtjj) * Val(txths)
If txthp > 140000000 Then
txtdis = (0.15) * Val(txthp)
ElseIf txthp > 135000000 Then
txtdis = (0.1) * Val(txthp)
ElseIf txthp > 130000000 Then
txtdis = (0.5) * Val(txthp)
ElseIf txthp > 125000000 Then
txtdis = (0.2) * Val(txthp)
End If
txttb.Text = Val(txthp) - Val(txtdis)
End Sub