[TChart] Scrolling horizontal des séries

j'ai un ( ou plusieurs ) composant(s) TChart avec un nombre relativement importants de series ( typiquement 20 )
chaque serie contient le même nombre de points qui est compris entre 1000 et 10'000.
en x : le temps, en Y les valeurs d'aquisitions, etat de relais, ...
à une fréquence f comprise entre 20 et 100 Hz, on aquière un nouveau point pour chaque canal et on 'laisse tomber' le point le plus ancien : scrolling horizontal.
Toutefois cela implique des ressources matérielle tres importantes. ( je ne sais pas comment une series S d'un Tchart T demande un repaint si on la change mais si elle le fait dans la boucle qui fait de scrolling cela devient épouventable!)

Quelqu'un aurait-il un code optimisé pour réaliser un code équivalent à mais
moins gourment en ressources!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Timer1Timer(Sender: TObject); // 1kHz begin inc(n); if n mod X =0 then // disiseur pour 20 a 100 Hz begin m:=0; for serie:=Serie_first to serie_last // ( # 20 series ) begin for i:=0 to serie.count-2 do begin serie.xvalue[i]:=serie.xvalue[i+1]; serie.yvalue[i]:=serie.yvalue[i+1]; end; serie.xvalue[serie.count-1].xvalue:=serie.xvalue[serie.count-2].xvalue + deltat; serie.Yvalue[serie.count-1].yvalue:= read_port(m); inc(m); end; end; end;

---

Note : Peut-être le composant TChart n'est pas adapté et qu'un autre moyen est mieux ciblé.

Salut

Visiblement tu dois avoir des appels répétés au repaint, notamment lorsque que tu décales tes valeurs (XValues[I] := XValues[I + 1]).

Je me limiterais simplement à ajouter la nouvelle acquisition.
Regarde cet exemple de scrolling avec un simple ajout de valeur. Il suffira d'adapter à tes besoins.

Une LineSeries, X en TDateTime, Y en Integer, un Timer qui envoie une valeur aléatoire toutes les secondes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure TForm1.Timer1Timer(Sender: TObject); begin // Ajout d'une valeur aléatoire pour l'exemple AddPoint(LineSeries1, Now, Random(100), clRed); end;   procedure TForm1.AddPoint(ASeries: TLineSeries; const X, Y: Double; AColor: TColor); begin // Ajout du point à la série ASeries.AddXY(X, Y, '', AColor); end;   procedure TForm1.LineSeriesAfterAdd(Sender: TChartSeries; ValueIndex: Integer); begin // Recalage de la plage des abscisses affichées with Sender.GetHorizAxis do begin Automatic := False; Minimum := 0; Maximum := Sender.XValues.MaxValue + DateTimeStep[dtOneSecond]; Minimum := Maximum - DateTimeStep[dtOneMinute]; end; end;

---

@+ Claudius

bonjour

à mon avis TChart est pas mal!

Dans le principe il ne faut pas "déplacer" tous les points de chaque série à chaque acquisition, mais simplement comme le préconise Cl@udius ajouter une valeur XY pour chaque nouvelle acquisition, et lorsqu'un certain nombre de points est atteind supprimer le premier,
code du genre (issu du tien) suivant non testé:

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TForm1.Timer1Timer(Sender: TObject); // 1kHz begin inc(n); if n mod X = 0 then begin // disiseur pour 20 a 100 Hz for serie := Serie_first to serie_last do begin // ( # 20 series ) serie.addXY( ValeurXàCalculer, read_port(m), LabelEnOption, CouleurEnOption); if serie.count >= NbMaxValeursàAfficher then serie.delete[0]; end; // for serie end; // if n end;

---

ne pas oublier de mettre les axes en automatic := true

à plus

J'étais aussi arrivé à ce compromis mais il faut de plus pour chaque série ajouter seriexx.Delete(0) après seriexx.addxy(,) si non on arrive a saturer la liste et on tombe sur un erreur au bout d'un moment!
Je me demandais tout de même si TChart est l'outil vraimant adapté pour ce type de présentation. Il est tout de même lourd avec émorméments de possibilités non utilisées ici ( zoom, 3d, print, ...)

Re,

Citation:

---

Envoyé par j.p.mignot

... si non on arrive a saturer la liste et on tombe sur un erreur au bout d'un moment!

---

Certes, mais est-il vraiment nécessaire d'afficher 20 séries possédant chacune jusqu'à 10.000 valeurs.
J'imagine difficilement que ceci soit très lisible donc interprétable à l'écran.

@+

Il est question d'avoir un suivit visuel sur une machine de producion et de pouvoir analyser, en cas de rejet de pièces, les signaux.
le nombre de points se justifie en 1er lieu pour pouvoir garentir que les traces respectent le timing et la chronologie: si non sur le même point de digit on voit 2 signaux changer d'état sans savoir lequel et postérieur.
Bien sur on pourrait stocker 'haute résolution et présenter 'low résolution'.
Cela complique aussi le traitement si, en cas de rejet, on souhaite zoomer pour détails locaux.
En conséquence, si les outils le permettent sans side effect sur l'acquisition RT, il est plus simple de garder directement les data dans les series elles-mêmes.
De toutes façons, même sans cette résolution 'élevée', il faut supprimer des points car les machines sont sensées tourner des semaines non-stop 24h/24 si le process n'a pas de défaillance.

Citation:

---

Envoyé par banban54

et lorsqu'un certain nombre de points est atteind supprimer le premier,

---

Citation:

---

Envoyé par banban54

Code:

---

1 2	if serie.count >= NbMaxValeursàAfficher then serie.delete[0];

---

---

à mon avis Tchart est un moyen de visualisation, mais pas un moyen de stockage des données.

à plus

OK, tout comme Banban, j'arrive à ce procédé:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.AddPoint(ASeries: TLineSeries; const X, Y: Double; AColor: TColor); const MAX_VALUE_COUNT = 1000; // A définir begin // Ajout du point à la série with ASeries do begin AddXY(X, Y, '', AColor); if Count > MAX_VALUE_COUNT then Delete(0); end; end;

---

@+ Claudius

Ok j'arrive à cette solution si ce n'est que je n'utilise pas

Code:

---

1 2 3

if Count > MAX_VALUE_COUNT then Delete(0);

---

mais directement

Code:

---

1 2	Delete(0);

---

car mes series sont initialisées avec le bon nombre de points.

Reste que le système est lent.

Existe-t-il un moyen de locker le repaint lors de la manitulation des n series (c.a.d lors du addxx et delete[0]) et de ne faire qu'un seul repaint du chart lorsque tout est prêt?

J'ai essayé ( peut-être incorrectement ) et sans succès d'utiliser
a- la propriété AutoRepaint {false faire les modif puis true }
b- de locker la fenêtre via
{ LockWindowUpdate(Form1.Handle ); faire modif LockWindowUpdate(0); }

Peut-être doit-on travailler sur une propriété des séries du chart et appeler soit même chart.repaint?

merci pour vos suggestions