Forum Documentation » QBasic » Colorier le fond du texte en mode graphique

Dans le cas de certains modes d'écran graphiques, vous ne pouvez écrire que sur fond noir. Gênant, non? J'ai justement écrit une SUB pour corriger cela:

SUB ecrit (row%, col%, texte$, couleurTexte%, couleurFond%)

COLOR couleurTexte%

FOR car% = 1 TO LEN(texte$)
LOCATE row%, col% - 1 + car%
PRINT MID$(texte$, car%, 1)

x1% = (col% - 2 + car%) * 8
y1% = (row% - 1) * 16
x2% = (col% - 1 + car%) * 8
y2% = row% * 16

FOR i = x1% TO x2%
FOR j = y1% TO y2%
IF POINT(i, j) <> couleurTexte% THEN PSET (i, j), couleurFond%
NEXT j
NEXT i

NEXT car%

END SUB

Je ne pense pas avoir besoins d'expliquer le rôle des variables d'arguments, cela me semble assez clair. Attention tout de même à la vitesse d'exécution décevante sur un ordinateur de moins de 100 Mhz (non, non, ces machines là ne sont pas toutes à la casse).