Chronogramme sous Delphi

**shuya** · 19/01/2009, 12h09

Bonjour,

Tout d'abord je n'ai jamais utilisé Delphi... pourquoi je l'utilise ?

C'est simple... j'utilise un PIC18F en USB.. et j'ai besoin de faire une acquisition de données

.. j'ai déjà trouvé sur le net un programme tout fait sur delphi qui permet de dialoguer avec un PIC en USB

Donc delphi va être la pour me générer un chronogramme.
Le PIC enverra des mot de 16bits.. et delphi devra décoder ça... et l'afficher

exemple en pièce jointe

Est-ce que Delphi peux générer quelque chose comme ça ?
quel objet utiliser ?

Merci d'avance

**declencher** · 19/01/2009, 19h49

Salut,

Y'a des composants pour ça, gratuit et payant. Mais pour un affichage aussi simple, tu gagneras surement à le faire par toi même.

**philnext** · 19/01/2009, 21h32

Dans Delphi tu dois avoir TeeChart : http://delphipage.free.fr/teechart.html
Sinon dnas la JVCL un composant JVChart ect.

**shuya** · 20/01/2009, 09h17

Merci Philnext !

Ca répond parfaitement a mes attentes..

**shuya** · 23/01/2009, 12h19

Bonjour,

Finalement Tchart... me plait pas tellement..

Est-ce qu'il est possible (toujours sur Deplhi 6) de créer un tableau et un graphique excel ?

par exemple le tableau serait gardé en mémoire dans delphi est pourrait être sauvegarder en .xls

et la graphique s'afficherait directement dans l'executable.

merci d'avance.

**anapurna** · 23/01/2009, 12h57

salut

si tu veut a tous prix utiliser Ecxel,tu peut très bien réaliser ceci avec ole

par contre je trouve cela dommage car ton application ne fonctionnera pas sous d'autre tableur (openoffice ) et t'oblige a avoir la suite microsoft sur ton poste

le tchart fait a peu pres la même chose que les chart d'ecxel

pour tracé des ligne droite je trouve cela un peu dure d'utiliser un composant aussi compliqué alors qu'un simple canvas suffit

@+ phil

**shuya** · 23/01/2009, 13h35

Excel... est obligatoire.

Mais bon si j'avais choisi.. j'aurai pas pris excel... ni delphi.. ni l'usb... en faite je serai resté au lit

le canvas... je connais pas... (ben oué 1 semaine de delphi... on apprends pas grand chose

) mais si ça peu imprimer et surtout enregistrer des graphiques et des tableaux (lisible sous excel).. alors j'veux bien m'y intéresser.

EDIT dans la faq j'ai lu que

Pour utiliser Excel avec Delphi vous pouvez utiliser le composants TExcelApplication de l'onglet Serveur.

Utilisez ensuite la méthode TExcelApplication.Connect pour lancer Excel et ainsi pouvoir utiliser les autres fonctions décrites ici.

P.S. Il faut qu'Excel soit installé sur le poste pour que le composant fonctionne.

faut télécharger ce composant ?

car j'ai ni d'onglet serveur.. ni d'objet excelapplication...

**philnext** · 23/01/2009, 16h10

Tu peux générer des tableaux XLS sans avoir Excel exemple :

http://sourceforge.net/projects/axbase/

Mais pour ce que tu veux faire je pense que TChart est le type de soft qui convient le mieux.

**shuya** · 23/01/2009, 16h25

moi je veux que cela s'ouvre sur excel.

car les machines sur lequel je travail ne dispose que de xp et microsoft office.

Même si tchart est bien... j'ai pas le choix.. c'est excel

**petitcoucou31** · 23/01/2009, 17h16

salut,

