Versione attuale delle 20:31, 12 nov 2021

Come è noto, il testo stampato all'interno della console dell'IDE di Gambas è di colore nero, mentre quello stampato in Terminale è bianco.

Per poter cambiare il colore del testo oppure dello sfondo al testo, possiamo adottare almeno un paio di modalità.

Uso di speciali sequenze escape

Questa modalità prevede l'uso di speciali sequenze di codice escape. Tale sequenze escape vanno poste prima del carattere o dei caratteri da colorare.

Uso di sequenze "escape" con 8 numeri di colori

La prima parte della sequenza escape è formata da "\E". Va immediatamente precisato che in Gambas la lettera "E" dovrà essere sostituita con la corrispondente sua minuscola:
Pertanto questa parte della sequenza sarà:

\e

A seguire vi sarà il carattere "[" seguito da un numero di codice che specifica quale proprietà sarà interessata dalla modifica. In particolare il numero "3" è afferente al colore di un carattere testuale, mentre il numero "4" è afferente allo sfondo di un carattere testuale.

Bisognerà, poi, specificare il colore.
I colori assegnabili sono 8:
0 -> Nero
1 -> Rosso
2 -> Verde
3 -> Giallo
4 -> Blu
5 -> Magenta
6 -> Ciano
7 -> Bianco

L'intera sequenza, infine, dovrà essere chiusa con il carattere corrispondente alla lettera "m".

Così, se per esempio vogliamo colorare il testo di rosso, imposteremo il seguente codice: ^{[Nota 1]}

Print "\e[31mTesto qualsiasi"

Per annullare le modifiche, si imposterà la sequenza:

\e[0m

Nel seguente esempio pratico si scriveranno tre gruppi di caratteri: il primo sarà colorato di rosso; poi si annullerà la modifica portando così il secondo gruppo alla colorazione predefinita; il terzo gruppo sarà colorato di giallo con sfondo di color magenta.

Public Sub Main()
 
 Print "\e[31maaaa \e[0mbbbb \e[33m\e[45mcccc\e[0m"
  
End

Sostituendo il carattere escape "\e" con quello "\x"

Invece di utilizzare il carattere escape "\e", si potrà utilizzare il carattere escape "\x", avendo l'accortezza farlo seguire dal valore esadecimale "1b".
Si avrà quindi:

\x1b[....

Esempio pratico:

Public Sub Main()

' Stampa in console il testo "abcde" in colore rosso:
 Print "\x1b[31mabcde\x1b[0m"

End

Uso di sequenze escape con 256 numeri di colori

Oltre agli otto colori sopra riportati, è possibile utilizzare sequenze escape con 256 numeri di colori.

La prima parte della sequenza è simile alla precedente:

\e

immediatamente segue il carattere " [ ".
Poi va impostato il numero "38" per il colore del testo, mentre va usato il numero "48" per lo sfondo del testo. Si porrà appresso il simbolo del "punto e virgola" (;).
Quindi si porrà il numero "5" seguito dal "punto e virgola" (;).
Segue il numero del colore da impostare da 0 a 255. ^{[Nota 2]}
Chiude la sequenza la solita lettera "m".

Se, dunque, ad esempio vogliamo colorare il testo di arancione, utilizzando il colore numero 208, possiamo scrivere così:

Print "\e[38;5;208m Testo qualsiasi"

Per annullare la sequenza escape impostata, si utilizzerà ancora una volta la sequenza:

\e[0m

Nel seguente esempio pratico si scriveranno tre gruppi di caratteri: il primo sarà colorato con il colore numero 208; poi si annullerà la modifica portando così il secondo gruppo alla colorazione predefinita; il terzo gruppo sarà colorato con il colore numero 160 con sfondo del colore numero 49.

Public Sub Main()
 
 Print "\e[38;5;208m aaaa \e[0mbbbb \e[38;5;160m\e[48;5;49mcccc\e[0m"
  
End

Uso della funzione esterna system( ) e del comando tput

Questa modalità prevede l'uso della funzione esterna system( ) in combinazione con il comando tput.

Mostriamo un esempio pratico:

' int system(const char *__command)
' Execute the given line as a shell command.
Private Extern system_C(__command As String) As Integer In "libc:6" Exec "system"


Public Sub Main()
 
' Si imposta il colore del testo (da 0 a 7):
 system_C("tput setaf 3")
' Si imposta il colore dello sfondo del testo (da 0 a 7):
 system_C("tput setab 1")
' Si imposta la modalità "grassetto" del testo):
 system_C("tput bold")
' Si imposta la modalità "sottolineato" del testo):
 system_C("tput smul")
 
 Print "Testo qualsiasi";
  
End

Note

[1] La sequenza escape, adottando gli opportuni codici, consente di attribuire al testo, scritto in Console o in Terminale, anche altre caratteristiche.
Mostriamo di seguito un codice per verificare tutte le opzioni offerte modificando i valori dell'escape:

Public Sub Main()
 
 Dim i, j, n As Integer
 
 For i = 0 To 10
   For j = 0 To 9
     n = 10 * i + j
     If n > 108 Then Break
     Print "\e["; n; "m"; Format(n, "###"); "\e[0m"; " ";
   Next
   Print
 Next
 
End

[2] Per i numeri corrispondenti ai 256 colori, vedi la seguente tabella:

La suddetta tabella dei colori può essere riprodotta in Console/Terminale mediante il seguente codice:

Public Sub Main()
 
 Dim i, j, n As Integer
 
 Print "        Colori standard                Colori ad alta intensità"
 For n = 0 To 15
   Print "\e[48;5;"; n; "m"; Format(n, "####");
   If n == 7 Then Write "\e[0m   "
 Next
 Print "\n"
 Write String(50, " ") & "216 colori\n"
 For i = 0 To 5
   For j = 0 To 35
     n = (36 * i) + (16 + j)
     Print "\e[48;5;"; n; "m"; "\e[38;5;240;m"; Format(n, "###");
   Next
   Print
 Next
 Print "\n"
 Write String(44, " ") & "Colori in scala di grigi\n"
 For n = 232 To 255
   Print "\e[48;5;"; n; "m"; "\e[38;5;230;m"; Format(n, "####");
 Next
 Print
  
End

Riferimenti

• https://wiki.archlinux.org/index.php/Bash/Prompt_customization#Colors
• https://en.wikipedia.org/wiki/ANSI_escape_code#Colors
• http://www.faqs.org/docs/Linux-HOWTO/Bash-Prompt-HOWTO.html#AEN341