Form a 24 button 27 label 3 timer
Private Sub Command1_Click()
Command1.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command1.Caption = 1
Label1.Caption = "-----"
Case 1
Command1.Caption = 5
Label2.Caption = "-----"
Case 2
Command1.Caption = 10
Label3.Caption = "-----"
Case 3
Command1.Caption = 25
Label4.Caption = "-----"
Case 4
Command1.Caption = 50
Label5.Caption = "-----"
Case 5
Command1.Caption = 75
Label6.Caption = "-----"
Case 6
Command1.Caption = 100
Label7.Caption = "-----"
Case 7
Command1.Caption = 200
Label8.Caption = "-----"
Case 8
Command1.Caption = 300
Label9.Caption = "-----"
Case 9
Command1.Caption = 400
Label10.Caption = "-----"
Case 10
Command1.Caption = 500
Label11.Caption = "-----"
Case 11
Command1.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 10000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 10000"
Label28.Visible = True
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command10_Click()
Command10.Enabled = 0
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 2150", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 2150"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command10.Caption = 1
Label1.Caption = "-----"
Case 1
Command10.Caption = 5
Label2.Caption = "-----"
Case 2
Command10.Caption = 10
Label3.Caption = "-----"
Case 3
Command10.Caption = 25
Label4.Caption = "-----"
Case 4
Command10.Caption = 50
Label5.Caption = "-----"
Case 5
Command10.Caption = 75
Label6.Caption = "-----"
Case 6
Command10.Caption = 100
Label7.Caption = "-----"
Case 7
Command10.Caption = 200
Label8.Caption = "-----"
Case 8
Command10.Caption = 300
Label9.Caption = "-----"
Case 9
Command10.Caption = 400
Label10.Caption = "-----"
Case 10
Command10.Caption = 500
Label11.Caption = "-----"
Case 11
Command10.Caption = 750
Label12.Caption = "-----"
End Select
End Sub
Private Sub Command11_Click()
Command11.Enabled = 0
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 1450", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 1450"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command11.Caption = 1
Label1.Caption = "-----"
Case 1
Command11.Caption = 5
Label2.Caption = "-----"
Case 2
Command11.Caption = 10
Label3.Caption = "-----"
Case 3
Command11.Caption = 25
Label4.Caption = "-----"
Case 4
Command11.Caption = 50
Label5.Caption = "-----"
Case 5
Command11.Caption = 75
Label6.Caption = "-----"
Case 6
Command11.Caption = 100
Label7.Caption = "-----"
Case 7
Command11.Caption = 200
Label8.Caption = "-----"
Case 8
Command11.Caption = 300
Label9.Caption = "-----"
Case 9
Command11.Caption = 400
Label10.Caption = "-----"
Case 10
Command11.Caption = 500
Label11.Caption = "-----"
Case 11
Command11.Caption = 750
Label12.Caption = "-----"
End Select
End Sub
Private Sub Command12_Click()
Command12.Enabled = 0
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 8500", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 8500"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command12.Caption = 1
Label1.Caption = "-----"
Case 1
Command12.Caption = 5
Label2.Caption = "-----"
Case 2
Command12.Caption = 10
Label3.Caption = "-----"
Case 3
Command12.Caption = 25
Label4.Caption = "-----"
Case 4
Command12.Caption = 50
Label5.Caption = "-----"
Case 5
Command12.Caption = 75
Label6.Caption = "-----"
Case 6
Command12.Caption = 100
Label7.Caption = "-----"
Case 7
Command12.Caption = 200
Label8.Caption = "-----"
Case 8
Command12.Caption = 300
Label9.Caption = "-----"
Case 9
Command12.Caption = 400
Label10.Caption = "-----"
Case 10
Command12.Caption = 500
Label11.Caption = "-----"
Case 11
Command12.Caption = 750
Label12.Caption = "-----"
End Select
End Sub
Private Sub Command13_Click()
a13:
Command13.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a13
Label26.Caption = seç
Select Case seç
Case 0
Command13.Caption = 1000
Label13.Caption = "-----"
Case 13
Command13.Caption = 5000
Label14.Caption = "-----"
Case 14
Command13.Caption = 10000
Label15.Caption = "-----"
Case 15
Command13.Caption = 250000
Label16.Caption = "-----"
Case 16
Command13.Caption = 50000
Label17.Caption = "-----"
Case 17
Command13.Caption = 75000
Label18.Caption = "-----"
Case 18
Command13.Caption = 100000
Label19.Caption = "-----"
Case 19
Command13.Caption = 200000
Label20.Caption = "-----"
Case 20
Command13.Caption = 300000
Label21.Caption = "-----"
Case 21
Command13.Caption = 400000
Label22.Caption = "-----"
Case 22
Command13.Caption = 5000000
Label23.Caption = "-----"
Case 23
Command13.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 75690", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 75690"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command14_Click()
a14:
Command14.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a14
Label26.Caption = seç
Select Case seç
Case 13
Command14.Caption = 1000
Label13.Caption = "-----"
Case 14
Command14.Caption = 5000
Label14.Caption = "-----"
Case 15
Command14.Caption = 10000
Label15.Caption = "-----"
Case 16
Command14.Caption = 250000
Label16.Caption = "-----"
Case 17
Command14.Caption = 50000
Label17.Caption = "-----"
Case 18
Command14.Caption = 75000
Label18.Caption = "-----"
Case 19
Command14.Caption = 100000
Label19.Caption = "-----"
Case 20
Command14.Caption = 200000
Label20.Caption = "-----"
Case 21
Command14.Caption = 300000
Label21.Caption = "-----"
Case 22
Command14.Caption = 400000
Label22.Caption = "-----"
Case 23
Command14.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command14.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 1560", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 1560"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command15_Click()
a15:
Command15.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a15:
Label26.Caption = seç
Select Case seç
Case 13
Command15.Caption = 1000
Label13.Caption = "-----"
Case 14
Command15.Caption = 5000
Label14.Caption = "-----"
Case 15
Command15.Caption = 10000
Label15.Caption = "-----"
Case 16
Command15.Caption = 250000
Label16.Caption = "-----"
Case 17
Command15.Caption = 50000
Label17.Caption = "-----"
Case 18
Command15.Caption = 75000
Label18.Caption = "-----"
Case 19
Command15.Caption = 100000
Label19.Caption = "-----"
Case 20
Command15.Caption = 200000
Label20.Caption = "-----"
Case 21
Command15.Caption = 300000
Label21.Caption = "-----"
Case 22
Command15.Caption = 400000
Label22.Caption = "-----"
Case 23
Command15.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command15.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 10000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 10000"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command16_Click()
a16:
Command16.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a16
Label26.Caption = seç
Select Case seç
Case 13
Command16.Caption = 1000
Label13.Caption = "-----"
Case 14
Command16.Caption = 5000
Label14.Caption = "-----"
Case 15
Command16.Caption = 10000
Label15.Caption = "-----"
Case 16
Command16.Caption = 250000
Label16.Caption = "-----"
Case 17
Command16.Caption = 50000
Label17.Caption = "-----"
Case 18
Command16.Caption = 75000
Label18.Caption = "-----"
Case 19
Command16.Caption = 100000
Label19.Caption = "-----"
Case 20
Command16.Caption = 200000
Label20.Caption = "-----"
Case 21
Command16.Caption = 300000
Label21.Caption = "-----"
Case 22
Command16.Caption = 400000
Label22.Caption = "-----"
Case 23
Command16.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command16.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 8500", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 850"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command17_Click()
a17:
Command17.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a17
Label26.Caption = seç
Select Case seç
Case 13
Command17.Caption = 1000
Label13.Caption = "-----"
Case 14
Command17.Caption = 5000
Label14.Caption = "-----"
Case 15
Command17.Caption = 10000
Label15.Caption = "-----"
Case 16
Command17.Caption = 250000
Label16.Caption = "-----"
Case 17
Command17.Caption = 50000
Label17.Caption = "-----"
Case 18
Command17.Caption = 75000
Label18.Caption = "-----"
Case 19
Command17.Caption = 100000
Label19.Caption = "-----"
Case 20
Command17.Caption = 200000
Label20.Caption = "-----"
Case 21
Command17.Caption = 300000
Label21.Caption = "-----"
Case 22
Command17.Caption = 400000
Label22.Caption = "-----"
Case 23
Command17.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command17.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 10000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 10000"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command18_Click()
a18:
Command18.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a18
Label26.Caption = seç
Select Case seç
Case 13
Command18.Caption = 1000
Label13.Caption = "-----"
Case 14
Command18.Caption = 5000
Label14.Caption = "-----"
Case 15
Command18.Caption = 10000
Label15.Caption = "-----"
Case 16
Command18.Caption = 250000
Label16.Caption = "-----"
Case 17
Command18.Caption = 50000
Label17.Caption = "-----"
Case 18
Command18.Caption = 75000
Label18.Caption = "-----"
Case 19
Command18.Caption = 100000
Label19.Caption = "-----"
Case 20
Command18.Caption = 200000
Label20.Caption = "-----"
Case 21
Command18.Caption = 300000
Label21.Caption = "-----"
Case 22
Command18.Caption = 400000
Label22.Caption = "-----"
Case 23
Command18.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command18.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 20000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 20000"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command19_Click()
a19:
Command19.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a19
Label26.Caption = seç
Select Case seç
Case 13
Command19.Caption = 1000
Label13.Caption = "-----"
Case 14
Command19.Caption = 5000
Label14.Caption = "-----"
Case 15
Command19.Caption = 10000
Label15.Caption = "-----"
Case 16
Command19.Caption = 250000
Label16.Caption = "-----"
Case 17
Command19.Caption = 50000
Label17.Caption = "-----"
Case 18
Command19.Caption = 75000
Label18.Caption = "-----"
Case 19
Command19.Caption = 100000
Label19.Caption = "-----"
Case 20
Command19.Caption = 200000
Label20.Caption = "-----"
Case 21
Command19.Caption = 300000
Label21.Caption = "-----"
Case 22
Command19.Caption = 400000
Label22.Caption = "-----"
Case 23
Command19.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command19.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 1200", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 1200"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command2_Click()
Command2.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command2.Caption = 1
Label1.Caption = "-----"
Case 1
Command2.Caption = 5
Label2.Caption = "-----"
Case 2
Command2.Caption = 10
Label3.Caption = "-----"
Case 3
Command2.Caption = 25
Label4.Caption = "-----"
Case 4
Command2.Caption = 50
Label5.Caption = "-----"
Case 5
Command2.Caption = 75
Label6.Caption = "-----"
Case 6
Command2.Caption = 100
Label7.Caption = "-----"
Case 7
Command2.Caption = 200
Label8.Caption = "-----"
Case 8
Command2.Caption = 300
Label9.Caption = "-----"
Case 9
Command2.Caption = 400
Label10.Caption = "-----"
Case 10
Command2.Caption = 500
Label11.Caption = "-----"
Case 11
Command2.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 100", vbYesNo)
If d = vbYes Then
Label28.Caption = "Bankanın Teklifi 100"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command20_Click()
a20:
Command20.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a20
Label26.Caption = seç
Select Case seç
Case 13
Command20.Caption = 1000
Label13.Caption = "-----"
Case 14
Command20.Caption = 5000
Label14.Caption = "-----"
Case 15
Command120.Caption = 10000
Label15.Caption = "-----"
Case 16
Command20.Caption = 250000
Label16.Caption = "-----"
Case 17
Command20.Caption = 50000
Label17.Caption = "-----"
Case 18
Command20.Caption = 75000
Label18.Caption = "-----"
Case 19
Command20.Caption = 100000
Label19.Caption = "-----"
Case 20
Command20.Caption = 200000
Label20.Caption = "-----"
Case 21
Command20.Caption = 300000
Label21.Caption = "-----"
Case 22
Command20.Caption = 400000
Label22.Caption = "-----"
Case 23
Command20.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command20.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 13000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 13000"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command21_Click()
a21:
Command21.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a21
Label26.Caption = seç
Select Case seç
Case 13
Command21.Caption = 1000
Label13.Caption = "-----"
Case 14
Command21.Caption = 5000
Label14.Caption = "-----"
Case 15
Command21.Caption = 10000
Label15.Caption = "-----"
Case 16
Command21.Caption = 250000
Label16.Caption = "-----"
Case 17
Command21.Caption = 50000
Label17.Caption = "-----"
Case 18
Command21.Caption = 75000
Label18.Caption = "-----"
Case 19
Command21.Caption = 100000
Label19.Caption = "-----"
Case 20
Command21.Caption = 200000
Label20.Caption = "-----"
Case 21
Command21.Caption = 300000
Label21.Caption = "-----"
Case 22
Command21.Caption = 400000
Label22.Caption = "-----"
Case 23
Command21.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command21.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 750", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 750"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command22_Click()
a22:
Command22.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a22
Label26.Caption = seç
Select Case seç
Case 13
Command22.Caption = 1000
Label13.Caption = "-----"
Case 14
Command22.Caption = 5000
Label14.Caption = "-----"
Case 15
Command22.Caption = 10000
Label15.Caption = "-----"
Case 16
Command22.Caption = 250000
Label16.Caption = "-----"
Case 17
Command22.Caption = 50000
Label17.Caption = "-----"
Case 18
Command22.Caption = 75000
Label18.Caption = "-----"
Case 19
Command22.Caption = 100000
Label19.Caption = "-----"
Case 20
Command22.Caption = 200000
Label20.Caption = "-----"
Case 21
Command22.Caption = 300000
Label21.Caption = "-----"
Case 22
Command22.Caption = 400000
Label22.Caption = "-----"
Case 23
Command22.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command22.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 1560", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 1560"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command23_Click()
a23:
Command23.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a23
Label26.Caption = seç
Select Case seç
Case 13
Command23.Caption = 1000
Label13.Caption = "-----"
Case 14
Command23.Caption = 5000
Label14.Caption = "-----"
Case 15
Command23.Caption = 10000
Label15.Caption = "-----"
Case 16
Command23.Caption = 250000
Label16.Caption = "-----"
Case 17
Command23.Caption = 50000
Label17.Caption = "-----"
Case 18
Command23.Caption = 75000
Label18.Caption = "-----"
Case 19
Command23.Caption = 100000
Label19.Caption = "-----"
Case 20
Command23.Caption = 200000
Label20.Caption = "-----"
Case 21
Command23.Caption = 300000
Label21.Caption = "-----"
Case 22
Command23.Caption = 400000
Label22.Caption = "-----"
Case 23
Command23.Caption = 5000000
Label23.Caption = "-----"
Case 24
Command23.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 1590", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 1590"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command24_Click()
a24:
Command24.Enabled = 0
seç = Int(Rnd * (24))
If seç < 13 Then GoTo a24
Label26.Caption = seç
Select Case seç
Case 13
Command24.Caption = 1000
Label13.Caption = "-----"
Case 14
Command24.Caption = 5000
Label14.Caption = "-----"
Case 15
Command24.Caption = 10000
Label15.Caption = "-----"
Case 16
Command24.Caption = 250000
Label16.Caption = "-----"
Case 17
Command24.Caption = 50000
Label17.Caption = "-----"
Case 16
Command24.Caption = 75000
Label18.Caption = "-----"
Case 17
Command24.Caption = 100000
Label19.Caption = "-----"
Case 18
Command24.Caption = 200000
Label20.Caption = "-----"
Case 19
Command24.Caption = 300000
Label21.Caption = "-----"
Case 20
Command24.Caption = 400000
Label22.Caption = "-----"
Case 21
Command24.Caption = 5000000
Label23.Caption = "-----"
Case 22
Command24.Caption = 5000000
Label24.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 10000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 10000"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command25_Click()
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Command1.Caption = "Emre"
Command2.Caption = "Erkan"
Command3.Caption = "Eylül"
Command4.Caption = "Hasan"
Command5.Caption = "Seher"
Command6.Caption = "Harun"
Command7.Caption = "Elif"
Command8.Caption = "Yasin"
Command9.Caption = "Süleyman"
Command10.Caption = "Emre"
Command11.Caption = "Fatih"
Command12.Caption = "Orhan"
Command13.Caption = "Mehmet"
Command14.Caption = "Murat"
Command15.Caption = "Akif"
Command16.Caption = "Polat"
Command17.Caption = "Ferdi"
Command18.Caption = "Elmas"
Command19.Caption = "Ferit"
Command20.Caption = "Aykut"
Command21.Caption = "Hamdi"
Command22.Caption = "Selma"
Command23.Caption = "Erguvan"
Command24.Caption = "Fatma"
End Sub
Private Sub Command3_Click()
Command3.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command3.Caption = 1
Label1.Caption = "-----"
Case 1
Command3.Caption = 5
Label2.Caption = "-----"
Case 2
Command3.Caption = 10
Label3.Caption = "-----"
Case 3
Command3.Caption = 25
Label4.Caption = "-----"
Case 4
Command3.Caption = 50
Label5.Caption = "-----"
Case 5
Command3.Caption = 75
Label6.Caption = "-----"
Case 6
Command3.Caption = 100
Label7.Caption = "-----"
Case 7
Command3.Caption = 200
Label8.Caption = "-----"
Case 8
Command3.Caption = 300
Label9.Caption = "-----"
Case 9
Command3.Caption = 400
Label10.Caption = "-----"
Case 10
Command3.Caption = 500
Label11.Caption = "-----"
Case 11
Command3.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 7500", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 7500"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command4_Click()
Command4.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command4.Caption = 1
Label1.Caption = "-----"
Case 1
Command4.Caption = 5
Label2.Caption = "-----"
Case 2
Command4.Caption = 10
Label3.Caption = "-----"
Case 3
Command4.Caption = 25
Label4.Caption = "-----"
Case 4
Command4.Caption = 50
Label5.Caption = "-----"
Case 5
Command4.Caption = 75
Label6.Caption = "-----"
Case 6
Command4.Caption = 100
Label7.Caption = "-----"
Case 7
Command4.Caption = 200
Label8.Caption = "-----"
Case 8
Command4.Caption = 300
Label9.Caption = "-----"
Case 9
Command4.Caption = 400
Label10.Caption = "-----"
Case 10
Command4.Caption = 500
Label11.Caption = "-----"
Case 11
Command4.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 3500", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 3500"
Label28.Visible = True
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command5_Click()
Command5.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command5.Caption = 1
Label1.Caption = "-----"
Case 1
Command5.Caption = 5
Label2.Caption = "-----"
Case 2
Command5.Caption = 10
Label3.Caption = "-----"
Case 3
Command5.Caption = 25
Label4.Caption = "-----"
Case 4
Command5.Caption = 50
Label5.Caption = "-----"
Case 5
Command5.Caption = 75
Label6.Caption = "-----"
Case 6
Command5.Caption = 100
Label7.Caption = "-----"
Case 7
Command5.Caption = 200
Label8.Caption = "-----"
Case 8
Command5.Caption = 300
Label9.Caption = "-----"
Case 9
Command5.Caption = 400
Label10.Caption = "-----"
Case 10
Command5.Caption = 500
Label11.Caption = "-----"
Case 11
Command5.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 6900", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 6900"
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Label28.Visible = True
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command6_Click()
Command6.Enabled = 0
seç = Int(Rnd * (12))
Select Case seç11
Case 0
Command6.Caption = 1
Label1.Caption = "-----"
Case 1
Command6.Caption = 5
Label2.Caption = "-----"
Case 2
Command6.Caption = 10
Label3.Caption = "-----"
Case 3
Command6.Caption = 25
Label4.Caption = "-----"
Case 4
Command6.Caption = 50
Label5.Caption = "-----"
Case 5
Command6.Caption = 75
Label6.Caption = "-----"
Case 6
Command6.Caption = 100
Label7.Caption = "-----"
Case 7
Command6.Caption = 200
Label8.Caption = "-----"
Case 8
Command6.Caption = 300
Label9.Caption = "-----"
Case 9
Command6.Caption = 400
Label10.Caption = "-----"
Case 10
Command6.Caption = 500
Label11.Caption = "-----"
Case 11
Command6.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 12000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 12000"
Label28.Visible = True
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command7_Click()
Command7.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command7.Caption = 1
Label1.Caption = "-----"
Case 1
Command7.Caption = 5
Label2.Caption = "-----"
Case 2
Command7.Caption = 10
Label3.Caption = "-----"
Case 3
Command7.Caption = 25
Label4.Caption = "-----"
Case 4
Command7.Caption = 50
Label5.Caption = "-----"
Case 5
Command7.Caption = 75
Label6.Caption = "-----"
Case 6
Command7.Caption = 100
Label7.Caption = "-----"
Case 7
Command7.Caption = 200
Label8.Caption = "-----"
Case 8
Command7.Caption = 300
Label9.Caption = "-----"
Case 9
Command7.Caption = 400
Label10.Caption = "-----"
Case 10
Command7.Caption = 500
Label11.Caption = "-----"
Case 11
Command7.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 250", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 250"
Label28.Visible = True
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command8_Click()
Command8.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command8.Caption = 1
Label1.Caption = "-----"
Case 1
Command8.Caption = 5
Label2.Caption = "-----"
Case 2
Command8.Caption = 10
Label3.Caption = "-----"
Case 3
Command8.Caption = 25
Label4.Caption = "-----"
Case 4
Command8.Caption = 50
Label5.Caption = "-----"
Case 5
Command8.Caption = 75
Label6.Caption = "-----"
Case 6
Command8.Caption = 100
Label7.Caption = "-----"
Case 7
Command8.Caption = 200
Label8.Caption = "-----"
Case 8
Command8.Caption = 300
Label9.Caption = "-----"
Case 9
Command8.Caption = 400
Label10.Caption = "-----"
Case 10
Command8.Caption = 500
Label11.Caption = "-----"
Case 11
Command8.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 5000", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 5000"
Label28.Visible = True
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Command9_Click()
Command9.Enabled = 0
seç = Int(Rnd * (12))
Label25.Caption = seç
Select Case seç
Case 0
Command9.Caption = 1
Label1.Caption = "-----"
Case 1
Command9.Caption = 5
Label2.Caption = "-----"
Case 2
Command9.Caption = 10
Label3.Caption = "-----"
Case 3
Command9.Caption = 25
Label4.Caption = "-----"
Case 4
Command9.Caption = 50
Label5.Caption = "-----"
Case 5
Command9.Caption = 75
Label6.Caption = "-----"
Case 6
Command9.Caption = 100
Label7.Caption = "-----"
Case 7
Command9.Caption = 200
Label8.Caption = "-----"
Case 8
Command9.Caption = 300
Label9.Caption = "-----"
Case 9
Command9.Caption = 400
Label10.Caption = "-----"
Case 10
Command9.Caption = 500
Label11.Caption = "-----"
Case 11
Command9.Caption = 750
Label12.Caption = "-----"
End Select
Label27.Caption = Label27.Caption - 1
If Label27.Caption = 21 Or Label27.Caption = 18 Or Label27.Caption = 15 Or Label27.Caption = 12 Or Label27.Caption = 9 Or Label27.Caption = 6 Or Label27.Caption = 3 Then
d = MsgBox("bankanın teklifi 6900", vbYesNo)
If d = vbYes Then
Label28.Caption = "Banknın Teklifi 6900"
Label28.Visible = True
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
ElseIf d = vbNo Then
Label28.Caption = ""
End If
End If
End Sub
Private Sub Çık_Click()
End
End Sub
Private Sub Form_Load()
a = InputBox("Lütfen Bir kutu Seçiniz", "Seç", "1-24 arası")
Select Case a
Case 1
Command1.Caption = "Senin Kutun"
Command1.Enabled = 0
Case 1
Command1.Enabled = 0
Command2.Caption = "Senin Kutun"
Case 2
Command2.Enabled = 0
Command2.Caption = "Senin Kutun"
Case 3
Command3.Enabled = 0
Command3.Caption = "Senin Kutun"
Case 4
Command4.Enabled = 0
Command4.Caption = "Senin Kutun"
Case 5
Command5.Enabled = 0
Command5.Caption = "Senin Kutun"
Case 6
Command6.Enabled = 0
Command6.Caption = "Senin Kutun"
Case 7
Command7.Enabled = 0
Command7.Caption = "Senin Kutun"
Case 8
Command8.Enabled = 0
Command8.Caption = "Senin Kutun"
Case 9
Command9.Enabled = 0
Command9.Caption = "Senin Kutun"
Case 10
Command10.Enabled = 0
Command10.Caption = "Senin Kutun"
Case 11
Command11.Enabled = 0
Command11.Caption = "Senin Kutun"
Case 12
Command12.Enabled = 0
Command12.Caption = "Senin Kutun"
Case 13
Command13.Enabled = 0
Command13.Caption = "Senin Kutun"
Case 14
Command14.Enabled = 0
Command14.Caption = "Senin Kutun"
Case 15
Command15.Enabled = 0
Command15.Caption = "Senin Kutun"
Case 16
Command16.Enabled = 0
Command16.Caption = "Senin Kutun"
Case 17
Command17.Enabled = 0
Command17.Caption = "Senin Kutun"
Case 18
Command18.Enabled = 0
Command18.Caption = "Senin Kutun"
Case 19
Command19.Enabled = 0
Command19.Caption = "Senin Kutun"
Case 20
Command20.Enabled = 0
Command20.Caption = "Senin Kutun"
Case 21
Command21.Enabled = 0
Command21.Caption = "Senin Kutun"
Case 22
Command22.Enabled = 0
Command22.Caption = "Senin Kutun"
Case 23
Command23.Enabled = 0
Command23.Caption = "Senin Kutun"
Case 24
Command24.Enabled = 0
Command24.Caption = "Senin Kutun"
End Select
End Sub
Private Sub Hakkımızda_Click()
a = MsgBox("Elmadağ Metem Ve Atl Lisesi", vbCritical, "Saygılarla Tüm Hakkaları saklıdır")
End Sub
Private Sub Label28_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
Timer2.Enabled = False
Label28.Visible = False
Command1.Caption = ""
Command1.Enabled = 1
Command2.Caption = ""
Command2.Enabled = 1
Command3.Caption = ""
Command3.Enabled = 1
Command4.Caption = ""
Command4.Enabled = 1
Command5.Caption = ""
Command5.Enabled = 1
Command6.Caption = ""
Command6.Enabled = 1
Command7.Caption = ""
Command7.Enabled = 1
Command8.Caption = ""
Command8.Enabled = 1
Command9.Caption = ""
Command9.Enabled = 1
Command10.Caption = ""
Command10.Enabled = 1
Command11.Caption = ""
Command11.Enabled = 1
Command12.Caption = ""
Command12.Enabled = 1
Command13.Caption = ""
Command13.Enabled = 1
Command14.Caption = ""
Command14.Enabled = 1
Command15.Caption = ""
Command15.Enabled = 1
Command16.Caption = ""
Command16.Enabled = 1
Command17.Caption = ""
Command17.Enabled = 1
Command18.Caption = ""
Command18.Enabled = 1
Command19.Caption = ""
Command19.Enabled = 1
Command20.Caption = ""
Command20.Enabled = 1
Command21.Caption = ""
Command21.Enabled = 1
Command22.Caption = ""
Command22.Enabled = 1
Command23.Caption = ""
Command23.Enabled = 1
Command24.Caption = ""
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Command1.Caption = "Emre"
Command2.Caption = "Erkan"
Command3.Caption = "Eylül"
Command4.Caption = "Hasan"
Command5.Caption = "Seher"
Command6.Caption = "Harun"
Command7.Caption = "Elif"
Command8.Caption = "Yasin"
Command9.Caption = "Süleyman"
Command10.Caption = "Emre"
Command11.Caption = "Fatih"
Command12.Caption = "Orhan"
Command13.Caption = "Mehmet"
Command14.Caption = "Murat"
Command15.Caption = "Akif"
Command16.Caption = "Polat"
Command17.Caption = "Ferdi"
Command18.Caption = "Elmas"
Command19.Caption = "Ferit"
Command20.Caption = "Aykut"
Command21.Caption = "Hamdi"
Command22.Caption = "Selma"
Command23.Caption = "Erguvan"
Command24.Caption = "Fatma"
End Sub
Private Sub Timer1_Timer()
Label28.Visible = False
End Sub
Private Sub Timer2_Timer()
Label28.Visible = True
End Sub
Private Sub Timer3_Timer()
If Label28.Visible = True Then
Timer1.Enabled = True
Timer2.Enabled = True
End If
End Sub
Private Sub Y_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Command1.Caption = "Emre"
Command1.Enabled = 1
Command2.Caption = "Erkan"
Command2.Enabled = 1
Command3.Caption = "Eylül"
Command3.Enabled = 1
Command4.Caption = "Hasan"
Command4.Enabled = 1
Command5.Caption = "Seher"
Command5.Enabled = 1
Command6.Caption = "Harun"
Command6.Enabled = 1
Command7.Caption = "Elif"
Command7.Enabled = 1
Command8.Caption = "Yasin"
Command8.Enabled = 1
Command9.Caption = "Süleyman"
Command9.Enabled = 1
Command10.Caption = "Memati"
Command10.Enabled = 1
Command11.Caption = "Fatih"
Command11.Enabled = 1
Command12.Caption = "Orhan"
Command12.Enabled = 1
Command13.Caption = "Mehmet"
Command13.Enabled = 1
Command14.Caption = "Murat"
Command14.Enabled = 1
Command15.Caption = "Akif"
Command15.Enabled = 1
Command16.Caption = "Polat"
Command16.Enabled = 1
Command17.Caption = "Ferdi"
Command17.Enabled = 1
Command18.Caption = "Elmas"
Command18.Enabled = 1
Command19.Caption = "Ferit"
Command19.Enabled = 1
Command20.Caption = "Aykut"
Command20.Enabled = 1
Command21.Caption = "Hamdi"
Command21.Enabled = 1
Command22.Caption = "Selma"
Command22.Enabled = 1
Command23.Caption = "Ekrem"
Command23.Enabled = 1
Command24.Caption = "Fatma"
Command24.Enabled = 1
Label1.Caption = "1"
Label2.Caption = "5"
Label3.Caption = "10"
Label4.Caption = "25"
Label5.Caption = "50"
Label6.Caption = "75"
Label7.Caption = "100"
Label8.Caption = "200"
Label9.Caption = "300"
Label10.Caption = "400"
Label11.Caption = "500"
Label12.Caption = "750"
Label13.Caption = "1000"
Label14.Caption = "5000"
Label15.Caption = "10000"
Label16.Caption = "25000"
Label17.Caption = "75000"
Label18.Caption = "100000"
Label19.Caption = "20000"
Label20.Caption = "30000"
Label21.Caption = "500000"
Label22.Caption = "750000"
Label23.Caption = "100000"
Label24.Caption = "50000000"
Command3.Caption = "Eylül"
Command4.Caption = "Hasan"
Command5.Caption = "Seher"
Command6.Caption = "Harun"
Command7.Caption = "Elif"
Command8.Caption = "Yasin"
Command9.Caption = "Süleyman"
Command10.Caption = "Emre"
Command11.Caption = "Fatih"
Command12.Caption = "Orhan"
Command13.Caption = "Mehmet"
Command14.Caption = "Murat"
Command15.Caption = "Akif"
Command16.Caption = "Polat"
Command17.Caption = "Ferdi"
Command18.Caption = "Elmas"
Command19.Caption = "Ferit"
Command20.Caption = "Aykut"
Command21.Caption = "Hamdi"
Command22.Caption = "Selma"
Command23.Caption = "Erguvan"
Command24.Caption = "Fatma"
End Sub
yasin
karafil_0092@hotmail.com