Karishma Tour dan Travel Vb 06

Soal uTs q,,
Ternyta ga sesuah apa yg q bayangkan,,
hmm...
ceck!!


penyelesaian:

Private Sub Check1_Click()
If Check1 = 1 Then
Text7.Text = 20000
End If
End Sub

Private Sub Check2_Click()
If Check2 = 1 Then
Text8.Text = 30000
End If
End Sub

Private Sub Check3_Click()
If Check3 = 1 Then
Text9.Text = 35000
End If
End Sub

Private Sub Combo1_Click()
If Combo1.Text = "TOYOTA" Then
List1.List(0) = "KELUARGA"
List1.List(1) = "MINIBUS"
List1.List(2) = "PICK UP"
ElseIf Combo1.Text = "DAIHATSU" Then
List1.List(0) = "KELUARGA"
List1.List(1) = "MINIBUS"
List1.List(2) = "PICK UP"
Else
List1.List(0) = "KELUARGA"
List1.List(1) = "MINIBUS"
List1.List(2) = "PICK UP"
End If

List1.Text = ""

End Sub

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Option1 = False
Option2 = False
Check1 = False
Check2 = False
Check3 = False


End Sub

Private Sub Command2_Click()
Text3.Text = (Val(Text4) * Val(Text5)) + Val(Text6) + Val(Text7) + Val(Text8) + Val(Text9)
End Sub

Private Sub Command3_Click()
End

Private Sub Command4_Click()
Text11.Text = Val(Text10) - Val(Text3)
End Sub

Private Sub Form_Load()
Combo1.AddItem "Toyota"
Combo1.AddItem "Daihatsu"
Combo1.AddItem "Mitsubishi"

End Sub

Private Sub Label9_Click()
Label9.Caption = Format(Now, "d mmmm yyyy, hh:mm:ss")
End Sub


Private Sub List1_Click()
Select Case Combo1
Case "Toyota"
If List1.Text = "KELUARGA" Then
Text4.Text = 700000
End If
If List1.Text = "MINIBUS" Then
Text4.Text = 850000
End If
If List1.Text = "PICK UP" Then
Text4.Text = 1000000
End If
End Select
Select Case Combo1
Case "Daihatsu"
If List1.Text = "KELUARGA" Then
Text4.Text = 800000
End If
If List1.Text = "MINIBUS" Then
Text4.Text = 950000
End If
If List1.Text = "PICK UP" Then
Text4.Text = 1200000
End If
End Select
Select Case Combo1
Case "Mitsubishi"
If List1.Text = "KELUARGA" Then
Text4.Text = 850000
End If
If List1.Text = "MINIBUS" Then
Text4.Text = 1300000
End If
If List1.Text = "PICK UP" Then
Text4.Text = 1450000
End If
End Select
End Sub


Private Sub Option1_Click()
If Option1 = True Then
Text6.Text = 350000
End If
End Sub

Private Sub Option2_Click()
If Option2 = True Then
Text6.Text = 50000
End If
End Sub

Private Sub Timer1_Timer()
Label9.Caption = Format(Now, "d mmmm yyyy, hh:mm:ss")
End Sub