X10-mr26a

[1]

Wireless (RF) sensors that attaches to a PC through a serial port. The unit decodes the RF signals and X10 provides software that will control X-10 devices, MP3 players, etc.

X10 also makes some combination RF/IR remotes that can sent more than just the typical light commands to the mr26a (example UR47a, UR81a, ...). These map each button of the remote to a signal that is decoded by the mr26a. Below is a little application that read the mr26a and displays the button pressed on the RF remote. (This code is based off the How to read the serial port, and display in hexadezimal example)

 # Please send any comments/bug reports to
 # Michael Jacobson ([email protected])
 # tested with Tcl/Tk 8.4b3

 ### Constants
 set baudrate   9600
 set parity     n
 set databits   8
 set stopbits   1
 set comport 	com2:

 ### Button Mapping
 set dlable {POWER PC TITLE SUBTITLE DISPLAY RETURN MENU EXIT \
	     LEFT UP RIGHT DOWN OK PLAY STOP SKIPPREV \
	     SKIPNEXT REWIND FORWARD PAUSE RECORD RECALL ONE TWO \
	     THREE FOUR FIVE SIX SEVEN EIGHT NINE ZERO \
	     ABSWITCH ENTER CHANNELUP CHANNELDOWN VOLUMEUP VOLUMEDOWN MUTE LIGHT1ON \
	     LIGHT2ON LIGHT3ON LIGHT4ON LIGHT5ON LIGHT6ON LIGHT7ON LIGHT8ON LIGHT1OFF \
	     LIGHT2OFF LIGHT3OFF LIGHT4OFF LIGHT5OFF LIGHT6OFF LIGHT7OFF LIGHT8OFF ALLLIGHTSON \
	     ALLLIGHTSOFF}
 set dcode  {EEF0 EED4 EED6 EED4 EE3A EED8 EEB6 EEC9 \
	     EED2 EED5 EED1 EED3 EE52 EEB0 EE70 EE00 \
	     EE00 EE38 EEB8 EE72 EEFF EEF2 EE82 EE42 \
	     EEC2 EE22 EEA2 EE62 EEE2 EE12 EE92 EE02 \
	     EEBA EE52 EE40 EEC0 EE60 EEE0 EEA0 6000 \
	     6010 6008 6018 6040 6050 6048 6058 6020 \
	     6030 6028 6038 6060 6070 6068 6078 6090 \
	     6080}

 ### G U I
 text .t1 -width 85 -font {courier 8 } -tabs {3c 6c 9c 13c left}
 pack .t1 -side top -anchor nw
 button .b1 -text Exit -command exit
 pack .b1 -side bottom -anchor nw -fill x -expand true
 wm title . "X-10 RF Signal to Hex Convertor ($comport)"

 ### M A I N
 .t1 tag configure underline -underline true
 .t1 tag configure bold -font {courier 10 bold}
 .t1 tag configure finsih -font {courier 6}
 .t1 insert end "\tRead $comport $baudrate, Parity=$parity,\
     Databits=$databits, Stopbits=$stopbits\n\n" {underline bold}

 ### Procedures
 set olddata ""
 proc rd_chid {chid} {
 	global olddata oldtime
   	set newtime [clock clicks -milliseconds]
   	set msg [read $chid]
   	.t1 insert @0,0 . ;#data received
   	if {[string equal $msg $olddata]} {
   		if {[expr $newtime - $oldtime] < 200} {
   			set oldtime $newtime
   			return ;# debounce the button
   		}
   	}
   	set oldtime $newtime
   	set olddata $msg
   	set listOfLetters [split $msg {} ]
   	set serialIPinHex ""
   	foreach iChar $listOfLetters {
      	       scan $iChar "%c" decimalValue
       	       set serialIPinHex "$serialIPinHex [format "%02X" $decimalValue ]"
   	}
	set out_rfdata "[lindex $serialIPinHex 2][lindex $serialIPinHex 3]"
   	set result_updaterf [rfdecode $out_rfdata]
   	.t1 insert @0,0 "rf data sent:\"0x$out_rfdata\", remote code:\"$result_updaterf\"\n"
 }

 proc rfdecode {data} {
 	global dlable dcode
  	set fnd [lsearch $dcode $data]
	if {$fnd == -1} {
  		set output "Code not found : $data"
  	} else {
  		set output [lindex $dlable $fnd]
  	}
  	return $output
 }

 proc open_com {} {
   global com comport baudrate parity databits stopbits
   set com [open $comport r+]
   fconfigure $com -mode $baudrate,$parity,$databits,$stopbits \
      -blocking 0 -translation binary -buffering none
   fileevent $com readable [list rd_chid $com]
 }

 proc Exit {} {
 	global com
	close $com
	exit
 }
 wm protocol . WM_DELETE_WINDOW {Exit}

 open_com

Category Device Control