Prop to Prop communication

Comments

• eagletalontim Posts: 1,399

  2012-09-29 18:49 edited 2012-09-29 18:49

  not sure if this will help or not, but I would think that changing this :
  

             1  : bytemove(@Buffer1,@IR_ON,strsize(@IR_ON))
                 outa[16]~~
            129 : bytemove(@Buffer1,@IR_OFF,strsize(@IR_OFF))
                  outa[16]~
  

  
  To :
  

             1  : bytemove(@Buffer1,@IR_ON,strsize(@IR_ON))
                 outa[16]~~
            129 : bytemove(@Buffer1,@IR_OFF,strsize(@IR_OFF))
                  DIRA[16]~~
  

  
  will fix your problem
• Podion Posts: 90

  2012-09-29 19:05 edited 2012-09-29 19:05

  eagletalontim wrote: »

  not sure if this will help or not, but I would think that changing this :
  

             1  : bytemove(@Buffer1,@IR_ON,strsize(@IR_ON))
                 outa[16]~~
            129 : bytemove(@Buffer1,@IR_OFF,strsize(@IR_OFF))
                  outa[16]~
  

  
  To :
  

             1  : bytemove(@Buffer1,@IR_ON,strsize(@IR_ON))
                 outa[16]~~
            129 : bytemove(@Buffer1,@IR_OFF,strsize(@IR_OFF))
                  DIRA[16]~~
  

  
  will fix your problem

  
  Ok I will give it a try ! Thank you. :-)
• Duane Degn Posts: 10,588

  2012-09-29 19:06 edited 2012-09-29 19:06

  Podion wrote: »

  I what to know if it's possible to use 4 button to turn on and off a single light?

  
  Short answer: Yes, it is possible.
  
  I don't know it it's possible with the code you're using.
  
  It looks like one of your Props uses Beau's Prop to Prop code while the other uses Mike G's Spinnerete code.
  
  I wouldn't think the two would communicate with each other.
  
  I don't see Beau's objects used in the second Prop's code anywhere (there's a lot going on in the server code so I may have missed it).
  
  Edit: I did miss seeing Beau's code. Sorry. That's a lot a code to wade through. It might help to write some simple Prop to Prop test code without all the internet stuff.
• eagletalontim Posts: 1,399

  2012-09-29 20:30 edited 2012-09-29 20:30

  I also use :
  

  DIRA[16]~~
  
  OUTA[16] := 1 ' On
  ' or
  OUTA[16] := 0 ' Off
  
• idbruce Posts: 6,197

  2012-09-30 05:48 edited 2012-09-30 05:48

  Podion
  
  Yes, it is not only possible, but they do it in residential electrical construction all the time. I don't have the switching combinations down as in poles and throws, but here is how it is done with very common three-way and four way switches, with 120V single phase wiring. The same principle can be adapted by using switches with the appropriate poles and throws.
  
  Bruce
  
  EDIT: What is your current wiring schematic for the light and pushbuttons?
  EDIT: In fact, with this type of configuration, the number of switching locations is pratically endless. Just keep adding four-way switches in between the two three-way switches.

  

  

  Switching.jpg

  718 x 432 - 29K

  Switching.jpg 29.5K
• Duane Degn Posts: 10,588

  2012-09-30 07:33 edited 2012-09-30 07:33

  idbruce wrote: »

  here is how it is done with very common three-way and four way switches, with 120V single phase wiring. The same principle can be adapted by using switches with the appropriate poles and throws.

  
  Bruce,
  
  I suppose we can let Podion correct us, but my interpretation of the problem was to have push buttons connected to two different Props. Each Prop would have an "on" and a "off" button. My guess is, these "on" and "off" buttons should control a LED on only one of the Props.
  
  By using microcontrollers, the wiring can be kept very simple since the uC can take care of the logic.
