Problème d'affichage edit

**KHEOPS1982** · 15/06/2006, 20h40

Salut à tous,
voici mon programme , j'envoie des caractères et j'en reçois par le port série ça sa fonctionne mais quand j'insère le bas du programme avec calcul des sinus et cosinus je n'ai plus rien ds mes cases edit alors que quand je mets pas cette partie j'ai les infos que je veux dans les cases edit1 et edit2 . Pourquoi je n'ai plus rien ?

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
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
var
  Form1: TForm1;
   a,b,c,d,e,f,g,un,de,tr,h,val1,une,deu,tro,i,j: integer;
  pos1,pos2,dis1 :string;
  val3,val2,val6,val4,val42,val62,val5,si1,co1,ta1,si2,co2,ta2,dis: real;
  flag,flage : boolean;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:= ' ';
edit2.Text:=' ';
edit3.Text:=' ';
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
close ;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenCom(PChar('COM1:9600,N,8,1'));
clearbuffer();
//registre1
sendbyte(67);//C
sendbyte(82);//R
sendbyte(32);//space
sendbyte(49);//1
sendbyte(57);//9
sendbyte(32);//space
sendbyte(51);//3
sendbyte(51);//3
delay(500);
clearbuffer();
//registre2
sendbyte(32);//space
sendbyte(49);//1
sendbyte(56);//8
sendbyte(32);//space
sendbyte(52);//4
sendbyte(52);//4
sendbyte(13);//CR
delay(500);
clearbuffer();
 
//servo1
sendbyte(83);
sendbyte(77);
sendbyte(32);
sendbyte(49);
sendbyte(53);
sendbyte(13);
delay(500);
clearbuffer();
 
//servo2
sendbyte(83);
sendbyte(80);
sendbyte(32);
sendbyte(49);
sendbyte(54);
sendbyte(32);
sendbyte(56);
sendbyte(32);
sendbyte(53);
sendbyte(32);
sendbyte(51);
sendbyte(48);
sendbyte(32);
sendbyte(49);
sendbyte(53);
sendbyte(32);
sendbyte(53);
sendbyte(13);
delay(500);
closecom();
clearbuffer();
 
 
 
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
 
OpenCom(PChar('COM2:9600,N,8,1'));
clearbuffer();
//registre1
sendbyte(67);//C
sendbyte(82);//R
sendbyte(32);//space
sendbyte(49);//1
sendbyte(57);//9
sendbyte(32);//space
sendbyte(51);//3
sendbyte(51);//3
delay(500);
clearbuffer();
//registre2
sendbyte(32);//space
sendbyte(49);//1
sendbyte(56);//8
sendbyte(32);//space
sendbyte(52);//4
sendbyte(52);//4
sendbyte(13);//CR
delay(500);
clearbuffer();
 
//servo1
sendbyte(83);
sendbyte(77);
sendbyte(32);
sendbyte(49);
sendbyte(53);
sendbyte(13);
delay(500);
clearbuffer();
 
//servo2
sendbyte(83);
sendbyte(80);
sendbyte(32);
sendbyte(49);
sendbyte(54);
sendbyte(32);
sendbyte(56);
sendbyte(32);
sendbyte(53);
sendbyte(32);
sendbyte(51);
sendbyte(48);
sendbyte(32);
sendbyte(49);
sendbyte(53);
sendbyte(32);
sendbyte(53);
sendbyte(13);
delay(500);
closecom();
clearbuffer();
 
 
end;
 
 
 
 
procedure TForm1.Button9Click(Sender: TObject);
begin
OpenCom(PChar('COM1:9600,N,8,1'));
clearbuffer();
sendbyte(84);//T
sendbyte(67);//C
sendbyte(32);//space
sendbyte(50);//2
sendbyte(48);//0
sendbyte(56);//8
sendbyte(32);//space
sendbyte(50);//2
sendbyte(53);//5
sendbyte(53);//5
sendbyte(32);//space
sendbyte(54);//6
sendbyte(48);//0
sendbyte(32);//space
sendbyte(49);//1
sendbyte(49);//1
sendbyte(48);//0
sendbyte(32);//space
sendbyte(48);//0
sendbyte(32);//space
sendbyte(52);//4
sendbyte(49);//1
sendbyte(13);//CR
delay(200);
closecom();
clearbuffer();
OpenCom(PChar('COM2:9600,N,8,1'));
clearbuffer();
sendbyte(84);//T
sendbyte(67);//C
sendbyte(32);//space
sendbyte(50);//2
sendbyte(48);//0
sendbyte(56);//8
sendbyte(32);//space
sendbyte(50);//2
sendbyte(53);//5
sendbyte(53);//5
sendbyte(32);//space
sendbyte(54);//6
sendbyte(48);//0
sendbyte(32);//space
sendbyte(49);//1
sendbyte(49);//1
sendbyte(48);//0
sendbyte(32);//space
sendbyte(48);//0
sendbyte(32);//space
sendbyte(52);//4
sendbyte(49);//1
sendbyte(13);//CR
delay(10000);
clearbuffer();
sendbyte(13);
delay(100);
closecom();
clearbuffer();
OpenCom(PChar('COM1:9600,N,8,1'));
sendbyte(13);
delay(100);
clearbuffer();
sendbyte(71);
sendbyte(83);
sendbyte(32);
sendbyte(48);
sendbyte(13);
a:=ReadByte();
b:=Readbyte() ;
c:=Readbyte();
d:=Readbyte();
e:= Readbyte();
f:=Readbyte();
g:=Readbyte();
h:=Readbyte();
Application.ProcessMessages;
if h = 13 then
begin
une:=(f - 48)*10 ;
deu:= (g - 48) ;
val1:= une + deu ;
val5:= (256 - val1);
val3:= ((val5 * 90)/128);
val4:= (90 - val3);
pos1:= floattostr(val4);
Application.ProcessMessages;
Edit1.text:= pos1;
clearbuffer();
flag:=true;
end
else
begin
une:= (f - 48)*100;
deu:= (g - 48)*10;
tro:= (h - 48);
val1:= une + deu  + tro ;
val5:= (256 - val1);
val3:= ((val5 * 90)/128);
val4:= (90 - val3);
pos1:= floattostr(val4);
Application.ProcessMessages;
Edit1.text:= pos1;
clearbuffer();
flag:=true;
 end;
