Progress Hakkında

[DarkLenoX]

Progress mesela onun 15 saniyede dolup Oyunu Başlat Butonunu Aktif Etmesini İstiyorum Button Bu Süre Esnasında Saydam Olucak 15 Saniye Süresi Dolunca Saydamlığı Gidicek Birisi Bu Konuda Yardım Edebilirmi.


[quote]#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\asd\Desktop\Form1.kxf
$Form1 = GUICreate("Form1", 342, 342, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\asd\Desktop\F.jpg", 0, 0, 341, 341, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("Oyunu Başlat", 112, 280, 107, 25, 0)
$Progress1 = GUICtrlCreateProgress(16, 264, 305, 9)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
EndSwitch
WEnd

[/quote] Edited October 26, 2011 by DarkLenoX

[MostWanted]

[codebox]#include <GUIConstants.au3>


$Form1 = GUICreate("Form1", 342, 342, 193, 125)
$Pic1 = GUICtrlCreatePic("C:\Documents and Settings\asd\Desktop\F.jpg", 0, 0, 341, 341)
$Button1 = GUICtrlCreateButton("Oyunu Başlat (15)", 112, 280, 107, 25, 0)
GUICtrlSetState(-1,$GUI_DISABLE)
$Progress1 = GUICtrlCreateProgress(16, 264, 305, 9)
GUISetState(@SW_SHOW)
global $sure=0
AdlibRegister("progress",1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
EndSwitch
WEnd
Func progress()
$sure+=1
GUICtrlSetData($Progress1,$sure/0.15)
GUICtrlSetData($Button1, "Oyunu Başlat ("&15-$sure&")")
Sleep(10)
If $sure = 15 Then
GUICtrlSetState($Button1,$GUI_ENABLE)
GUICtrlSetData($Button1, "Oyunu Başlat")
AdlibUnRegister("progress")
EndIf
EndFunc
[/codebox]

İstediğin sanırım böyle bir şey?

Edited October 27, 2011 by MostWanted