433mhz

[mpardinho]

i use 2 circuits

1 - 16F628
1 - Transmiter

2 - 16F628
2 - Receive

1 - code - Transmit

   INCLUDE "modedefs.bas"

   Transmissor_Saida       VAR    PORTA.2 '

   Dados              var    byte
   Sincronismo        var    byte
   Codigo_Teste       var    byte
   
   CMCON          =     7                 ' PortA = digital I/O
   VRCON          =     0                 ' Voltage reference disabled
   OPTION_REG.7   =     0                 ' Enable PORTB pull-ups

   codigo_Teste   =     "©"
   Sincronismo    =     "®"
 
Inicio:
   pause 100
   
   for dados =  33 to 255
      serout Transmissor_Saida, T2400, [codigo_Teste, sincronismo, dados, codigo_Teste]
      PAUSE 1
   next
   serout Transmissor_Saida, T2400, ["END", 13, 10]
goto inicio

end

2 - code - Receive

   INCLUDE "modedefs.bas"

   Serial_Entrada     VAR    PORTA.3      ' 2 Pic Rx -> 9  Max 232 Tx Marron
   Serial_Saida       VAR    PORTA.2      ' 1 Pic Tx -> 10 Max 232 Rx Laranja
   Receptor_Entrada   VAR    PORTA.1      ' 1 Pic Rx -> 9  Receptor data

   Dados              var    byte
   Sincronismo        var    byte
   Codigo_Teste       var    byte
   
   CMCON          =     7                 ' PortA = digital I/O
   VRCON          =     0                 ' Voltage reference disabled
   OPTION_REG.7   =     0                 ' Enable PORTB pull-ups
   
   codigo_Teste   =     "©"
   Sincronismo    =     "®"

   serout serial_saida, T2400, ["Inicio", 13, 10]
   
Inicio:
      
   'SERIN serial_entrada, T2400, [CODIGO_TESTE, SINCRONISMO], DAdos
   'SERIN receptor_entrada, T2400, [CODIGO_TESTE, SINCRONISMO], DAdos
   
   SERIN receptor_entrada, T2400, DAdos
   SEROUT SERIAL_SAIDA, T2400, [DAdos, 13, 10]
   
gOTO inicio

my problem is than in receive,
Dados = "["
i not receive "[", "]", A
in hyperterminal i receivce 10 caracter "["


i use this code for test http://www.rentron.com/Stamp_RF.htm