X10-mr26a

[L1 ]

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