Creare un grafico per la console/Terminale

Mostriamo di seguito un semplice esempio per creare un grafico da utilizzare con la console dell'IDE di Gambas o con il Terminale.

Poniamo 10 voci e i valori per ciascuna di esse saranno assegnati casualmente.

Public Sub Main()

 Dim clr As Byte[] = [15, 88, 124, 196, 202, 220, 40, 22, 33, 21, 12]
 Dim i As Integer

 Write "   " & String.Chr(&258f)
 For c As Short = 10 To 100 Step 10
   Write Format(c, Space(8) & "##")
 Next

 Print
 Write "   "
 For b As Byte = 0 To 100
   Write String.Chr(&258f)
 Next
 Print

 Randomize 
 For b As Byte = 1 To 10
   i = Rand(0, 100)
   Print Format(b, "##"); "\e[38;5;"; clr[b]; "m ";
   Print String(i, String.Chr(&25a9)); i; "\e[0m"
 Next

End