• idbruce Posts: 6,197

  2012-09-30 07:41 edited 2012-09-30 07:41

  @Duane
  

  I suppose we can let Podion correct us, but my interpretation of the problem was to have push buttons connected to two different Props. Each Prop would have an "on" and a "off" button. My guess is, these "on" and "off" buttons should control a LED on only one of the Props.

  
  Whatever the case, I believe the logic would be equal to the switch states of the circuitry shown. And I believe that if it was controlled logically, as in 1s and 0s, I believe it could be done with four single pole pushbuttons.
• idbruce Posts: 6,197

  2012-09-30 07:48 edited 2012-09-30 07:48

  In fact, I think that might be a cool object for the OBEX. Using single pole pushbuttons as three-way and four-way switches to control a lighting circuit.
  
  Something such as the functions: AddThreeWayPB(PIN), AddFourWay(PIN)
  
  If the logic was correct, a person could control a light circuit from numerous locations.
  
  EDIT: More like this

  AddThreeWayPBs(3W_START_PIN, 3W_END_PIN, LIGHT_PIN), AddFourWayPB(PIN, LIGHT_PIN)

  EDIT: With the addition of more functions such as GetThreeWayState(PIN), SetThreeWayState(PIN), GetFourWayState(PIN), SetFourWayState(PIN)
  
  EDIT: However, if spare pins are available, the same circuitry could be replicated with the spare pins
  
  EDIT: Or simply tie the light to a pin, monitor the state as on or off, and if one of the pushbuttons is pressed, simply change the state of the light pin.
