Darendeli Bil Bakalım V1 Yayında

Programlama dilleri konusunda bilgi paylaşım alanıdır.
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

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...


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
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Kullanıcı avatarı
BlueLife
Kilobyte1
Kilobyte1
Mesajlar: 215
Kayıt: 29 Ağu 2014, 20:42

Re: Bil Bakalım Oyunu

Mesaj gönderen BlueLife »

@darendeli

Sadece istediğin özelliğe dair basit eklemeler yaptım. Diğer kodlarında düzeltme yapmadım. Sen kendine göre ayarlarsın.
Kolay gelsin...

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=
Global $Form1 = GUICreate("Darendeli Bil Bakalım V1", 404, 505, 402, 174)

;**********************Şıklar Bölümü****************************
Global $SECENEKLER[5] = [4]


$SECENEKLER[1] = GUICtrlCreateRadio("", 8, 216, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[2] = GUICtrlCreateRadio("", 8, 246, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[3] = GUICtrlCreateRadio("", 8, 276, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[4] = 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 = GUICtrlCreateEdit("", 10, 126, 385, 63,Bitor(0x0800,0x0040, 0x00200000))
GUICtrlSetBkColor(-1,0xFFFFFF)
;~ 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ü*****************************


Global $State  = GUICtrlCreateLabel("", 170, 92, 385, 23,512) ;Doğru - Yanlış

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

AdlibRegister("time", 1000)
_SIRADAKI_SORU()

Local $SECILEN = 0, $JOKER_KULLANILDI = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $SECENEKLER[1]
			If GUICtrlRead($SECENEKLER[1]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 1

		Case $SECENEKLER[2]
			If GUICtrlRead($SECENEKLER[2]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 2

		Case $SECENEKLER[3]
			If GUICtrlRead($SECENEKLER[3]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 3
		Case $SECENEKLER[4]
			If GUICtrlRead($SECENEKLER[4]) = $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..",0,$Form1)
			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
						GUICtrlSetData($State, "DOĞRU")
					Else
						$SORULAR[0][3] += 1 ;Yanlış
						GUICtrlSetData($State, "YANLIŞ")
					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
			Sleep(500) ;Doğru - Yanlış için bekleme

			_ButonaAktarim()
			If _SIRADAKI_SORU() = 0 Then
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4] ,0,$Form1)
				Exit
			EndIf
			GUICtrlSetData($State, "")
			If $JOKER_KULLANILDI = 1 Then
				$JOKER_KULLANILDI = 0
				For $I = 1 To $SECENEKLER[0]
					GUICtrlSetState($SECENEKLER[$I],Bitor(16,64))
				Next
			Endif

		Case $Button4
			If $JOKER_KULLANILDI = 0 Then ;Diğer joker kullanıldıysa
				$JOKER_KULLANILDI = 1
				Local $Random_1 = 0, $Random_2 = 0
				While 1
					If $Random_1 = 0 Then $Random_1 = Random(1,4,1)
					If $Random_2 = 0 Then $Random_2 = Random(1,4,1)

					If $Random_1 = $Random_2 Or $Random_1 = $SORULAR[$SORULAR[0][1]][5] Then $Random_1 = 0
					If $Random_2 = $Random_1 Or $Random_2 = $SORULAR[$SORULAR[0][1]][5] Then $Random_2 = 0

					If $Random_1 <> 0 And $Random_2 <> 0 Then ExitLoop
				WEnd
				GUICtrlSetState($SECENEKLER[$Random_1],32)
				GUICtrlSetState($SECENEKLER[$Random_2],32)
				GUICtrlSetState($Button4,128)
			EndIf

		Case $Button5
			$JOKER_KULLANILDI = 1

			For $I = 1 To $SECENEKLER[0]
				If $SORULAR[$SORULAR[0][1]][5] = $I Then
					GUICtrlSetState($SECENEKLER[$I],1)
					GUICtrlSetState($Button3, 64)
					$SECILEN = $I
				Else
					GUICtrlSetState($SECENEKLER[$I],128)
				EndIf
			Next
			GUICtrlSetState($Button5,128)

		Case $Button6
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4], 0,$Form1)
				Exit
	EndSwitch
WEnd

Func _ButonaAktarim()
	If GUICtrlRead($SECENEKLER[1] ) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 1
		GUICtrlSetState($SECENEKLER[1], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[2]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 2
		GUICtrlSetState($SECENEKLER[2], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[3]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 3
		GUICtrlSetState($SECENEKLER[3], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[4]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 4
		GUICtrlSetState($SECENEKLER[4], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	EndIf
EndFunc   ;==>_ButonaAktarim


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($SECENEKLER[1], $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($SECENEKLER[2], $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($SECENEKLER[3], $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($SECENEKLER[4], $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
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

Cok büyük Katkın oldu üstad Sagol..
Soru Sayısını Cesitlendirip Hertürlü Bilgi ile Donatıp Herkesin Begenisine Sunacagım
Kullananlar Hem Eglensin...Hemde Bilgileri Artsın...

Birde Sey Soracaktım Acaba Ses Dosyası Eklenip Bu calan Sarkı Yada konusan Kimdir Gibi Yapılabilirmi...Ses dosyasını Programın icine Gömebilirmiyiz...
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Kullanıcı avatarı
BlueLife
Kilobyte1
Kilobyte1
Mesajlar: 215
Kayıt: 29 Ağu 2014, 20:42

Re: Bil Bakalım Oyunu

Mesaj gönderen BlueLife »

@darendeli

Rica ederim. Ayrıca geç yanıtlar için kusura bakma. Array listesine ses dosyalarına ait bilgileri ekleyerek kullanabilirsin. wav formatında sesleri direk resources alanından çalışıyordu. Bunun için ufak bir örnek ekledim.
- SES1.WAV dosyasını au3 dosyasının yanına ekle.
- Programı exe ye çevir. Exe ye çevirmeden (derlemeden) ses çıkmaz.

Biraz kurcala mantığını anlarsın.

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
#AutoIt3Wrapper_Res_File_Add=SES1.WAV, sound, SES1.WAV
#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 = 51
; 2 rakamı yerine testlerin bitince $SORU_SAYISI değişkenini eklersin
Global $SORULAR[$SORU_SAYISI + 1][8] = [[2,0,0,0,0], _
		["Şarkıyı söyleyen sanatçı kimdir?", "Zeki Müren", "Barış Manço", "Müslüm Gürses", "Orhan Gencebay", 3,"SES1.WAV"], _
		["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=
Global $Form1 = GUICreate("Darendeli Bil Bakalım V1", 404, 505, 402, 174)

;**********************Şıklar Bölümü****************************
Global $SECENEKLER[5] = [4]


$SECENEKLER[1] = GUICtrlCreateRadio("", 8, 216, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[2] = GUICtrlCreateRadio("", 8, 246, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[3] = GUICtrlCreateRadio("", 8, 276, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[4] = 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 = GUICtrlCreateEdit("", 10, 126, 385, 63,Bitor(0x0800,0x0040, 0x00200000))
GUICtrlSetBkColor(-1,0xFFFFFF)
;~ 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ü*****************************


Global $State  = GUICtrlCreateLabel("", 170, 92, 385, 23,512) ;Doğru - Yanlış

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

AdlibRegister("time", 1000)
_SIRADAKI_SORU()

Local $SECILEN = 0, $JOKER_KULLANILDI = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $SECENEKLER[1]
			If GUICtrlRead($SECENEKLER[1]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 1

		Case $SECENEKLER[2]
			If GUICtrlRead($SECENEKLER[2]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 2

		Case $SECENEKLER[3]
			If GUICtrlRead($SECENEKLER[3]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 3
		Case $SECENEKLER[4]
			If GUICtrlRead($SECENEKLER[4]) = $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..",0,$Form1)
			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
						GUICtrlSetData($State, "DOĞRU")
					Else
						$SORULAR[0][3] += 1 ;Yanlış
						GUICtrlSetData($State, "YANLIŞ")
					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

			_Sound_Play() ;Stop sound (çalışmazsa boş ses dosyası çaldırtabilirsin)
			Sleep(500) ;Doğru - Yanlış için bekleme

			_ButonaAktarim()
			If _SIRADAKI_SORU() = 0 Then
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4] ,0,$Form1)
				Exit
			EndIf
			GUICtrlSetData($State, "")
			If $JOKER_KULLANILDI = 1 Then
				$JOKER_KULLANILDI = 0
				For $I = 1 To $SECENEKLER[0]
					GUICtrlSetState($SECENEKLER[$I],Bitor(16,64))
				Next
			Endif

		Case $Button4
			If $JOKER_KULLANILDI = 0 Then ;Diğer joker kullanıldıysa
				$JOKER_KULLANILDI = 1
				Local $Random_1 = 0, $Random_2 = 0
				While 1
					If $Random_1 = 0 Then $Random_1 = Random(1,4,1)
					If $Random_2 = 0 Then $Random_2 = Random(1,4,1)

					If $Random_1 = $Random_2 Or $Random_1 = $SORULAR[$SORULAR[0][1]][5] Then $Random_1 = 0
					If $Random_2 = $Random_1 Or $Random_2 = $SORULAR[$SORULAR[0][1]][5] Then $Random_2 = 0

					If $Random_1 <> 0 And $Random_2 <> 0 Then ExitLoop
				WEnd
				GUICtrlSetState($SECENEKLER[$Random_1],32)
				GUICtrlSetState($SECENEKLER[$Random_2],32)
				GUICtrlSetState($Button4,128)
			EndIf

		Case $Button5
			$JOKER_KULLANILDI = 1

			For $I = 1 To $SECENEKLER[0]
				If $SORULAR[$SORULAR[0][1]][5] = $I Then
					GUICtrlSetState($SECENEKLER[$I],1)
					GUICtrlSetState($Button3, 64)
					$SECILEN = $I
				Else
					GUICtrlSetState($SECENEKLER[$I],128)
				EndIf
			Next
			GUICtrlSetState($Button5,128)

		Case $Button6
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4], 0,$Form1)
				Exit
	EndSwitch
WEnd

Func _ButonaAktarim()
	If GUICtrlRead($SECENEKLER[1] ) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 1
		GUICtrlSetState($SECENEKLER[1], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[2]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 2
		GUICtrlSetState($SECENEKLER[2], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[3]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 3
		GUICtrlSetState($SECENEKLER[3], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[4]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 4
		GUICtrlSetState($SECENEKLER[4], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	EndIf
EndFunc   ;==>_ButonaAktarim


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
	If Stringlen($SORULAR[$SORULAR[0][1]][6]) > 0 Then _Sound_Play($SORULAR[$SORULAR[0][1]][6])

	GUICtrlSetData($Edit, $SORULAR[$SORULAR[0][1]][0])
	GUICtrlSetData($Label1, " 20 ")
	GUICtrlSetData($SECENEKLER[1], $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($SECENEKLER[2], $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($SECENEKLER[3], $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($SECENEKLER[4], $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

Func _Sound_Play($Resource = 0, $Wait = 0)
	If $Wait = 0 Then
		$Wait = 262149
	Else
		$Wait = 262148
	EndIf
	If IsInt($Resource) = 1 And $Resource = 0 Then $Wait = 0
	DllCall("winmm.dll", "int", "PlaySound", "str", $Resource, "hwnd", 0, "int", $Wait)
	Return 1
EndFunc   ;==>_Sound_Play
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

sarkıyı Su sekilde Caldırmayı Basardım ama Dogru Cevaplansada Durmuyor
Sizinkini Denedim Calmadı

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
#AutoIt3Wrapper_Res_File_Add=SES1.WAV, sound, SES1.WAV
#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"
#include <sound.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 = 51
; 2 rakamı yerine testlerin bitince $SORU_SAYISI değişkenini eklersin
Global $SORULAR[$SORU_SAYISI + 1][8] = [[$SORU_SAYISI,0,0,0,0], _
		["Şarkıyı söyleyen sanatçı kimdir?", "Zeki Müren", "Barış Manço", "Müslüm Gürses", "Orhan Gencebay", 3,@ScriptDir & "\SES1.wav",1], _
		["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=
Global $Form1 = GUICreate("Darendeli Bil Bakalım V1", 404, 505, 402, 174)

;**********************Şıklar Bölümü****************************
Global $SECENEKLER[5] = [4]


$SECENEKLER[1] = GUICtrlCreateRadio("", 8, 216, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[2] = GUICtrlCreateRadio("", 8, 246, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[3] = GUICtrlCreateRadio("", 8, 276, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[4] = 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 = GUICtrlCreateEdit("", 10, 126, 385, 63,Bitor(0x0800,0x0040, 0x00200000))
GUICtrlSetBkColor(-1,0xFFFFFF)
;~ 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ü*****************************


Global $State  = GUICtrlCreateLabel("", 170, 92, 385, 23,512) ;Doğru - Yanlış

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

AdlibRegister("time", 1000)
_SIRADAKI_SORU()

Local $SECILEN = 0, $JOKER_KULLANILDI = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $SECENEKLER[1]
			If GUICtrlRead($SECENEKLER[1]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 1

		Case $SECENEKLER[2]
			If GUICtrlRead($SECENEKLER[2]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 2

		Case $SECENEKLER[3]
			If GUICtrlRead($SECENEKLER[3]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 3
		Case $SECENEKLER[4]
			If GUICtrlRead($SECENEKLER[4]) = $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..",0,$Form1)
			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
						GUICtrlSetData($State, "DOĞRU")
					Else
						$SORULAR[0][3] += 1 ;Yanlış
						GUICtrlSetData($State, "YANLIŞ")
					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

			 ;Stop sound (çalışmazsa boş ses dosyası çaldırtabilirsin)
			Sleep(500) ;Doğru - Yanlış için bekleme

			_ButonaAktarim()
			If _SIRADAKI_SORU() = 0 Then
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4] ,0,$Form1)
				Exit
			EndIf
			GUICtrlSetData($State, "")
			If $JOKER_KULLANILDI = 1 Then
				$JOKER_KULLANILDI = 0
				For $I = 1 To $SECENEKLER[0]
					GUICtrlSetState($SECENEKLER[$I],Bitor(16,64))
				Next
			Endif

		Case $Button4
			If $JOKER_KULLANILDI = 0 Then ;Diğer joker kullanıldıysa
				$JOKER_KULLANILDI = 1
				Local $Random_1 = 0, $Random_2 = 0
				While 1
					If $Random_1 = 0 Then $Random_1 = Random(1,4,1)
					If $Random_2 = 0 Then $Random_2 = Random(1,4,1)

					If $Random_1 = $Random_2 Or $Random_1 = $SORULAR[$SORULAR[0][1]][5] Then $Random_1 = 0
					If $Random_2 = $Random_1 Or $Random_2 = $SORULAR[$SORULAR[0][1]][5] Then $Random_2 = 0

					If $Random_1 <> 0 And $Random_2 <> 0 Then ExitLoop
				WEnd
				GUICtrlSetState($SECENEKLER[$Random_1],32)
				GUICtrlSetState($SECENEKLER[$Random_2],32)
				GUICtrlSetState($Button4,128)
			EndIf

		Case $Button5
			$JOKER_KULLANILDI = 1

			For $I = 1 To $SECENEKLER[0]
				If $SORULAR[$SORULAR[0][1]][5] = $I Then
					GUICtrlSetState($SECENEKLER[$I],1)
					GUICtrlSetState($Button3, 64)
					$SECILEN = $I
				Else
					GUICtrlSetState($SECENEKLER[$I],128)
				EndIf
			Next
			GUICtrlSetState($Button5,128)

		Case $Button6
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4], 0,$Form1)
				Exit
	EndSwitch
WEnd

Func _ButonaAktarim()
	If GUICtrlRead($SECENEKLER[1] ) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 1
		GUICtrlSetState($SECENEKLER[1], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[2]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 2
		GUICtrlSetState($SECENEKLER[2], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[3]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 3
		GUICtrlSetState($SECENEKLER[3], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[4]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 4
		GUICtrlSetState($SECENEKLER[4], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	EndIf
EndFunc   ;==>_ButonaAktarim


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
	If Stringlen($SORULAR[$SORULAR[0][1]][6]) > 0 Then _SoundPlay($SORULAR[$SORULAR[0][1]][6])

	GUICtrlSetData($Edit, $SORULAR[$SORULAR[0][1]][0])
	GUICtrlSetData($Label1, " 20 ")
	GUICtrlSetData($SECENEKLER[1], $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($SECENEKLER[2], $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($SECENEKLER[3], $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($SECENEKLER[4], $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

Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Kullanıcı avatarı
BlueLife
Kilobyte1
Kilobyte1
Mesajlar: 215
Kayıt: 29 Ağu 2014, 20:42

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen BlueLife »

@darendeli

Önceki verdiğim örneği ben farklı programlarda kullandım. Sende çalışmamasının nedeni wav dosyasındaki sıkıştırma şeklinden de kaynaklanmış olabilir. Ayrıca ben eski autoit sürümleri kullanıyorum. Bir ihtimal yeni sürümler ile alakalı bir uyumsuzluk olabilir. Emin değilim.
Neyse bence çok uğraşmana gere yok. Ses dosyalarını dışarıdan kullan. Bir klasöre eklersin ordan çalıştırırsın.

Kullanmak istediğin udf için ilgili ekleme aşağıda. Umarım çalışır. Kolay gelsin...

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"
#include <sound.au3>

Opt("TrayMenuMode",1)
Opt("TrayOnEventMode",1)

If (WinExists("Darendeli Bil Bakalım V1","Coded By Darendeli")) Then
	TrayTip("Darendeli Bil Bakalım V1","Zaten Çalışıyorum..",10,1)
	Sleep(10000)
	Exit
EndIf

Global $ScriptDir = @ScriptDir
If StringRight($ScriptDir, 1) <> "\" Then $ScriptDir &= "\"
Global $SoundInfo
Global $SORU_SAYISI = 51

; 2 rakamı yerine testlerin bitince $SORU_SAYISI değişkenini eklersin
Global $SORULAR[$SORU_SAYISI + 1][8] = [[$SORU_SAYISI,0,0,0,0], _
		["Şarkıyı söyleyen sanatçı kimdir?", "Zeki Müren", "Barış Manço", "Müslüm Gürses", "Orhan Gencebay", 3,$ScriptDir & "SES1.mp3",1], _
		["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=
Global $Form1 = GUICreate("Darendeli Bil Bakalım V1", 404, 505, 402, 174)
GUICtrlCreateLabel("Coded By Darendeli", -50, -50, 1,1, 0)
GUICtrlSetState(-1, 128)


;**********************Şıklar Bölümü****************************
Global $SECENEKLER[5] = [4]


$SECENEKLER[1] = GUICtrlCreateRadio("", 8, 216, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[2] = GUICtrlCreateRadio("", 8, 246, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[3] = GUICtrlCreateRadio("", 8, 276, 390, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$SECENEKLER[4] = 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 = GUICtrlCreateEdit("", 10, 126, 385, 63,Bitor(0x0800,0x0040, 0x00200000))
GUICtrlSetBkColor(-1,0xFFFFFF)
;~ 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ü*****************************


Global $State  = GUICtrlCreateLabel("", 170, 92, 385, 23,512) ;Doğru - Yanlış

GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

AdlibRegister("time", 1000)
_SIRADAKI_SORU()

Local $SECILEN = 0, $JOKER_KULLANILDI = 0
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
		Case $SECENEKLER[1]
			If GUICtrlRead($SECENEKLER[1]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 1

		Case $SECENEKLER[2]
			If GUICtrlRead($SECENEKLER[2]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 2

		Case $SECENEKLER[3]
			If GUICtrlRead($SECENEKLER[3]) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 3
		Case $SECENEKLER[4]
			If GUICtrlRead($SECENEKLER[4]) = $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..",0,$Form1)
			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
						GUICtrlSetData($State, "DOĞRU")
					Else
						$SORULAR[0][3] += 1 ;Yanlış
						GUICtrlSetData($State, "YANLIŞ")
					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

			If IsArray($SoundInfo) = 1 Then
				__SoundStop($SoundInfo)
				$SoundInfo = 0
			EndIf
			Sleep(500) ;Doğru - Yanlış için bekleme

			_ButonaAktarim()
			If _SIRADAKI_SORU() = 0 Then
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4] ,0,$Form1)
				Exit
			EndIf
			GUICtrlSetData($State, "")
			If $JOKER_KULLANILDI = 1 Then
				$JOKER_KULLANILDI = 0
				For $I = 1 To $SECENEKLER[0]
					GUICtrlSetState($SECENEKLER[$I],Bitor(16,64))
				Next
			Endif

		Case $Button4
			If $JOKER_KULLANILDI = 0 Then ;Diğer joker kullanıldıysa
				$JOKER_KULLANILDI = 1
				Local $Random_1 = 0, $Random_2 = 0
				While 1
					If $Random_1 = 0 Then $Random_1 = Random(1,4,1)
					If $Random_2 = 0 Then $Random_2 = Random(1,4,1)

					If $Random_1 = $Random_2 Or $Random_1 = $SORULAR[$SORULAR[0][1]][5] Then $Random_1 = 0
					If $Random_2 = $Random_1 Or $Random_2 = $SORULAR[$SORULAR[0][1]][5] Then $Random_2 = 0

					If $Random_1 <> 0 And $Random_2 <> 0 Then ExitLoop
				WEnd
				GUICtrlSetState($SECENEKLER[$Random_1],32)
				GUICtrlSetState($SECENEKLER[$Random_2],32)
				GUICtrlSetState($Button4,128)
			EndIf

		Case $Button5
			$JOKER_KULLANILDI = 1

			For $I = 1 To $SECENEKLER[0]
				If $SORULAR[$SORULAR[0][1]][5] = $I Then
					GUICtrlSetState($SECENEKLER[$I],1)
					GUICtrlSetState($Button3, 64)
					$SECILEN = $I
				Else
					GUICtrlSetState($SECENEKLER[$I],128)
				EndIf
			Next
			GUICtrlSetState($Button5,128)

		Case $Button6
				MsgBox(64, "Bilgi", "Doğru: " &  $SORULAR[0][2] & @crlf & "Yanlış: " &  $SORULAR[0][3] & @crlf & "Pas: " &  $SORULAR[0][4], 0,$Form1)
				Exit
	EndSwitch
WEnd

Func _ButonaAktarim()
	If GUICtrlRead($SECENEKLER[1] ) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 1
		GUICtrlSetState($SECENEKLER[1], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[2]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 2
		GUICtrlSetState($SECENEKLER[2], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[3]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 3
		GUICtrlSetState($SECENEKLER[3], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($SECENEKLER[4]) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 4
		GUICtrlSetState($SECENEKLER[4], 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	EndIf
EndFunc   ;==>_ButonaAktarim


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
	If Stringlen($SORULAR[$SORULAR[0][1]][6]) > 0 Then $SoundInfo = __SoundPlay($SORULAR[$SORULAR[0][1]][6])

	GUICtrlSetData($Edit, $SORULAR[$SORULAR[0][1]][0])
	GUICtrlSetData($Label1, " 20 ")
	GUICtrlSetData($SECENEKLER[1], $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($SECENEKLER[2], $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($SECENEKLER[3], $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($SECENEKLER[4], $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

Func __SoundPlay($sFile, $iWait = 0)
	Local $aSound = _SoundOpen($sFile)
	If @error = 0 And @extended = 0 Then
		If _SoundPlay($aSound, $iWait) = 1 Then Return $aSound
	EndIf
	__SoundStop($aSound)
	Return 0
EndFunc

Func __SoundStop($aSound)
	_SoundStop($aSound)
	_SoundClose($aSound)
EndFunc
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

Teşekkürler Yeni Sorularla Yeni Versiyonda Kullanacagım inş.. Ses dosyası Haric Yayınladım Programı Kontrol Edip Yorumlarınızı Bekliyorum Arkadaslar....
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Kullanıcı avatarı
velociraptor
Yottabyte4
Yottabyte4
Mesajlar: 31616
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen velociraptor »

Ellerinize sağlık arkadaşlar
NOT: kaspersky Dll sinden hoşlanmadı sildi
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

velociraptor yazdı: 06 Ara 2017, 21:34 Ellerinize sağlık arkadaşlar
NOT: kaspersky Dll sinden hoşlanmadı sildi
Dll Görseli Saglıyor..Virüs Programları Genelde Kodları Virüs olarak Algılıyor...İstek olursa..Program Sürekli Yeni Sorular Ve özellikler ile Güncellenecektir..
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

Bu dll Exe icine Gömsek Yine algılar Galiba..
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Kullanıcı avatarı
BlueLife
Kilobyte1
Kilobyte1
Mesajlar: 215
Kayıt: 29 Ağu 2014, 20:42

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen BlueLife »

@darendeli

Eline sağlık. Exe ye gömsende uyarı verecektir. Bendeki nod32 de siliyor ilgili dll dosyasını.
Senin yerinde olsam temadan vazgeçerdim. Dll dosyasının tarama sonuçları.
https://www.virustotal.com/#/file/d2602 ... /detection

Ayrıca autoit ile antivirüs programlarının arası da bozuk. En ufak bir çalışmaya uyarı verebiliyorlar...
https://www.virustotal.com/#/file/396bc ... /detection

Çalışmalarında başarılar dilerim. Kolay gelsin...
Kullanıcı avatarı
cankusa
Gigabyte1
Gigabyte1
Mesajlar: 1988
Kayıt: 07 Eyl 2014, 22:29

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen cankusa »

Çalışma mükemel olmuş sagolasın.Microsoft Securitey Essentials uyarı vermiyor.
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

Link Yenilendi Skin ile olusan Virüs Olarak Algılamadan Dolayı Skin Degistirildi
Sarkılı Soru Eklendi

Sorun Varmı kontrol Edip Bildirirseniz Sevinirim... Windows Stili uyguladım Sorun cıkmaz heralde artık.....
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Kullanıcı avatarı
trwe
Petabyte3
Petabyte3
Mesajlar: 7910
Kayıt: 25 Eyl 2013, 13:38
cinsiyet: Erkek
Konum: Orion Takımyıldızı-Bertuna Planet

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen trwe »

Son nihai kodları incelerken başım döndü ne kadar uzun ve dallanmış kod prosedürü var.Ben bu kadar uzun kodlamaya hiç gelemem doğrusu çünkü ;

1.Hata yapma olasılığım artar
2.Canıma darlık gelir(yani çabucak sıkılırım)

Seni tebrik ediyor ve benimde program hakkında bir önerim olacak yazılıma soru ekleyip çıkartılabir tabii bunun için bir veritabanı alt yapısına ihtiyaç var.Program böylece daha kullanışlı hale gelebilir.
TRWE_2012-GET LINUXMASTER#>_
Follow me, you won't regret it ....!
Alaydan Yetişme PC Kullanıcısı

Birşeyin doğruluğuna inanıyorsanız, sonuna kadar savunun......! Eğer savunduğunuza inanmıyorsanız, işte o zaman siz SAHTEKAR'sınız demektir.
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

Hepinizin Yorumları için Tesekkurler.. Önerilerinizi Dikkate Alacağım...
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
Cevapla