eğer kodları isterseniz verebilirim=)

__________________

__________________

selam kardeş:

ya ben yeni başladım da bana o kodları yollasana e-mail adresim

yeni başladıysan biraz zor bunu yapman. buyrun kodLAr.



ublicClass Form1
Dim i AsInteger
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Dim d AsDouble
For d = 0 To 1 - 0.1 Step +0.1
System.Threading.Thread.Sleep(50)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Me.Opacity = 100
Next
GroupBox3.Visible = False
i = 1
SelectCase i
Case 1
Button8.Text = "Üsküdar İmkb Kız Meslek Lisesi'nin kuruluş tarihi aşağıdakilerden hangisidir?"
Button4.Text = "2005"
Button5.Text = "2002"
Button6.Text = "1999"
Button7.Text = "1986"
EndSelect
EndSub
PrivateSub Button4_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button4.Click
SelectCase i
Case 1
Button4.BackColor = Color.Red
Button5.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 2
Button4.BackColor = Color.ForestGreen
i = 3
Button8.Text = "Üsküdar İMKB Kız Meslek Lisesi'nin müdüresinin ismi aşagıdakilerden hangidiri?"
Button4.Text = "Özgen Ersoy"
Button5.Text = "Şazimet Durmuşoğlu"
Button6.Text = "Özge Erhan"
Button7.Text = "Oya Alpkılıç"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label8.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 3
Button4.BackColor = Color.Red
Button6.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 4
Button4.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 5
Button4.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 6
Button4.BackColor = Color.Red
Button5.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 7
Button4.BackColor = Color.Red
Button6.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 8
Button4.BackColor = Color.ForestGreen
i = 9
Button8.Text = "Aşağıdakilerden hangisi İMKB'nin bölümlerinden değildir?"
Button4.Text = "Saç Bakım Hİzmetleri Alanı"
Button5.Text = "Bilişim Teknolojileri Alanı"
Button6.Text = "Yiyecek Hizmetleri Alanı"
Button7.Text = "Basın-Yayın Teknolojileri Alanı"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label2.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 9
Button4.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
EndSelect
EndSub
PrivateSub Button5_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button5.Click
SelectCase i
Case 1
Button5.BackColor = Color.ForestGreen
i = 2
Button8.Text = "Okulumuzda kaç bölüm bulunmaktadır?"
Button4.Text = "7"
Button5.Text = "2"
Button6.Text = "5"
Button7.Text = "11"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label9.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 2
Button4.BackColor = Color.ForestGreen
Button5.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 3
Button5.BackColor = Color.Red
Button6.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 4
Button5.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 5
Button5.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 6
Button5.BackColor = Color.ForestGreen
i = 7
Button8.Text = "Aşağıdakilerden hangisi Üsküdar İMKB'nin bölümlerindendir?"
Button4.Text = "Halkla İlişkiler Alanı"
Button5.Text = "Cam Üretim Alanı"
Button6.Text = "Giyim-Üretim Teknolojileri Alanı"
Button7.Text = "Peyzaj Sanatları Alanı"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label4.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 7
Button5.BackColor = Color.Red
Button6.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 8
Button5.BackColor = Color.Red
Button6.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 9
Button5.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
EndSelect
EndSub
PrivateSub Button6_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button6.Click
SelectCase i
Case 1
Button6.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 2
Button4.BackColor = Color.ForestGreen
Button6.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 3
Button6.BackColor = Color.ForestGreen
i = 4
Button8.Text = "Aşağıdakilerden hangisi Bilişim Teknolojileri bölüm öğretmenlerinden değildir?"
Button4.Text = "Ümit Çilingir"
Button5.Text = "Faruk Bıdak"
Button6.Text = "Emre Devrim Korkmaz"
Button7.Text = "Sevda Basumlu"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label7.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 4
Button6.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 5
Button6.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 6
Button5.BackColor = Color.ForestGreen
Button6.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 7
Button6.BackColor = Color.ForestGreen
i = 8
Button8.Text = "Aşağıdakilerden hangisi okulumuzda okutulan 15 temel eserden biri değildir?"
Button4.Text = "Dijital Kale"
Button5.Text = "Esir Şehrin İnsanları"
Button6.Text = "Suç ve Ceza"
Button7.Text = "Savaş ve Barış"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label3.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 8
Button4.BackColor = Color.ForestGreen
Button6.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 9
Button6.BackColor = Color.Red
Button7.BackColor = Color.ForestGreen
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
EndSelect
EndSub
PrivateSub Button7_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button7.Click
SelectCase i
Case 1
Button5.BackColor = Color.ForestGreen
Button7.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 2
Button4.BackColor = Color.ForestGreen
Button7.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 3
Button6.BackColor = Color.ForestGreen
Button7.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 4
Button7.BackColor = Color.ForestGreen
i = 5
Button8.Text = "Aşağıdakilerden hangisi Bilişim Teknolojileri Alanının alt dallarından biridir?"
Button4.Text = "Donanım Alanı"
Button5.Text = "Ağ İşletmenliği"
Button6.Text = "Bilgisayar Öğretmenliği"
Button7.Text = "Veri Tabanı Alanı"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label6.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Case 5
Button7.BackColor = Color.ForestGreen
i = 6
Button8.Text = "Bilişim Teknolojileri Alanının kaç tane atölyesi vardır?"
Button4.Text = "12"
Button5.Text = "4"
Button6.Text = "1"
Button7.Text = "Hiç Yok"
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label5.BackColor = Color.ForestGreen
Case 6
Button5.BackColor = Color.ForestGreen
Button7.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 7
Button6.BackColor = Color.ForestGreen
Button7.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 8
Button4.BackColor = Color.ForestGreen
Button7.BackColor = Color.Red
MsgBox("Oyun bitti,yeniden Başlayınız!")
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Case 9
Button7.BackColor = Color.ForestGreen
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Visible = False
Button5.Visible = False
Button6.Visible = False
Button7.Visible = False
Label9.BackColor = Color.ForestGreen
GroupBox3.Visible = False
Label11.Visible = False
Label12.Visible = False
Label13.Visible = False
Label14.Visible = False
MsgBox("Tebrikler 500.000 YTL kazandınız!!!", MsgBoxStyle.OkOnly, "Kim 500.000 YTL İster?")
EndSelect
EndSub
PrivateSub ÇıkışToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click
Dim d AsDouble
For d = 1 To 0 + 0.02 Step -0.02
System.Threading.Thread.Sleep(50)
Application.DoEvents()
Me.Opacity = d
Me.Refresh()
Next d
Environment.Exit(0)
EndSub
PrivateSub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
GroupBox3.Visible = True
SelectCase i
Case 1
Label15.Visible = False
Label16.Text = "B Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 2
Label15.Visible = False
Label16.Text = "A Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 3
Label15.Visible = False
Label16.Text = "C Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 4
Label15.Visible = False
Label16.Text = "D Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 5
Label15.Visible = False
Label16.Text = "D Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 6
Label15.Visible = False
Label16.Text = "B Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 7
Label15.Visible = False
Label16.Text = "C Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 8
Label15.Visible = False
Label16.Text = "A Şıkkı"
Label17.Visible = False
Label18.Visible = False
Case 9
Label15.Visible = False
Label16.Text = "D Şıkkı"
Label17.Visible = False
Label18.Visible = False
EndSelect
EndSub
PrivateSub Button2_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Enabled = False
SelectCase i
Case 1
Button4.BackColor = Color.Red
Button7.BackColor = Color.Red
Case 2
Button6.BackColor = Color.Red
Button7.BackColor = Color.Red
Case 3
Button5.BackColor = Color.Red
Button7.BackColor = Color.Red
Case 4
Button5.BackColor = Color.Red
Button6.BackColor = Color.Red
Case 5
Button4.BackColor = Color.Red
Button6.BackColor = Color.Red
Case 6
Button4.BackColor = Color.Red
Button6.BackColor = Color.Red
Case 7
Button5.BackColor = Color.Red
Button7.BackColor = Color.Red
Case 8
Button5.BackColor = Color.Red
Button6.BackColor = Color.Red
Case 9
Button4.BackColor = Color.Red
Button5.BackColor = Color.Red
EndSelect
EndSub
PrivateSub Button3_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button3.Click
Button3.Enabled = False
GroupBox3.Visible = True
SelectCase i
Case 1
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%1"
Label16.Text = "B-%60"
Label17.Text = "C-%30"
Label18.Text = "D-%9"
Case 2
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%70"
Label16.Text = "B-%25"
Label17.Text = "C-%3"
Label18.Text = "D-%2"
Case 3
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%10"
Label16.Text = "B-%10"
Label17.Text = "C-%75"
Label18.Text = "D-%5"
Case 4
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%15"
Label16.Text = "B-%12"
Label17.Text = "C-%13"
Label18.Text = "D-%65"
Case 5
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%8"
Label16.Text = "B-%22"
Label17.Text = "C-%10"
Label18.Text = "D-%60"
Case 6
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%10"
Label16.Text = "B-%45"
Label17.Text = "C-%10"
Label18.Text = "D-%35"
Case 7
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%10"
Label16.Text = "B-%45"
Label17.Text = "C-%10"
Label18.Text = "D-%20"
Case 8
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%45"
Label16.Text = "B-%10"
Label17.Text = "C-%15"
Label18.Text = "D-%30"
Case 9
Label15.Visible = True
Label17.Visible = True
Label18.Visible = True
Label15.Text = "A-%10"
Label16.Text = "B-%10"
Label17.Text = "C-%30"
Label18.Text = "D-%50"
EndSelect
EndSub
PrivateSub YeniOyunToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles YeniOyunToolStripMenuItem.Click
i = 1
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
Button4.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button4.Visible = True
Button5.Visible = True
Button6.Visible = True
Button7.Visible = True
Button8.Visible = True
Button4.BackColor = Color.MediumVioletRed
Button5.BackColor = Color.MediumVioletRed
Button6.BackColor = Color.MediumVioletRed
Button7.BackColor = Color.MediumVioletRed
Label1.BackColor = Color.Black
Label2.BackColor = Color.Black
Label3.BackColor = Color.Black
Label4.BackColor = Color.Black
Label5.BackColor = Color.Black
Label6.BackColor = Color.Black
Label7.BackColor = Color.Black
Label8.BackColor = Color.Black
Label9.BackColor = Color.Black
SelectCase i
Case 1
Button8.Text = "Üsküdar İmkb Kız Meslek Lisesi'nin kuruluş tarihi aşağıdakilerden hangisidir?"
Button4.Text = "2005"
Button5.Text = "2002"
Button6.Text = "1999"
Button7.Text = "1986"
EndSelect
EndSub
PrivateSub DeepSkyBlueToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles DeepSkyBlueToolStripMenuItem.Click
Me.BackColor = Color.DeepSkyBlue
EndSub
PrivateSub GainsboroToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles GainsboroToolStripMenuItem.Click
Me.BackColor = Color.Gainsboro
EndSub
PrivateSub GoldToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles GoldToolStripMenuItem.Click
Me.BackColor = Color.Gold
EndSub
PrivateSub LavenderBlushToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles LavenderBlushToolStripMenuItem.Click
Me.BackColor = Color.LavenderBlush
EndSub
PrivateSub LightSkyBlueToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles LightSkyBlueToolStripMenuItem.Click
Me.BackColor = Color.LightSkyBlue
EndSub
PrivateSub SilverToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles SilverToolStripMenuItem.Click
Me.BackColor = Color.Silver
EndSub
PrivateSub YellowGreenToolStripMenuItem_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles YellowGreenToolStripMenuItem.Click
Me.BackColor = Color.YellowGreen
EndSub
EndClass

__________________