beautypg.com

BrightSign Object Reference Manual (FW 5.1) User Manual

Page 97

background image

89

SetData(a As Integer)

Example:
vp_msg_loop:
msg=Wait(tiut, p)

if

type(msg)="roVideoEvent"

then

if

debug

then

print "Video Event";msg.GetInt()

if

msg.GetInt() = 8

then

if

debug

then

print "VideoFinished"

retcode=5

return

endif

else

if

type(msg)="roGpioButton"

then

if

debug

then

print "Button Press";msg

if

escm

and

msg=BM

then

retcode=1:

return

if

esc1

and

msg=B1

then

retcode=2:

return

if

esc2

and

msg=B2

then

retcode=3:

return

if

esc3

and

msg=B3

then

retcode=4:

return

else

if

type(msg)="rotINT32"

then

if

debug

then

print "TimeOut"

retcode=6

return

endif

goto

vp_msg_loop