Discussion :

[nassau92]

Au secours les pros,
j'ai un projet à rendre (graphisme avec Turbo Pascal ou Dev-Pascal) et là je fais du surplace ! Y a t-il une bonne volonté qui voudrait bien m'encadrer ?
Please !

[Paul TOTH]

oui je veux bien te recadrer, les pros ici ne font pas là pour faire tes devoirs, si tu veux des conseils sur ton code, commence par le donner...sinon je peux envisager de faire tes devoirs contre facturation, mais je suis très cher

[EpiTouille]

je suis moins cher

[nassau92]

Ok le moins cher possible sera le mieux tant que je peux résoudre mon probléme.Pour faire 'marcher' un graphe (qui represente par exemple une voiture) je fais quoi?g essayé la fonction delay pour aprés redessiner mais ca ne marche pas

[nassau92]

g le code suivant et j'aimerais faire marcher un cercle choisi au hasard jusqu'a un rectangle ou il n'y a pas de cercle

[Roland Chastain]

Bonjour !

Voici un exemple d'animation réalisée avec l'unité Graph (testé avec FreePascal). Le résultat n'est vraiment pas beau. Peut-on faire mieux avec l'unité Graph ? Je ne sais pas.

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
 
program Anim1;
 
uses WinCrt, Graph;
 
procedure Animation;
var
  size: word;
  image: pointer;
  x1, y1, x2, y2: integer;
begin
  x1:=0; y1:=0; x2:=100; y2:=100;
  size := ImageSize(x1, y1, x2, y2);
  GetMem(image, size);
  GetImage(x1, y1, x2, y2, image^);
  while (x1 <= GetMaxX-100) and not KeyPressed do
  begin
    PutImage(x1, y1, image^, XorPut);
    Inc(x1, 5);
    PutImage(x1, y1, image^, XorPut);
  end;
end;
 
var
  pilote, mode: integer;
 
begin
  DetectGraph(pilote, mode);
  InitGraph(pilote, mode, '');
  SetColor(Red);
  Circle(50, 50, 40);
  Animation;
  ReadKey;
  CloseGraph;
end.

Cet exemple peut éventuellement te servir à essayer des choses mais, pour avoir un résultat plus satisfaisant, je crois qu'il faudra te tourner vers une autre unité (comme WinGraph par exemple).