Differenze tra le versioni di "Creare un grafico per la console/Terminale"

Da Gambas-it.org - Wikipedia.
(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...")
 
 
(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 16: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