Microsoft Small Basic

Program Listing: ZRL837-0

List Program

Matrix_Width = 540
Matrix_Height = 120
LED_Size = 15
LED_Color_Out = "DarkGreen"
LED_Color_In = "Green"
LED_Num_H = 36
LED_Num_V = 8
Shift = 36
Data = "Amir=0\=0\\\=0\\\;1\\\=1\\\;2\\\=1\\\;3\\\=1\\\;4\\\=1\\\;5\\\=0\\\;6\\\=0\\\;15\\\=0\\\;16\\\=1\\\;17\\\=1\\\;18\\\=0\\\;19\\\=0\\\;20\\\=1\\\;21\\\=1\\\;22\\\=1\\\;23\\\=1\\\;24\\\=0\\\;25\\\=0\\\;26\\\=0\\\;27\\\=0\\\;28\\\=0\\\;29\\\=0\\\;30\\\=1\\\;31\\\=1\\\;7\\\=0\\\;8\\\=1\\\;10\\\=0\\\;11\\\=0\\\;12\\\=1\\\;13\\\=1\\\;14\\\=0\\\;9\\\=1\\\;\;1\=13\\\=1\\\;12\\\=1\\\;11\\\=1\\\;10\\\=1\\\;7\\\=1\\\;4\\\=1\\\;3\\\=1\\\;1\\\=1\\\;0\\\=1\\\;6\\\=0\\\;5\\\=1\\\;2\\\=1\\\;30\\\=1\\\;31\\\=0\\\;29\\\=1\\\;28\\\=0\\\;27\\\=0\\\;26\\\=0\\\;25\\\=0\\\;24\\\=1\\\;23\\\=1\\\;22\\\=1\\\;21\\\=1\\\;20\\\=1\\\;14\\\=1\\\;15\\\=0\\\;16\\\=1\\\;17\\\=1\\\;19\\\=1\\\;18\\\=0\\\;8\\\=1\\\;9\\\=1\\\;\;2\=6\\\=0\\\;3\\\=0\\\;2\\\=0\\\;1\\\=1\\\;0\\\=1\\\;4\\\=1\\\;5\\\=1\\\;8\\\=1\\\;10\\\=1\\\;11\\\=1\\\;12\\\=0\\\;13\\\=1\\\;14\\\=1\\\;15\\\=0\\\;16\\\=0\\\;17\\\=0\\\;18\\\=0\\\;19\\\=1\\\;20\\\=1\\\;21\\\=0\\\;22\\\=0\\\;23\\\=1\\\;24\\\=1\\\;25\\\=0\\\;26\\\=0\\\;27\\\=0\\\;28\\\=1\\\;29\\\=1\\\;30\\\=0\\\;9\\\=0\\\;7\\\=1\\\;31\\\=0\\\;\;3\=5\\\=1\\\;3\\\=0\\\;2\\\=0\\\;1\\\=1\\\;0\\\=1\\\;4\\\=1\\\;8\\\=1\\\;9\\\=0\\\;10\\\=1\\\;11\\\=1\\\;7\\\=1\\\;6\\\=0\\\;12\\\=0\\\;13\\\=1\\\;14\\\=1\\\;15\\\=0\\\;16\\\=1\\\;17\\\=1\\\;18\\\=0\\\;27\\\=1\\\;28\\\=1\\\;29\\\=0\\\;30\\\=0\\\;31\\\=0\\\;19\\\=1\\\;20\\\=1\\\;21\\\=0\\\;22\\\=0\\\;23\\\=0\\\;24\\\=0\\\;25\\\=0\\\;26\\\=1\\\;\;4\=4\\\=1\\\;3\\\=1\\\;2\\\=1\\\;1\\\=1\\\;0\\\=1\\\;5\\\=1\\\;31\\\=0\\\;11\\\=1\\\;10\\\=1\\\;9\\\=0\\\;8\\\=1\\\;7\\\=1\\\;6\\\=0\\\;21\\\=0\\\;19\\\=1\\\;18\\\=0\\\;17\\\=1\\\;16\\\=1\\\;15\\\=0\\\;14\\\=1\\\;13\\\=1\\\;12\\\=0\\\;20\\\=1\\\;22\\\=0\\\;23\\\=0\\\;24\\\=0\\\;25\\\=0\\\;26\\\=1\\\;27\\\=1\\\;28\\\=1\\\;29\\\=0\\\;30\\\=0\\\;\;6\=2\\\=0\\\;3\\\=0\\\;1\\\=1\\\;0\\\=1\\\;4\\\=1\\\;5\\\=1\\\;31\\\=0\\\;11\\\=1\\\;10\\\=1\\\;9\\\=0\\\;8\\\=1\\\;7\\\=1\\\;6\\\=0\\\;30\\\=1\\\;29\\\=1\\\;28\\\=0\\\;27\\\=0\\\;18\\\=0\\\;17\\\=1\\\;16\\\=1\\\;15\\\=0\\\;14\\\=1\\\;13\\\=1\\\;12\\\=0\\\;19\\\=1\\\;20\\\=1\\\;21\\\=0\\\;22\\\=0\\\;23\\\=0\\\;24\\\=0\\\;25\\\=0\\\;26\\\=0\\\;\;7\=2\\\=0\\\;3\\\=0\\\;1\\\=1\\\;0\\\=1\\\;4\\\=1\\\;5\\\=1\\\;31\\\=1\\\;30\\\=1\\\;29\\\=0\\\;28\\\=0\\\;27\\\=0\\\;26\\\=0\\\;25\\\=0\\\;24\\\=0\\\;23\\\=0\\\;22\\\=0\\\;21\\\=0\\\;20\\\=1\\\;19\\\=1\\\;18\\\=0\\\;17\\\=1\\\;16\\\=1\\\;15\\\=0\\\;14\\\=1\\\;13\\\=1\\\;12\\\=0\\\;11\\\=1\\\;6\\\=0\\\;7\\\=1\\\;8\\\=1\\\;9\\\=0\\\;10\\\=1\\\;\;5\=3\\\=1\\\;2\\\=1\\\;1\\\=1\\\;0\\\=1\\\;4\\\=1\\\;5\\\=1\\\;31\\\=0\\\;11\\\=1\\\;10\\\=1\\\;9\\\=0\\\;8\\\=1\\\;7\\\=1\\\;6\\\=0\\\;30\\\=0\\\;29\\\=1\\\;28\\\=1\\\;27\\\=0\\\;26\\\=0\\\;25\\\=0\\\;24\\\=0\\\;23\\\=0\\\;20\\\=1\\\;19\\\=1\\\;18\\\=0\\\;17\\\=1\\\;16\\\=1\\\;15\\\=0\\\;14\\\=1\\\;13\\\=1\\\;12\\\=0\\\;21\\\=0\\\;22\\\=0\\\;\;;"
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
For _H = 0 To LED_Num_H - 1
LED_Bulb[_V][_H] = Shapes.AddEllipse(LED_Size,LED_Size)
Shapes.Move(LED_Bulb[_V][_H],(_H * LED_Size),(_V * LED_Size))
Shapes.SetOpacity(LED_Bulb[_V][_H],10)
EndFor
EndFor
Scroll()
Sub Display
For _V = 0 To LED_Num_V - 1
For _H = 0 To LED_Num_H - 1
If Data["Amir"][_V][_H] = 1 Then
Shapes.SetOpacity(LED_Bulb[_V][_H+Shift],100)
Else
Shapes.SetOpacity(LED_Bulb[_V][_H+Shift],10)
EndIf
EndFor
EndFor
EndSub
Sub OffallLEDs
For _V = 0 To LED_Num_V - 1
For _H = 0 To LED_Num_H - 1
Shapes.SetOpacity(LED_Bulb[_V][_H],10)
EndFor
EndFor
EndSub
Sub Scroll
Shift = LED_Num_H
OffallLEDs()
While "True"
Shift = Shift - 1
If Shift < -36 Then
Shift = LED_Num_H
EndIf
Display()
Program.Delay(100)
EndWhile
EndSub