[THREAD] EXEMPLE DE "TIMER MICROSECONDE PAS TRÉS PRECIS"

Commentaire de f0xi le 14/02/2006 06:43:58 administrateur CS

modification dans Create :

procedure TForm1.FormCreate(Sender: TObject);
begin
  LongTimeFormat := 'hh:nn:ss.zzz';
  MicroTimer1 := MicroTimer.Create(nil);
  MicroTimer1.OnTimer := MicroTimer1OnTimer;
end;
__________________________________________________________________

modification de OnTimer :

procedure TForm1.MicroTimer1OnTimer(Sender: TComponent);
var t : int64;
begin
  QueryPerformanceCounter(t);
  caption := format('%s || %d',[TimeToStr(now),t]);
end;
__________________________________________________________________

modification de Main() :

Procedure MicroTimer.Main();
var
  Time_now, Time_memo, IntervalRecalc: Int64;
  Ic : integer;
begin
  Time_now  := 0;
  Time_memo := 0;
  Ic        := 0;
  while FEnabled do begin
    IntervalRecalc := FInterval - (Time_now - Time_memo) * 1000000 div FFrq_Base;
    FThread:= MicroTimerTh.Create(FFrq_Base, IntervalRecalc);
    while (not(FThread.ThreadTerminated)) and (FEnabled) do
      if Ic = 1000 then begin
         Application.ProcessMessages;
         Ic := 0;
      end;
      Inc(Ic);
    end;
    QueryPerformanceCounter(Time_memo);
    FOnTimer(Self);
    QueryPerformanceCounter(Time_now);
  end;
end;
__________________________________________________________________

Modification d'execute :

procedure MicroTimerTh.Execute;
var
  Time_memo, Time_now, dif: Int64;
begin
  QueryPerformanceCounter(Time_memo);
  while dif <= FInterval do begin
    QueryPerformanceCounter(Time_now);
    dif := (Time_now - Time_memo) * 1000000 div FFrq_Base;
  end;
end;
__________________________________________________________________

evite de balancer des données qui change tout le temps dans une liste ... utilise un label plutot ou un tstringlist (durant le calcul).

Commentaire de cirec le 14/02/2006 12:01:29 administrateur CS

Salut,
Wolf ce qui est valable pour toi ne l'est pas forcément pour les autres.
Si aujourd'hui tu ne vois aucune utilité à un timer de haute précision, demain il en sera peut être autrement. C'est sur que pour afficher un message où fermer un rideau c'est pas utile d'être précis à la microseconde mais il n'y a pas que ça, je pense notamment au multimédia qui dans certaine circonstance demande une précision extrême mais il y a encore plein d'autres applications.

@+
Cirec

Commentaire de Sylvainlefou le 14/02/2006 14:58:54

Message envoyé par jlen100 :
"salut,pas mal ton code. Une petite chose tu n'as pas donné de priorité à la construction (si je ne trompe pas par défaut elle doit être à   Priority := tpNormal)
pour les décalages j'ai eu le même probleme avec un thread et ce quelque soit la priorité donnée; le decalage pouvant atteindre 15ms en fait cela s'explique facilement : avec le Application.processmessages on indique au programme qu'il doit redonner la main à windows qui gère la file d'attente (et celà est préférable sous peine de blocage) résultat il faut bien qu'il traite aussi les autres threads et cela prend comme le refroidissement du fût du canon ... un certain temps.
en conclusion il est pratiquement impossible de garantir un timming précis en dessous de la milliseconde sans bloquer le processus (interdire à windows de traiter les threads).
Pour obtenir des timming plus petit il faut passer par des cartes d'extension qui génèrent le signal (avec ou sans bufferisation des données s'il faut les transmettre) une carte à microcontroleur fait génèralement l'affaire avec des horloge à 20 ou 50MHz on arrive facilement à des signaux precis à 50 à 100ns
Mais la persistance rétienienne étant ~100ms un timer standard réglé à 40/50 ms fait très bien l'affaire tu peux même descendre à 20ms en gardant un bonne reproductivité. Mais comme je ne connais pas ton application je ne fairais pas plus de commentaires"
j'espère que cela pourra t'être utile

@+
jlen

Commentaire de jlen100 le 14/02/2006 18:27:41

test à partir d'un autr PC

Commentaire de Kenavo le 15/02/2006 14:52:15

Arghhhh .....
"If FEnabled=True then Main; "
"until FEnabled = False;"
Ben non ! Ecris plutôt :
"If FEnabled then Main; "
"until not FEnabled;"

Sinon pour le timer, c'est une catastrophe ! Je déconseille aux âmes sensibles d'aller voir le taux d'occupation du processeur !
Le meilleur timer est .... le timer le mieux adapté au problème !
Rylryl l'utilisait pour séquencer des trames de télécommande RC5 (durée de la trame 25 ms, duré du bit 1,78 ms) où il était adapté : Besoin de précision et utilisation courte. Pour des périodes de l'ordre de la seconde, le timer TTimer est très correct. Entre 1 et 100 millisecondes, le timer multimedia est sans doute le plus adapté.

Kenavo

Commentaire de Sylvainlefou le 15/02/2006 15:37:48

Ok, vous confirmez ce que je pensais, mon timer est nul et useless, lol, tempi ! :) :)
Je vire la source où peut-elle servir ?

Commentaire de f0xi le 17/02/2006 23:04:58 administrateur CS

tu sais de ou viens ton probleme ?

je vais te le dire : l'appel de Application.ProcessMessage dans ton thread.

mais si on l'enleve, l'application freeze ... normal.

Commentaire de ACHPI32 le 23/02/2006 01:15:22

y'a pu qu'a sortir le free pascal ou le TP7 et faire un programme sous DOS... lol

Commentaire de karim18 le 18/06/2006 02:34:28

ce programme n'existe pas ??????????????