Private Sub Cmb1_Click()
Dim jenis_komputer As String, harga_satuan As String
jenis_komputer = Val(T1.Text)
harga_satuan = Val(T1.Text)
Select Case Cmb1.Text
Case “p205”
jenis_komputer = “pentium_II_500_Mega_hz”
harga_satuan = “1500000”
Case “p308”
jenis_komputer = “pentiumIII800megahz”
harga_satuan = “2100000”
Case “p310”
jenis_komputer = “pentiumIII1gigahz”
harga_satuan = “3500000”
Case “p415”
jenis_komputer = “pentiumIV1.5gigahz”
harga_satuan = “4000000”
Case “p417”
jenis_komputer = “pentiumIV1.7gigahz”
harga_satuan = “4200000”
Case “p419”
jenis_komputer = “PENTIUMIV1.9GIGAHZ”
harga_satuan = “5500000”
End Select
T1.Text = jenis_komputer
T2.Text = harga_satuan
T3.SetFocus
End Sub
Private Sub cmd1_Click()
Dim aku, now As String
aku = Val(T3.Text) * Val(T2.Text)
T4.Text = aku
Select Case T4.Text
Case Is > 30000000
now = Val(T4.Text) * 0.15
Case Is > 25000000
now = Val(T4.Text) * 0.1
Case Is > 20000000
now = Val(T4.Text) * 0.05
Case Is > 15000000
now = Val(T4.Text) * 0.02
End Select
T5.Text = now
T6.Text = Val(T4.Text) – Val(T5.Text)
End Sub
Private Sub Cmd2_Click()
Cmb1.Text = “pilih salah satu”
T1.Text = “”
T2.Text = “”
T3.Text = “”
T4.Text = “”
T5.Text = “”
T6.Text = “”
End Sub
Private Sub Cmd3_Click()
End
End Sub
Private Sub Form_Load()
Cmb1.AddItem “p205”
Cmb1.AddItem “p308”
Cmb1.AddItem “p310”
Cmb1.AddItem “p415”
Cmb1.AddItem “p417”
Cmb1.AddItem “p419”
End Sub
caiioseptistmikpringsewu 