REM HMS_DMX.BRS
REM CYCLES DMX CHANNELS ON ANY HMS BOARDS WITH DMX USING THE HMS PROTOCOL
REM CH1 ON, THEN CH2 ON, THEN CH3 ON, THEN CH4 ON
REM (PREVIOUS CHANNELS TURNED OFF 

Sub Main()



REM Port0 is the TTL Port
REM PORT2 IS THE USB-PORT
serial=CreateObject("roSerialPort",0,38400) 'THIS IS THE TTL PORT
REM SERIAL = CreateObject("roSerialPort",2,38400  'This is the USB-Serial port 
REM THERE ARE NO MESSAGES, JUST OUTPUTS TO THE DMX BOARD

LOOP:
'CHANNEL 1 ON 50&
   SERIAL.SENDBYTE(18)	'CMD 18, SET ONE DMX FADE CHANNEL 
   SERIAL.SENDBYTE(1)	'CHANNEL 1
   SERIAL.SENDBYTE(128)	'50% BRIGHTNESS
   SERIAL.SENDBYTE(20)	'MEDIUM FADE

   SLEEP(2000)	'HOLD FOR 2 SECONDS
'--------------------------------------------------
'CHANNEL 2 ON 50%
   SERIAL.SENDBYTE(18)
   SERIAL.SENDBYTE(2)	'CH 2
   SERIAL.SENDBYTE(128)	'50% BRIGHTNESS
   SERIAL.SENDBYTE(20)	'MEDIUM FADE

   SLEEP(2000)	'HOLD FOR 2 SECONDS
'--------------------------------------------------
'CHANNEL 3 ON FULL
   SERIAL.SENDBYTE(18)
   SERIAL.SENDBYTE(3)	'CH 3
   SERIAL.SENDBYTE(255)	'100% BRIGHTNESS
   SERIAL.SENDBYTE(5)	'FAST FADE CHANGE

   SLEEP(2000)	'HOLD FOR 2 SECONDS
'--------------------------------------------------
'CHANNEL 4 ON INSTANT
   SERIAL.SENDBYTE(18)
   SERIAL.SENDBYTE(4)	'CH 4
   SERIAL.SENDBYTE(255)	'100% BRIGHTNESS
   SERIAL.SENDBYTE(0)	'INSTANT FADE

   SLEEP(2000)	'HOLD FOR 2 SECONDS
'--------------------------------------------------
'SET ALL CHANNELS OFF INSTANT (CMD 28)
   SERIAL.SENDBYTE(28)
   SERIAL.SENDBYTE(204)
   SLEEP (1000)	'HOLD FOR 1 SECOND

GOTO LOOP

End Sub