XProfan

Français

Frank
Abbing

Simple TimerProc
Frank Abbing
DEF SetATimer(4) !USER32,SetTimer
DEF KillATimer(2) !USER32,KillTimer
DEF GetTimeFormat(6) !KERNEL32,GetTimeFormatA

Proc timerproc

    Declare text$
    text$=Space$(20)
    GetTimeFormat(0,0,0,0,Addr(text$),20)
    text$=Uhrzeit: +text$
    SetText %hwnd,text$

EndProc

Cls
SetATimer(%hwnd,1,1000,ProcAddr(timerproc,0))

Whileloop 20000

    Print Int(Rnd(100000))

EndWhile

Print
Demo Ende.
Waitinput
KillATimer(%hwnd,1)
Fin

30.03.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

on sollte anmerken, dass cela profane SetTimer bereits den Minuteur 1 de %hWnd belegt.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

05.06.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

on sollte anmerken cela un Aufruf de SetATimer(%hwnd,1,1000,ProcAddr(timerproc,0)) unheimlich périlleux son peux et eigentlich absolument trop vermeiden ist.

quoi oui aussi ne...aucune Problem plus ist, dank qui subClassProc...

qui dernier paramètre statt procAddr() simple une zéro et qui wm_timer-Abfrage dans qui subClassProc et on ist sur qui sicheren page.

et qui croyez cela on avec cela pas cela selbe Ergebnis erzeugen peux soll sich simple z.B. Buntank [...]

angucken.