Discussion :

[stfanny31]

salut
j'ai un programme le calcule de la marge(pour la méthode pert/cpm)
je veux que a chaque fois que la marge=0 je prend des coordoné et je déssine une ligne et un cercle
voici le code que j'ai fait :

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
 
tligne.First;
 while not tligne.Eof do
    begin
      if (tligne.FieldByName('marge').Asinteger=0 )then
        begin
           X0:= tligne['x0']  ;Y0:= tligne['y0']  ;
           Xe:= tligne['xe']  ;Ye:= tligne['ye']  ;
           X0Pres:= tligne['X0Pres'] ;
           Y0Pres:=  tligne['Y0Pres'];
           X0Sui:= tligne['X0Sui']  ;
           Y0sui:=  tligne['Y0sui] ;
            form1.Canvas.MoveTo(X0,Y0);
            form1.Canvas.LineTo (Xe,Ye);
            form1.Canvas.Ellipse(X0Sui,Y0sui,X0Sui+50,Y0sui+50);
            form1.Canvas.Ellipse(X0Pres,Y0Pres,X0Pres+50,Y0Pres+50);
          end;
      tligne.Next;
end;

normalement a chaque fois que marge=0 il déssine
mais ca ne marche pas
esque vous pouvé me corrigé l'erreur

[ero-sennin]

Salut,

Plusieurs questions :
Est ce que ton programme passe bien dans la condition ?
Ne serait ce pas :

Code :

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

tligne.FieldByName('x0').AsInteger;

Ainsi de suite ?

Quelle erreur as tu ?
A+

[stfanny31]

salut ero-sennin
le programme entre bien dans la boucle mais il déssine pas les cercele
il désigne ke les ligne mais pas on rouje
c'est du roge sur un vert
vous pouvé m'expliké

[petitcoucou31]

salut ,

Ou définie tu les couleurs de tes ligne et cercles ? pas dans le bout de code que tu as donnée .

Quand tu dis "rouge sur vert" est ce une ligne en pointillé ?

tu devrai regarder les valeurs ton "PEN" et de ton "BRUSH" .

[stfanny31]

salut petitcoucou31
oups je ss désolé voici les code corrigé

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
tligne.First;
 while not tligne.Eof do
    begin
      if (tligne.FieldByName('marge').Asinteger=0 )then
        begin
           X0:= tligne['x0']  ;Y0:= tligne['y0']  ;
           Xe:= tligne['xe']  ;Ye:= tligne['ye']  ;
           X0Pres:= tligne['X0Pres'] ;
           Y0Pres:=  tligne['Y0Pres'];
           X0Sui:= tligne['X0Sui']  ;
           Y0sui:=  tligne['Y0sui] ;
 i1.Canvas.pen.Color:=clred ;
            i1.Canvas.pen.Width:=4;           
            form1.Canvas.MoveTo(X0,Y0);
            form1.Canvas.LineTo (Xe,Ye);
            form1.Canvas.Ellipse(X0Sui,Y0sui,X0Sui+50,Y0sui+50);
            form1.Canvas.Ellipse(X0Pres,Y0Pres,X0Pres+50,Y0Pres+50);
          end;
      tligne.Next;
end;