voila un exemple directement avec quelques lignes en delphi... une fiche , un bouton et un timage..

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    ZoneAffichage: TImage;
    UpDown1: TUpDown;
    Edit1: TEdit;
    procedure CreationGrille(Echelle:integer);
    procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean);
    procedure FormResize(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Dessine;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
Var TabDonnees:array of integer;
    CooY: array[0..4] of integer;
//==============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   // taille du tableau en fonction du nombre de valeur de l'acquisition a daire
   setlength(TabDonnees,50);
 
   // saisie des données aléatoirement pour l'exemple
   randomize;
   for i:=0 to high(TabDonnees) do TabDonnees[I]:=random(5);
   Dessine;
end;
//==============================================================================
procedure Tform1.dessine;
var i:integer;
    delta:integer;
    Oy:integer;
begin
    // pour l'exemple les valeurs :  0=-10v ; 1=-5v ; 2=0v ; 3=5v ; 4=10v
 
    // chargement du font 
    CreationGrille(strtoint(edit1.Text)); 
 
    // dessin du chronogramme en fonction des valeurs du tableau
    delta:=strtoint(edit1.Text);
    Oy:=60;
    with ZoneAffichage.Canvas do
    begin
        moveTo(Oy,cooY[3]);
        pen.color:=clyellow;
        for i:=0 to high(TabDonnees) do
        begin
          lineTo(Oy,cooY[TabDonnees[i]]);
          Oy:=Oy+delta;
          lineTo(Oy,cooY[TabDonnees[i]]);
        end;
    end;
end;
//==============================================================================
procedure Tform1.CreationGrille(Echelle:integer);
var T:Tbitmap;
    K:integer;
begin
    ZoneAffichage.top:=40;
    ZoneAffichage.left:=10;
    ZoneAffichage.Width:=Width-30;
    ZoneAffichage.Height:=Height-80;
 
    T:=Tbitmap.create;
    T.Width:=ZoneAffichage.Width;
    T.Height:=ZoneAffichage.Height;
    T.Canvas.brush.color:=clblack;
    T.Canvas.Rectangle(0,0,T.Width,T.Height);
 
    with T.Canvas do
    begin
        pen.color:=$004A4A4A;;
        K:=60;
        while K < T.width do
        begin
           MoveTo(K,0);
           lineTo(K,T.Height);
           K:=K+Echelle;
        end;
        K:=T.Height div 10;
        Font.Color:=clgray;
 
        //10v
        textOut(15,K-7,'+10v');
        pen.color:=$001B5F2C;
        CooY[4]:=K;
        MoveTo(50,k);lineTo(T.width,K);
        //5v
        textOut(20,K*3-7,'+5v');
        pen.color:=$00288E42;
        CooY[3]:=K*3;
        MoveTo(50,k*3);lineTo(T.width,K*3);
        //0v
        textOut(20,K*5-7,'0v');
        pen.color:=clgray;
        CooY[2]:=K*5;
        MoveTo(50,k*5);lineTo(T.width,K*5);
        //-5v
        textOut(20,K*7-7,'-5v');
        pen.color:=$007C5B86;
        CooY[1]:=K*7;
        MoveTo(50,k*7);lineTo(T.width,K*7);
        //-10v
        textOut(15,K*9-7,'-10v');
        pen.color:=$0062486A;
        CooY[0]:=K*9;
        MoveTo(50,k*9);lineTo(T.width,K*9);
    end;
    ZoneAffichage.Picture.Bitmap:=T;
    T.Free;
end;
//==============================================================================
procedure TForm1.FormResize(Sender: TObject);
begin
  CreationGrille(strtoint(edit1.Text));
end;
//==============================================================================
procedure TForm1.UpDown1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  CreationGrille(strtoint(edit1.Text));
  dessine;
end;
//==============================================================================
end.

L'image est un bitmap donc tu peux l'imprimer directement.

Les données de l'acquisition ( ici initialisées avec un randomize pour l'exemple) sont stockées dans un tableau qui sert au dessin .. suffit de les sauver sous un format CSV ou l'ouvrir avec exel ou autre tableur ..

bye

**anapurna** · 23/01/2009, 17h45

salut

dans le meme esprit sans bitmap et timage

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
 
 
unit UTestVisu;
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TData = Record
    stop   : longint;
    Value  : integer;
  end;
 
  TDatas = Array of TData;
 
  TValue = Record
    Min    : LonGint;
    Max    : LonGint;
    NbOcur : LonGint;
  end;
 
  TForm1 = class(TForm)
    Zoneaff: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure ZoneaffPaint(Sender: TObject);
  private
    Datas : TDatas;
    { Déclarations privées }
    Function DelTay() : TValue;
    Function DelTaMiny : Integer;
    procedure AddData(value : integer;Stop : Longint);
    procedure TraceAxe;
    procedure TraceAxey(pt1,pt2 : TPoint;Ep : integer);
    procedure TraceAxeX(pt1,pt2 : TPoint;Ep : integer);
    procedure TraceCourbe;
    procedure DesinneDroite(start,Stop,value : Longint);
    Function TransFormeAxeY(value : integer) : Integer;
    procedure EcritTexte(x,y : integer;lib : String);
 
  public
    { Déclarations publiques }
    KColorFond     : TColor;
    KColorLibelle  : TColor;
    KColorAxe      : TColor;
    KColorTrait    : TColor;
    KMargeBas    : Integer;
    KMargeHaut   : Integer;
    KMargeDroite : Integer;
    KMargeGauche : Integer;
    KNbGradeY    : Integer;
    NbGradx      : Integer;
    Koriginex    : Integer;
    Koriginey    : Integer;
    Kechelley    : integer;
    Kechellex    : integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.Add(value : integer;Stop : Longint);
