pasaparola oyunu

Dim soru(21) As String
Dim cevap(21) As String
Dim Time, i, d, y As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
Label25.Caption = soru(i)
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = True
d = 0
y = 0
i = 0
Shape1.BackColor = &HEC91C8
Shape2.BackColor = &HEC91C8
Shape3.BackColor = &HEC91C8
Shape4.BackColor = &HEC91C8
Shape5.BackColor = &HEC91C8
Shape6.BackColor = &HEC91C8
Shape7.BackColor = &HEC91C8
Shape8.BackColor = &HEC91C8
Shape9.BackColor = &HEC91C8
Shape10.BackColor = &HEC91C8
Shape11.BackColor = &HEC91C8
Shape12.BackColor = &HEC91C8
Shape13.BackColor = &HEC91C8
Shape14.BackColor = &HEC91C8
Shape15.BackColor = &HEC91C8
Shape16.BackColor = &HEC91C8
Shape17.BackColor = &HEC91C8
Shape18.BackColor = &HEC91C8
Shape19.BackColor = &HEC91C8
Shape20.BackColor = &HEC91C8
Shape21.BackColor = &HEC91C8
Shape22.BackColor = &H7C1B5C
Shape23.BackColor = &H7C1B5C
Shape24.BackColor = &H7C1B5C
i = -1
d = 0
y = 0
Timer1.Enabled = True
Time = 121
i = i + 1
Label25.Caption = soru(i)
Label28.Caption = ""
Label30.Caption = ""
End Sub

Private Sub Command2_Click()
Select Case i
Case 0
If Text1.Text = cevap(i) Then
Shape1.BackColor = &H80FF80
d = d + 1
Else
Shape1.BackColor = &H8080FF
y = y + 1
End If

Case 1
If Text1.Text = cevap(i) Then
Shape2.BackColor = &H80FF80
d = d + 1
Else
Shape2.BackColor = &H8080FF
y = y + 1
End If

Case 2
If Text1.Text = cevap(i) Then
Shape3.BackColor = &H80FF80
d = d + 1
Else
Shape3.BackColor = &H8080FF
y = y + 1
End If

Case 3
If Text1.Text = cevap(i) Then
Shape4.BackColor = &H80FF80
d = d + 1
Else
Shape4.BackColor = &H8080FF
y = y + 1
End If

Case 4
If Text1.Text = cevap(i) Then
Shape5.BackColor = &H80FF80
d = d + 1
Else
Shape5.BackColor = &H8080FF
y = y + 1
End If

Case 5
If Text1.Text = cevap(i) Then
Shape6.BackColor = &H80FF80
d = d + 1
Else
Shape6.BackColor = &H8080FF
y = y + 1
End If

Case 6
If Text1.Text = cevap(i) Then
Shape7.BackColor = &H80FF80
d = d + 1
Else
Shape7.BackColor = &H8080FF
y = y + 1
End If

Case 7
If Text1.Text = cevap(i) Then
Shape8.BackColor = &H80FF80
d = d + 1
Else
Shape8.BackColor = &H8080FF
y = y + 1
End If

Case 8
If Text1.Text = cevap(i) Then
Shape9.BackColor = &H80FF80
d = d + 1
Else
Shape9.BackColor = &H8080FF
y = y + 1
End If

Case 9
If Text1.Text = cevap(i) Then
Shape10.BackColor = &H80FF80
d = d + 1
Else
Shape10.BackColor = &H8080FF
y = y + 1
End If

Case 10
If Text1.Text = cevap(i) Then
Shape11.BackColor = &H80FF80
d = d + 1
Else
Shape11.BackColor = &H8080FF
y = y + 1
End If

Case 11
If Text1.Text = cevap(i) Then
Shape12.BackColor = &H80FF80
d = d + 1
Else
Shape12.BackColor = &H8080FF
y = y + 1
End If

Case 12
If Text1.Text = cevap(i) Then
Shape13.BackColor = &H80FF80
d = d + 1
Else
Shape13.BackColor = &H8080FF
y = y + 1
End If

Case 13
If Text1.Text = cevap(i) Then
Shape14.BackColor = &H80FF80
d = d + 1
Else
Shape14.BackColor = &H8080FF
y = y + 1
End If

Case 14
If Text1.Text = cevap(i) Then
Shape15.BackColor = &H80FF80
d = d + 1
Else
Shape15.BackColor = &H8080FF
y = y + 1
End If

Case 15
If Text1.Text = cevap(i) Then
Shape16.BackColor = &H80FF80
d = d + 1
Else
Shape16.BackColor = &H8080FF
y = y + 1
End If

Case 16
If Text1.Text = cevap(i) Then
Shape17.BackColor = &H80FF80
d = d + 1
Else
Shape17.BackColor = &H8080FF
y = y + 1
End If

Case 17
If Text1.Text = cevap(i) Then
Shape18.BackColor = &H80FF80
d = d + 1
Else
Shape18.BackColor = &H8080FF
y = y + 1
End If

Case 18
If Text1.Text = cevap(i) Then
Shape19.BackColor = &H80FF80
d = d + 1
Else
Shape19.BackColor = &H8080FF
y = y + 1
End If

Case 19
If Text1.Text = cevap(i) Then
Shape20.BackColor = &H80FF80
d = d + 1
Else
Shape20.BackColor = &H8080FF
y = y + 1
End If

