Discussion :

[FOCUS77]

Bonsoir à tous.

-On va tracer les graphes de trois fonctions: Sin(x), Cos(x) et SinCos(x).

-Ajouter un Chart1 à une fiche.

-Ensuite double cliquer sur Chart1 et ajouter 3 'Line Series'.

-Selectionner 'Chart1lineSeries1' et mettre son Name:SinSeries et son Seriescolor:clred.

-Selectionner 'Chart1lineSeries2' et mettre son Name:CosSeries et son Seriescolor:clblue.

-Selectionner 'Chart1lineSeries3' et mettre son Name:SinCosSeries et son Seriescolor:clgreen.

-Mettre leurs Active à False.

-Ajouter un bouton, qu'on appelle 'Active' à la fiche.

-Et implémenter le par le code suivant :

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
procedure TForm2.ActiveClick(Sender: TObject);
  const
    N = 100;
    MIN = -10;
    MAX = 10;
  var
    i: Integer;
    x: Double;
  begin
    SinSeries.Clear ;
    CosSeries.clear;
    SinCosSeries.clear;
 
 for i:=0 to N-1 do
      begin
      x := MIN + (MAX - MIN) * i /(N - 1);
      SinSeries.AddXY(x, sin(x));
      CosSeries.AddXY(x, cos(x));
      SinCosSeries.AddXY(x, sin(x)*cos(x));
      end;
 
  SinSeries.Active:=false ;
  CosSeries.Active:=false ;
  SinCosSeries.Active:=false ;
 
  SinSeries.Active:=true ;
  CosSeries.Active:=true ;
  SinCosSeries.Active:=true ;
end;

Merci à tous.

[e-ric]

Salut FOCUS77

Tes articles auraient sans doute plus leur place dans la FAQ, non ?
En tout cas, c'est bien de partager, merci.

Cdlt

[FOCUS77]

Salut e-ric
Votre remarque est dans sa place.
Mais sachez que j'utilise ce forum, parce que j'ignore comment ajouter un article à une FAQ.
j'aimerai bien que ces articles seront (corrigés et) déplacer, par l'équipe Lazarus, vers la FAQ pour l’enrichir .
Ces articles sont destinés principalement pour les débutants.
Enfin merci pour votre remarque.

FOCUS

[tourlourou]

La FAQ est effectivement faite pour ça !

Tu peux partager tes codes et astuces en allant dans la FAQ, en sélectionnant le chapitre adéquat (ici : composants), en cliquant sur "ajouter une question" qui est un bouton en haut à gauche, sous le titre "FAQ Lazarus".

Et après, roulez jeunesse !

Merci à toi de procéder ainsi pour chacune de tes réponses, c'est une FAQ collaborative et pas simplement un sous-forum dans le lequel on pourrait simplement déplacer des messages.

[gvasseur58]

Code :

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

1
2
3
4
5
6
7
8
9
 
  SinSeries.Active:=false ;
  CosSeries.Active:=false ;
  SinCosSeries.Active:=false ;
 
  SinSeries.Active:=true ;
  CosSeries.Active:=true ;
  SinCosSeries.Active:=true ;
end;

Bonjour,

Quel intérêt y a-t-il ici à désactiver et réactiver les champs sans travail intermédiaire ? D'autant que cette FAQ précise que les champs doivent être désactivés...

[FOCUS77]

gvasseur58 bonsoir.

C'est vrai cette partie:

Code :

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

1
2
3
SinSeries.Active:=false ;
  CosSeries.Active:=false ;
  SinCosSeries.Active:=false ;

du code est en plus, donc vous pouvez la supprimer.
j'espère que vous êtes parvenus à tracer vos graphes, et même vous pouvez formuler d'autres fonctions.

merci pour votre remarque.