Discussion :

[a2bfango]

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.

[banban54]

bonjour

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

pour enregistrer un point supplémentaire:

Code :

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

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

à plus

[a2bfango]

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.

[banban54]

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

[Archibald29]

Bonjour,

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

Code :

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

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

[Archibald29]

Amélioration du code

Code :

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

1
2
 
Canvas.Pen.Color:=clRed;

[a2bfango]

Archibald je comprends pas dsl

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

[a2bfango]

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

[Archibald29]

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++

[PadawanDuDelphi]

Salut,

Un exemple d'utilisation du TChart:

Code :

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

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+.