Case 20
If Text1.Text = cevap(i) Then
Shape21.BackColor = &H80FF80
d = d + 1
Else
Shape21.BackColor = &H8080FF
y = y + 1
End If
End Select
Label28.Caption = d
Label30.Caption = y
If d = 15 Then
Shape22.BackColor = vbWhite
Label47.Visible = True
End If
If d = 18 Then
Shape23.BackColor = vbWhite
Label47.Visible = False
Label48.Visible = True
End If
If d = 21 Then
Shape24.BackColor = vbWhite
Label48.Visible = False
Label49.Visible = True
End If
Text1.Text = ""
i = i + 1
Label25.Caption = soru(i)
If i = 21 Then
MsgBox "TEBRİKLER!!! TURU TAMAMLADINIZ"
Command1.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Command3_Click()
Select Case i
Case 0
Shape1.BackColor = &H80FFFF
Case 1
Shape2.BackColor = &H80FFFF
Case 2
Shape3.BackColor = &H80FFFF
Case 3
Shape4.BackColor = &H80FFFF
Case 4
Shape5.BackColor = &H80FFFF
Case 5
Shape6.BackColor = &H80FFFF
Case 6
Shape7.BackColor = &H80FFFF
Case 7
Shape8.BackColor = &H80FFFF
Case 8
Shape9.BackColor = &H80FFFF
Case 9
Shape10.BackColor = &H80FFFF
Case 10
Shape11.BackColor = &H80FFFF
Case 11
Shape12.BackColor = &H80FFFF
Case 12
Shape13.BackColor = &H80FFFF
Case 13
Shape14.BackColor = &H80FFFF
Case 14
Shape15.BackColor = &H80FFFF
Case 15
Shape16.BackColor = &H80FFFF
Case 16
Shape17.BackColor = &H80FFFF
Case 17
Shape18.BackColor = &H80FFFF
Case 18
Shape19.BackColor = &H80FFFF
Case 19
Shape20.BackColor = &H80FFFF
Case 20
Shape21.BackColor = &H80FFFF
End Select
i = i + 1
Label25.Caption = soru(i)
If i = 21 Then
MsgBox "TEBRİKLER!!! TURU TAMAMLADINIZ"
Command1.Enabled = True
Timer1.Enabled = False
End If
End Sub

Private Sub Form_Load()
soru(0) = "DÜNYANIN 7 HARİKASI İÇİN ADAY OLAN TARİHİ ESERİMİZ?"
soru(1) = "YAPILAN HİZMETE KARŞILIK ÖDENEN MİKTARDAN AYRI OLARAK FAZLA VERİLen PARA?"
soru(2) = "AKDENİZ İLE ATLAS OKYANUSUNU BA?LAYAN BO?AZ?"
soru(3) = "DÜNYANIN EN BÜYÜK ADASI OLAN ÜLKE?"
soru(4) = "OSMANLIDA ŞEHZADE YETİŞTİRİLen OKULLARIN GENEL ADI?"
soru(5) = "BÜTÜN EVRENİ SARAN BOŞLUK, UZAY?"
soru(6) = "SANAT ESERLERİNİN SERGİLENDİ?İ YER?"
soru(7) = "ESKİ DİLDE DOKTOR?"
soru(8) = "SPAGETTİSİYLE ÜNLÜ OLAN ÜLKE?"
soru(9) = "DANİMARKANIN PARA BİRİMİ?"
soru(10) = "GEMİLERİN BARINDI?I YÜK VE YOLCU ALIP BIRAKTIKLARI YER?"
soru(11) = "KİLTLERİ AÇMAYA YARAYAN E?Rİ UCU SİVRİ DEMİR ALET?"
soru(12) = "DÜNYANIN EN UZUN NEHRİ?"
soru(13) = "BOYU 100 METREYİ BULAN BATAKLIKLARI KURUTAN A?AÇ?"
soru(14) = "DEVLET TARFINDAN BASTIRILAN, ÜZERİNDE DE?ERİ YAZILI ÖDEME ARACI?"
soru(15) = "GÖZLEM EVİ?"
soru(16) = "MA?ARALARIN TAVANLARINDAN SARKAN KONİ BİÇİMLİ KİREÇ SÜTUN?"
soru(17) = "SICAKLI?I ÖLÇMEYE YARAYAN ALET?"
soru(18) = "ONURLU, A?IRBAŞLI"
soru(19) = "SEBEPSİZ YERE BA?IRIP ÇA?IRMA?"
soru(20) = "TANRIYA VE AHİRETE İNANMAYAN?"
cevap(0) = "ayasofya müzesi"
cevap(1) = "bahşiş"
cevap(2) = "cebelitarık"
cevap(3) = "danimarka"
cevap(4) = "enderun"
cevap(5) = "feza"
cevap(6) = "galeri"
cevap(7) = "hekim"
cevap(8) = "italya"
cevap(9) = "kron"
cevap(10) = "liman"
cevap(11) = "maymuncuk"
cevap(12) = "nil"
cevap(13) = "okaliptüs"
cevap(14) = "para"
cevap(15) = "rasathane"
cevap(16) = "sarkıt"
cevap(17) = "termometre"
cevap(18) = "vakur"
cevap(19) = "yaygara"
cevap(20) = "zındık"
Time = 120
Timer1.Enabled = False
i = 0
Command2.Enabled = False
Command3.Enabled = False
Label47.Visible = False
Label48.Visible = False
Label49.Visible = False
End Sub



Private Sub Timer1_Timer()
Time = Time - 1
Label23.Caption = "SÜRENİZ " & Time & " SANİYE"
If Time = 0 Then
Timer1.Enabled = False
End If
End Sub