Darendeli Bil Bakalım V1 Yayında

Programlama dilleri konusunda bilgi paylaşım alanıdır.
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

Tekrardan eline sağlık. @trwe ye katılıyorum. Basit olarak bir ini dosyası oluşturup sorular bu ini dosyasından çekilebilir. Bu sayede notepad gibi bir text editörü ile soru eklenip çıkartılabilir. Aklına yatarsa ve kodlamada takılırsan basit bir örnek verebilirim ve geliştirirsin...
Kolay gelsin...
darendeli
Byte4
Byte4
Mesajlar: 183
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

Eklenip Çıkartılsa iyi Olurda Ben Sorular Görünmesin istedim...Herkes bilgisini Kullansın.. Acıp Listeyi Kontrol etmesin :D

Ama Gelistirebiliriz Tabiki @BlueLife Sizin de Fikirleriniz Varsa Gelistirelim Ekliyelim...

Tam ekran olmasını isteyenler oldu Yaptım yalnız Guiyi Tam ekrana Göre Ayarlamak Gerekli.. Hersey Kücük Kaldı...Tam Ekranda Gui Yenileyebiliriz.. Tam Ekran için Fikri Olan Varmı.. @BlueLife
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
darendeli
Byte4
Byte4
Mesajlar: 183
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

GeriSayıma Sunu Nasıl Adapte Edebiliriz Acaba..@blueLife
Boyle Birsey Yapacaktimda Ugrastım yApamadım...

Kod: Tümünü seç

;AutoIt v3.3.9.21 or higher needed!
;coded by UEZ build 2013-10-13
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

_GDIPlus_Startup()
Global Const $STM_SETIMAGE = 0x0172
Global Const $iW = 300, $iH = 300
Global Const $hGUI = GUICreate("GDI+ Ring Progressbar", $iW, $iH, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST)
GUISetBkColor(0)
Global Const $iPic = GUICtrlCreatePic("", 0, 0, $iW, $iH)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()

Global $hHBmp_BG, $hB, $fPerc, $iSleep = 60
GUIRegisterMsg($WM_TIMER, "PlayAnim")
DllCall("user32.dll", "int", "SetTimer", "hwnd", $hGUI, "int", 0, "int", $iSleep, "int", 0)

Do
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			GUIRegisterMsg($WM_TIMER, "")
			_WinAPI_DeleteObject($hHBmp_BG)
			_GDIPlus_Shutdown()
			GUIDelete()
			Exit
	EndSwitch
Until False

Func PlayAnim()
	$hHBmp_BG = _GDIPlus_RingProgressbar($fPerc)
	$hB = GUICtrlSendMsg($iPic, $STM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_BG)
	If $hB Then _WinAPI_DeleteObject($hB)
	_WinAPI_DeleteObject($hHBmp_BG)
	$fPerc += 0.33333
	If $fPerc > 100 Then $fPerc = 0
EndFunc   ;==>PlayAnim

Func _GDIPlus_RingProgressbar($fPerc, $iSize = 300, $sText = "Please wait...")
	Local Const $hBmp = _GDIPlus_BitmapCreateFromMemory(_Background_Texture())
	Local Const $hTexture = _GDIPlus_TextureCreate($hBmp)
	_GDIPlus_BitmapDispose($hBmp)
	Local Const $hBitmap = _GDIPlus_BitmapCreateFromScan0($iSize, $iSize)
	Local Const $hCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap)
	_GDIPlus_GraphicsSetPixelOffsetMode($hCtxt, $GDIP_PIXELOFFSETMODE_HIGHQUALITY)
	_GDIPlus_GraphicsSetSmoothingMode($hCtxt, 2)
	_GDIPlus_GraphicsFillRect($hCtxt, 0, 0, $iSize, $iSize, $hTexture)

	If $fPerc < 0 Then $fPerc = 0
	If $fPerc > 100 Then $fPerc = 100
	Local Const $hPath = _GDIPlus_PathCreate(), $hPath2 = _GDIPlus_PathCreate(), _
				$fRadius = $iSize / 1.5, $iX = ($iSize - $fRadius) / 2, $iY = ($iSize - $fRadius) / 2, _
				$fDX = $iSize / 10, $fAngel = $fPerc * 360 / 100, $fSize = $iSize / 5

	_GDIPlus_PathAddEllipse($hPath, $iX, $fDX + $iY, $fRadius, $fRadius)

	Local $aBlend[4][2] = [[3]]
	$aBlend[1][0] = 0x80A00000
	$aBlend[1][1] = 0 ;position = boundary
	$aBlend[2][0] = 0xD8FF0000
	$aBlend[2][1] = 0.15 ;distance boundary->center point
	$aBlend[3][0] = 0x04A00000
	$aBlend[3][1] = 1 ;center point

	Local Const $hBrush = _GDIPlus_PathBrushCreateFromPath($hPath)
	_GDIPlus_PathBrushSetPresetBlend($hBrush, $aBlend)
	Local Const $hPen = _GDIPlus_PenCreate2($hBrush, $fSize)
	_GDIPlus_GraphicsDrawPath($hCtxt, $hPath, $hPen)

	_GDIPlus_PathReset($hPath)

	Local Const $hPen2 = _GDIPlus_PenCreate2($hTexture, $fSize + 4)
	_GDIPlus_PathAddArc($hPath, $iX, $fDX + $iY, $fRadius, $fRadius, -90, $fAngel)
	_GDIPlus_GraphicsDrawPath($hCtxt, $hPath, $hPen2)


	$aBlend[1][0] = 0x20FFFFFF
	$aBlend[1][1] = 0 ;position = boundary
	$aBlend[2][0] = 0x50FFFFFF
	$aBlend[2][1] = 0.15 ;distance boundary->center point
	$aBlend[3][0] = 0x20FFFFFF
	$aBlend[3][1] = 1 ;center point
	_GDIPlus_PathBrushSetPresetBlend($hBrush, $aBlend)


	Local Const $hPen3 = _GDIPlus_PenCreate2($hBrush, $fSize)
	_GDIPlus_PathAddArc($hPath2, $iX, $fDX + $iY, $fRadius, $fRadius, -90, $fAngel)
	_GDIPlus_GraphicsDrawPath($hCtxt, $hPath2, $hPen3)

	_GDIPlus_PathReset($hPath)
	Local Const $hFamily = _GDIPlus_FontFamilyCreate("Verdana")
	Local Const $hFormat = _GDIPlus_StringFormatCreate()
	Local Const $tLayout = _GDIPlus_RectFCreate(0, $iSize / 12, $iSize, 0)
	Local Const $tLayout2 = _GDIPlus_RectFCreate(0, ($iSize + $iSize / 18) / 2, $iSize, 0)
	_GDIPlus_StringFormatSetAlign($hFormat, 1)

	Local Const $hBrush2 = _GDIPlus_BrushCreateSolid(0xE0FFFFFF)
	_GDIPlus_PenSetColor($hPen, 0x80000000)
	_GDIPlus_PenSetWidth($hPen, 4)
	_GDIPlus_PathAddString($hPath, $sText, $tLayout, $hFamily, 0, $iSize / 12, $hFormat)
	_GDIPlus_PathAddString($hPath, StringFormat("%02d%", $fPerc), $tLayout2, $hFamily, 0, $iSize / 9, $hFormat)

	_GDIPlus_GraphicsDrawPath($hCtxt, $hPath, $hPen)
	_GDIPlus_GraphicsFillPath($hCtxt, $hPath, $hBrush2)

	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_StringFormatDispose($hFormat)
	_GDIPlus_PenDispose($hPen)
	_GDIPlus_PenDispose($hPen2)
	_GDIPlus_PenDispose($hPen3)
	_GDIPlus_BrushDispose($hBrush)
	_GDIPlus_BrushDispose($hBrush2)
	_GDIPlus_BrushDispose($hTexture)
	_GDIPlus_PathDispose($hPath)
	_GDIPlus_PathDispose($hPath2)
	_GDIPlus_GraphicsDispose($hCtxt)

	Local Const $hHBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap)
	_GDIPlus_BitmapDispose($hBitmap)
	Return $hHBmp