• Podion Posts: 90

  2012-09-30 18:43 edited 2012-09-30 18:43

  @Duane Degn your are rite.
  
  There is a code that I simplify. The principle is the same, 2 prop work in serial to control 1 light via 2 ON button and 2 OFF. Each prop have is own ON/OFF button. In reality those button are a IR remote. remote code 1 = On 2=Off / 3=On 4=Off.
  
  The 3 way don't work for this. the logic of the tree way : Off+Off=Off, On+Off=On, On+On=Off, Off+On=On and this is not what i want.
  
  

  {{***************************************
  *  HighSpeed Server         DEMO v1.0 *
  *  Author: Beau Schwabe               *
  *  Copyright (c) 2011 Parallax, Inc.  *               
  *  See end of file for terms of use.  *               
  ***************************************
  
  
  Revision History:
    Version 1.0   - (09/20/2011) initial release
  
  
  
  
  }}
  CON
    ' Set up the processor clock in the standard way for 80MHz on DemoBoard
    _CLKMODE      = xtal1 + pll16x
    _XINFREQ      = 5_000_000 + 0000
  
  
      RX_Pin       = 27
      TX_Pin       = 26
      Command      = 00  '' Feature not used in this demo
      Offset       = 0      '' Feature not used in this demo
      '--------------------------------------------------------
      _irrpin      = 24     'ir receiver module on this pin
      _device      = 0      'accept any device code
      _dlyrpt      = 6      'delay before acception code as repeat
  
  
  {{
  
  
  Round Robin configuration using 2 Propellers:
  
  
     ┌────────────────────────────//────────────────────────────┐
     │ ┌─────────────────┐               ┌─────────────────┐    │
     │ │   Propeller 1   │               │   Propeller 2   │    │
     ┣─┤RX             TX├──┳───//───┳─┤RX             TX├──┫
      │     Client      │             │     Server      │    
      └─────────────────┘             └─────────────────┘    
    Vss                      Vss      Vss                      Vss
         
  
  
  Round Robin configuration using 3 or more Propellers:
  
  
     ┌────────────────────────────/.../────────────────────────────────/.../────────────────────────────┐
     │ ┌─────────────────┐                  ┌─────────────────┐                  ┌─────────────────┐    │
     │ │   Propeller 2   │                  │   Propeller N   │                  │   Propeller 1   │    │
     ┣─┤RX             TX├──┳───/.../───┳─┤RX             TX├──┳───/.../───┳─┤RX             TX├──┫
      │     Client      │                │     Client      │                │     Server      │    
      └─────────────────┘                └─────────────────┘                └─────────────────┘    
    Vss                      Vss         Vss                      Vss         Vss                      Vss
  
  
  
  
  
  
  Note: All resistors tied to Vss are 330 Ohm and are there to establish a transmission line
  Note: All resistors between TX and RX are 100 Ohm and are there to current limit the I/O's in the chance
        of a collision.
  
  
  
  
  With round robin, the idea is that you have one buffer that propagated around and around inside the
  round robin loop.  To avoid any data collisions, all Propellers are capable of reading any location
  within the buffer, however each Propeller has a specific (assigned by the programmer) location that
  it can write to.
  
  
  So in the Demo, there is a 1K long buffer (4K bytes).  As an example Propeller 1 may only write to
  locations 0 to 255.  While Propeller 2 can write to locations 256 to 511.  Propellers 3 & 4 depicted
  as N because of the expandable nature of round robin would write to the remaining 512 to 1023 locations.
   
  
  
  }}
  VAR
  
  
  long   Buffer[10]
  long    Buffer1[10]
  long    keycode
  long    cogStack[500]
  long    stack[20]
  
  
  OBJ
    hsRX   : "HSp2pRX"                       'High Speed Receive driver
    hsTX   : "HSp2pTX"                       'High Speed Transmit driver
    rcvir  : "ir_reader_sony"
     SN    : "Simple_Numbers"
    
  PUB Main
   
   Start_IR
  PUB Start_IR
     rcvir.init(_irrpin,_device,_dlyrpt,true)   'startup  
      Start_IR1
  
  
  PUB Start_IR1
                         'start the tv terminal
    
    dira[23]~~
    
    repeat
      start
      start1 
      keycode := rcvir.fifo_get   'try a get from fifo
      if keycode == -1            'empty try again
        next
      else
      keycode := keycode + 1
              
         
      
  
  
  
  
  PUB start
  
  
        case keycode
         1 :  bytemove(@Buffer,@NB1,strsize(@NB1))' <- Moves TestMessage into Buffer 
         2 :  bytemove(@Buffer,@NB2,strsize(@NB2))
         3 :  bytemove(@Buffer,@NB3,strsize(@NB3))
         4 :  bytemove(@Buffer,@NB4,strsize(@NB4))
         5 :  bytemove(@Buffer,@NB5,strsize(@NB5))
         6 :  bytemove(@Buffer,@NB6,strsize(@NB6))
         7 :  bytemove(@Buffer,@NB7,strsize(@NB7))
         8 :  bytemove(@Buffer,@NB8,strsize(@NB8))
         9 :  bytemove(@Buffer,@NB9,strsize(@NB9))
         22 : bytemove(@Buffer,@NB22,strsize(@NB22))
         other : bytemove(@Buffer,@NB0,strsize(@NB0))
         
        
  pub start1
        
        comm      
  PUB comm      
      repeat 1
    
       
        hsTX.TX(TX_Pin,10,@Buffer,Command,Offset)       '<- Transmit Data to External Propeller
        hsRX.RX(RX_Pin,@Buffer)
                                  '<- Receive Data from External Propeller     
        hsRX.RX(RX_Pin,@Buffer1)
        hsTX.TX(TX_Pin,10,@Buffer1,Command,Offset)       '<- Transmit Data to External Propeller
        
      return
              
  Dat
  NB0   BYTE 999,0
  NB1   BYTE 1,0
  NB2   BYTE 2,0
  NB3   BYTE 3,0
  NB4   BYTE 4,0
  NB5   BYTE 5,0
  NB6   BYTE 6,0
  NB7   BYTE 7,0
  NB8   BYTE 8,0
  NB9   BYTE 9,0
  NB22    BYTE 22,0
  CON
  

  
  
  
  
  
  

  {{
  ***************************************
  *  HighSpeed Client        DEMO v1.0a *
  *  Author: Beau Schwabe               *
  *  Copyright (c) 2011 Parallax, Inc.  *               
  *  See end of file for terms of use.  *               
  ***************************************
  
  
  Revision History:
    Version 1.0   - (09/20/2011) initial release
    Version 1.0a  - (09/26/2011) minor change to detect When the USB plug is connected
                                 to the PC.  This prevents unwanted resets.
  
  
  }}
  CON
    ' Set up the processor clock in the standard way for 80MHz on DemoBoard
    _CLKMODE      = xtal1 + pll16x
    _XINFREQ      = 5_000_000 + 0000
  
  
      RX_Pin       = 27
      TX_Pin       = 26
      Command      = 00  '' Feature not used in this demo
      Offset       = 0      '' Feature not used in this demo
  
  
      USB_Rx       = 31
      USB_Tx       = 30
  
  
      RANGE        = 23       'Range is 0 to RANGE.
      SAMPLES      = 2        'Number of samples to pick: 1 to RANGE + 1 
      temps        = 1
  
  
       _irrpin     = 0     'ir receiver module on this pin
      _device      = 0      'accept any device code
      _dlyrpt      = 6      'delay before acception code as repea
  {{  
  
  
  Round Robin configuration using 2 Propellers:
  
  
     ┌────────────────────────────//────────────────────────────┐
     │ ┌─────────────────┐               ┌─────────────────┐    │
     │ │   Propeller 1   │               │   Propeller 2   │    │
     ┣─┤RX             TX├──┳───//───┳─┤RX             TX├──┫
      │     Client      │             │     Server      │    
      └─────────────────┘             └─────────────────┘    
    Vss                      Vss      Vss                      Vss
         
  
  
  Round Robin configuration using 3 or more Propellers:
  
  
     ┌────────────────────────────/.../────────────────────────────────/.../────────────────────────────┐
     │ ┌─────────────────┐                  ┌─────────────────┐                  ┌─────────────────┐    │
     │ │   Propeller 2   │                  │   Propeller N   │                  │   Propeller 1   │    │
     ┣─┤RX             TX├──┳───/.../───┳─┤RX             TX├──┳───/.../───┳─┤RX             TX├──┫
      │     Client      │                │     Client      │                │     Server      │    
      └─────────────────┘                └─────────────────┘                └─────────────────┘    
    Vss                      Vss         Vss                      Vss         Vss                      Vss
  
  
  
  
  
  
  Note: All resistors tied to Vss are 330 Ohm and are there to establish a transmission line
  Note: All resistors between TX and RX are 100 Ohm and are there to current limit the I/O's in the chance
        of a collision.
  
  
  
  
  With round robin, the idea is that you have one buffer that propagated around and around inside the
  round robin loop.  To avoid any data collisions, all Propellers are capable of reading any location
  within the buffer, however each Propeller has a specific (assigned by the programmer) location that
  it can write to.
  
  
  So in the Demo, there is a 1K long buffer (4K bytes).  As an example Propeller 1 may only write to
  locations 0 to 255.  While Propeller 2 can write to locations 256 to 511.  Propellers 3 & 4 depicted
  as N because of the expandable nature of round robin would write to the remaining 512 to 1023 locations.
   
  
  
  }}
  VAR
  
  
  long    Buffer[10]
  long    Buffer1[10]
  long Stack[400]
  long Stack1[400]
  
  
  byte    numbers[RANGE + 1]
  long    seed
  long    keycode                                
  OBJ
    hsRX   : "HSp2pRX"                       'High Speed Receive driver
    hsTX   : "HSp2pTX"                       'High Speed Transmit driver
    PST    : "Parallax Serial Terminal"      'RS232 Serial Driver
     rcvir : "ir_reader_sony"
     SN   : "Simple_Numbers"         
  PUB Main
   rcvir.init(_irrpin,_device,_dlyrpt,true)   'startup
   Start_IR1     
  PUB start|debugLED
  '-------------------------------------------------------------------------------------------                                                      
                                           '<- I/O direction for debug LEDs  
  '-------------------------------------------------------------------------------------------     
      repeat 
        hsRX.RX(RX_Pin,@Buffer)                           '<- Receive Data from External Propeller
        hsTX.TX(TX_Pin,10,@Buffer,Command,Offset)       '<- Transmit Data to External Propeller
        
        
        hsTX.TX(TX_Pin,10,@Buffer1,Command,Offset)       '<- Transmit Data to External Propeller
        hsRX.RX(RX_Pin,@Buffer1)
        
        
        Menu_Principal
  '-------------------------------------------------------------------------------------------
       
  '-------------------------------------------------------------------------------------------
  PUB Start_IR1
    dira [16]~~
   
    repeat
      
      keycode := rcvir.fifo_get   'try a get from fifo
      if keycode == -1            'empty try again
        next
      else
      keycode := keycode + 1  
      
     case keycode
      3: outa[16] := 1 
      4: outa[16] := 0
    return  
  PUB Menu_Principal
    dira [16]~~
    case Buffer
     1: outa[16] := 1
     2: outa[16] := 0
       
  Dat
  
  
  NB2   BYTE 1,0  
  

  
  
  Client_DEMO.spinHSp2pRX.spinHSp2pTX.spinir_reader_sony.spinMain.spinServer_DEMO.spinSimple_Numbers.spin

  spin

  spin

  Client_DEMO.spin

  10K

  spin

  spin

  HSp2pRX.spin

  32K

  spin

  spin

  HSp2pTX.spin

  33K

  spin

  spin

  ir_reader_sony.spin

  8K

  spin

  spin

  Main.spin

  3K

  spin

  spin

  Server_DEMO.spin

  14K

  spin

  spin

  Simple_Numbers.spin

  6K

  Client_DEMO.spin 10.3K

  HSp2pRX.spin 32.5K

  HSp2pTX.spin 33.4K

  ir_reader_sony.spin 7.9K

  Main.spin 2.5K

  Server_DEMO.spin 14K

  Simple_Numbers.spin 5.5K
