XProfan

 $H windows.ph
Declarar _aProc%,_aProc2%,_hTimer%,_hTimer2%,_hTimer3%,_hT%,_hT2%,_Count%,_Count2%,_Ende%

PROC TimerProc

    'unnamedParam3&=Timer-Handle, así puede ser zwischen el individual Timern unterscheiden (el Parameterbezeichnung stammt de Microsoft, nähere Erläuterungen hay dazu en el MSDN no)
    'Achtung: Während el Abarbeitung uno TimerProc-Aufrufes se ejecuta el Hauptprogramm no más! Lo es lo eben no en echtes Multithreading. Daher sólo kurze Codes uso.
    Parámetros unnamedParam1&,unnamedParam2&,unnamedParam3&,unnamedParam4&

    If unnamedParam3&=_hTimer%

        Imprimir "Timer 1 aufgerufen"

    ElseIf unnamedParam3&=_hTimer2%

        Imprimir "Timer 2 aufgerufen"

    EndIf

ENDPROC'TimerProc

PROC DoSomethingFast

    Parámetros unnamedParam1&,unnamedParam2&,unnamedParam3&,unnamedParam4&
    Inc _Count%
    SetText _hT2%,"Timer 3: "+@Str$(_Count%)

ENDPROC'DoSomethingFast

Cls
Imprimir "Programmende con Escape"
Imprimir
_hT%=@Crear("TEXT",%Hwnd,"Hauptprogramm: 0",250,10,160,20)
_hT2%=@Crear("TEXT",%Hwnd,"Timer 3: 0",250,35,160,20)
_aProc%=@ProcAddr("TimerProc",4)'Funktionsadresse el TimerProc ermitteln
_aProc2%=@ProcAddr("DoSomethingFast",4)
'Temporizador 1 erzeugen
'Parámetro 1 & 2 necesario 0 ser, 3 Es el Wartezeit a para nächsten Aufruf en Millisekunden, 4 Es el Adresse el TimerProc.
'Achtung: El Aufrufzeit darf se no con uno vorhergehenden Bearbeitung el TimerProc überschneiden, ellos muss also lang genug gewählt ser, sodass el TimerProc antes el nächsten Aufruf fertig se!
'Se puede natürlich para verschiedene Temporizador diferente Procs uso, solange lo freie @ProcAddr-Plätze son. Dann es el Überschneidungsproblem no bastante así groß.
'Außerdem podría uno beim Einsatz de JRPC3 schnelle native Procs uso, el kein echtes Zeitproblem erzeugen. Dies sería auch el Beschränkung el freien @ProcAddr-Plätze beseitigen.
_hTimer%=~SetTimer(0,0,1000,_aProc%)
'warten, así lo una fühlbaren Zeitunterschied en el Aufrufen el Temporizador son
Sleep 300
'Temporizador 2 erzeugen
_hTimer2%=~SetTimer(0,0,1000,_aProc%)
'Temporizador 3 erzeugen (más rápido Aufruf)
'El zeitliche Auflösung des Windows-Timers es ca. 16ms; 10 garantiert por lo tanto el schnellstmöglichen Aufruf des Timers.
'Pero esto es siempre todavía muy langsam en el Vergleich a echtem Multithreading, como así máximo bien 60 Aufrufe pro Sekunde posible son - para viele interessante Dinge dürfte el trotzdem ausreichen.
_hTimer3%=~SetTimer(0,0,10,_aProc2%)
Mensajes del usuario $10'Programmende
_Ende%=0

Sinestar encargado _Ende%

    'El Temporizador laufen unabhängig y voluntad de Windows auch während des WaitInputs aufgerufen, ellos son also unabhängig de el Haupteingabeschleife des Hauptprogramms.
    'Während Sleep voluntad el Temporizador allerdings no abgearbeitet, el wirkt offenbar Profano-Programa-weit.
    WaitInput 250

    If (@iskey(27) and (~GetForegroundWindow()=%HWnd)) Or (%UMessage=$10)

        _Ende%=1

    Endif

    Inc _Count2%
    SetText _hT%,"Hauptprogramm: "+@Str$(_Count2%)

EndWhile

~KillTimer(0,_hTimer%)
~KillTimer(0,_hTimer2%)
~KillTimer(0,_hTimer3%)
End