begin
  setlength(datas,Length(datas)+1);
  datas[high(datas)].value := value;
  datas[high(datas)].stop  := Stop;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  inherited ;
  KColorFond     := ClWhite;
  KColorLibelle  := ClBlack;
  KColorTrait    := ClRed;
  KColorAxe      := ClBlack;
  KMargeBas      := 15;
  KMargeHaut     := 15;
  KMargeDroite   := 15;
  KMargeGauche   := 15;
  Koriginex      := 30;
  AddData(0,0);
  AddData(5,10);
  AddData(0,60);
  AddData(-5,230);
  AddData(10,400);
  KNbGradeY      := 25;
  NbGradx        := 400;
end;
 
Function TForm1.DelTay() : TValue;
begin
 
end;
Function TForm1.DelTaMiny : Integer;
begin
  Result := 99999;
end;
Function NbValY : Integer;
begin
end;
 
procedure TForm1.TraceAxex(pt1,pt2 : Tpoint;Ep : integer);
begin
  Zoneaff.Canvas.Pen.Width := Ep;
  Zoneaff.Canvas.Pen.Color := KColorAxe;
  Zoneaff.Canvas.MoveTo(pt1.x,pt1.Y);
  Zoneaff.Canvas.lineTo(pt2.X,pt2.Y);
  Zoneaff.Canvas.Pen.Color := KColorFond;
  Zoneaff.Canvas.Pen.Width := 1;
end;
 
procedure TForm1.TraceAxey(pt1,pt2 : TPoint;Ep : integer);
begin
  Zoneaff.Canvas.Pen.Width := 3;
  Zoneaff.Canvas.Pen.Color := KColorAxe;
  Zoneaff.Canvas.MoveTo(pt1.x,pt1.y);
  Zoneaff.Canvas.lineTo(pt2.x,pt2.y);
  Zoneaff.Canvas.Pen.Width := 1;
end;
 
Function TForm1.TransFormeAxeY(value : integer) : Integer;
begin
  Result :=  KNbGradeY  - value
end;
 
procedure TForm1.EcritTexte(x,y : integer;lib : String);
begin
  Zoneaff.Canvas.TextOut(x,y,lib);
end;
 
 
procedure TForm1.TraceAxe;
const
  lib = 'Temps en seconde';
var
  lg : integer;
  pt1,pt2 : TPoint;
  i : integer;
begin
  Kechelley  := (Zoneaff.Height-(KMargeBas+KMargeHaut)) Div KNbGradeY;
  Kechellex  := (Zoneaff.Width-(KMargeDroite+KMargeGauche)) div NbGradx;
  Zoneaff.Canvas.Brush.Style := bsSolid ;
  Zoneaff.Canvas.Brush.Color := KColorFond;
  Zoneaff.Canvas.Pen.Color   := KColorFond;
  Zoneaff.Canvas.FillRect(Zoneaff.ClientRect);
  pt1.x := Koriginex;
  pt1.y := KMargeHaut;
  pt2.x := Koriginex;
  pt2.y := Zoneaff.Height-KMargeBas;
  TraceAxex(pt1,pt2,3);
  For i:= -5 to 14 do
  begin
    if (i mod 5)= 0 Then
      EcritTexte(KMargeGauche,(Kechelley*TransFormeAxeY(i))-(KMargeBas+KMargeHaut)-15,inttostr(i));
  end;
  pt1.x := KMargeDroite;
  pt1.y := (Kechelley*TransFormeAxeY(0))-(KMargeBas+KMargeHaut);
  pt2.x := Zoneaff.Width-KMargeDroite;
  pt2.y := (Kechelley*TransFormeAxeY(0))-(KMargeBas+KMargeHaut);
  TraceAxey(pt1,pt2,3);
  lg := Zoneaff.Canvas.TextWidth(lib);
  EcritTexte(Zoneaff.Width-lg-5,(Kechelley*TransFormeAxeY(0))-(KMargeBas+KMargeHaut)+7,lib);