• Beau Schwabe Posts: 6,575

  2012-10-01 00:48 edited 2012-10-01 00:48

  I'll look at your code tomorrow (ahem later today) ... I suspect though you could have each propeller with a switch act like a one shot to a specific memory address that you are passing to all of the other propellers. This way if anybody gives an ON signal the memory address gets set, otherwise, if anybody sends an OFF signal the memory address gets cleared. Doing that would allow for 2-propellers, 3-propellers, ... N-propellers, whatever to control the same lighting
• Beau Schwabe Posts: 6,575

  2012-10-01 07:07 edited 2012-10-01 07:07

  Podion,
  
  One thing I see in the Client portion of your code is that you are never calling the PUB start|debugLED routine.... where you have the High speed RX and TX routines. Also, you should be able to do this using only one buffer instead of two. That would eliminate some redundancy with transmitting and receiving.
  
  When attaching files, can you use the File-->Archive-->Project and then attach the resulting file? This makes sure that we have all of the pieces when trying to look at code.
  
  Thanks.
  
  I'll try to setup a demo using some of my original code to show how a 3-way or even a 4-Way switch might work as I explained in an earlier post.
• Podion Posts: 90

  2012-10-01 10:46 edited 2012-10-01 10:46

  The PUB start|debugLED is manage by the Main.spin
  
  Main.spin
  
  
  

  CON  
    _clkmode = xtal1 + pll16x
    _xinfreq = 5_000_000
    
  
  
  VAR
  
  
    long  cogStack[400]
    long  routine1_cog, routine2_cog, routine3_cog
   
  OBJ
   
    IR    :       "Client_DEMO"
    
  PUB Go  
  
  
   waitcnt(cnt + (clkfreq * 2))
    
   cognew(Parallel_Routine_1, @cogStack[0])
   cognew(Parallel_Routine_2, @cogStack[200])
  
  
  PUB Parallel_Routine_1
     IR.start
  PUB Parallel_Routine_2
    IR.Main 
  

  zip

  zip

  Main - Archive [Date 2012.10.01 Time 13.41].zip

  27K

  Main - Archive [Date 2012.10.01 Time 13.41].zip 27.2K
