Private Sub Combo1_Click()
If Combo1.Text = "BEAT" Then
Combo2.Clear
txtharga.Text = "12600000"
Combo2.AddItem "800000"
Combo2.AddItem "1000000"
Combo2.AddItem "1500000"
Combo2.AddItem "2000000"
ElseIf Combo1.Text = "VARIO TECHNO" Then
Combo2.Clear
txtharga.Text = "15975000"
Combo2.AddItem "1000000"
Combo2.AddItem "1500000"
Combo2.AddItem "2000000"
Combo2.AddItem "2500000"
ElseIf Combo1.Text = "BLADE" Then
Combo2.Clear
txtharga.Text = "14000000"
Combo2.AddItem "1250000"
Combo2.AddItem "1500000"
Combo2.AddItem "2000000"
Combo2.AddItem "2500000"
ElseIf Combo1.Text = "CS 1" Then
Combo2.Clear
txtharga.Text = "17250000"
Combo2.AddItem "2000000"
Combo2.AddItem "2500000"
Combo2.AddItem "3000000"
Combo2.AddItem "3500000"
End If
End Sub
Private Sub Combo2_Change()
End Sub
Private Sub Combo3_Click()
If Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "11" Then
txttotal.Text = "1278000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "23" Then
txttotal.Text = "680000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "35" Then
txttotal.Text = "498000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "800000" And Combo3.Text = "47" Then
txttotal.Text = "435000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "11" Then
txttotal.Text = "1258000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "23" Then
txttotal.Text = "669000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "35" Then
txttotal.Text = "490000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1000000" And Combo3.Text = "47" Then
txttotal.Text = "429000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "11" Then
txttotal.Text = "1192000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "23" Then
txttotal.Text = "627000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "35" Then
txttotal.Text = "461000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "1500000" And Combo3.Text = "47" Then
txttotal.Text = "414000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "1142000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "600000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "441000"
ElseIf Combo1.Text = "BEAT" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "396000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "11" Then
txttotal.Text = "1613000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "23" Then
txttotal.Text = "895000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "35" Then
txttotal.Text = "680000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "1500000" And Combo3.Text = "47" Then
txttotal.Text = "581000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "156000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "859000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "680000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "581000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "11" Then
txttotal.Text = "1507000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "23" Then
txttotal.Text = "830000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "35" Then
txttotal.Text = "629000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "2500000" And Combo3.Text = "47" Then
txttotal.Text = "536000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "11" Then
txttotal.Text = "1454000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "23" Then
txttotal.Text = "801000"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "35" Then
txttotal.Text = "60800"
ElseIf Combo1.Text = "VARIO TECHNO" And Combo2.Text = "3000000" And Combo3.Text = "47" Then
txttotal.Text = "518000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "11" Then
txttotal.Text = "1391000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "23" Then
txttotal.Text = "753000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "35" Then
txttotal.Text = "569000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1250000" And Combo3.Text = "47" Then
txttotal.Text = "479000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "11" Then
txttotal.Text = "1365000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "23" Then
txttotal.Text = "739000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "35" Then
txttotal.Text = "559000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "1500000" And Combo3.Text = "47" Then
txttotal.Text = "470000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "1312000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "711000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "538000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "453000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2500000" And Combo3.Text = "11" Then
txttotal.Text = "1213000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2500000" And Combo3.Text = "23" Then
txttotal.Text = "673000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "2500000" And Combo3.Text = "35" Then
txttotal.Text = "499000"
ElseIf Combo1.Text = "BLADE" And Combo2.Text = "25000000" And Combo3.Text = "47" Then
txttotal.Text = "430000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "11" Then
txttotal.Text = "1682000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "23" Then
txttotal.Text = "97100"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "35" Then
txttotal.Text = "689000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2000000" And Combo3.Text = "47" Then
txttotal.Text = "583000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "11" Then
txttotal.Text = "1629000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "23" Then
txttotal.Text = "889000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "35" Then
txttotal.Text = "668000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "2500000" And Combo3.Text = "47" Then
txttotal.Text = "565000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "11" Then
txttotal.Text = "1577000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "23" Then
txttotal.Text = "861000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "35" Then
txttotal.Text = "648000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3000000" And Combo3.Text = "47" Then
txttotal.Text = "548000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3500000" And Combo3.Text = "11" Then
txttotal.Text = "1524000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3500000" And Combo3.Text = "23" Then
txttotal.Text = "833000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "3500000" And Combo3.Text = "35" Then
txttotal.Text = "627000"
ElseIf Combo1.Text = "CS 1" And Combo2.Text = "35000000" And Combo3.Text = "47" Then
txttotal.Text = "531000"
End If
End Sub
Private Sub Command1_Click()
Unload Me
Load f9
f9.Show
End Sub
Jumat, 04 Desember 2009
Dim PILIH1 As String
Dim PILIH2 As String
Dim PILIH3 As String
Dim PILIH4 As String
Dim PILIH5 As String
Private Sub CHKBALAP_Click()
If CHKBALAP.Value = vbChecked Then
PILIH5 = "BALAP"
ElseIf CHKBALAP.Value = vbUnchecked Then
PILIH5 = ""
End If
End Sub
Private Sub CHKBASKET_Click()
If CHKBASKET.Value = vbChecked Then
PILIH2 = "BASKET"
ElseIf CHKBASKET.Value = vbUnchecked Then
PILIH2 = ""
End If
End Sub
Private Sub CHKBULUTANGKIS_Click()
If CHKBULUTANGKIS.Value = vbChecked Then
PILIH4 = "BULUTANGKIS"
ElseIf CHKBULUTANGKIS.Value = vbUnchecked Then
PILIH4 = ""
End If
End Sub
Private Sub CHKRENANG_Click()
If CHKRENANG.Value = vbChecked Then
PILIH3 = "RENANG"
ElseIf CHKRENANG.Value = vbUnchecked Then
PILIH3 = ""
End If
End Sub
Private Sub CHKSEPAKBOLA_Click()
If CHKSEPAKBOLA.Value = vbChecked Then
PILIH1 = "SEPAK BOLA"
ElseIf CHKSEPAKBOLA.Value = vbUnchecked Then
PILIH1 = ""
End If
End Sub
Private Sub Command1_Click()
Text1.Text = PILIH1 + PILIH2 + PILIH3 + PILIH4 + PILIH5
If Text1.Text = "" Then
x = MsgBox("EITS...HARUS DIKLIK DULU ", vbDefaultButton1, "AWAS")
End If
End Sub
Private Sub Command2_Click()
Unload Me
Load f9
f9.Show
End Sub
Dim PILIH2 As String
Dim PILIH3 As String
Dim PILIH4 As String
Dim PILIH5 As String
Private Sub CHKBALAP_Click()
If CHKBALAP.Value = vbChecked Then
PILIH5 = "BALAP"
ElseIf CHKBALAP.Value = vbUnchecked Then
PILIH5 = ""
End If
End Sub
Private Sub CHKBASKET_Click()
If CHKBASKET.Value = vbChecked Then
PILIH2 = "BASKET"
ElseIf CHKBASKET.Value = vbUnchecked Then
PILIH2 = ""
End If
End Sub
Private Sub CHKBULUTANGKIS_Click()
If CHKBULUTANGKIS.Value = vbChecked Then
PILIH4 = "BULUTANGKIS"
ElseIf CHKBULUTANGKIS.Value = vbUnchecked Then
PILIH4 = ""
End If
End Sub
Private Sub CHKRENANG_Click()
If CHKRENANG.Value = vbChecked Then
PILIH3 = "RENANG"
ElseIf CHKRENANG.Value = vbUnchecked Then
PILIH3 = ""
End If
End Sub
Private Sub CHKSEPAKBOLA_Click()
If CHKSEPAKBOLA.Value = vbChecked Then
PILIH1 = "SEPAK BOLA"
ElseIf CHKSEPAKBOLA.Value = vbUnchecked Then
PILIH1 = ""
End If
End Sub
Private Sub Command1_Click()
Text1.Text = PILIH1 + PILIH2 + PILIH3 + PILIH4 + PILIH5
If Text1.Text = "" Then
x = MsgBox("EITS...HARUS DIKLIK DULU ", vbDefaultButton1, "AWAS")
End If
End Sub
Private Sub Command2_Click()
Unload Me
Load f9
f9.Show
End Sub
Langganan:
Postingan (Atom)