end;
 
 
procedure TForm1.DesinneDroite(start,Stop,value : Longint);
var
  pt1,pt2 : TPoint;
begin
  Zoneaff.Canvas.Pen.Width := 3;
  Zoneaff.Canvas.Pen.Color := KColorTrait;
  Zoneaff.Canvas.MoveTo(start,value);
  Zoneaff.Canvas.lineTo((Kechellex*stop)+Koriginex,value);
  Zoneaff.Canvas.Pen.Color := KColorFond;
  Zoneaff.Canvas.Pen.Width := 1;
  pt1.x := (Kechellex*Stop)+Koriginex;
  pt1.y := KMargeHaut;
  pt2.x := (Kechellex*Stop)+Koriginex;
  pt2.y := Zoneaff.Height-KMargeBas;
  TraceAxex(pt1,pt2,1);
  EcritTexte(pt2.X+5,value+5,inttostr(stop));
end;
 
procedure TForm1.TraceCourbe(Datas : TDatas);
var
  start,Stop,value : Longint;
  i : integer;
  Pt1 , pt2 : Tpoint;
begin
  for i:= Succ(low(Datas)) to High(Datas) do
  begin
     start := (Kechellex*Datas[i-1].stop)+Koriginex;
     stop  := Datas[i].stop;
     value :=  Kechelley*(TransFormeAxeY(Datas[i].value))-(KMargeHaut+KMargeBas);
     DesinneDroite(start,Stop,value);
   end;
end;
 
procedure TForm1.ZoneaffPaint(Sender: TObject);
begin
  TraceAxe;
  TraceCourbe;
end;
 
end.

apres si tu veut le sauvegarder sous ecxel tu fait une fonction d'export

@+ phil

**ero-sennin** · 23/01/2009, 19h10

Bonsoir,

Je me permets de corriger les quelques fautes dans le code d'anapurna :

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
unit UTestVisu;
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;
 
type
  TData = Record
    stop   : longint;
    Value  : integer;
  end;
 
  TDatas = Array of TData;
 
  TValue = Record
    Min    : LonGint;
    Max    : LonGint;
    NbOcur : LonGint;
  end;
 
  TForm1 = class(TForm)
    Zoneaff: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure ZoneaffPaint(Sender: TObject);
  private
    Datas : TDatas;
    { Déclarations privées }
    Function DelTay() : TValue;
    Function DelTaMiny : Integer;
    procedure AddData(value : integer;Stop : Longint);
    procedure TraceAxe;
    procedure TraceAxey(pt1,pt2 : TPoint;Ep : integer);
    procedure TraceAxeX(pt1,pt2 : TPoint;Ep : integer);
    procedure TraceCourbe(Datas : TDatas);
    procedure DesinneDroite(start,Stop,value : Longint);
    Function TransFormeAxeY(value : integer) : Integer;
    procedure EcritTexte(x,y : integer;lib : String);
 
  public
    { Déclarations publiques }
    KColorFond     : TColor;
    KColorLibelle  : TColor;
    KColorAxe      : TColor;
    KColorTrait    : TColor;
    KMargeBas    : Integer;
    KMargeHaut   : Integer;
    KMargeDroite : Integer;
    KMargeGauche : Integer;
    KNbGradeY    : Integer;
    NbGradx      : Integer;
    Koriginex    : Integer;
    Koriginey    : Integer;
    Kechelley    : integer;
    Kechellex    : integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.AddData(value : integer;Stop : Longint);
begin
  setlength(datas,Length(datas)+1);
  datas[high(datas)].value := value;
  datas[high(datas)].stop  := Stop;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  inherited ;
  KColorFond     := ClWhite;
  KColorLibelle  := ClBlack;
  KColorTrait    := ClRed;
  KColorAxe      := ClBlack;
  KMargeBas      := 15;
  KMargeHaut     := 15;
  KMargeDroite   := 15;
  KMargeGauche   := 15;
  Koriginex      := 30;
  AddData(0,0);
  AddData(5,10);
  AddData(0,60);
  AddData(-5,230);
  AddData(10,400);
  KNbGradeY      := 25;
  NbGradx        := 400;