EndFunc

;Code below was generated by: 'File to Base64 String' Code Generator v1.12 Build 2013-05-17

Func _Background_Texture($bSaveBinary = False, $sSavePath = @ScriptDir)
	Local $Background_Texture
	$Background_Texture &= '/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAUEBAUEAwUFBAUGBgUGCA4JCAcHCBEMDQoOFBEVFBMRExMWGB8bFhceFxMTGyUcHiAhIyMjFRomKSYiKR8iIyL/2wBDAQYGBggHCBAJCRAiFhMWIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiL/wgARCAFoAWgDASIAAhEBAxEB/8QAFwABAQEBAAAAAAAAAAAAAAAAAAECB//EABYBAQEBAAAAAAAAAAAAAAAAAAABAv/aAAwDAQACEAMQAAAB58LlKJNCVSSiWAAUsCKEoJSXNLAqUhRNQmpSAAAlACgiwTUChLkqBZQURTNABZSELKFQShNQAAIKQ0lAM2USiAtgTWSgJSglzQUhSKMqEoSgQ1nUAFlIQ1mwpCglAsIQ0gsABQWUiUFJKE1ACyDUQ1ENRCpSazohDUQoAFgoJKAEoigUAM0sQpDWdQLBQSgBLCWUms0INSC2AAlKDKiWCoKgoAKQTUEsNZsLFJqUllIUkolmjNlJYLAoCBZSggAKgJSwKgEKQqQ3ILELrItzoiUqC2CWAQqAsKgApAC3IpCpSwEUsCwLENQLELci6xQlBC2AQqUEKQqCoKgAALAUigBLCywoJYNQAFlICxDUQpBQlBNZKg2yNSCy5KQoCUsoSjKUsAaMqACwWUS5KQ1ENJDVxTTI3lDTIpAC51ACywgKlE1CWUAUICwLnQzVJKIoSw1LktgqCwKCShLSTUI1BNQlCUACC3NKkNMjSDUlCCywShLDUsFgLkssKCmS2UksLnQTUJQJRYLLAohSLBYBSSwssKCWUsCgSwAoMrBVMtQZ3AQoICpQsLNQhTNUlgms6JNZKABc0qCpDUgsCgQFlBCwKQoEsKDWUNSwJSVSWUzqCywFJNQlUyoAQFgqDUlBCgSwpDSCpDUQ1ENyCxBZRZTNBNZLYKgWUgAFgAIFlJNQs1CUCC3NCCoBQABKCwllBDUCgAhSASgCAoICywoFlCUXNCAlFzRLCyw1LCAssKQ0lCAAlBCyiKCwlQ1ENJC3NFgAlAAoiwi0iwAFIoAiiAlmjKhKChLAgqDUQoBSTUItCC3IqCwKggFzogLZSAoJQgEooLAAAEKQtzSxCpTKgohQAlIBc6M2UllIDSBc0JSpSgkogBCrABZRLCUChKIoi0yokoi0xQWUms0XNFgAllKCAAQKCwJQgANQICgAlBAoICwLQgAAJQA//8QAHhAAAgICAgMAAAAAAAAAAAAAABFBYAFQIHAwQID/2gAIAQEAAQUC2TGMfQE6NjHznu9jHXXSIuS5MfHGnnxIQtJCyIQhC+p3aFrc63PpReIukV+ddNTYxjGMdB//xAAUEQEAAAAAAAAAAAAAAAAAAACQ/9oACAEDAQE/AQR//8QAFBEBAAAAAAAAAAAAAAAAAAAAkP/aAAgBAgEBPwEEf//EABkQAAEFAAAAAAAAAAAAAAAAAAExUICQoP/aAAgBAQAGPwLDqG0QfWij/8QAJxAAAQQCAQUAAwADAQAAAAAAAAEQEUEhMYEgUWFxkbHB0TCh4fD/2gAIAQEAAT8hIZditSFl/wCD61FNBjDQRgVPbI1NJQutGp2XoXNNTWvTZyTkklG1Jd1JYyv0lO1+iqvdfpPs4dCm+i8i6skk+9GGQx5KtrPrV0LoUxKmCz+kltOSSTt0QRsgghpLF0L0SS87EJyrT7JyfWoknK9WJJ/JJPs+ln3ogswI0H0QtqFbJlkR4XzsRFgzK7aCxdHcVcEk5209MsgvopDv66I2Q6c6aMm0F/woYz0SSTgRRHEksvQuy7bJyd8mTk5U+9CNGSMCoQZbInIq7FUkRcCdPcXQjXb0ytHsjOlIzpSM9Hdlbhk2KghGWXCCy+3W3QQ7kEYI9kb2Z7KcKcKQ3doyrIhJJKTZ9Pr9yiG+tYohiThRVxoVThWQkQV0EO7U19Kr'
	$Background_Texture &= 'lpJZFM9zM7Ls+in0+iWRhuF0QJPkTdi8ictgx5dRF3gRcEnfZdifsQRXrpRMkC7OTPcznJnupnuQRkjIibIfv6II8KQvn4QpAiZsVPYiF6ZW7e2SxNCC2WJyI0k6KJJwUhwJvVtGeSiCNkNJKS9tBHsVo8KcKcKYnSi+lcoXDJOCdb2LIgmhNCmRM9C7R6OzTkoVcqTgnBaknZ4IwpBBDWnRypmbFnupPcnJOCSSWT9iaKdD630WnUoQTZONE5KaSW/hfDUrQ0C76frQytOEyIvldnIn3sRcWIvsWfLJojBfJBC42Z8lvJOSrdSfbJRgtqb+PBBD30Lo1T0TkoR0/ZQpiHtp17emQwQQgkFl9aMmJIIaCCCm+kCFWfWQX2ZEIwXyUKS0k4sn21MnQjKUUI30QsjOH+tIikeSMHJyIRgX2rIZemrokTT0yNDYIIIwV03wW9ilGGXTwRg+kCIQRrJGNs5KsVfZPsn2cjlsn2T0FLII6KK6NqW3Z4IJ8GYsycCIQKRkRuxVvQqsrraj6IrTl5f+QVXn4yMf8ayzk+nJB2aM7ayHoQw8CbETKeyMENBBAvstfZyWR7FT/Y8C/BFdlJ9l+CLm/hPyS8iIhH/oKs+lEENBezlTtknype1J8k5KJ6Ox9exNmOiGVCMqQRkojBAgqCJnkwRgTYpKQShKQSYe2XkhrIy8lZbt0WIJqz700WvsnBZRTJs7ibE7sguyF8nClaOFK0cKIXYvRbKWSUT02ITglpJJKF2cnLUUWKJvkSxNCey3rq5Mt/C3tpafZ9O7XsRtH9PrroU5J8nJyVsvdnIk+TkokVSVafeuhF/BLY/0Y8l2XZ9P6Tno7Oq+yfZLXYsmfJwcGeyiyZ8tnGzMEloSISSI0dOBNFn1vrW3b2WKKmhDt0py0iqLDoKQyzgz5KEpk9NwILFvwT4KeemMt+x9FTJ2E0JRhsFvApDo1MunSnrpp6OG4KXBXTy2fRWRcCLr2SSSJvnoU7i/tkpq5FF06Loz5LsVGxDfSMWQ0EEEFdH1kXXtl0L7JwIuuhNnLWKdxWQo2nIoumV7MQ1EtXXOFJ9n0nLXYi63s9lFX2eycZE3tuTkT2fSfZ/WkVSRCj+ii6dGsoUp6I/Dw/d48KImdKcKJXtl02YEk+mfLoSSy2K39E0RoVBTsW2GoUon2SIuxVJ6LETZDdj6LyIhBGP+EEYET3shfJHghvojQR+RfYjWxEzpSMHYUh0KLKFXL99iIuRdMsw9iFt9MEiNR2KEkgszBmbPok+XXoY7mMbFgUVWkRULPrLPlsy1bIFELL6fouhCMWUQRggjOiCtMiCciXs+n09icbXZK9xK91JWEyuxVXuKq91M+WTbZkSWVRFxw0kiSfAgu2Q+9SaZOhSmQQR1Upu3spPZ3FLMNhkUWiinqyMEHBGdPb8qfSMEYerJ20laFPogitJOym7FcsqZLsovSmfLILQq4soon2Tjp+lv9aSiuiXjHX3F03boWYeSRa2UVtk60F5JUVfZPskQp6IeMPDyXspp/JODPkUtr6FIwQR0KJ/gRfwIV0IjRkpoeMt9KsguyrK6vp9FQoVNiInk+ip4U4UX0uj6R4Ibt0IIhAjyya2Js+loUrxogjLImiCCNEYIazk5Ianxkx/oSBdsv66a6aKMGGSJIxtSzuImU99Ft2dNo+Ds+hCjAnpTucLoQVlaSckk4a2QTRXQm7PpiGxY8iRKe2xNmPJalFsgmxNEk+xVJ9knCiL4UrSnCiOi+z7okVfwIrW04KyXtTkTlowQQQImSC+RRNPbW1r7a0PoglCFMp9MeWRCuShN8CiLnhlKF/QjWWUUWydSbaxRNp7Oz2vtpSUZBCSmWtiiFsmhNFk+S+DSvOGsvZZiNmI2YZPbT7+kuJk4owVCSW7lNDaIKs5FJ8qWT5bkRYP49kKR6FT0R6+kZr6R6+9O+iihWWnoXhkahZMimT4ZemtWs/p//9oADAMBAAIAAwAAABC5'
	$Background_Texture &= 'LqJobIo4JZqpr7oKoaqqb4LZJIZYoJqZYIbKZpJ4b6IoKpJ67YIIIYJoK6poZL5aIIYLKa7LrqKpoppJI4IbJLqYaYKZZY4pJoIpaboZJIIIqY46LIoLK4oYLYbLIpqaZrroa54I6oIZ4rppKbJ4L6YJ45KKY7Y7ob465opoIo4IKIbqaJYoaII67oaYLoIZYK5IKY55a6a7Y44oZbppIppbpIbIIbYY75bI4a5LoL57K6bLZZL46p76ZaI5JoLbYYY54La5ZpoJIYY7bY4ao5pZ5qY4rqYZLJ4K4oJKL6KIZIYJJqKIqo6raLrKK6qIJrKKrb5YILooI6ZLraZ6p6o4oYpaa6ZYK5L46baI4IK6bL6pYKIor67r6p4bqZoJpI5qIIab7YJoKJKr5YL5abo7r4ZLIaZIYqKKI4ILq4LIJaK6qpoIJ6o7KpZJaaJarLL4KYoIro4qKq4a5pLoJJYpIqo5YLroLJKqaYI4a7JKppZ5L5qqqYb4L4J54KKJ4J4J6J5754IKKKL7/8QAFBEBAAAAAAAAAAAAAAAAAAAAkP/aAAgBAwEBPxAEf//EABQRAQAAAAAAAAAAAAAAAAAAAJD/2gAIAQIBAT8QBH//xAAmEAEAAgICAgICAwEBAQAAAAABABEhMUFRYXGBkaHBseHw0fEQ/9oACAEBAAE/ENccQo86f4mbL6mRvqLPOu4/jnMeC9TYXg/Uuxl08+5ajS/cM1/u4FDTG7OcTgvziCptheG2ODcBnDzHS7jgDe+o1e+aiKbWniLbbcArLzAWXd3Hkv4gLmKy4d7qVRc7jQ4vzF/PuKHH5mTYO+4vSvmbMoIMMk/cu8kZ7/qeRuIDz4zE6cym+YlbNzfcrIRyNavqYspdVueF6/Uugymjf3FC5Y/9BFAtPnzMnQ/hLPEd+0yrgFefygrdLBuZvI66gYqnTNKqmnFSmkzebq4NcbRFEaM7RF7dytOXcUXOAz5hus7jVPhio/uKC7q4inZqCl0z1GrZ2NRQW/4mIU/8S8NXvqYvvZ/DDeF+pRe+Y152wGlyi8uZa2ZlU531CkbxMK7+UQIcVW4JteDH1FLzeu42F/OYgfNRw9y8Dx+5dOFcbgXodP7iU/uOZv1Cz6Q03NM39QoYvPiJWxwSjgvHiGeW+I2k1N7lr3uW05ZbjeHcyvcNtuYpXPiLXbHDBu/9xFhofdyj7JeHDvv3Gj7dxHB3mNIYEG76ig8Oz9wBtfqAQL+pYu9RcB53LLd77ilO5Y3d1c9jTKKmY4ZdQsudOvEU+kWjl+o1bbaLgy/Uq6rr9yredQA88xp5YJWG9QAtdQC+cwHmVgpiyYXUz2uVb6iLlZBjKxGudzAjR2/9lPbvmLTX8RHOHcbLKZk1C5sYGht5gNOGW8/Uppd76nRfqD+XcH7EKVuA5NxSzf3EUVFtxe+5ZnC5l7aTMXOFw7mzS3cHGnXcpb1HNHdRQY818Zi2eo02cE59G/ZEEbv/ABEpwxDhddQHJ11AXVv1OeddRx3qADPJKp2zZfDEoPPULXy8RvF3tlNt39SnN2vULN3uXS1Fw28xbML+ouedzTmvMLO25XmUWxo13uNDNw3Ld9xdvfcUC7u+GZed3NqLz5jZKWvcM+d8sbH85mL533/UwLphQ877gY51ALb+I78KgtK4fqZtq8RaczJWWo3WTXfqabc+YjV21FR8B/EOfDqG6VYOQviOy11tIKHLpmF531DNvfUa8tvEUMLvqOm8vURDVsM3Q7OIFMXuKopbXh7hJm79zJ5rzBVV8RWbYc5d4itt4zK976ibrhgN0WX0WW7dw3lI2B+E527htzOVLMW55mRnuaed9QduMvENDo6/qPL9kpoJjX+Ilrh+/wCogGL+/wCoVWuDn1DD6d+pp1+YLdP3EpLvX6hzlqBaYcTlr5iX3jqWvnTBHKrgNvl6hQq+cQ8r3qIgWu/+TPbviA2pdn7hdZvcBp2HqDNHnGYlKq/cC+99ytVniCh3'
	$Background_Texture &= 'ANL3n8yllXMMB3Kl421MNNupQqoAwBs0LFVdPkiZ3VMMtu5oe5T+yJ4YtBTuAF3q9yt86xBPV+oIOeHcUV/aYNfVTHTo/U4Rbgx8kDHDddS2MTN86P4hd60guqdQXg8xI5EWWvlxGnPD3FpeyUbKzzEHTFaOx/UVLq9y9uEyfuCou99y1O/uJVoouPReIZOdnMyS+/8A4PydVNIZlVbO43Tcvh3KwViHh/MC3buF94nk7/cHLl3u5kO5UX3FEgUb33PbqGHKW78OfULH0itbI3DdNGhBZYdfsmFEYmCiUqaKceILp8TJrlLE8G2FT6auYvFscHDuLTB9opeR33FEAtz36iOnL3M2jJ+41Mcww0xW8Nu4tYflEU7WnPuK03vuBXzW5ZRvxmcm99wzzyxO731KW6NMRU3uB2N8SzG7uNTn6gTZq2C0tt7mQ045URnhmxfsgqs9zR3dQ8moh54O/EowvUcsXKLN6iFIdH6gY2+HqZNU61LphPiNmtIKMD9QV6cHUZzPpHGsMRKyrR1A2tuNl4RvuWow1cMBhwzeZ/lRMYEgzZTUwGHcDWmBXB3N/KFRKQJ+5udXDb77jTlzHK1vkg91t7ja6HfcbL33KMA7f1DBiFy2/aNBqOTP0leWU4ig2nxHKl0vUPZz1A05lKav7gHLUGnmgg4a6jS8OsyrTetzAeqP1C12Uo/UBenUAeH7/qIvOjv+oBV/k/qXmn7P6hTLR3/UpfYdwoMDruOWnfcsHe+5YAJTq5mKvffqCumHl6ljp+41XdWc+5d5U4lu0sq5x5ip1zHR9nPuZxY8Rumh3LRNxOx3Aa27jdOVi5Zd9xaMuevUKrP8QB6vUs7vuB4rgF72fuUth+4pgHfcpRuCcOYtub11ALxeuvEBd51PI+/Mo9xHOqiMudQLHpOvUweiNGli554l0bZn/HUNF6RjsrVwXlRDzVfcT23q49L5lKN77hkZ51FEzc5ekrtf3Ctb+41Rh3MXVP3KU0Lk/caox9pp07/3E5D+UWcuY3mv5i5ahsxe4GGzP/Jgcy3HTmbKUVbCZ7g5Odn7i+Xfc8r3AWbv1BFLvc5auK/14gc+OJQodfuBlu5RDGKld3qAv4gKb1Eu7vXcqnPR/Exvx1AtHOolX4dRLDPBDLf4jQX5mBtl0beZYoUpS6Dt/cVV3tN3Oj9xzbbuJRml9wUhsc3XqWFbyfuP5OpWH0irKv6jZR+lSshdo7Ct3HF13LQN7/5BVzBBc7ltMQqrY7gqNDuWpw7jg0UuBabq8y3bcq3LiUFPHUop3rmBXx/cKt3mJTvGDiCXUAXN6iF3x1KW5ZS6VMdQKrMQsv8AiNWy3XJFxfjggi5v6l2J5gvw9Rwr4RyZv5hs3v8A+Nnv/wCP2iAIb1OTcpe3Tn3FO0RZvcui7+opY53MC/8AImXvqKVHBPb9QAx+Ll5NMvq7i3d3llAdxMjJKVedwsze4MN7ldjXUThwdTi86g0i3/MEvm45cddShefEAcNxG/XcTsxEXzruUA3kiZN3REXi4iuddSllXK5HMcmncrx9o2DDuDOR2Tv27l9MXRt7lqwu+5bhfcSxSywbdlS3JyxEG18IeHuLJj8QAuHcXoaijvcNfb/kteYu0y77lpku5m8Lu41vKuP3E5z9SqM39QM476/+Cs7wdylYGq7jXBhVrv78xF8zFtWfMr5Sl6fu5hNXr9R7Fysu4mDepWTOhHat3GxjqZAcvuaZXxLGS7lN4USinlCi5dnEsbMtb2RMNtZlwze5y39wuzLvqChi+9zLdurit6cMvZI8YzMNtO444X3HKq5zmLDGbf1Lt0x2Wc6itMc6uGXmZvOyJZyxsUXuUWb3BoLe+4cqdYxHXeup/BKp/wDPMCjDxFy5zXUcBmHLnUrtvp4hj/eo0OY0BvUwnDo58Sg867mDlruGRdxcbd9zZvdRLOfuVjT9Q2jxP4idNjuUty7gUb31C6ZdzPDZ6mF/4QoFLvcTO25dZP0g'
	$Background_Texture &= '9+sBkuG7Y/58xyy7QoYYZvt3/wDAiYvDmXnmbG9lwCQzQfxCndQuU7s4l28nzGkDsjr4lnb/ADP/ADKy2Oic848Qd1MjRxEXR1EbLPmVZ6cfMRvnJEz4rqaZ6Jtzr9RVUqNsDaPYX4iNYX1Epwxw0wZ5mzDKVbDeHmYWnLBHHluoZM39RRcXvqGKX9kD/EsRu9xHnmKWq8ssPmWb9zyX9R1obuXn2jDgdkWzJzxBcHcHDj8wcc77hU7av8II/KLU711CuV04jR8TllcH6j5s9qBnDpn/AFwM7VHLK/UrFFMf9jvL+Iinh1EKy8dRDJaK6nhE/ncd/wBR9oM+vERBfMQLX+ZWXcpRvcFXl2zy+oLT5hhWfqVT89T2x6j7FQFZU+IMbf75iBmfh/c4bX1Azy4eplr8IiLtPCfYdpdL39MbW5kG9HtKR/SYvKtHhiFq9PE0N6ihsfhKAzlyVK43ozKHDGib1A3n8wsfDEr5v4gZgmytfv3LCV9ktpX2RVmX3FcmKU3MkJffeoonNrBLe+SY4O+4h/6gVfGagC7a6qCfaETlEeoFKtgAGYlN+ev7lFY/iIvcAWrfmJ8t5jb2TTf4gL73qUf+JQ2N5shR+eoacvJMmz6hO7+X7gU2/Upfe+ovLUVOsV37m51GzI6nQdEoauWgu/qYzuCYB7ljjev1OW7+JgHhnMLBVyqTLKsZdbimlvjMtrNxaTe+54P5i4Wd9eoOXzBztuLjPcXLWM7mcZdwttnfc3LvcV8GdwXFNri5TOH/ALOOeM3/AL/MbvO4Leki8MEurBhyY/MHL+Jfl9x8bz34ltuGaCncd4OYrv57mnBxBw+4c6eYGgDrqYAPwja40EzzaP1M/wBkc5qWg3BWGHUoFjTvxALpiAm9TAH/AGIWWcdyujVdRKS/5ga5+4vO3McNu4tHe3n1MBy/cG0u9zFe/EvKZlgF25ldnceC3FzCAEu35mR+YizcMsfdxaF3lmSbzcvDls/cG1ynO61Hsu/1LqB/OC1ruG/+EGMHZ+4MsOyCn0Y4y/iUBmJavg4lcupVFtfU425nCW9mYON8dy0WlMRXtF7Oori11OQt/wDEvH1v4jvazg9/8i2ruripeXc0+Xn1BxzVwSl7MG3UU3wzLtM3mJzW4KTLvqcW2QyLWLS0scZy7CIDz9R4rU0ZrPcSuV93LocvuKtt77lobZe5mttw/JC62oyr5R2wjJxDTlhP3AzLd/8AYZ5twxLxeu4UBmK21d1u/Uy30S2uZbRh13Lpd1Uw4uvKNFu7llG/qCk3iFQY+BCqXw/UxhUIXrCFNFv+EQZK5jhQvHmOi12/qGTN1ALwdwC9MKtq79zAWeWZtnl3D23BUKv7hYIyc7iWcbdRW9pTW25sX9E7B9VEo3TP/Y22I/ccsIULDvUEhvcFwDubO9zb+4UGr+4e24M6dMXNeNQyJWHd+5zzqVnkuUJ59Sxq8ynbUaVl+oVW4xW3X6gCGYypXUGtG/UWzSQM3/L1PliG2unEoKdtv1Dis3e6hltVXAxvUTe6i6pdwVedxbr8INA2vzDKm8QF213UoF8xRcXhiWHmBR5+JauZaud4iIrncybb79TTlbLdbcsSNO5aDV3LDtuF02NQMOW+5pnplDtqcGHXcuh24OfJFztr9Qy29XBeD9zbdfmChp1MNjfULR3r9zNbddyntgNlvENNtv8AyIU0v1Fzk5/4i5u9ojk/ETCFczDK3MyVncrsyjeY2LLgBs7gA8wK7r1LXzA235im6vDEc0rmVg39zh7jqo/ixzd98w3ldZhkfLzOt7yTJ23qX3cKdWW9Sq5XfExT3cCgw6SJ7+pRRYwM71X7Ji83dfqc88wKOH4lay+oGcDrERtLVAdzX7I3sJiVnXvE5sHUFWy9ajYcspvBf+ZTfa5mFrtioGWchd9zPa/lDhc9uY3Ofhixy5tuDTiWVp3DeRw7uC3nHUcfLmEtKvwgLVjuDRHcprneojRzF83e4mm6'
	$Background_Texture &= 'tgocuYqLs+Ylour8wae3cp23e4FXTuJlxWbgdubiF1mIccOofU6xxGznr9RKedTIzePEcv6nLDk69Qyz6/EAvh1z7JitN+5v6mA51OcGnc73fqEG+1fiWd6iaZXL+orSlXVy3bfcyZJnv1B1uaHLL4tlK+5i9v8AfMKozzLBZdxbpd9Re3PUxvLt4g5KXceAy51Ke/xGxyxbO9zRvbEtLszBlu4YZYFVtgjn8ztvcQXmDnv3Pl9y8HjzBta1+47xWv1LyVjEXBFb5+4ZMrqN3eXH6luTWr8zDBwl07wJo3pmF5ils4VHTL5PUsHJ7iAN7f8AIthl9x9C5kKW+4NUW1OdtyrNr/3mDO24NO18QFbgcu4XHzOWG7mRxz3AWb3KFGdwo/tLAK09PUwNJ8SlA88S6C73LzzuYHO8YhVYuo62JmLedmYsckfN+59ys6dSqR438xD/AGmL+O4mC+oRRTvRKtrOtwKKbr9kDPxKtTOtBLXoif4fqI2nEfrxD2fh6g5MuYkGXbmC434zFXK7mY257gtZ+Uwvyl0m4OTeWKnKwsbd1BW7u5bW2K2173DmVVb3/wAgWniBXKabb69QuICg4zE8vco7QChL3/yGBV7jQ5vcwc9zbFxazlFOEaPxAraq/ZAoQdEQp6igc6l6MyqX0cShvbrj1ATbXXkmHL9RN0upQOTrr3Pn6f3FRulEwFXuA8/UW89sGJjnqL776iiPRoiQYWeopdt9S2MO4Gap3Cjn0gK53ChUvcBWLjddwmaNpe8NuvUX2Jfg/BKwHBevqDGIiscRNGcsNnuYVjmHavuXjV7zN1Fu4Bl3F7HjMq0W9YxEboaRRg668kDnT9SmzDrqAHD7qA2TNuzH/I/w/UWXqJWF5JZbd6lnPDqXwslE6xLBzK0qwvXtxA4dyrqUowBd4irMZ9RGNF2Zhhxt5hZs23cVMEW22O4LemYXh3Bd4dzKFiZf1PvE/wDD/M0o7P6i7cxmAefUDFdzF8wOPfcQc/cQr4YVWOXcvJhu4LI/L6gNGX7lB5dQE7x1HzeMxVmXUtW2ZbuWGNmIuG9Qw2nvMd8yxvcvBd6ma1FHRixcFTy6lJy3qFN3l7gnK6I0Ha3qdC31NtO4FZLcpvBnqADevUFBUY5e2Iahszaiy5bi6tTbn1Mj/L/cs9nc0XyPUpYX3Fvk4WKqtXtl287luxmF1zK7dziL33MoZSBSg8cwOH28y8647mDp+45sOv3NDDrdxdbYIlKzqK+Xq4351Fbm+eImf+INXl1zKusyi9ysb4hdXncFaJmVgwz5NPExWl+f6hWcMq+H7iy13ywMcc9xOsQZdhe4McytOGGTUWnJiXGO+4tj2y97m3b4Qdy/4R3ZfUxc6zxFNr3FDi/uCedwaafuWCYTxArJz3FRhFL70TDbOu4BVluIA9/cS+aiOymNDA6gVy1PKlas4ham/uObF61HZa/cTy6mLYUJeXxLVu9wTfO4nV48Sr3jxUGvZMOTFPO+4iyr+4U7txW4GGFo+koA5hVBtPcyMjHodxzh2y/cMPsQMb/zETC53PI5lLAEG/qW/wDBDCg2mRN7mmncXlV9yjfQlui67/uLWzDy+0eRdQbDLFzvE55wSs7cylq+HULRV48Ruzepa9+o5rwJkM3D21KsB31MHPccmne6g4xcvDvcLXTM1uNtZcwy5dxlY7+YgGNQqnw9wCs5LhXN3EBWdwYudv6lVpdyrdtyimXbx6lYdzCxbwvcERS/mCCf8hSvcLpamYm8luPe1qBnSjaXeObg1SxMOX6gNGfmJnN6P4hd86jfNxW+ZYbRGJK7TRl+4lgunct+UEBd6iK533Cnd3Gv/YbzcMYLuWTE3zzKy289QOq1eqlHNjcdtrjqOGFgYwu61Kb276hTd36l4Zb7iobXeIri12woirFuLv8AUEXfLzG53+ZlVXuW+aWORd+YXWSXhox3DAbu+5km9uY256/c0d6n+YgZx/EcGXg4hsmCvjvx'
	$Background_Texture &= 'LDtyT0/mXl/5NOLjdHdfuZrUd46l0feIgZuiLJ89Qb51eMRqmGGruU5O9yhvUKrEpXe63MNc5bmK037iLdxC+dvMA8yir0Mo4v7l2l8icq5RyzfLAUVy7lXdNoHR3FLbHcTJj8xC+YOdfn+pyYf98QbtraVYVydwr52wOzANnUwsKh48QC8GMo9H+4lHwf7iDN8DnxKVMZEt2lr0/UpvT9SsUvXEprN66lZcOonQ/UD1x15mJ95ue7fUVW3wTTznxMlls49wnfjNTFb4Sr3Xcep2fuBaBecTqu5tQcssFX+Iq+94lafklLtV9TkZs8QqlXvVQz23yQPJMwdYuIplY3yd6iW4WJStWZay1+pVZvHqBhWMv6iZ5q4VWenmNGm/XqGRd7ceIE4zviU8moJZX8zbnT+CYsPGczQwUYOeY88/5l1M3p0Rb1cMmBgdGY7b3UwMXPC4c7C55t2cSlv4JR33EKp317hYr0lH3EtyOWX4/ECnszBo14l28My8Smhy5mHkSoZCu5Xl+5k/NxS/LzGqMc4zMXj+YUtMRWLvUKcL28+o4ZvcWM6Gs/1FpSOtXCrOxz49Rl86efEoOmqggmHB3/U326P4g0FLqGWFH3FbL9y17ddxRmrw/cFQoXG43bDqLjNxY1TK9j5hjRhqGuZisjv/ALCYdiCVqa9hMmWy9TutIgpd76lUeXUT/wAJWhXMq+W5w9yt+WDBfc05d9R8lmm37mO37Rd5+43q/wAoIwCy1c7OGJ/Z/UHHJl59RVHZf+4izjrrx7l5d64g5tvA/wAQBvo/xFLv/FQwLG5i5qkBT0/uD1f3LKVeu5Yu2eV1j7i8zrqXlWj/AHMXG31F5/z5gY3ALq9zJ/qXvn6m/O4yfZxBJnGepSHflU5bc8RmR4fzB15eJeOHLHGj8zw6/wCoa18TxO+GXejbuWdjuDODuZGn7hnEdkSuJ6PuJdY2gJz9oBeb3AvNwCu67Qe7s4iCn0HxEA3eq3AbZ2/iFLldPEo96/UA7Sl4vSyUo3qUfzzBvlqXfx/U87/zB2Hj9xyi3USjbU9n3AKq31Ck53APqUOrgC5xBh7JgHGY/wApW3u3mVxdOZi7HMHJvD3FuFH+HMESWYOe/wCpZVN/cWsJndx6wtvcMtO5Yc8p+5zpmlKe5R4m3Nza7gAvvqL4XFfPD3BTd1uNlpOINbO1fUHZyNTXMEDcbbYT9QKKvLDGVTs4RrK8VjPiDhF8xcNhSOWXjdRpNygV0g0Z/ma7tcGOVr3CpeZQS7+5QrvD3HDl+Zk/3L3FucZhYN4e41eTJDLbvuFptw6l5ydxO0queeo5b/MKrKuYYCunME3lwwwxbX/uYtOx8TTC8xsjgthZkv3FLhYg0orS4zLTpKDamY/5cDPGnnxAyImu4jWq13GxqjHZF4X8iYC3Tsl7y2rp17lqeDw8xxb/AAQMmtdyimVn45nHe4FM+eZWC7jk4lW8biYXUSuNX3ALo3/uZRS0XFTYNwSs1cE8b3UsMK3EGzwxLyrW9RYbrcd8bi5++ai8PqZPzLVmoiEK3Loa5HHuDbZ9RtM1vqO8Vm4tjJuO8xhxx8kqgXHm/Crn/9k='
	Local $bString = Binary(_Base64Decode($Background_Texture))
	If $bSaveBinary Then
		Local $hFile = FileOpen($sSavePath & "\Dark Texture 300x300.jpg", 18)
		FileWrite($hFile, $bString)
		FileClose($hFile)
	EndIf
	Return  $bString
