Estrae un carattere alla volta da un testo input e lo visualizza
|
1 2 3 4 5 6 7 8 9 10 |
TextWindow.Write("Inserisci un testo qualsiasi: ") input=TextWindow.Read() '---------------------------------------------------- For i=1 To Text.GetLength(input) CAR=Text.GetSubText(input,i,1) TextWindow.Write(CAR) TextWindow.Write(" ") EndFor '---------------------------------------------------- TextWindow.WriteLine("") |
Estrae un carattere alla volta da un testo input e lo visualizza (cambia colore in modo casuale)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
COLORI[1]="DarkBlue" COLORI[2]="DarkMagenta" COLORI[3]="DarkGray" COLORI[4]="DarkCyan" COLORI[5]="DarkRed" COLORI[6]="DarkGreen" COLORI[7]="DarkYellow" '-------------------------------------------------- TextWindow.Write("Inserisci un testo qualsiasi: ") input=TextWindow.Read() '-------------------------------------------------- For i=1 To Text.GetLength(input) num=Math.GetRandomNumber(7) col=COLORI[num] TextWindow.BackgroundColor=col CAR=Text.GetSubText(input,i,1) TextWindow.Write(CAR) TextWindow.BackgroundColor="black" TextWindow.Write(" ") EndFor '-------------------------------------------------- TextWindow.WriteLine("") |