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

Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

İNDİR : ONLİNE Darendeli Bil Bakalım V1 Yayında ONLİNE
ŞİFRE : darendeli

Katkılarından Dolayı @BlueLife Sonsuz Teşekkürler...Program Geliştirilecektir..

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


Programda 151 Soru Bulunmaktadır.
Yeni Görünüm

Resim

Resim
En son darendeli tarafından 09 Ara 2017, 11:35 tarihinde düzenlendi, toplamda 17 kere düzenlendi.
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

Kodlamada fazla düzeltme yapmadım. Sadece isteğine dair basit bir ekleme yapıyorum. Kurcalarsın.

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $SORU_SAYISI = 3
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] _
		]
Global $dogru, $yanlis, $pas
$dogru = 0
$yanlis = 0
$pas = 0

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 404, 315, 192, 124)
$Label1 = GUICtrlCreateLabel("Kalan Süre : 20 Saniye", 40, 32, 109, 17)
$Edit = GUICtrlCreateEdit("", 0, 96, 401, 113)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("TAMAM", 8, 256, 185, 49)
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox1 = GUICtrlCreateRadio("", 8, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Checkbox2 = GUICtrlCreateRadio("", 104, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Checkbox3 = GUICtrlCreateRadio("", 200, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Checkbox4 = GUICtrlCreateRadio("", 296, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Button2 = GUICtrlCreateButton("PAS GEÇ", 200, 256, 185, 49)
$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)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label8 = GUICtrlCreateLabel("SKOR TABELASI", 224, 8, 144, 16)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
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 $Checkbox1
			If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 1

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

		Case $Checkbox3
			If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 3
		Case $Checkbox4
			If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 4

		Case $Button2
			If $SORU_SAYISI > $pas Then
				$pas += 1
				GUICtrlSetData($Label7, $pas)
			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

			_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
	EndSwitch
WEnd

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

Func _SIRADAKI_SORU()
	If $SORULAR[0][0] <= $SORULAR[0][1] Then Return SetError(1, 0, 0)
	$SORULAR[0][1] += 1
	GUICtrlSetData($Edit, $SORULAR[$SORULAR[0][1]][0])
	GUICtrlSetData($Label1, "Kalan Süre : 20 Saniye")
	GUICtrlSetData($Checkbox1, $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($Checkbox2, $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($Checkbox3, $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($Checkbox4, $SORULAR[$SORULAR[0][1]][4])
	Return True
EndFunc   ;==>_SIRADAKI_SORU

Func _DogruYanlis()
	For $I = 1 To $SORULAR[0][0]
		If $SORULAR[$I][5] = $SORULAR[$I][6] Then
			$dogru += 1
			GUICtrlSetData($Label5, $dogru)
		Else
			$yanlis += 1
			GUICtrlSetData($Label6, $yanlis)
		EndIf
	Next
	Exit
EndFunc   ;==>_DogruYanlis

Func time()
	$read = GUICtrlRead($Label1)
	$read = StringReplace($read, "Kalan Süre : ", "")
	$read = StringReplace($read, " Saniye", "")
	If $read > 0 Then
		GUICtrlSetData($Label1, "Kalan Süre : " & $read - 1 & " Saniye")
	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, "Kalan Süre : 21 Saniye")
		AdlibRegister("time", 1000)
		$yanlis += 1
		GUICtrlSetData($Label6, $yanlis)
	EndIf
EndFunc   ;==>time
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

Bu Soruları Random olarak Rastgele Nasıl Yapabiliriz Acaba...
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

Random komutu ile seçim yaptırabilirsin. Basit bir ekleme. Sen kendine göre ayarlarsın....

Kod: Tümünü seç

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Global $SORU_SAYISI = 3
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] _
		]
Global $dogru, $yanlis, $pas
$dogru = 0
$yanlis = 0
$pas = 0

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 404, 315, 192, 124)
$Label1 = GUICtrlCreateLabel("Kalan Süre : 20 Saniye", 40, 32, 109, 17)
$Edit = GUICtrlCreateEdit("", 0, 96, 401, 113)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button3 = GUICtrlCreateButton("TAMAM", 8, 256, 185, 49)
GUICtrlSetState(-1, $GUI_DISABLE)
$Checkbox1 = GUICtrlCreateRadio("", 8, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Checkbox2 = GUICtrlCreateRadio("", 104, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Checkbox3 = GUICtrlCreateRadio("", 200, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Checkbox4 = GUICtrlCreateRadio("", 296, 216, 97, 27, BitOR($GUI_SS_DEFAULT_CHECKBOX, $BS_PUSHLIKE))
$Button2 = GUICtrlCreateButton("PAS GEÇ", 200, 256, 185, 49)
$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)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label8 = GUICtrlCreateLabel("SKOR TABELASI", 224, 8, 144, 16)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
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 $Checkbox1
			If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 1

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

		Case $Checkbox3
			If GUICtrlRead($Checkbox3) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 3
		Case $Checkbox4
			If GUICtrlRead($Checkbox4) = $GUI_CHECKED Then
				GUICtrlSetState($Button3, $GUI_ENABLE)
			Else
				GUICtrlSetState($Button3, $GUI_DISABLE)
			EndIf
			$SECILEN = 4

		Case $Button2
			If $SORU_SAYISI > $pas Then
				$pas += 1
				GUICtrlSetData($Label7, $pas)
			Else
				MsgBox(0, "Bilgi", "PAS Hakkınız Bitti..")
			EndIf
			_SIRADAKI_SORU()

		Case $Button3
			If $SORULAR[0][0] >= $SORULAR[0][5] 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

			_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
	EndSwitch
WEnd

Func _ButonaAktarim()
	If GUICtrlRead($Checkbox1) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 1
		GUICtrlSetState($Checkbox1, 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($Checkbox2) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 2
		GUICtrlSetState($Checkbox2, 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($Checkbox3) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 3
		GUICtrlSetState($Checkbox3, 4)
		GUICtrlSetState($Button3, $GUI_DISABLE)
	ElseIf GUICtrlRead($Checkbox4) = 1 Then
		$SORULAR[$SORULAR[0][1]][6] = 4
		GUICtrlSetState($Checkbox4, 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ı

	While 1
		$SORULAR[0][1] = Random(1,$SORULAR[0][0],1)
		If StringInStr($SORULAR[0][6],$SORULAR[0][1]) = 0 Then
			$SORULAR[0][6] &= $SORULAR[0][1]
			ExitLoop
		EndIf
	WEnd

	GUICtrlSetData($Edit, $SORULAR[$SORULAR[0][1]][0])
	GUICtrlSetData($Label1, "Kalan Süre : 20 Saniye")
	GUICtrlSetData($Checkbox1, $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($Checkbox2, $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($Checkbox3, $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($Checkbox4, $SORULAR[$SORULAR[0][1]][4])
	Return True
EndFunc   ;==>_SIRADAKI_SORU

Func _DogruYanlis()
	For $I = 1 To $SORULAR[0][0]
		If $SORULAR[$I][5] = $SORULAR[$I][6] Then
			$dogru += 1
			GUICtrlSetData($Label5, $dogru)
		Else
			$yanlis += 1
			GUICtrlSetData($Label6, $yanlis)
		EndIf
	Next
	Exit
EndFunc   ;==>_DogruYanlis

Func time()
	$read = GUICtrlRead($Label1)
	$read = StringReplace($read, "Kalan Süre : ", "")
	$read = StringReplace($read, " Saniye", "")
	If $read > 0 Then
		GUICtrlSetData($Label1, "Kalan Süre : " & $read - 1 & " Saniye")
	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, "Kalan Süre : 21 Saniye")
		AdlibRegister("time", 1000)
		$yanlis += 1
		GUICtrlSetData($Label6, $yanlis)
	EndIf
EndFunc   ;==>time
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

Tesekkurler...
En son darendeli tarafından 02 Ara 2017, 03:57 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
anxious
Byte3
Byte3
Mesajlar: 106
Kayıt: 11 Mar 2015, 07:56

Re: Bil Bakalım Oyunu

Mesaj gönderen anxious »

darendeli yazdı: 01 Ara 2017, 23:10 Tamamdır..
Azminize hayranım birşeyler öğrenmek için çabalıyor farklı örnekler yapıyorsunuz ve paylaşıyorsunuz bu çok güzel fakat...
Keşke tamamdır yerine teşekkür etseydin! ;)
Hatta ben olsam Açıkcası programı derleyip bitirdiğimde birde katkıda bulunanlar teşekkür birtane msgbox eklerdim ki birdahakine bir yardım istediğinizde size yardım etmeleri isteği olsun haksızmıyım? iyi çalışmalar.
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

anxious yazdı: 02 Ara 2017, 02:49
darendeli yazdı: 01 Ara 2017, 23:10 Tamamdır..
Azminize hayranım birşeyler öğrenmek için çabalıyor farklı örnekler yapıyorsunuz ve paylaşıyorsunuz bu çok güzel fakat...
Keşke tamamdır yerine teşekkür etseydin! ;)
Hatta ben olsam Açıkcası programı derleyip bitirdiğimde birde katkıda bulunanlar teşekkür birtane msgbox eklerdim ki birdahakine bir yardım istediğinizde size yardım etmeleri isteği olsun haksızmıyım? iyi çalışmalar.
Tesekkurler Yogun Sorularla Bogusuyordum aslında oraya kod yazmıstım sonra tekrar duzenledim .. Kafa Gitti Orda :D
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 »

@anxious
Bir program çalışmasında bir çok yerden faydalanabiliyoruz. Verdiğim ufak örneklerde teşekkür etmeye dahi gerek yok.
İyi çalışmalar...

@darendeli
Rica ederim. Ufak bir katkım olduysa ne mutlu.
Son verdiğim örnekte ufak bir hata farkettim. Soru sayısı 10 üzerine çıkınca gösterilen soru tekrar gösterilebilir. Bunun için düzeltme aşağıda.
Kolay gelsin...

Kod: Tümünü seç

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, "Kalan Süre : 20 Saniye")
	GUICtrlSetData($Checkbox1, $SORULAR[$SORULAR[0][1]][1])
	GUICtrlSetData($Checkbox2, $SORULAR[$SORULAR[0][1]][2])
	GUICtrlSetData($Checkbox3, $SORULAR[$SORULAR[0][1]][3])
	GUICtrlSetData($Checkbox4, $SORULAR[$SORULAR[0][1]][4])
	Return True
EndFunc   ;==>_SIRADAKI_SORU
anxious
Byte3
Byte3
Mesajlar: 106
Kayıt: 11 Mar 2015, 07:56

Re: Bil Bakalım Oyunu

Mesaj gönderen anxious »

@BlueLife o sizin erdemliğiniz efendim saygı duyuyorum düşüncelerinize,
Tabiki forumlarda sadece teşekkür mesajı yazmak forum kirliliğinden başka birşey değildir.
Forumlarda soru sorarken cevabını aldığımızda,her mesajımızda olmasada foruma katkı sağlamak için teşekkür bahanesi ile bir kaç kelime daha türetip cevap veririz benim görüşüm bu yöndedir :)
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

@bluelife Cok Saol Cok Katkın Oldu.... Buldugun hata Programın Belli Sorudan Sonra Durmasına Sebep Oluyordu..
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: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

Surda Labele Dogruysa Dogru Yanlısssa Yanlıs Yazdıracagım.. Olmuyor once dogru sonra yanlıs diyip geciyor

Kod: Tümünü seç

Func _dogruyanlis()
					If $SORULAR[0][2] Then;Doğru
				GUICtrlSetData($DogruYanlis, "DOĞRU")
				Sleep(1000)
				GUICtrlSetData($DogruYanlis, "")

					EndIf ;Doğru
					If $SORULAR[0][3] Then ;Yanlış
				GUICtrlSetData($DogruYanlis, "YANLIŞ")
				Sleep(1000)
				GUICtrlSetData($DogruYanlis, "")
					EndIf ;Yanlış
EndFunc
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
anxious
Byte3
Byte3
Mesajlar: 106
Kayıt: 11 Mar 2015, 07:56

Re: Bil Bakalım Oyunu

Mesaj gönderen anxious »

Şunu dene istersen

Kod: Tümünü seç

Func _dogruyanlis()
	If $SORULAR[0][2] Then ;Doğru
		GUICtrlSetData($Label5, "DOĞRU")
		Sleep(1000)
		GUICtrlSetData($Label5, "")
	ElseIf $SORULAR[0][3] Then ;Yanlış
		GUICtrlSetData($Label6, "YANLIŞ")
		Sleep(1000)
		GUICtrlSetData($Label5, "")
	EndIf ;Yanlış
EndFunc   ;==>_dogruyanlis
darendeli
Byte4
Byte4
Mesajlar: 184
Kayıt: 06 Haz 2016, 16:55

Re: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

anxious yazdı: 03 Ara 2017, 00:45 Şunu dene istersen

Kod: Tümünü seç

Func _dogruyanlis()
	If $SORULAR[0][2] Then ;Doğru
		GUICtrlSetData($Label5, "DOĞRU")
		Sleep(1000)
		GUICtrlSetData($Label5, "")
	ElseIf $SORULAR[0][3] Then ;Yanlış
		GUICtrlSetData($Label6, "YANLIŞ")
		Sleep(1000)
		GUICtrlSetData($Label5, "")
	EndIf ;Yanlış
EndFunc   ;==>_dogruyanlis
Yanlışsada Dogru Diyor Yine
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: Bil Bakalım Oyunu

Mesaj gönderen darendeli »

Onu Sonra Ayarlarımda Buna Ben %50 Joker Koyacagım Butonlardan Yanlıs olan 2 Secenegi Rastgele Cıkarması Gerekli 1 kere
Bunun İçin Formulu Olan Varmı Acaba
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

_dogruyanlis() fonksiyonunda tam olarak ne yapmak istediğini malesef tam anlayamadım. Biliyorsundur lakin arraydaki ilk listenin karşılıklarını yazayım.

$SORULAR[0][0] = Toplam soru sayısı
$SORULAR[0][1] = Seçilen soru indexi
$SORULAR[0][2] = Cevaplanan doğru
$SORULAR[0][3] = Cevaplanan yanlış
$SORULAR[0][4] = Pas geçilenler
$SORULAR[0][5] = Mevcut gösterilen soru sayısı
$SORULAR[0][6] =Seçilen soru indexi

Joker konusuna gelirsek, bir buton olur ve üzerinde joker 2 yazar. Birkez kullanınca Joker 1 yazar. Son kez kullanınca joker tuşu disable olur.
Tuşa basılınca ise, basılma sayısı bir değişkende tutulur ve yanlış cevaplardan rastgele iki butonu disable eder veyahut gizler. Eğer yapamazsan tekrar yazarsın basit bir örnek veririm. Kolay gelsin arkadaşlar...
Cevapla