Modifier le nombre de lignes de l'écran à l'exécution

Version imprimable

06/12/2006, 21h23
Climoo

Modifier le nombre de lignes de l'écran à l'exécution

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...
07/12/2006, 14h53
ALT

options/environnement/préférences.
07/12/2006, 20h56
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)
08/12/2006, 10h58
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 !
08/12/2006, 13h18
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
08/12/2006, 13h19
krachik

Citation:

Envoyé par 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

Citation:

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
08/12/2006, 13h50
M.Dlb

Plus simple :

Code:

SetScreenMode(smCO80 + smFont8x8);
08/12/2006, 21h18
Climoo

J'ai essayé tout ce que vous m'avez demandé, mais cela ne fonctionne pas,:cry: 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.;)

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

Code:

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.

09/12/2006, 17h45
M.Dlb

Citation:

Envoyé par wormful_sickfoot

Plus simple :

Code:

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
10/12/2006, 15h20
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:D )

!!
11/12/2006, 13h35
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:

1 2 3 4 asm ... end;
11/12/2006, 13h47
krachik

Citation:

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(;)