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.