Differenze tra le versioni di "Creare un grafico per la console/Terminale"
Da Gambas-it.org - Wikipedia.
| (Una versione intermedia di uno stesso utente non è mostrata) | |||
| 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 per ciascuna di esse 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[] = [ | + | 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
