Comment faire un graphisme en pascal

Fermé
patrickhk Messages postés 1 Date d'inscription lundi 18 décembre 2006 Statut Membre Dernière intervention 18 décembre 2006 - 18 déc. 2006 à 15:47
KX Messages postés 16755 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 - 25 juin 2008 à 17:28
bonjour, je veux savoir comment se font les graphismes en pascal
A voir également:

4 réponses

<gras>comment faire un graphisme en pascal</gras>
2
isaline Messages postés 25 Date d'inscription samedi 8 septembre 2007 Statut Membre Dernière intervention 18 avril 2010 5
19 mars 2008 à 15:46
Bonjour,

Je réalise un carnet d'adresse en pascal et je souhaiterais que l'on me guide à avoir un bon graphisme et également comment lire un fichier sequenciellement?
Merci d'avance.
0
bonjour les amis.je veux savoir comment dessiner des gaphisme en turbo pascal.j'ai fait une formation de six mois à propos du pascal.mais malheuereusement ona fini la la formaton avand d'accéder au graphismes.merci d'avance.
0
KX Messages postés 16755 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 3 020
23 juin 2008 à 23:46
L'utilisation de graphisme en Pascal semble être un mythe pour certain, et un casse-tête pour d'autres...

Je ne sais pas ce que ça vaut mais Haypo propose ici une de ses unités qui semble pouvoir permettre le graphisme en Turbo Pascal...

Merci de me dire si ça marche...
0
KX Messages postés 16755 Date d'inscription samedi 31 mai 2008 Statut Modérateur Dernière intervention 12 février 2025 3 020
25 juin 2008 à 17:28
Sinon, il existe apparemment une unité déjà existante en Pascal (uses Graph)
Hugo ETIEVANT explique son utilisation ici
Certes elle ne semble pas très performante, mais un peu est toujours mieux qu'un rien...

Voici un exemple de programme qui est donné dans ce tutoriel (légèrement modifié)
Program coquille ;
Uses Graph ;
Var r : Integer;
    mode, pilote : SmallInt ;
BEGIN
mode := Detect ;
InitGraph(mode, pilote, 'c:\bp\bgi') ;
SetColor(14) ;
r := 0 ;
Repeat
Inc(r, 8) ;
Arc(GetMaxX Div 3, GetMaxY Div 2, 0, r, 180-(r Div 2)) ;
Until r>=360 ;

ReadLn ;
CloseGraph ;
END.
0