Jump to content

Recommended Posts

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 by jaimekill23
Link to post
Share on other sites
10 minutes ago, jaimekill23 said:

how to add another label

#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

 

12 minutes ago, jaimekill23 said:

to my script?

I don't believe is your script

Welcome to the forum, to share non game related script.

 

Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...