'I have modified this great program to can input your text with the text window :
'Antonio Augusto Barbaro
'aabproducoes.peperonity.com
'aabproducoes.cwap.me
'facebook.com/antonio.augusto.9444023
'aaugusto444@gmail.com
GraphicsWindow.CanResize=0
LDUtilities.ShowErrors="false
LDUtilities.ShowNoShapeErrors="false
Matrix_Width = 540
Matrix_Height = 120
LED_Size = 15
LED_Color_Out = "DarkGreen"
LED_Color_In = "Lime"
Shift = 66
GraphicsWindow.Title="Led Banner 2.0"
TextWindow.Clear()
TextWindow.WriteLine("Insert your text to the led banner. 'test' to test")
TextWindow.WriteLine("Only numbers and letters. If leght is bigger of 6, is very slow. Be patient.")
input_text= TextWindow.Read()
If input_text="test" then
input_text="abcdefghijklmnopqrstuvwxyz0123456789"
endif
input_text= Text.ConvertToLowerCase(input_text) 'abcdef...
Text.Append(input_text," ") 'to scroll with delay
LED_Num_H= 12 * Text.GetLength(input_text)
For i=1 to Text.GetLength(input_text)
For b=1 to Array.GetItemCount(dd)-1
If Text.GetLength(dd[b])<>Text.GetLength(dd[b+1]) Then
GraphicsWindow.ShowMessage("Have a error",i)
EndIf
endfor
TextWindow.WriteLine("Loaded "+i+" of "+Text.GetLength(input_text)+"; "+Text.GetSubText(input_text,i,1))
char= Text.GetSubText(input_text,i,1)
If char="a" Then
suba()
ElseIf char="b" then
subb()
ElseIf char="c" then
subc()
ElseIf char="d" then
subd()
ElseIf char="e" then
sube()
ElseIf char="f" then
subf()
ElseIf char="g" then
subg()
ElseIf char="h" then
subh()
ElseIf char="i" then
subi()
ElseIf char="j" then
subj()
ElseIf char="k" then
subk()
ElseIf char="l" then
subl()
ElseIf char="m" then
subm()
ElseIf char="n" then
subn()
ElseIf char="o" then
subo()
ElseIf char="p" then
subp()
ElseIf char="q" then
subq()
ElseIf char="r" then
subr()
ElseIf char="s" then
subs()
ElseIf char="t" then
subt()
ElseIf char="u" then
subu()
ElseIf char="v" then
subv()
ElseIf char="w" then
subw()
ElseIf char="x" then
subx()
ElseIf char="y" then
suby()
ElseIf char="z" then
subz()
ElseIf char="0" then
sub0()
ElseIf char="1" then
sub1()
ElseIf char="2" then
sub2()
ElseIf char="3" then
sub3()
ElseIf char="4" then
sub4()
ElseIf char="5" then
sub5()
ElseIf char="6" then
sub6()
ElseIf char="7" then
sub7()
ElseIf char="8" then
sub8()
ElseIf char="9" then
sub9()
elseif char=" " then
dd[1]=Text.Append(dd[1],"..........")
dd[2]=Text.Append(dd[2],"..........")
dd[3]=Text.Append(dd[3],"..........")
dd[4]=Text.Append(dd[4],"..........")
dd[5]=Text.Append(dd[5],"..........")
dd[6]=Text.Append(dd[6],"..........")
dd[7]=Text.Append(dd[7],"..........")
dd[8]=Text.Append(dd[8],"..........")
EndIf
EndFor
leD_Num_V = Array.GetItemCount(dd) 'you can add lines
For x=1 to Array.GetItemCount(dd)
dd[x]=LDText.Replace(dd[x],"*","1:")
dd[x]=LDText.Replace(dd[x],".","0:")
Data[x-1] =LDText.Split(dd[x],":")
endfor
GraphicsWindow.Width = Matrix_Width
GraphicsWindow.Height = Matrix_Height
GraphicsWindow.BackgroundColor = "Black"
GraphicsWindow.Title = "LED Matrix Scroller Display"
GraphicsWindow.PenColor = LED_Color_Out
GraphicsWindow.BrushColor = LED_Color_In
For _V = 0 To LED_Num_V - 1
TextWindow.WriteLine("Load "+_V+" of "+leD_Num_V+"")
For _H = 0 To LED_Num_H - 1
LED_Bulb[_V][_H] = Shapes.AddEllipse(LED_Size,LED_Size)
lb[_V][_H]=LDFastShapes.ShapeIndex (LED_Bulb[_V][_H])
ldfastShapes.Move(Lb[_V][_H],(_H * LED_Size),(_V * LED_Size))
ldfastShapes.SetOpacity(Lb[_V][_H],10)
EndFor
EndFor
TextWindow.Hide()
LDFastShapes.Update ()
Scroll()
Sub Display
For _V = 0 To LED_Num_V - 1
For _H = 0 To LED_Num_H - 1
If Data[_V][_H] = 1 Then
ldfastShapes.SetOpacity(Lb[_V][_H+Shift],100)
Else
ldfastShapes.SetOpacity(Lb[_V][_H+Shift],10)
EndIf
EndFor
EndFor
LDFastShapes.Update ()
EndSub
Sub OffallLEDs
For _V = 0 To LED_Num_V - 1
For _H = 0 To LED_Num_H - 1
LDFastShapes.SetOpacity(Lb[_V][_H],10)
EndFor
EndFor
EndSub
Sub Scroll
Shift = LED_Num_H
OffallLEDs()
While "True"
Shift = Shift - 1
If Shift < -66 Then
Shift = LED_Num_H
EndIf
Display()
Program.Delay(45)
EndWhile
EndSub
Sub suba
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".**....**.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".**....**.")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub subb
dd[1]=Text.Append(dd[1],".******...")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".*******..")
dd[5]=Text.Append(dd[5],".******...")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".******...")
EndSub
Sub subc
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".**.......")
dd[5]=Text.Append(dd[5],".**.......")
dd[6]=Text.Append(dd[6],".**.......")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subd
dd[1]=Text.Append(dd[1],".******...")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.....*.")
dd[4]=Text.Append(dd[4],".**.....*.")
dd[5]=Text.Append(dd[5],".**.....*.")
dd[6]=Text.Append(dd[6],".**.....*.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".******...")
EndSub
Sub sube
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**.......")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subf
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**.......")
dd[7]=Text.Append(dd[7],".**.......")
dd[8]=Text.Append(dd[8],".**.......")
EndSub
Sub subg
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".**....**.")
dd[5]=Text.Append(dd[5],".**..****.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".**....**.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subh
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".**....**.")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub subi
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],"....**....")
dd[4]=Text.Append(dd[4],"....**....")
dd[5]=Text.Append(dd[5],"....**....")
dd[6]=Text.Append(dd[6],"....**....")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subj
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".....**...")
dd[4]=Text.Append(dd[4],".....**...")
dd[5]=Text.Append(dd[5],".....**...")
dd[6]=Text.Append(dd[6],".**..**...")
dd[7]=Text.Append(dd[7],".**..**...")
dd[8]=Text.Append(dd[8],"..****....")
EndSub
Sub subk
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**...**..")
dd[3]=Text.Append(dd[3],".**..**...")
dd[4]=Text.Append(dd[4],".****.....")
dd[5]=Text.Append(dd[5],".****.....")
dd[6]=Text.Append(dd[6],".**..**...")
dd[7]=Text.Append(dd[7],".**...**..")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub subl
dd[1]=Text.Append(dd[1],".**.......")
dd[2]=Text.Append(dd[2],".**.......")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".**.......")
dd[5]=Text.Append(dd[5],".**.......")
dd[6]=Text.Append(dd[6],".**.......")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subm
dd[1]=Text.Append(dd[1],"..*....*..")
dd[2]=Text.Append(dd[2],".***..***.")
dd[3]=Text.Append(dd[3],".**.**.**.")
dd[4]=Text.Append(dd[4],".**....**.")
dd[5]=Text.Append(dd[5],".**....**.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".**....**.")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub subn
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],".***...**.")
dd[4]=Text.Append(dd[4],".**.*..**.")
dd[5]=Text.Append(dd[5],".**..*.**.")
dd[6]=Text.Append(dd[6],".**...***.")
dd[7]=Text.Append(dd[7],".**....**.")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub subo
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".**....**.")
dd[5]=Text.Append(dd[5],".**....**.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subp
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**.......")
dd[7]=Text.Append(dd[7],".**.......")
dd[8]=Text.Append(dd[8],".**.......")
EndSub
Sub subq
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".......**.")
dd[8]=Text.Append(dd[8],".......**.")
EndSub
Sub subr
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".**...**..")
dd[5]=Text.Append(dd[5],".*****....")
dd[6]=Text.Append(dd[6],".**.**....")
dd[7]=Text.Append(dd[7],".**...**..")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub subs
dd[1]=Text.Append(dd[1],"..*****...")
dd[2]=Text.Append(dd[2],".***...**.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],"...**.....")
dd[5]=Text.Append(dd[5],"......**..")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".**...***.")
dd[8]=Text.Append(dd[8],"...*****..")
EndSub
Sub subt
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],"....**....")
dd[4]=Text.Append(dd[4],"....**....")
dd[5]=Text.Append(dd[5],"....**....")
dd[6]=Text.Append(dd[6],"....**....")
dd[7]=Text.Append(dd[7],"....**....")
dd[8]=Text.Append(dd[8],"....**....")
EndSub
Sub subu
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".**....**.")
dd[5]=Text.Append(dd[5],".**....**.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subv
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".**....**.")
dd[5]=Text.Append(dd[5],".**....**.")
dd[6]=Text.Append(dd[6],"..**..**..")
dd[7]=Text.Append(dd[7],"...****...")
dd[8]=Text.Append(dd[8],"....**....")
EndSub
Sub subw
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".**.**.**.")
dd[5]=Text.Append(dd[5],".**.**.**.")
dd[6]=Text.Append(dd[6],".**.**.**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub subx
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],"..**..**..")
dd[3]=Text.Append(dd[3],"...*..*...")
dd[4]=Text.Append(dd[4],"....**....")
dd[5]=Text.Append(dd[5],"....**....")
dd[6]=Text.Append(dd[6],"...*..*...")
dd[7]=Text.Append(dd[7],"..**..**..")
dd[8]=Text.Append(dd[8],".**....**.")
EndSub
Sub suby
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],"..**..**..")
dd[4]=Text.Append(dd[4],"....**....")
dd[5]=Text.Append(dd[5],"....**....")
dd[6]=Text.Append(dd[6],"....**....")
dd[7]=Text.Append(dd[7],"....**....")
dd[8]=Text.Append(dd[8],"....**....")
EndSub
Sub subz
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],"......**..")
dd[4]=Text.Append(dd[4],".....**...")
dd[5]=Text.Append(dd[5],"....**....")
dd[6]=Text.Append(dd[6],"..**......")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub0
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**...***.")
dd[4]=Text.Append(dd[4],".**..*.**.")
dd[5]=Text.Append(dd[5],".**.*..**.")
dd[6]=Text.Append(dd[6],".***...**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub1
dd[1]=Text.Append(dd[1],"......***.")
dd[2]=Text.Append(dd[2],".....****.")
dd[3]=Text.Append(dd[3],"....**.**.")
dd[4]=Text.Append(dd[4],".......**.")
dd[5]=Text.Append(dd[5],".......**.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".......**.")
dd[8]=Text.Append(dd[8],".......**.")
EndSub
Sub sub2
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".......**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**.......")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub3
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".......**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub4
dd[1]=Text.Append(dd[1],".**....**.")
dd[2]=Text.Append(dd[2],".**....**.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".......**.")
dd[8]=Text.Append(dd[8],".......**.")
EndSub
Sub sub5
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub6
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**.......")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub7
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".......**.")
dd[4]=Text.Append(dd[4],".......**.")
dd[5]=Text.Append(dd[5],".......**.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".......**.")
dd[8]=Text.Append(dd[8],".......**.")
EndSub
Sub sub8
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".**....**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Sub sub9
dd[1]=Text.Append(dd[1],".********.")
dd[2]=Text.Append(dd[2],".********.")
dd[3]=Text.Append(dd[3],".**....**.")
dd[4]=Text.Append(dd[4],".********.")
dd[5]=Text.Append(dd[5],".********.")
dd[6]=Text.Append(dd[6],".......**.")
dd[7]=Text.Append(dd[7],".********.")
dd[8]=Text.Append(dd[8],".********.")
EndSub
Program Listing: QSB178