end;

// Fonction qui n'est pas utilisé 
Function TForm1.DelTay() : TValue;
begin
 
end;

Function TForm1.DelTaMiny : Integer;
begin
  Result := 99999;
end;

// Fonction qui n'est pas utilisé 
Function NbValY : Integer;
begin

end;
 
procedure TForm1.TraceAxex(pt1,pt2 : Tpoint;Ep : integer);
begin
  Zoneaff.Canvas.Pen.Width := Ep;
  Zoneaff.Canvas.Pen.Color := KColorAxe;
  Zoneaff.Canvas.MoveTo(pt1.x,pt1.Y);
  Zoneaff.Canvas.lineTo(pt2.X,pt2.Y);
  Zoneaff.Canvas.Pen.Color := KColorFond;
  Zoneaff.Canvas.Pen.Width := 1;
end;
 
procedure TForm1.TraceAxey(pt1,pt2 : TPoint;Ep : integer);
begin
  Zoneaff.Canvas.Pen.Width := 3;
  Zoneaff.Canvas.Pen.Color := KColorAxe;
  Zoneaff.Canvas.MoveTo(pt1.x,pt1.y);
  Zoneaff.Canvas.lineTo(pt2.x,pt2.y);
  Zoneaff.Canvas.Pen.Width := 1;
end;
 
Function TForm1.TransFormeAxeY(value : integer) : Integer;
begin
  Result :=  KNbGradeY  - value
end;
 
procedure TForm1.EcritTexte(x,y : integer;lib : String);
begin
  Zoneaff.Canvas.TextOut(x,y,lib);
end;
 
 
procedure TForm1.TraceAxe;
const
  lib = 'Temps en seconde';
var
  lg : integer;
  pt1,pt2 : TPoint;
  i : integer;
begin
  Kechelley  := (Zoneaff.Height-(KMargeBas+KMargeHaut)) Div KNbGradeY;
  Kechellex  := (Zoneaff.Width-(KMargeDroite+KMargeGauche)) div NbGradx;
  Zoneaff.Canvas.Brush.Style := bsSolid ;
  Zoneaff.Canvas.Brush.Color := KColorFond;
  Zoneaff.Canvas.Pen.Color   := KColorFond;
  Zoneaff.Canvas.FillRect(Zoneaff.ClientRect);
  pt1.x := Koriginex;
  pt1.y := KMargeHaut;
  pt2.x := Koriginex;
  pt2.y := Zoneaff.Height-KMargeBas;
  TraceAxex(pt1,pt2,3);
  For i:= -5 to 14 do
  begin
    if (i mod 5)= 0 Then
      EcritTexte(KMargeGauche,(Kechelley*TransFormeAxeY(i))-(KMargeBas+KMargeHaut)-15,inttostr(i));
  end;
  pt1.x := KMargeDroite;
  pt1.y := (Kechelley*TransFormeAxeY(0))-(KMargeBas+KMargeHaut);
  pt2.x := Zoneaff.Width-KMargeDroite;
  pt2.y := (Kechelley*TransFormeAxeY(0))-(KMargeBas+KMargeHaut);
  TraceAxey(pt1,pt2,3);
  lg := Zoneaff.Canvas.TextWidth(lib);
  EcritTexte(Zoneaff.Width-lg-5,(Kechelley*TransFormeAxeY(0))-(KMargeBas+KMargeHaut)+7,lib);
end;
 
 
procedure TForm1.DesinneDroite(start,Stop,value : Longint);
var
  pt1,pt2 : TPoint;
begin
  Zoneaff.Canvas.Pen.Width := 3;
  Zoneaff.Canvas.Pen.Color := KColorTrait;
  Zoneaff.Canvas.MoveTo(start,value);
  Zoneaff.Canvas.lineTo((Kechellex*stop)+Koriginex,value);
  Zoneaff.Canvas.Pen.Color := KColorFond;
  Zoneaff.Canvas.Pen.Width := 1;
  pt1.x := (Kechellex*Stop)+Koriginex;
  pt1.y := KMargeHaut;
  pt2.x := (Kechellex*Stop)+Koriginex;
  pt2.y := Zoneaff.Height-KMargeBas;
  TraceAxex(pt1,pt2,1);
  EcritTexte(pt2.X+5,value+5,inttostr(stop));
end;
 
