Discussion :

[Climoo]

Bonjour a tous!
je suis nouveau sur ls forums et jai un petit probleme avec TurboPascal.
En fait je voudrais avoir un affichage avec 40 ou 50 lignes quand je lance un
programme, et pas 25 lignes comme ca a lair dêtre paramétré par défaut. Je pense que cest possible mais je ne parviens pas a trouver quelle option modifier !
Merci de votre aide...

[ALT]

options/environnement/préférences.

[Climoo]

En fait je crois que je me suis mal exprimé... J'avais déja trouvé cette option,
et en fait elle modifie le nombre de lignes du code, mais PAS le nombre de lignes lors de l'execution du programme. Et cest cette option la que je cherche a modifier. (jai besoin de place à l'écran pour afficher tout ce que je souhaite)

[ALT]

Alors ce n'est pas une option du TPascal mais du BIOS VGA.
Il te faut donc tripoter le matos par accès direct à la carte graphique.
Dans un environnement strictement mono-utilisateur ([MS|DR]-DOS, par exemple) pas de pb. Dans un environnement multitâche & multiutilisateur... Gare au gag !

[krachik]

voila je t'ai trouvé quelque chose pour faire un afffichage sur 80x50
il faut initialiser la carte graphique :
voila le lien:
http://www.infographik.fr/showthread.php?t=1131&page=2

[krachik]

voila je t'ai trouvé quelque chose pour faire un afffichage sur 80x50
il faut initialiser la carte graphique :
voila le lien:
http://www.infographik.fr/showthread.php?t=1131&page=2

Vous avez sûrement déjà vu le mode texte 80x50, les caractères sont carrés.
Voici la procédure pour l'initialiser :

mov ax,03h
int 10h
xor ax,1111h
int 10h

[M.Dlb]

Plus simple :

Code :

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

SetScreenMode(smCO80 + smFont8x8);

[Climoo]

J'ai essayé tout ce que vous m'avez demandé, mais cela ne fonctionne pas, cela ne passe pas à la compilation de turbo Pascal... Il ne connait pas "SetScreenMode" ni "mov" ou autres mots. j'ai cherché ces mots d'ailleurs dans l'index de l'aide et ils ne s'y trouvent pas. Est-ce parce que je n'ai pas la bonne version de Turbo Pascal? ou parce que je suis en mode Text ??
Désolé si je n'ai pas posté mon message là ou il le fallait ou si je n'ai pas précisé suffisemment mon problème, je suis nouveau !
Merci de vos réponses rapides néanmoins.

[Alcatîz]

La méthode de krachik peut être appliquée sans utiliser de code Assembleur.
Le code suivant fonctionne :

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
Program CHGMODE;
 
Uses DOS;
 
Var Registres : Registers;
 
Begin
  Write('Pressez Enter pour changer de mode : ');
  ReadLn;
  Registres.ax := $0003;
  Intr($10,Registres);
  Registres.ax := Registres.ax xor $1111;
  Intr($10,Registres);
  Write('Pressez Enter pour quitter : ');
  ReadLn;
End.

[M.Dlb]

Plus simple :

Code :

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

SetScreenMode(smCO80 + smFont8x8);

SetScreenMode est relative aux objets TProgramme, je me suis trompé. Il faut utiliser setVideoMode de l'unité drivers plutôt.

F1 NextTime

[Climoo]

Merci beaucoup ! Ca marche...
J'ai encore quelques bug ou on m'affiche seulement des moitiés de lignes (juste la partie supérieure d'un caractère en mode 25 lignes), mais je suis sûr qu'en cherchant encore un peu je vais trouver. (je ne dispose pas de loption
SetVideoMode car apparemment je ne possède pas l'unité Driver)

Merci a tous de votre aide , (je vais maintenant pouvoir afficher des cases carrés dans mon sudoku )

!!

[ALT]

Une précision : mov, &c, sont des mots-clés de l'assembleur Intel. Pour que le bout de code fonctionne, il faut donc l'encadrer par un :

Code :

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

1
2
3
4
 
asm
...
end;

[krachik]

Une précision : mov, &c, sont des mots-clés de l'assembleur Intel. Pour que le bout de code fonctionne, il faut donc l'encadrer par un :
Code :

asm ... end;

c vrai j'ai oublier de le preciser(