jaimekill23 Posted March 16, 2021 Posted March 16, 2021 (edited) how to add another label to my script? #include "cores.au3" #include "BlockInputEx.au3" #include <Misc.au3> #include <WinAPI.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> #include <GUIConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <WinAPI.au3> #include <ColorConstantS.au3> AdlibRegister("clock", 1000) HotKeySet("1", "fechar") $creditos = 0 $segundos = 0 $minutos_por_creditos = 60 $ficha = False $tecla_de_ficha = 67 ;temporizador $form1 = GUICreate("FUNDO", @DesktopWidth, @DesktopHeight, 0, 0, 0X80000000, $WS_EX_LAYERED) GUISetBkColor($COR_PRETO) GUICtrlCreateLabel("TEMPO 00:00:00", 616, 0, 200, 30) GUICtrlSetFont(-1, 16, 800, -1, "DS-Digital") GUICtrlSetBkColor(-1, $COR_PRETO) GUICtrlSetColor(-1, $COR_LIMAO) _WinAPI_SetLayeredWindowAttributes ($form1, $COR_PRETO) GUISetState(@SW_SHOW, $form1) While 1 If _IsPressed(67) Then $ficha = True if Not _IsPressed(67) and $ficha Then ;LIBERAR TODAS AS TECLAS _BlockInputEx(0) $creditos += 1 $ficha = false EndIf $segundos += $creditos * ($minutos_por_creditos * 60) $creditos = 0 $minutos = Mod($segundos/60, 60) $horas = $segundos/3600 $display = StringFormat("%02i:%02i:%02i", $horas, $minutos, Mod($segundos,60)) WinSetOnTop("FUNDO", "", 1) WEnd Func clock() If $segundos = 35 Then SoundPlay(".\auxiliar\som\falta30.wav") EndIf If $segundos = 1 Then Send("2") EndIf If $segundos > 0 Then $segundos -= 1 Else _BlockInputEx(3, "1|2|{NUMPAD7}|{ESC}|{UP}|{DOWN}|{LEFT}|{RIGHT}|{ENTER}") EndIf GUICtrlSetData(-1, "TEMPO " & $display) EndFunc Func fechar() _BlockInputEx(0) Exit EndFunc Edited March 16, 2021 by jaimekill23
argumentum Posted March 16, 2021 Posted March 16, 2021 On 3/16/2021 at 9:24 PM, jaimekill23 said: how to add another label Expand #include <GUIConstantsEx.au3> Example() Func Example() GUICreate("My GUI") ; will create a dialog box that when displayed is centered GUISetHelp("notepad.exe") ; will run notepad if F1 is typed Local $iOldOpt = Opt("GUICoordMode", 2) Local $iWidthCell = 70 GUICtrlCreateLabel("Line 1 Cell 1", 10, 30, $iWidthCell) ; first cell 70 width GUICtrlCreateLabel("Line 2 Cell 1", -1, 0) ; next line GUICtrlCreateLabel("Line 3 Cell 2", 0, 0) ; next line and next cell GUICtrlCreateLabel("Line 3 Cell 3", 0, -1) ; next cell same line GUICtrlCreateLabel("Line 4 Cell 1", -3 * $iWidthCell, 0) ; next line Cell1 GUISetState(@SW_SHOW) ; will display an empty dialog box ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd $iOldOpt = Opt("GUICoordMode", $iOldOpt) EndFunc ;==>Example On 3/16/2021 at 9:24 PM, jaimekill23 said: to my script? Expand I don't believe is your script Welcome to the forum, to share non game related script. Follow the link to my code contribution ( and other things too ). FAQ - Please Read Before Posting.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now