EndFunc   ;==>_Background_Texture

Func _Base64Decode($sB64String)
	Local $a_Call = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0)
	If @error Or Not $a_Call[0] Then Return SetError(1, 0, "")
	Local $a = DllStructCreate("byte[" & $a_Call[5] & "]")
	$a_Call = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $a, "dword*", $a_Call[5], "ptr", 0, "ptr", 0)
	If @error Or Not $a_Call[0] Then Return SetError(2, 0, "")
	Return DllStructGetData($a, 1)
EndFunc   ;==>_Base64Decode
Program Yazmanın En Güzel Yanı Birilerinin Bu Programlardan Faydalandığını Görmektir..
darendeli
Byte4
Byte4
Mesajlar: 183
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

üyelik Sistemi Ekleyip Kullanan Kisileri Yarısa Sokarsak
Misal Haftanın Birincisi Gibi Programda Bölüm olur 1. nin İsmi Yazar
Her Hafta Bu isim Degisir..Böyle Bir Rekabette Olabilir...
Gelistirmeye Acık
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

- Gui genellikle butonlardan oluştuğu için boyutlanabilir bir ekran yaparsan kötü bir görüntü oluşacaktır. Bence tam ekrana gerek yok. Tabi boyutunu biraz arttırılabilir.
- Sorular dışarıdan eklensin lakin okunmasın dersende tabiki yapılabilir. Misal şifrelenmiş bir dosya olabilir. Lakin bilgileri bu şekilde kayıt edip çözümleme için kodlar hazırlamak gerekiyor. Buda zaman alıcı bir konu. Bu yüzden beni mazur gör. Eğer basit iniden soruları çekecek bir örnek istersen hazırlayıp verebilirim.
- Sunu ile tam olarak ne yapmak istediğini anlamadım. Bir resim ekleyip bu resime göre soru mu sormak istiyorsun. Ilgili verdiğin udf örneği kullandığım autoit sürümü ile uyumlu değil. Ses dosyası gibi dışarıdan resim ekleyip GUICtrlCreatePic ile görüntüleme sağlanabilir. Yardım dosyasında GUICtrlCreatePic için örnekler vardı.
- Üyelik sistemi vs. konusuna gelirsek; bunun için bir sunucudan bilgileri çekmek/bilgileri eklemek gerekiyor. Yani program internete bağlanıp ilgili konumdaki üye bilgilerini vs. saklaması gerektiğinde alması gerekiyor. Zaman alıcı konular :(
darendeli
Byte4
Byte4
Mesajlar: 183
Kayıt: 06 Haz 2016, 16:55

Re: Darendeli Bil Bakalım V1 Yayında

Mesaj gönderen darendeli »

Loadin Ekrani Gibi GeriSayım Yapacaktim..
Boyle Bir Geri Sayım Yapılabilirmi..
Tamam iniden Soru Ekleyip Cıkarma Örnegini ekleyeBilirmisiniz
Resim
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

- Login ekranı hakkında bir kod örneğim yok malesef. Bir gif dosyası veyahut her değer için bir resim dosyası hazırlayıp bunları kullanarak yapılabileceğini düşünüyorum.

- Ini dosyasına gelirsek basit bir örnek hazırladım. Notepad gibi bir editör ile soru ekleme çıkarma yapılabilir.
Örnek olarak au3 dosyasının yanında Sorular.ini dosyası oluşturup içerisine aşağıdakinleri ekle.

Kod: Tümünü seç

[SORU_001]
SORU=Şarkıyı söyleyen sanatçı kimdir?
CEVAP=Zeki Müren, Barış Manço, Müslüm Gürses, Orhan Gencebay,3
SES=SesliSorular\SES1.wav

[SORU_002]
SORU=Türkiye'nin başkenti neresidir?
CEVAP=Adana,Istanbul,Ankara,Atina, 3
[SORU_003], [SORU_004] vs gibi soruları çoğaltabilrisin.

Kod örneğine gelirsek aşağıda. Incelersin. 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 <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
Global $INI_FILE = $ScriptDir & "Sorular.ini"
Global $SORULAR = _SORULAR()
;~ _ArrayDisplay($SORULAR)

#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ü****************************


;**********************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

Func _SORULAR()
	Local $RETURN_ARRAY[100][7] = [[0, 100, 0, 0, 0]]
	Local $INI_SECTION = IniReadSectionNames($INI_FILE)
	Local $INI_VALUE1, $INI_VALUE2, $INI_VALUE3
	If Not @error Then
		For $I = 1 To $INI_SECTION[0]
			If StringLeft($INI_SECTION[$I], 5) <> "SORU_" Then ContinueLoop
			$INI_VALUE1 = IniRead($INI_FILE, $INI_SECTION[$I], "SORU", "")
			$INI_VALUE2 = StringSplit(IniRead($INI_FILE, $INI_SECTION[$I], "CEVAP", ""), ",", 1)
			If StringLen($INI_VALUE1) = 0 Or IsArray($INI_VALUE2) = 0 Or $INI_VALUE2[0] <> 5 Then ContinueLoop

			$RETURN_ARRAY[0][0] += 1
			If $RETURN_ARRAY[0][0] >= $RETURN_ARRAY[0][1] Then
				$RETURN_ARRAY[0][1] += 25
				ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][1]][7]
			EndIf

			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][0] = $INI_VALUE1
			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][1] = $INI_VALUE2[1]
			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][2] = $INI_VALUE2[2]
			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][3] = $INI_VALUE2[3]
			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][4] = $INI_VALUE2[4]
			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][5] = Number($INI_VALUE2[5])
			$RETURN_ARRAY[$RETURN_ARRAY[0][0]][6] = StringStripWS(IniRead($INI_FILE, $INI_SECTION[$I], "SES", ""), 3)
			If StringLen($RETURN_ARRAY[$RETURN_ARRAY[0][0]][6]) > 0 And FileExists($ScriptDir & $RETURN_ARRAY[$RETURN_ARRAY[0][0]][6]) = 1 Then
				$RETURN_ARRAY[$RETURN_ARRAY[0][0]][6] = $ScriptDir & $RETURN_ARRAY[$RETURN_ARRAY[0][0]][6]
			EndIf
		Next
	EndIf
	If $RETURN_ARRAY[0][0] + 1 <> $RETURN_ARRAY[0][1] Then ReDim $RETURN_ARRAY[$RETURN_ARRAY[0][0] + 1][7]
	$RETURN_ARRAY[0][1] = 0
	Return $RETURN_ARRAY
EndFunc   ;==>_SORULAR
Cevapla