Re: Bil Bakalım Oyunu
Gönderilme zamanı: 03 Ara 2017, 10:44
Suan Bukadar Düzenledim Dogru Yanlısta Labelde Dogru Yada Yanlıs Yazdırmaya Calıstım
Rast Gele 2 Button Nasıl hide Olur Onun Mantıgını Kavramaya anlamaya calısıyorum...
Küçük Bir Ornek Verebilirseniz Cok Makbule Gecer
Birde Seyirci Butonu Var Buda Sorudaki Dogru Cevabı Labele Yazdıracak ve Disable olup son jokerde Bitecek..Oyun Sona Dogru Glecek
Allah Nasip Kısmet Ederse...
Rast Gele 2 Button Nasıl hide Olur Onun Mantıgını Kavramaya anlamaya calısıyorum...
Küçük Bir Ornek Verebilirseniz Cok Makbule Gecer
Birde Seyirci Butonu Var Buda Sorudaki Dogru Cevabı Labele Yazdıracak ve Disable olup son jokerde Bitecek..Oyun Sona Dogru Glecek
Allah Nasip Kısmet Ederse...
Kod: Tümünü seç
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#AutoIt3Wrapper_Icon=keyboard.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Coded By Darendeli
#AutoIt3Wrapper_Res_Description=Coded By Darendeli
#AutoIt3Wrapper_Res_Fileversion=3.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Darendeli
#AutoIt3Wrapper_Res_Language=1055
#AutoIt3Wrapper_Res_Field=CompanyName|Darendeli
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include "2-Skin\SkinCrafter.au3"
Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)
If (WinExists("Darendeli Bil Bakalım V1","")) Then
TrayTip("Darendeli Bil Bakalım V1","Zaten Çalışıyorum..",10,1)
Sleep(10000)
Exit
EndIf
Global $SORU_SAYISI = 50
Global $SORULAR[$SORU_SAYISI + 1][8] = [[$SORU_SAYISI,0,0,0,0], _
["Türkiye'nin başkenti neresidir?", "Adana", "Istanbul", "Ankara", "Atina", 3], _
["2+7= ? işleminin sonucu kaçtır?", "8", "9", "7", "10", 2], _
["Yılın en soğuk mevsimi hangisidir?", "Kış", "Ilk Bahar", "Son Bahar", "Yaz", 1], _
["Gerçeküstü eserlerindeki tuhaf ve çarpıcı imgelerle ünlenmiş, En iyi bilinen eseri olan Belleğin Azmini 1931’de bitirmiş Katalan sürrealist ressam aşağıdakilerden hangisidir?", "Bob Ross", "Salvador Dali", "Jean Paul Sarte", "Leonardo da Vinci", 2], _
["2014 Nobel Edebiyat ödülünün sahibi ünlü yazar aşağıdakilerden hangisidir?", "Mo Yan", "Mario Vargas Llosa", "Tomas Tranströmer", "Patrick Modiano", 4], _
["Mona Lisa ve Son Akşam Yemeği adlı tabloların sahibi Dünyaca ünlü ressam aşağıdakilerden hangisidir?", "Salvador Dali", "Bob Ross", "Leonardo da Vinci", "Pablo Picasso", 3], _
["Aşağıdakilerden hangisi dünyada son yıllarda etkili olan salgın hastalıklardan biri değildir?", "Domuz Gribi", "Kuş Gribi", "Veba", "AIDS", 3], _
["2014 Cumhurbaşkanlığı Kültür ve Sanat Büyük Ödülleri’nin Sinema alanında sahibi aşağıdakilerden hangisidir?", "Mahsun Kırmızıgül", "Fatih Akın", "Nuri Bilge Ceylan", "Hülya Koçyiğit", 4], _
["Türkiye ile Türk devletleri arasında kara bağlantısı olan tek toprak parçası aşağıdakilerden hangisidir?", "Nahçıvan", "Karabağ", "Bakü", "Cilvegözü", 1], _
["Deniz üzerine inşa edilen Türkiye’nin ilk havalimanı aşağıdakilerden hangisidir?", "İstanbul H.limanı", "Trabzon H.limanı", "Ordu Giresun H.limanı", "Antalya Kaş H.limanı", 3], _
["20. yüzyılda Basmacı Hareketi içerisinde yer alarak Türkistan Millî Birliği’nin kurucusu ve ilk başkanı olan, aynı zamanda 1939’da İstanbul Üniversitesi’nde Umûmî Türk Tarihi kürsüsünü kuran ünlü Türk tarihçisi aşağıdakilerden hangisidir?", "Enver Paşa", "Ziya Gökalp", "Zeki Velidî Togan", "Yusuf Akçura", 3], _
["Avrupa Birliği üyesi olup Euro alanının dışında kalmayı seçen ülkeler aşağıdaki seçeneklerin hangisinde birlikte ve doğru olarak verilmiştir?", "İngiltere ve Malta", "Letonya ve Litvanya", "İsveç ve İngiltere", "İngiltere ve Danimarka", 4], _
["Optik biliminin öncüsüdür. Galileo onun eserlerinden faydalanarak teleskopu bulmuştur.Bahsedilen isim aşağıdakilerden hangisidir?", "İbnü’l-Heysem", "El Biruni", "Gazali", "Harezmi", 1], _
["Dünya’nın ilk uzun metrajlı filmi aşağıdakilerden hangisidir?", "Kill Bill", "The Story of the Kelly Gang", "The Godfather", "Titanic", 2], _
["Birleşmiş Milletler Teşkilâtı’na bağlı Uluslararası Çalışma Örgütü’nün kısaltılmış adı aşağıdakilerden hangisidir?", "FAO", "UNESCO", "ILO", "WHO", 3], _
["AB Anayasal Antlaşması, hangi iki ülkede yapılan referandumlarda reddedildiği için yürürlüğe girememiştir?", "Yunanistan ve Hollanda", "Polonya ve Macaristan", "Fransa ve Hollanda", "İngiltere ve İrlanda", 2], _
["Nüfusu en fazla olan İslam ülkesi aşağıdakilerden hangisidir?", "Suudi Arabistan", "Endonezya", "İran", "Türkiye", 2], _
["Uzayda yürüyen ilk insan aşağıdakilerden hangisidir?", "N. Armstrong", "V. Tereshkova", "A. Leonov", "E. Aldrin", 3], _
["1977’den itibaren sırasıyla, Dış İlişkiler Komitesi, Yönetim Kurulu üyeliği, Başkan Vekilliği ile 1992-1997 yılları arasında Türkiye Futbol Federasyonu Başkanlığı görevini yürüten, 1982 yılında UEFA’da başlayan 34 yıllık bir devri Ocak 2015’te emekli olarak kapatan birçok kez Yılın Spor Adamı ve Avrupa Fair Play Ödülü kazanan ünlü spor adamı hangisidir?", "Aziz Yıldırım", "Ünal Aysal", "Şenes Erzik", "Yıldırım Demirören", 3], _
["Yüce divana giden ilk ve tek Başbakan aşağıdakilerden hangisidir?", "Mesut Yılmaz", "Refik Saydam", "Adnan Menderes", "Nihat Erim", 1], _
["Klasik Türk müziği sanatçısı ve “Cumhuriyetin Divası” olarak da anılan, Atatürk’ün huzurunda, özel meclislerinde şarkılar dile getiren ve Şubat 2015 yılında hayatını kaybeden ünlü Kadın Sanatçı aşağıdakilerden hangisidir?", "Fikret Şenes", "Afet Ilgaz", "Ayla Gürses", "Müzeyyen Senar", 4], _
["FIBA’nın maçlarda başörtüsü yasağının kaldırılmasını sağlayan bayan basketbolcu aşağıdakilerden hangisidir?", "Indira Kaljo", "Margo Dydek", "Nuria Martínez", "Vanessa Ble", 1], _
["1876 yılında Graham Bell tarafından icat edilen telefon yıllar içinde daha da gelişerek şekil değiştirdi ve insanın cebine kadar girmeyi başardı. İlk cep telefonunu icat eden mucit kimdir?", "Tesla", "M. Cooper", "Marconi", "Edison", 2], _
["Aşağıdaki Krallık veya İmparatorluklardan hangisi XIX. Yüzyılda Tarih sahnesinden silinmiştir?", "Çin", "Osmanlı", "Babür", "Portekiz", 3], _
["2015 Türk Kültür başkenti aşağıdakilerden hangisidir?", "Eskişehir", "Taşkent", "Saraybosna", "Merv", 4], _
["Aşağıdakilerden hangisi Türkiye’nin hem üyesi hem de kurucusu olduğu uluslararası kuruluşlardan değildir?", "Dünya Ekonomik Forumu", "İslam Kalkınma Bankası", "Uluslararası Ödemeler Bankası", "Ekonomik İş Birliği Örgütü", 1], _
["12 Hayvanlı Türk Takvimine göre 2015 ve 2016 yılına karşılık gelen hayvanlar aşağıdakilerden hangisidir?", "Koyun - At", "Fare - Kaplan", "Koyun – Maymun", "Yılan - Tavşan", 3], _
["Nisan 2016'da açılışı yapılan ABD'nin ilk Türk İslam Merkezi olan Amerika Diyanet Merkezi aşağıdaki kentlerden hangisindedir?", "New York", "Kaliforniya", "New Jersey", "Washington", 4], _
["Dünya’da Nükleer Santral sayısı en fazla olan ülke aşağıdakilerden hangisidir?", "İngiltere", "Çin", "ABD", "Almanya", 3], _
["2005 tarihinde yürürlüğe giren ‘’Kyoto Protokolü’nü Türkiye kaç yılında imzalamıştır?", "2008", "2006", "2009", "2004", 3], _
["Aşağıdaki yazar – eser eşleştirmelerinden hangisi yanlış olarak verilmiştir?", "Reşat Nuri Güntekin – Yeşil Gece", "Kemal Tahir – Devlet Ana", "Halide Edip Adıvar – Kurt Kanunu", "Yakup Kadri Karaosmanoğlu – Nur Baba", 3], _
["“Sinekli Bakkal” Romanının Yazarı Aşağıdakilerden Hangisidir?", "Reşat Nuri Güntekin", "Halide Edip Adıvar", "Ziya Gökalp", "Ömer Seyfettin", 2], _
["Aşağıda Verilen İlk Çağ Uygarlıklarından Hangisi Yazıyı İcat Etmiştir?", "Hititler", "Elamlar", "Sümerler", "Urartular", 3], _
["Tsunami Felaketinde En Fazla Zarar Gören Güney Asya Ülkesi Aşağıdakilerden Hangisidir? ", "Endonezya", "Srilanka", "Tayland", "Hindistan", 1], _
["2003 Yılında Euro Vizyon Şarkı Yarışmasında Ülkemizi Temsil Eden Ve Yarışmada Birinci Gelen Sanatçımız Kimdir?", "Grup Athena", "Sertap Erener", "Şebnem Paker", "Ajda Pekkan", 2], _
["Mustafa Kemal Atatürk’ün Nüfusa Kayıtlı Olduğu İl Hangisidir?", "Bursa", "Ankara", "İstanbul", "Gaziantep", 4], _
["Aşağıdakilerden Hangisi Dünya Sağlık Örgütünün Kısaltılmış İsmidir?", "Uhw", "Unıcef", "Who", "Nato", 3], _
["Romen Rakamında Hangi Sayı Yoktur?", "0", "50", "100", "1000", 1], _
["Bir Gün Kaç Saniyedir?", "86000", "88600", "86400", "84800", 3], _
["Üç Büyük Dince Kutsal Sayılan Şehir Hangisidir?", "Mekke", "Kudüs", "Roma", "İstanbul", 2], _
["Hangi İlimizde Demiryolu Yoktur?", "Batman", "Kütahya", "Aydın", "Muğla", 4], _
["Hangi Ülkenin İki Tane Başkenti Vardır?", "Güney Afrika", "Senegal", "El Salvador", "Venezuela", 1], _
["Cevdet Bey Ve Oğulları Eseri Kime Aittir?", "Orhan Pamuk", "Yahya Kemal Bayatlı", "Atilla İlhan", "Samipaşazade Sezai", 1], _
["Bir Sebepten Dolayı Tek Kulağına Küpe Takan Osmanlı Padişahı Kimdir? ", "Kanuni Sultan Süleyman", "Yavuz Sultan Selim", "Orhan Bey", "Fatih Sultan Selim", 2], _
["Aşağıdaki Ülkelerden Hangisinin Nüfusu Daha Fazladır?", "İspanya", "Fransa", "İngiltere", "Almanya", 4], _
["Aspirinin Hammaddesi Nedir?", "Söğüt", "Köknar", "Kavak", "Meşe", 1], _
["Cumhurbaşkanı kaç yılda bir seçilir?", "3", "2", "5", "1", 3], _
["Türk Devleti bir Cumhuriyettir.’ ifadesi anayasamızın kaçıncı maddesidir?", "1", "2", "3", "4", 1], _
["Ülkemizde kadınlara milletvekili olabilme hakkı hangi yılda verilmiştir?", "1944", "1938", "1934", "1920", 3], _
["Aşağıdakilerden hangisi Türk kültürünün geliştirilmesi için oluşturulan TÜRKSOY’a bağlı devletlerden biri değildir?", "Azerbaycan", "Türkmenistan", "Tataristan", "Kazakistan", 3] _
]
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Darendeli Bil Bakalım V1", 404, 505, 402, 174)
;**********************Şıklar Bölümü****************************
$Radio1 = GUICtrlCreateRadio("", 8, 216, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Radio2 = GUICtrlCreateRadio("", 8, 246, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Radio3 = GUICtrlCreateRadio("", 8, 276, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Radio4 = GUICtrlCreateRadio("", 8, 306, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
;**********************Şıklar Bölümü****************************
;***************************Skin********************************
_LoadSkinCrafter("2-Skin\SkinCrafterDll.dll")
_InitializeSkinCrafter($Form1,"2-Skin\Zolder.skf")
;***************************Skin********************************
;**********************Soru Bölümü*****************************
$SoruCerceve = GUICtrlCreateGroup("", 0, 116, 399, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Edit = GUICtrlCreateLabel("", 10, 126, 385, 63)
GUICtrlCreateLabel(" ", 10, 126, 385, 63,1,1)
GUICtrlSetState(-1,128)
GUICtrlSetBkColor(-1,-2)
;**********************Soru Bölümü*****************************
;**********************KalanZaman******************************
$Label9 = GUICtrlCreateLabel("KALAN ZAMAN", 30, 8, 144, 16)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$SureCerceve = GUICtrlCreateGroup("", 0, 24, 190, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel(" 20 ", 90, 50, 29, 17)
;**********************KalanZaman******************************
;**********************Tmm Pas BtR*****************************
$Button3 = GUICtrlCreateButton("TAMAM", 8, 346, 125, 49)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button2 = GUICtrlCreateButton("PAS GEÇ", 137, 346, 125, 49)
$Button6 = GUICtrlCreateButton("BİTİR", 268, 346, 125, 49)
;**********************Tmm Pas BtR*****************************
;**********************Jokerler********************************
$Label10 = GUICtrlCreateLabel("JOKERLER", 154, 415, 144, 16)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Jokerler = GUICtrlCreateGroup("", 0, 425, 399, 71)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Yarı Yarıya %50", 8, 440, 185, 49)
$Button5 = GUICtrlCreateButton("Seyirciye Sor", 210, 440, 185, 49)
;**********************Jokerler********************************
;**********************Skor Bölümü*****************************
$Label8 = GUICtrlCreateLabel("SKOR TABELASI", 224, 8, 144, 16)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$Group1 = GUICtrlCreateGroup("", 192, 24, 209, 65)
$Label2 = GUICtrlCreateLabel("DOĞRU", 208, 40, 44, 17)
$Label3 = GUICtrlCreateLabel("YANLIŞ", 280, 40, 42, 17)
$Label4 = GUICtrlCreateLabel("PAS", 352, 40, 25, 17)
$Label5 = GUICtrlCreateLabel("0", 224, 64, 20, 17)
$Label6 = GUICtrlCreateLabel("0", 296, 64, 20, 17)
$Label7 = GUICtrlCreateLabel("0", 360, 64, 20, 17)
;**********************Skor Bölümü*****************************
$Dogru = GUICtrlCreateLabel("", 170, 92, 385, 23)
$Yanlis = GUICtrlCreateLabel("", 170, 92, 385, 23)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
AdlibRegister("time", 1000)
_SIRADAKI_SORU()
Local $SECILEN = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Radio1
If GUICtrlRead($Radio1) = $GUI_CHECKED Then
GUICtrlSetState($Button3, $GUI_ENABLE)
Else
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
$SECILEN = 1
Case $Radio2
If GUICtrlRead($Radio2) = $GUI_CHECKED Then
GUICtrlSetState($Button3, $GUI_ENABLE)
Else
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
$SECILEN = 2
Case $Radio3
If GUICtrlRead($Radio3) = $GUI_CHECKED Then
GUICtrlSetState($Button3, $GUI_ENABLE)
Else
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
$SECILEN = 3
Case $Radio4
If GUICtrlRead($Radio4) = $GUI_CHECKED Then
GUICtrlSetState($Button3, $GUI_ENABLE)
Else
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
$SECILEN = 4
Case $Button2
If $SORU_SAYISI > $SORULAR[0][4] Then
$SORULAR[0][4] += 1 ;Pas
GUICtrlSetData($Label7, $SORULAR[0][4])
Else
MsgBox(0, "Bilgi", "PAS Hakkınız Bitti..")
EndIf
_SIRADAKI_SORU()
Case $Button3
If $SORULAR[0][0] >= $SORULAR[0][1] Then
If $SECILEN > 0 Then
If $SORULAR[$SORULAR[0][1]][5] = $SECILEN Then
$SORULAR[0][2] += 1 ;Doğru
Else
$SORULAR[0][3] += 1 ;Yanlış
EndIf
Else
$SORULAR[0][4] += 1 ;Pas
Endif
GUICtrlSetData($Label5, $SORULAR[0][2])
GUICtrlSetData($Label6, $SORULAR[0][3])
GUICtrlSetData($Label7, $SORULAR[0][4])
EndIf
$SECILEN = 0
_dogruyanlis()
_ButonaAktarim()
If _SIRADAKI_SORU() = 0 Then
MsgBox(64, "Bilgi", "Doğru: " & $SORULAR[0][2] & @crlf & "Yanlış: " & $SORULAR[0][3] & @crlf & "Pas: " & $SORULAR[0][4] )
Exit
EndIf
Case $Button6
MsgBox(64, "Bilgi", "Doğru: " & $SORULAR[0][2] & @crlf & "Yanlış: " & $SORULAR[0][3] & @crlf & "Pas: " & $SORULAR[0][4] )
Exit
EndSwitch
WEnd
Func _ButonaAktarim()
If GUICtrlRead($Radio1 ) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 1
GUICtrlSetState($Radio1, 4)
GUICtrlSetState($Button3, $GUI_DISABLE)
ElseIf GUICtrlRead($Radio2) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 2
GUICtrlSetState($Radio2, 4)
GUICtrlSetState($Button3, $GUI_DISABLE)
ElseIf GUICtrlRead($Radio3) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 3
GUICtrlSetState($Radio3, 4)
GUICtrlSetState($Button3, $GUI_DISABLE)
ElseIf GUICtrlRead($Radio4) = 1 Then
$SORULAR[$SORULAR[0][1]][6] = 4
GUICtrlSetState($Radio4, 4)
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
EndFunc ;==>_ButonaAktarim
Func _dogruyanlis()
If $SORULAR[0][2] Then;Doğru
GUICtrlSetData($Dogru, "DOĞRU")
Sleep(1000)
GUICtrlSetData($Dogru, "")
ElseIf $SORULAR[0][3] Then ;Yanlış
GUICtrlSetData($Yanlis, "YANLIŞ")
Sleep(1000)
GUICtrlSetData($Yanlis, "")
EndIf ;Yanlış
EndFunc
Func _SIRADAKI_SORU()
If $SORULAR[0][0] <= $SORULAR[0][5] Then Return SetError(1, 0, 0)
$SORULAR[0][5] += 1 ;Gösterilen soru sayısı
If $SORULAR[0][5] = 1 Then $SORULAR[0][6] = @LF
While 1
$SORULAR[0][1] = Random(1,$SORULAR[0][0],1)
If StringInStr($SORULAR[0][6],@LF & $SORULAR[0][1] & @LF) = 0 Then
$SORULAR[0][6] &= $SORULAR[0][1] & @LF
ExitLoop
EndIf
WEnd
GUICtrlSetData($Edit, $SORULAR[$SORULAR[0][1]][0])
GUICtrlSetData($Label1, " 20 ")
GUICtrlSetData($Radio1, $SORULAR[$SORULAR[0][1]][1])
GUICtrlSetData($Radio2, $SORULAR[$SORULAR[0][1]][2])
GUICtrlSetData($Radio3, $SORULAR[$SORULAR[0][1]][3])
GUICtrlSetData($Radio4, $SORULAR[$SORULAR[0][1]][4])
Return True
EndFunc ;==>_SIRADAKI_SORU
Func time()
$read = GUICtrlRead($Label1)
$read = StringReplace($read, " ", " ")
$read = StringReplace($read, " ", " ")
If $read > 0 Then
GUICtrlSetData($Label1, " " & $read - 1 & " ")
Else
SoundPlay(@TempDir & "\False.mp3", 0)
AdlibUnRegister("time")
MsgBox(16, "Bilgi", "Malesef Süre Yetmedi. Skor Tabelasına Yanlış Olarak 1 Puan Ekliyorum..", 0, $Form1)
GUICtrlSetData($Label1, " 21 ")
AdlibRegister("time", 1000)
$SORULAR[0][3] += 1
GUICtrlSetData($Label6, $SORULAR[0][3])
_SIRADAKI_SORU()
EndIf
EndFunc ;==>time