closecom();
clearbuffer();
OpenCom(PChar('COM1:9600,N,8,1'));
sendbyte(71);
sendbyte(83);
sendbyte(32);
sendbyte(48);
sendbyte(13);
a:=ReadByte();
b:=Readbyte() ;
c:=Readbyte();
d:=Readbyte();
e:= Readbyte();
f:=Readbyte();
g:=Readbyte();
h:=Readbyte();
 
if h = 13 then
begin
une:=(f - 48)*10 ;
deu:= (g - 48) ;
val1:= une + deu ;
val2:= ((val1 * 90)/128);
val6:= (90 - val2);
pos1:= floattostr(val6);
Application.ProcessMessages;
Edit2.text:= pos1;
closecom();
clearbuffer();
 flage:=true;
end
else
begin
une:= (f - 48)*100;
deu:= (g - 48)*10;
tro:= (h - 48);
val1:= une + deu  + tro ;
val2:= ((val1 * 90)/128);
val6:= (90 - val2);
pos1:= floattostr(val6);
Application.ProcessMessages;
Edit2.text:= pos1;
flage:=true;
clearbuffer();
end;
 
if flage = true then
   if flag = true then
  begin
val42:= ((val4) * (3.1416/180));
si1:= sin(val42);
co1:= cos(val42);
ta1:= (si1/co1);
val62:= ((val6) * (3.1416/180));
si2:= sin(val62);
co2:= cos(val62);
ta2:= (si2/co2) ;
dis:= ((1/(ta1 + ta2)) * (16.55));
dis1:= floattostr(dis);
Application.ProcessMessages;
edit3.text:= dis1
end;
end;
 
end.

**denokan** · 15/06/2006, 20h47

1. Utilises la balise [CODE] (le dièse en haut quand tu rédiges ton message) sinon ton post est illisible -> personne ne le lira

2. Poses une question en fonction du problème que tu rencontre, ne poste pas l'intégralité de ton programme en demandant pourquoi ça marche ou pas

: fais tes recherches pour identifier la partie du code qui pose soucis et concentre-toi dessus, on t'aidera si tu le souhaites

tout ceci sans agressivité aucune

**KHEOPS1982** · 15/06/2006, 20h54

salut,

excusez -moi mais je ne savais pas pour la balise code. j'ai mis tous le code pour qu'on puisse m'aider . j'espère qu'on pourra m'aider.

merci

**slimjoe** · 15/06/2006, 22h03

Salut!

Je suis d'accord avec denokan. Au point où on est, il n'y a rien que nous puissions faire que tu ne pourrais faire toi même. Place un point d'arrêt là où tu crois que ça réagit bizarrement et teste le contenu des variables.

Si je pouvais compiler le (trop long

) bout de code que tu nous as partagé (ce qui d'ailleurs n'est pas le cas, je crois qu'il en manque des bouts), c'est ce que je ferais. Toutefois, comme je n'ai pas idée de tes objectifs, je ne saurais pas quoi vérifier.

En gros:

Cherche le bout de code qui ne fonctionne pas.
Isole le code. Enlève TOUT ce qui est superflu. Mets du code en commentaire et conserve seulement ce qui est nécessaire.
Commente le code, explique ce tu veux faire avant chaque section.
Sois précis dans ta question.

Bon dev!

Problème d'affichage edit

Delphi

Discussions similaires

Partager

Partager