Estrae un carattere alla volta da un testo input e lo visualizza
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)
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("")