faire une allumette graphique en pascal

Marsh Posté le 09-11-2005 à 14:11:54

Salut,
Je cherche à réaliser une suite d'allumettes en pascal.
Pour l'instant, je les réalise via des caractères:

Code :

var
compteur,X : integer;
begin
X := 2;
GotoXY(30,2);
write('Jeu des allumettes');
for compteur := 1 to nombre_allumettes do
begin
TextColor(Red);{Texte rouge}
GotoXY(X,4);
writeln('0');
TextColor(yellow);
GotoXY(X,5);
writeln('|');
GotoXY(X,6);
writeln('|');
GotoXY(X,7);
writeln('|');
GotoXY(X,8);
writeln('|');
TextColor(white);{Texte blanc}
if compteur mod 5 = 0 then
begin
inc(X);
end;
inc(X);
end;

Mais j'aimerais pouvoir les afficher de manière homogène, avec une boule pour le soufre et une grande barre jaune pour la tige en bois. :bounce:
Je voudrais aussi les mettre dans un cadre.
Comment je peux faire tout ca? :??:

Message édité par bossgama le 09-11-2005 à 15:51:34

Reply

Marsh Posté le 09-11-2005 à 14:11:54

Reply

Marsh Posté le 10-11-2005 à 11:23:53

Oui mais comment tu veux faire en mode graphique ?
avec les fonctions graphiques de base ?

Alors un truc dans ce genre vite fait :

ajouter graph dans les USES ,

var compteur : integer;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode, 'ton pass vers bgi');

Setcolor(red);
for compteur :=1 to 5 do
begin
Bar(100+compteur*12+5, 380, 110+compteur*12, 320);
Circle(103+compteur*12+5, 309, 5);
end;
Readln;
CloseGraph;

Si tu veux mieux alors il faudra peut etre passer par les sprites,
mais la j'ai plus rien dispo en pascal.

Reply

Marsh Posté le 10-11-2005 à 18:48:24

je teste ca tout de suite.
Les sprites? Qu'est-ce que c'est?

Reply

Marsh Posté le 10-11-2005 à 20:56:11

Tiens une petite horloge pour turbo pascal ,
j'espere que j'ai bien ajouté tous les fichiers ,
mais bon c'est pas géant.

http://cjoint.com/?lkuV4XfnGQ

Reply

Marsh Posté le 10-11-2005 à 21:29:10

J'arrive pas à compiler tes programmes aldo13000. Il me fait des erreurs même si j'ajoute graph dans uses, et clock donne pleins d'erreurs de variables, tel que dh

Message cité 1 fois

Reply

Marsh Posté le 10-11-2005 à 22:22:48

bossgama a écrit :

J'arrive pas à compiler tes programmes aldo13000. Il me fait des erreurs même si j'ajoute graph dans uses, et clock donne pleins d'erreurs de variables, tel que dh

Oui enfin pour l'horloge , j'avais changé le nom du fichier pas ,
peut etre en essayant un nom plus court ca va marcher.

Pour le truc graphique (a completer ) peut etre un probleme
au niveau du path des BGI , dans l'appel a initgraph ,

enfin tout ca c'est pas bien dur a faire fonctionner , si ?

Message édité par aldo13000 le 10-11-2005 à 22:23:36

Reply

Marsh Posté le 10-11-2005 à 23:02:13

ben deja je vois pas bien l'histoire de l'appel a la BGI. Mais j'utilise Dev-pascal et pas turbo pascal c'est peut-être pour ca?

Message cité 1 fois

Reply

Marsh Posté le 11-11-2005 à 00:07:56

bossgama a écrit :

ben deja je vois pas bien l'histoire de l'appel a la BGI. Mais j'utilise Dev-pascal et pas turbo pascal c'est peut-être pour ca?

Ya des chances , par contre j'ai jamais bossé sous dev pascal ,
un peu de dev cpp .

Les BGI c'est un truc propre a Borland.

Enfin si par hasard tu veux tester turbo pascal (et faire des programmes dos )
tu dois pouvoir trouver ca sur developpez.com.

Reply

faire une allumette graphique en pascal

Sujets relatifs:

Leave a Replay