TUGAS 12

TUGAS 12 ADEL

Private Sub cbokode_Click()
Dim hs, merk As String
Select Case Cbokode.Text
Case “Apple MC965?”
merk = “Apple MacBook Air MC965?”
hs = “12800000”
Case “Apple MC966?”
merk = “Apple MacBook Air MC966?”
hs = “15800000”
Case “Apple MC968?”
merk = “Apple MacBook Air MC968?”
hs = “9900000”
Case “Apple MC969?”
merk = “Apple MacBook Air MC969?”
hs = “11900000”
Case “Apple MC700?”
merk = “Apple MacBook Pro MC700?”
hs = “10800000”
Case “Apple MC721?”
merk = “Apple MacBook Pro MC721?”
hs = “15900000”
Case “Apple MC723?”
merk = “Apple MacBook Pro MC723?”
hs = “19300000”
Case “Apple MC724?”
merk = “Apple MacBook Pro MC724?”
hs = “13700000”
Case “Apple MC311?”
merk = “Apple MacBook Pro MC311?”
hs = “24200000”
Case “Apple MC314?”
merk = “Apple MacBook Pro MC314?”
hs = “14700000”
Case “Apple MC318?”
merk = “Apple MacBook Pro MC318?”
hs = “17600000”
Case “Apple MC322?”
merk = “Apple MacBook Pro MC322?”
hs = “21300000”
Case “Apple MC965?”
merk = “Apple MacBook Air MC965?”
hs = “12800000”
Case “Apple MC966?”
merk = “Apple MacBook Air MC966?”
End Select
Txtmerk.Text = merk
Txths.Text = hs
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.05
ElseIf Txthp.Text > 125000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.02
End If
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Apple MC965?”
Cbokode.AddItem “Apple MC966?”
Cbokode.AddItem “Apple MC968?”
Cbokode.AddItem “Apple MC969?”
Cbokode.AddItem “Apple MC700?”
Cbokode.AddItem “Apple MC721?”
Cbokode.AddItem “Apple MC723?”
Cbokode.AddItem “Apple MC724?”
Cbokode.AddItem “Apple MD311?”
Cbokode.AddItem “Apple MD313?”
Cbokode.AddItem “Apple MD314?”
Cbokode.AddItem “Apple MC418?”
Cbokode.AddItem “Apple MD322?”
Cbokode.AddItem “Apple MC965?”
Cbokode.AddItem “Apple MC966?”
End Sub

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s