Discussion :

[zohra051]

Bonjour à tous,

Je rencontre actuellement un problème sur le composant Iplot.

Je voudrais simuler un tracé ECG. Je voudrais que ma courbe fasse le même effet que dans la video.
Vous pouvez voir ici

le résultat de la courbe souhaité. ( En haut, en vert )

Cependant, je n'arrive qu'à obtenir ce résultat.


Je n'arrive pas à obtenir cet effet de 'superposition'.

Merci à tous ceux qui auront pris la peine de me lire.

Si vous avez besoin de plus de détails, je suis la

[Paul TOTH]

?!

il n'y a pas de superposition, simplement au lieu de faire défiler l'ECG, une fois qu'on arrive au bord droit de l'image, on reprend à gauche en effaçant un bout pour marquer le retour

[zohra051]

?!

il n'y a pas de superposition, simplement au lieu de faire défiler l'ECG, une fois qu'on arrive au bord droit de l'image, on reprend à gauche en effaçant un bout pour marquer le retour

Et niveau code ça se passe comment ? Il y a des fonction ou paramètre à ajouter ?

Parce que je fait iplot.Channel[0].AddXY(); seulement.
Dois-je ajouter autre chose ?

[sergio_is_back]

Et niveau code ça se passe comment ? Il y a des fonction ou paramètre à ajouter ?

Parce que je fait iplot.Channel[0].AddXY(); seulement.
Dois-je ajouter autre chose ?

En partant d'un composant avec un canvas (un TImage par exemple) il est facile d'obtenir l'effet souhaité :

- Il suffit remplir le canvas avec une couleur sombre
- Puis à chaque point en partant de la gauche vers la droite tu dessine une droite verticale à P+1 dans la couleur du fond
- Une fois la limite droite atteinte tu repart à gauche...

[Paul TOTH]

ah oui tu veux faire rentre ça dans iPlot ... je ne sais pas ce que c'est iPlot

mais à la rigueur s'il est possible d'afficher deux courbes, il suffit d'effacer les données de la première quand les données de la seconde les remplace

voici un test rapide avec TChar, j'ai cliqué sur X (flèche rouge) pour pouvoir saisir X et Y, et j'ai répéter les valeurs là ou la courbe doit s'arrêter / démarrer

[Paul TOTH]

et en dynamique c'est encore plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
27
28
29
30
31
32
33
34
35
 
procedure TForm1.Timer1Timer(Sender: TObject);
const
  MAX = 48;
var
  Index : Integer;
  S1, S2: TLineSeries;
  X: Integer;
begin
  Chart1.Axes.Bottom.Automatic := False; // pas la peine de le faire dans le Timer mais c'est pour l'exemple
  Chart1.Axes.Bottom.Maximum := MAX;
 
  Index := Timer1.Tag;
 
  if Index < MAX then // nombre maxi de valeurs
  begin
    S1 := Series1; // on alimente la série 1
    S2 := Series2; // on efface la série 2
    X := Index;
  end else begin
    S1 := Series2; // on alimente la série 2
    S2 := Series1; // on efface la série 1
    X := Index - MAX; // X reprend à 0
  end;
 
  S1.AddXY(X, 400 + 200 * Sin(Index * PI/5), IntToStr(X), clRed); // fonction bidon
  if S2.Count > 0 then
    S2.Delete(0); // effacer la série que l'on remplace
 
  Inc(Index); // pour la prochaine fois
  if Index = 2 * MAX then // au bout de 2 passages, on reprend au départ
    Index := 0;
 
  Timer1.Tag := Index;
end;