0

Using IR remote control

kyleadv

May 07, 2008 00:59

None

Follow

I need some help getting pointed in the right direction to use the IR remote.

I was able to autorun a file but that doesn't suit my application.

My application is: The HD600 runs a audio/video clip that is display throughout a bar based on a gaming event. I will be controlling the HD600 from a IR based control system. I need to be able to start and stop the file with a IR code. I also need the ouput to be component video.

I see that the player uses scripts and I couldn't be much greener using that type of format.

All input is appreciated.

• Facebook
• Twitter
• LinkedIn

2 comments

• 0
  
  RokuLyndon May 08, 2008 00:04

  
  
  REM ******************************************************
  
  REM **********Remote control video************************
  
  REM This script waits for the play button to be pressed  *
  
  REM before it plays the video. Once the video stops,     *
  
  REM it returns to a black screen and waits for play to   *
  
  REM to be pressed again.                                 *
  
  REM ******************************************************
  
  debug=0
  
  
  
  p = CreateObject("roMessagePort")
  
  remote = CreateObject("roIRRemote")
  
  video = CreateObject("roVideoPlayer")
  
  mode=CreateObject("roVideoMode")
  
  remote.SetPort(p)
  
  video.SetPort(p)
  
  
  
  REM
  
  REM Set Video mode
  
  REM
  
  mode.SetMode("1280x720x60p")
  
  video.SetAudioOutput(0)
  
  
  
  REM
  
  REM Constants
  
  media_end=8 'value returned when a video stops playing
  
  play=9 '9 is returned when you press the play button
  
  stop_video=12 '12 is returned when you press the pause button
  
  
  
  wait_for_play:
  
  msg = wait(0, p)
  
  
  
  
  
  REM Checking if event received is a remote button press
  
  REM
  
  
  
  if type(msg) = "roIRRemotePress" then
  
  if debug print "Button pressed: ";msg.GetInt()
  
  if msg.GetInt() = play
  
  if debug print "Play pressed!"
  
  video.PlayFile("\video.mpg") 'playing video
  
  endif
  
  
  
  REM Checking if the event received was the video end event
  
  REM
  
  
  
  else if type(msg) = "roVideoEvent" then
  
  if msg.GetInt() = media_end video.StopClear()
  
  endif
  
  
  
  goto wait_for_play
  
• 0
  
  RokuLyndon May 08, 2008 00:07

  
  
  Here are the other values returned by the BrightSign Remote...
  
  
  
  
  
  West (left arrow) 0
  
  East 1
  
  North 2
  
  South 3
  
  Select 4
  
  Exit 5
  
  Power 6
  
  Menu 7
  
  Search 8
  
  Play 9 'plays video
  
  Next 10
  
  Previous 11
  
  Pause 12 'pauses video
  
  Add 13
  
  Shuffle 14
  
  Repeat 15
  
  Volume up 16
  
  Volume down 17
  
  Brightness 18