• Beau Schwabe Posts: 6,575

  2012-10-01 13:15 edited 2015-09-27 00:45

  Podion,
  
  I just went from your latest example... in that, the PUB start|debugLED routine was not referenced. None the less, here is a bit of revised DEMO code from my original code that shows how to implement a switch function across multiple Propellers to control lights, etc.
  
  On each Propeller the 'switch' acts like a one-shot, where it's only acted upon if there is a change in its state. If there is a change in state, that state gets passed along to the other Propellers in the loop. Both Clients and Server have control of a memory address (pre defined in your code) that determines if the lights are on or off. Note: the DEMO uses the 8 leds built into the Propeller Demo board and/or the Propeller QuickStart as well as the Def-Con badges.
  
  Because the switches are setup in one-shot mode, there is a possibility that you may want to turn the lights OFF but the switch at your location is already OFF. In this case you will need to turn the switch ON, and then OFF to take control of the lighting. The opposite is true if you want to turn the lights ON and the switch position at your location is already ON. You must first turn your switch OFF and then back ON. If however your switch matches the current state of the lighting situation, then all you need to do is move your switch to the desired position.
• Podion Posts: 90

  2012-10-03 15:20 edited 2012-10-03 15:20

  I replace the PUB start|debugLED by PUB comm on the server side.
