Discussion :

[adec62360]

Salut

J'ai créé une fonction qui affiche du texte et j'ai petit un problème pour la couleur. Merci pour votre aide
Voilà ma fonction

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
Const
 MemEcran = $B800;
Function Affiche(X,Y : Word; S : String): String;
 var
  i : Integer;
  Offset:Word;
begin
  Offset:= Y * 160 + X * 2;
  for i := 1 to Length(s) do
  begin
    Mem[MemEcran:Offset]:=Ord(s[i]);
    Inc(Pos,2);
  end;
 
end;

[Alcatîz]

Bonjour et bienvenue !

Dans la mémoire vidéo, chaque caractère est défini par un couple d'octets : code ASCII + attribut de couleur.
Donc, dans ta boucle, tu pourrais ajouter quelque chose comme

Code :

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

Mem[MemEcran:Offset+1]:=Couleur;

[adec62360]

merci ;-)

[j.p.mignot]

Mem[MemEcran:Offset+1]:=Couleur;

ce byte est composé comme suit
4 bits pour la couleur
3 bit pour la couleur de fond
1 bit pour le mode blink
si on inhibe le blink, alors on peut avoir 4 bits pour la couleur du fond

[Prof]

Il me semble qu'il y a une erreur dans l'intruction Inc(Pos,2).
Il faudrait plutôt écrire Inc(Offset,2).

Par ailleurs, l'utilisation d'une fonction me parait ici incorrect, même s'il n'y pas d'erreur au sens strict.
Il s'agit en fait d'une procédure, puisqu'elle ne retourne aucune valeur.