CHESS
fbalien
Messages postés
251
Date d'inscription
dimanche 7 décembre 2003
Statut
Membre
Dernière intervention
11 novembre 2016
-
17 déc. 2006 à 17:23
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 2 sept. 2008 à 14:33
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 2 sept. 2008 à 14:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40755-chess
https://codes-sources.commentcamarche.net/source/40755-chess
2 sept. 2008 à 14:33
Tu ne parviens pas à poser une question intelligible en 3 commentaires, en plus, cette source est en turbo pascal ... tu risques fort d'attendre longtemps une réponse.
Passe plutôt par le forum pour exprimer ton besoin.
2 sept. 2008 à 11:52
2 sept. 2008 à 11:46
2 sept. 2008 à 11:44
21 déc. 2006 à 10:23
19 déc. 2006 à 20:31
19 déc. 2006 à 20:27
Mais je felicite tout de même la patience des gens qui ont le courage d'écrire toutes ses lignes :-D (çà me rappel mon adolescence dans le QBasic !)
PS : De plus à l'peoque Turbo Pascal 7 implementait tout un ensemble de librairies nommées "Turbo Vision" qui permettait de faire des Menus, des StatutBar, des ProgressBars, etc... et meme çà personne s'en sert :-)
18 déc. 2006 à 20:55
18 déc. 2006 à 09:00
18 déc. 2006 à 07:49
turbo pascal c'est marrant deux secondes mais c'est obsolete et MsDos est mort.
de plus, tu fait comment aprés pour afficher les pionts ???!
17 déc. 2006 à 17:23
hum faudrai ce familiariser avec les procédures et les fonctions pour structurer le code çà pourrait donner cela
PROGRAM chess;
USES
CRT, DOS;
VAR
compte_colonne : BYTE;
compte_ligne : BYTE;
car : CHAR;
procedure dessiner_cadre;
begin
(* Les contours de l'?chiquier *)
GOTOXY(2,1);;
TEXTCOLOR(WHITE);
WRITE('É');
GOTOXY(27,1);
WRITE('»');
GOTOXY(2,18);;
TEXTCOLOR(WHITE);
WRITE('È');
GOTOXY(27,18);
WRITE('¼');
FOR compte_colonne := 3 TO 26
DO
BEGIN
GOTOXY(compte_colonne,1);
WRITE('Í');
GOTOXY(compte_colonne,18);
WRITE('Í');
END;
FOR compte_ligne := 2 TO 17
DO
BEGIN
GOTOXY(2,compte_ligne);
WRITE('º');
GOTOXY(27,compte_ligne);
WRITE('º');
END;
end;
procedure dessiner_coordonees;
var
i : byte;
begin
(* chiffre pour les coordon'es 'y' *);
for i := 1 to 8 do
begin
gotoxy(1,19-i*2);
write(i);
end;
(* Les lettres pour les coordonn'es 'x' *)
GOTOXY(4,19);
WRITE('A B C D E F G H');
end;
procedure dessiner_case;
var
i,j : byte;
begin
textcolor(white);
for i:= 0 to 7 do
begin
(*on test si i+1 est pair pour savoir si on debute
par un noir ou un blanc en d?callant l'ecriture de 3*)
j :=round (frac((i+1)/2)*2);
gotoxy(3+j*3,2+i*2);
write('ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ');
gotoxy(3+j*3,3+i*2);
write('ÛÛÛ ÛÛÛ ÛÛÛ ÛÛÛ');
end;
end;
BEGIN
CLRSCR;
dessiner_case;
dessiner_cadre;
dessiner_coordonees;
car := READKEY;
END.