• Podion Posts: 90

  2012-10-03 16:20 edited 2012-10-03 16:20

  I tried to adapt your code in mine and I'm not successful. I do not know if it's because I use an IR code and I have no real switch, in my code the IR keycode is the switch. The light i want to control is only plug to the client propeller.
  

  {{***************************************
  *  HighSpeed Client        DEMO v1.0a *
  *  Author: Beau Schwabe               *
  *  Copyright (c) 2011 Parallax, Inc.  *               
  *  See end of file for terms of use.  *               
  ***************************************
  
  
  Revision History:
    Version 1.0   - (09/20/2011) initial release
    Version 1.0a  - (09/26/2011) minor change to detect When the USB plug is connected
                                 to the PC.  This prevents unwanted resets.
  
  
  }}
  CON
    ' Set up the processor clock in the standard way for 80MHz on DemoBoard
    _CLKMODE      = xtal1 + pll16x
    _XINFREQ      = 5_000_000 + 0000
  
  
      RX_Pin       = 27
      TX_Pin       = 26
      Command      = %0000  '' Feature not used in this demo
      Offset       = 0      '' Feature not used in this demo
  
  
      USB_Rx       = 31
      USB_Tx       = 30
  
  
      RANGE        = 23       'Range is 0 to RANGE.
      SAMPLES      = 2        'Number of samples to pick: 1 to RANGE + 1 
      temps        = 1
  
  
       _irrpin     = 0     'ir receiver module on this pin
      _device      = 0      'accept any device code
      _dlyrpt      = 6      'delay before acception code as repea 
  {{   
  
  
  Round Robin configuration using 2 Propellers:
  
  
     ┌────────────────────────────//────────────────────────────┐
     │ ┌─────────────────┐               ┌─────────────────┐    │
     │ │   Propeller 1   │               │   Propeller 2   │    │
     ┣─┤RX             TX├──┳───//───┳─┤RX             TX├──┫
      │     Client      │             │     Server      │    
      └─────────────────┘             └─────────────────┘    
    Vss                      Vss      Vss                      Vss
         
  
  
  Round Robin configuration using 3 or more Propellers:
  
  
     ┌────────────────────────────/.../────────────────────────────────/.../────────────────────────────┐
     │ ┌─────────────────┐                  ┌─────────────────┐                  ┌─────────────────┐    │
     │ │   Propeller 2   │                  │   Propeller N   │                  │   Propeller 1   │    │
     ┣─┤RX             TX├──┳───/.../───┳─┤RX             TX├──┳───/.../───┳─┤RX             TX├──┫
      │     Client      │                │     Client      │                │     Server      │    
      └─────────────────┘                └─────────────────┘                └─────────────────┘    
    Vss                      Vss         Vss                      Vss         Vss                      Vss
  
  
  
  
  
  
  Note: All resistors tied to Vss are 330 Ohm and are there to establish a transmission line
  Note: All resistors between TX and RX are 100 Ohm and are there to current limit the I/O's in the chance
        of a collision.
  
  
  
  
  With round robin, the idea is that you have one buffer that propagated around and around inside the
  round robin loop.  To avoid any data collisions, all Propellers are capable of reading any location
  within the buffer, however each Propeller has a specific (assigned by the programmer) location that
  it can write to.
  
  
  So in the Demo, there is a 1K long buffer (4K bytes).  As an example Propeller 1 may only write to
  locations 0 to 255.  While Propeller 2 can write to locations 256 to 511.  Propellers 3 & 4 depicted
  as N because of the expandable nature of round robin would write to the remaining 512 to 1023 locations.
   
  
  
  }}
  VAR
  
  
  long    Buffer[10]
  long    Buffer1[10]
  long Stack[400]
  long Stack1[400]
  
  
  byte    numbers[RANGE + 1]
  long    seed
  long    keycode                                
  OBJ
    hsRX   : "HSp2pRX"                       'High Speed Receive driver
    hsTX   : "HSp2pTX"                       'High Speed Transmit driver
    PST    : "Parallax Serial Terminal"      'RS232 Serial Driver
     rcvir : "ir_reader_sony"
     SN   : "Simple_Numbers"         
  PUB Main
   rcvir.init(_irrpin,_device,_dlyrpt,true)   'startup
   Start_IR1     
  PUB start|debugLED
    
      repeat
       
        hsRX.RX(RX_Pin,@Buffer)                           '<- Receive Data from External Propeller 
        hsTX.TX(TX_Pin,10,@Buffer,Command,Offset)       '<- Transmit Data to External Propeller
  
  
        hsTX.TX(TX_Pin,10,@Buffer1,Command,Offset)       '<- Transmit Data to External Propeller
        hsRX.RX(RX_Pin,@Buffer1)
  
  
        Menu_Principal  
  
  
  PUB Start_IR1
  
  
    dira [16]~~
    
    repeat
      
      keycode := rcvir.fifo_get   'try a get from fifo
      if keycode == -1            'empty try again
        next
      else
      keycode := keycode + 1  
      
  [COLOR=#ff0000]    case keycode[/COLOR]
  [COLOR=#ff0000]      3: outa[16] := 1          'LED ON  Control by client  [/COLOR]
  [COLOR=#ff0000]      4: outa[16] := 0          'LED OFF Control by client    [/COLOR]
    return       
  PUB Menu_Principal
  
  
    dira [16]~~
    
    case Buffer
  [COLOR=#ff0000]    1: outa[16] := 1           'LED ON  Control by server[/COLOR]
  [COLOR=#ff0000]    2: outa[16] := 0           'LED OFF  Control by server
  

  [/COLOR]

  zip

  zip

  Main_Client - Archive [Date 2012.10.03 Time 19.17].zip

  27K

  zip

  zip

  Server_DEMO - Archive [Date 2012.10.03 Time 19.14].zip

  19K

  Main_Client - Archive [Date 2012.10.03 Time 19.17].zip 26.6K

  Server_DEMO - Archive [Date 2012.10.03 Time 19.14].zip 19.1K