Discussion :

[dectroo]

Salut, c'est mon premier sujet dans votre forum. Voilà , je suis débutant en Pascal alors j'utilise TP7 et pour utiliser le mode VESA ça m'énerve, alors à la place de programmer en asm sur le TP j'utilise une unité.
Voilà mon problème : c'est quand j'initialise l'écran sur une résolution, (100h par exemple), je vois plus que des traces sur mon écran. Quelqu'un peut m'expliquer le truc ?

[Alcatîz]

Bonjour et bienvenue !

Pour te faciliter la tâche, tu peux utiliser une unité toute faite comme VBE2 d'Eric Sigoillot.
Si tu travailles déjà avec une unité spécifique, peux-tu poster au moins le code d'initialisation du mode graphique ?

[M.Dlb]

Es-tu sous Windows XP ? Si oui, ca peut poser des problèmes d'affichage (paramètres de l'écran). Peux-tu tester ton code sous DOS ?

[dectroo]

Oui, c'est juste je suis sur XP SP2.
Pour l'utilisation du VBE2, reste le même problem,, j'ai lus d'autre part que le constructeur n'obeit pas au protocol VESA et que la function 4fh de l'interruption 10h ne donne rien, peut etre que ma carte graphique est parmis ces exception.
voilà le code:

Code :

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

1
2
3
4
5
6
uses VBE2;
 
begin
    setgraphmode($100);
    readln
end.

[Alcatîz]

Je suppose que tu exécutes auparavant la fonction InitGraph de VBE2 ?

Code :

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

1
2
3
4
function  InitGraph(FX, FY: Integer; ABPP: Byte; const Path: string): Boolean;
{ InitGraph: Initialise un mode graphique dont les caracteristiques sont
  FX x FY x ABPP bits par pixel. Path indique le chemin d'acces aux fichiers
  police *.CHR }

[Juju_41]

De plus, utiliser la fonction readln en mode graphique, c'est un bon moyen d'avoir des mochetés sur l'écran.

Pour attendre une touche, mieux vaut utiliser quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
8
9
uses VBE2;
 
begin
    setgraphmode($100);
    asm
      xor ah,ah
      int 16h
    end;
end.