WDForge.org - Forums

Re: Timersys

Sujet: Re: Timersys
par GoZeub sur 13/10/2004 10:09:08

Euuuhhhh... ça doit fonctionner mais je m'y prend surement mal.

//Déclaration de CTimer

CTimer est une classe
	GLOBAL
		Frequence est un entier
		NumTimer1 est un entier
FIN

PROCEDURE  Timer1()

::NumTimer1=TimerSys("Ctimer::Aff_Test",::Frequence)

PROCEDURE Modif_Freq(NewFreq est un entier)

FinTimerSys(::NumTimer1)
::Frequence=NewFreq
SI ::NumTimer1<>0 ALORS :Timer1()

PROCEDURE GLOBALE Aff_Test()

Trace("Yes")

//Initialisation projet

TTimer est un CTimer
TTimer:Modif_Freq(500)
TTimer:Timer1()

//Code de modification fréquence dans une fenêtre param.

TTimer:Modif_Freq(100)

J'ai du surement passer à coté de quelque chose