procedure TForm1.TraceCourbe(Datas : TDatas);
var
  start,Stop,value : Longint;
  i : integer;
  Pt1 , pt2 : Tpoint;
begin
  for i:= Succ(low(Datas)) to High(Datas) do
  begin
     start := (Kechellex*Datas[i-1].stop)+Koriginex;
     stop  := Datas[i].stop;
     value :=  Kechelley*(TransFormeAxeY(Datas[i].value))-(KMargeHaut+KMargeBas);
     DesinneDroite(start,Stop,value);
   end;
end;
 
procedure TForm1.ZoneaffPaint(Sender: TObject);
begin
  TraceAxe;
  TraceCourbe(Datas);
end;
 
end.

Voilà

Sinon, c'est super

**anapurna** · 25/01/2009, 16h23

salut

merci pour les corrections

Je l'ai fait un peu a l'arrache donc effectivement y'a peut etre encore quelque bug

en fait tu peut supprimer complètement l'a déclaration de variable de tracecoube car datas est déclaré comme une "variable globale" du TForm
donc utilisable directement dans la methode tracedata

@+ Phil

**shuya** · 26/01/2009, 10h35

hello,

@petitcoucou31

c'est gentil... mais j'arrive pas a le faire marcher ^^'
j'ai mis les bons objets (bien nommés) mais rien s'affiche.. l'erreur viens de moi mais je vois pas d'ou ça viens.

@anapurna

pareil marche pas... je trouve pas l'objet tpaintbox.. (j'ai delphi 6)
(et je comprend les 1/4 du programme donc ça aide pas...)

j'vais encore tenté de me battre avec vos programmes
j'vous tiendrez au courant si y'a du nouveau.

**anapurna** · 26/01/2009, 10h51

salut

le TPaintbox doit se trouver dans l'onglet système
c'est un rectangle avec un pinceau

@+ Phil

**petitcoucou31** · 26/01/2009, 11h21

salut ,

Que se passe t il quand tu lance le programme ?

As tu bien initialisé le "FormResize" de ta fiche et le "Button1Click" du bouton dans l'inspecteur d'objet.Tu dois aussi avoir une valeur dans le "Tedit1"

Au lancement de l'exemple, une grille sur fond noir doit s'afficher (genre scope),
quand tu cliques sur le bouton, on charge le tableau de valeur et on affiche le chronogramme.
La valeur du Tedit determine la nombre de pas de la grille.

A+

**ero-sennin** · 26/01/2009, 12h05

Salut,

En ce qui concerne le code d'anapurna, il ne suffit pas de coller le code. Il faut replacer les bonnes parties de code dans les bon événements

Ainsi, il doit y avoir du code dans :

le OnCreate de la Form
le OnPaint du TPaintBox

Pour le PaintBox, anapurna a répondu à ta question

A+

**anapurna** · 26/01/2009, 12h47

salut

ci joint le test que je vient de faire

@+ Phil

**petitcoucou31** · 26/01/2009, 14h34

re
j'ai aussi essayé ton code Anapurna, si tu le place bien dans les événements comme le dit ero-sennin, çà gaze bien ..
(manip identique pour le miens )
bye

**shuya** · 26/01/2009, 15h33

Envoyé par ero-sennin

le OnPaint du TPaintBox

ah... c'est celui ça que j'ai oublié !
m'enfin avec le projet ça va mieux ^^'

@petitcoucou31
ben au lancement j'ai un bug

edit1 je crois.. j'dois avoir un problème dans les événements

Mais bon j'ai découvert un autre problème...
dès que j'appuie sur un bouton (de mon interface) le pic envoie tout ce qu'il a en mémoire. (j'ai aussi un label que me dis a quel adresse il est)
dès que j'affiche ça mémoire avec un "showmessage".. delphi n'arrive plus a suivre.. je passe de l'adresse 0x3000 à 0x7000.. c'est moyen

en enlevant le showmessage j'ai bien l'envoie de tout les paquets.. (enfin d'après le label qui s'incrémente)

en gros le showmessage fige l'application, alors que le USB continue d'envoyé sans cesse l'info. (oué je regarde pas si delphi a bien reçu les données... j'vais peu être changer ça...)

j'pense que je vais d'abord stocker ça dans un tableau, puis afficher ça (ça sent les problèmes)

Chronogramme sous Delphi

Delphi

Discussions similaires

Partager

Partager