[Débutant] Acquérir des points et les tracer

Bonjour, je suis débutant, je n'ai jamais programmer sous delphi, cependant je dois realiser une interface qui va enregistrer des points et tracer une courbe, apres avoir fait quelques calculs.

J'ai d'abord essayer de faire des recherches, j'ai trouve que Chartfx permet de faire des courbes mais je n'arrive pas a adapter simplement a mon projet.
Pourtant c'est pas compliqué.

Il faut que j 'enregistre des points (dans une BDD ou pas je ne sais pas). Je vais faire quelques calcules dessus (ca je m'en occupe) puis il faut que je trace une courbe avec des nouveaux points en tant reel. Il va y avoir 1 point par seconde pendant 5min par exemple.

J'ai deja fouillé le forum mais je ne comprends rien.

Si quelqu un a quelques secondes, pourrait on m'expliquer rapidement les commandes pour enregistrer des points dans une serie ou autre.
Puis la commande pour tracer une courbe a l'aide d'une serie ou autre


Merci infiniment.

bonjour

déjà tu as à disposition Chart et DBChart qui permettent facilement de gerer des courbes (series).

pour enregistrer un point supplémentaire:

Code:

---

1 2	Chart1.Series[1].AddXY(valeurX,ValeurY);

---

à plus

merci banban54.

Mais comme j'ai dit je suis vraiment débutant.
Alors avant d'ajouter une serie il faut la creer...
Il me faudrait donc l'instruction pour:

creer la serie
ajouter un point:ok
lire la valeur d'un point de la serie
associer la serie a un graph
tracer le graph

et le nom de procedure a charger au debut.


Encore merci pour votre aide, je n'ai vraiement pas le temps de partir de zero.

re

tout peut (ou presque) se construire à partir de l'inspecteur d'objet!
poses un composant chart (ou DBChar si BDD) sur ta form et double-clique dessus.

à plus

Bonjour,

Si tu cherches qq chose de trés simple il y a cette possibilité :

Code:

---

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

procedure TfrmOPS.btGrafikClick(Sender: TObject); var i : integer ; begin for i:=0 to Screen.Width do Begin APoint.x:=i; APoint.y:=Round(10*((cos(i/10))))+60; Canvas.MoveTo(BPoint.x,BPoint.y); Canvas.LineTo(APoint.x,APoint.y); bPoint:=APoint; End;//for end;

---

et l'unité Graphics est déclarée dans les USES

8O

Amélioration du code :king:

Code:

---

1 2	Canvas.Pen.Color:=clRed;

---

8O

Archibald je comprends pas dsl :oops:

Banban quand on double clic, on regle juste l'affichage, je ne voie pas comment faire pour m'en sortir..

Je sais je suis nul, en ce qui concerne le squelette du programme j'ai trouvé tout seul (interface utilisateur) mais pour les organes ca s'annonce dur dur:aie:

mais tchart et chartfx c'est pareil?

parce que j'ai des exemples de programme qui utilisent tchart mais il y a des erreurs quand je les ouvre avec delphi 6

Bonjour,

Le code que je t'ai transmis correspond au clic sur un bouton.

Pour le tester :

Colle un bouton sur ta fiche.
Renomme ce bouton : btGrafik
Double clic sur le bouton pour pouvoir programmer l'événement onclick

Si ta fiche s'appelle form1 tu verras dans le code une nouvelle procédure
qui s'appellera TForm1.btGrafikClick
Recopie les lignes de code que je t'ai transmises à l'intérieur de la procédure
(sans oublier le var)

Dans les "uses" au début du code de ton programme tu rajoutes "graphics"

Tu peux compiler.

Lorsque tu click sur le bouton une courbe est tracée....
Tu peux gérer la couleur avec : canvas.pen.color

C'est une façon élémentaire de tracer des points, qui fonctionne bien.

a++8O

Salut,

Un exemple d'utilisation du TChart:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Serie:=TLineSeries.Create(Self); //Crée la série Serie.ParentChart:=Chart1; //Associe la série au graphe Serie.Title:='Y= f(X)'; //Modifie le titre de la série Serie.Clear; //Efface le contenu de la série {serie.Stairs := true; } //toutes tes options Serie.SeriesColor := clRed; For i:=0 to ... Serie.AddXY(X,Y); //Ajoute un nombre à la série //ajout des points de ta courbe End   end;

---

Sans oublié le Serie.Free...

A+.