Brightsign BrightScript 2 Reference Guide Manuel d'utilisateur télécharger pdf (Page 57)

snake.TurnWest=snkTurnWest

snake.MoveForward=snkMoveForward

snake.MakeLonger=snkMakeLonger

snake.AddSegment=snkAddSegment

snake.EraseEndBit=snkEraseEndBit

REM

REM a "snake" is a list of line segments

REM a line segment is an roAssociativeArray that conains a length and direction (given by the x,y

delta needed to move as it is drawn)

REM

snake.seg_list = CreateObject("roList")

snake.AddSegment(1,0,3)

REM

REM The X,Y pos is the position of the head of the snake

REM

snake.snake_X=x

snake.snake_Y=y

snake.body=191 ' use asc("*") if graphics not enabled.

snake.dx=1 ' default snake direction / move offset

snake.dy=0 ' default snake direction / move offset

return snake

End Function

Sub snkDraw(text_field As Object)

x=m.snake_X

y=m.snake_Y

for each seg in m.seg_list

xdelta=seg.xDelta

ydelta=seg.yDelta

for j=1 to seg.Len

text_field.SetCursorPos(x, y)

text_field.SendByte(m.body)

x=x+xdelta

y=y+ydelta

End Sub

Sub snkEraseEndBit(text_field As Object)

x=m.snake_X

y=m.snake_Y

for each seg in m.seg_list

x=x+seg.Len*seg.xDelta

y=y+seg.Len*seg.yDelta

text_field.SetCursorPos(x, y)

text_field.SendByte(32) ' 32 is ascii space, could use asc(" ")

End Sub

Function snkMoveForward(text_field As Object)As Boolean

m.EraseEndBit(text_field)

tail=m.seg_list.GetTail()

REM

REM the following shows how you can use an AA's member functions to perform the same

REM functions the BrightScript . operator does behind the scenes for you (when used on an AA).

REM there is not point to this longer method other than illustration

REM

len=tail.Lookup("Len") ' same as len = tail.Len (or tail.len, BrightScript syntax is not

case sensative)

len = len-1

if len=0 then

1 2 ... 52 53 54 55 56 57 58 59

Commentaires sur ces manuels

Pas de commentaire

Microsoft 2LF-00001 Ficha de datos (2 paginas)

Marca: Microsoft | Categoria: Keyboards | Tamaño: 0.17 MB |

Tabla de contenidos

Rev. 1103A Microsoft

Más productos y manuales para Teclados Microsoft

Modelos	Tipo de documento
5PH-00001	Ficha de datos Microsoft Natural Keyboard Elite, 1 paginas
2LF-00011	Ficha de datos Microsoft Wireless Desktop 800, 2 paginas
2LF-000026	Ficha de datos Microsoft Wireless Desktop 800, 2 paginas
6JH-00012	Ficha de datos Microsoft Wired Keyboard 200, 1 paginas
XSA-00020	Ficha de datos Microsoft Wireless Laser Desktop 6000, 2 paginas
69C-00014	Ficha de datos Microsoft Wireless Laser Desktop 5000, 2 paginas
AKB-00012	Ficha de datos Microsoft Basic Black Value Pack 2.0 (3 Pack), 2 paginas
5SH-00001	Ficha de datos Microsoft Desktop 800, 2 paginas
NUD-00010	Ficha de datos Microsoft Wireless Laser Desktop 3000, 2 paginas
NUD-00005	Ficha de datos Microsoft Wireless Laser Desktop 3000, 2 paginas
AJB-00013	Ficha de datos Microsoft Basic Black Value Pack 2.0, 2 paginas
B2H-00004	Ficha de datos Microsoft Wireless Optical Desktop 5000, 1 paginas
BV3-00013	Ficha de datos Microsoft Wireless Optical Desktop 1000 USB SD, 2 paginas
B7S-00007?3PK	Ficha de datos Microsoft Basic Black Value Pack EN, 2 paginas
Wireless Keyboard 800	Manual Microsoft Wireless Keyboard 800, 2 paginas
Comfort Curve Keyboard 3000 for Business	Manual Microsoft 3XJ-00001, 35 paginas
2LF-00026	Manual Microsoft Wireless Desktop 800, 2 paginas
LifeChat LX-2000	Guía de usuario Microsoft Natural Ergonomic Keyboard 4000, 97 paginas
POS Keyboard TA61	Manual Microsoft POS Keyboard TA61 Product manual, 27 paginas
ZV7-00009	Manual de usuario Publikačná činnosť za rok 2005, 103 paginas