Creare un grafico per la console/Terminale: differenze tra le versioni

Da Gambas-it.org - Wikipedia.
Vai alla navigazione Vai alla ricerca
(Creata pagina con "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 saranno assegnat...")
 
Nessun oggetto della modifica
 
(2 versioni intermedie di uno stesso utente non sono mostrate)
Riga 1: Riga 1:
Mostriamo di seguito un semplice esempio per creare un grafico da utilizzare con la console dell'IDE di Gambas o con il 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 saranno assegnati casualmente.
Poniamo 10 voci e i valori - da 0 a 100 - per ciascuna di esse saranno assegnati casualmente.
  Public Sub Main()
  Public Sub Main()
   
   
   Dim clr As Byte[] = [15, 88, 124, 196, 202, 220, 40, 22, 33, 21, 12]
   Dim clr As Byte[] = [0, 88, 124, 196, 202, 220, 40, 22, 33, 21, 12]
   Dim i As Integer
   Dim i As Integer
   
   

Versione attuale delle 17:58, 14 nov 2023

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 - da 0 a 100 - per ciascuna di esse saranno assegnati casualmente.

Public Sub Main()

 Dim clr As Byte[] = [0, 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