Thank you.
Now i have recived the Parallax RF modules and write this test programs
Transmitter PIC16F628A whit Internal RC OSC at 4 MHz
Code:
<html>
<head></head>
<body><!--StartFragment--><pre><code><font color="#008000"><i>
</i></font>CMCON = <font color="#808080">7 </font><font color="#008000"><i>'Alla I/O Digitala
</i></font>LEDPin <font color="#000080">VAR </font>PORTB.<font color="#808080">0
</font>TransmitterPIN <font color="#000080">VAR </font>PORTB.<font color="#808080">4
</font><font color="#000080">INCLUDE </font><font color="#FF0000">"modedefs.bas"
</font>Counter <font color="#000080">VAR BYTE
</font>Synk <font color="#000080">VAR BYTE
</font>Synk = <font color="#808080">$55
</font><font color="#000080">DEFINE </font>CHAR_PACING <font color="#808080">1000
</font>Counter = <font color="#808080">0
</font>Main:
<font color="#000080">HIGH </font>LEDPin
<font color="#000080">PAUSE </font><font color="#808080">100
</font><font color="#000080">LOW </font>LEDPin
<font color="#000080">PAUSE </font><font color="#808080">100
</font><font color="#000080">SEROUT </font>TransmitterPIN,T1200,[Synk,Synk,Synk,Synk,Synk,Synk,<font color="#808080">9</font>,Counter]
<font color="#000080">HIGH </font>LEDPin
<font color="#000080">PAUSE </font><font color="#808080">100
</font><font color="#000080">LOW </font>LEDPin
<font color="#000080">PAUSE </font><font color="#808080">100
</font>Counter = Counter + <font color="#808080">1
</font><font color="#000080">PAUSE </font><font color="#808080">600
</font><font color="#000080">GOTO </font>Main
<font color="#000080">END
</font></code></pre><!--EndFragment--></body>
</html>
Reciver PIC16F872 with 20 MHz OSC
Code:
<html>
<head></head>
<body><!--StartFragment--><pre><code><font color="#008000"><i>
</i></font><font color="#000080">DEFINE </font>OSC <font color="#808080">20
</font><font color="#000080">DEFINE </font>LCD_COMMANDUS <font color="#808080">3000 </font><font color="#008000"><i>'Set command delay time in us
</i></font><font color="#000080">DEFINE </font>LCD_DATAUS <font color="#808080">200 </font><font color="#008000"><i>'Set data delay time in us
</i></font><font color="#000080">INCLUDE </font><font color="#FF0000">"modedefs.bas"
</font>Counter <font color="#000080">VAR WORD
</font>ReciverPIN <font color="#000080">VAR </font>PORTC.<font color="#808080">0
</font>ADCON1 = <font color="#808080">7 </font><font color="#008000"><i>' Alla digitala
</i></font><font color="#000080">PAUSE </font><font color="#808080">500
</font>Main:
<font color="#000080">SERIN </font>ReciverPIN,T1200,[<font color="#808080">9</font>],Counter
<font color="#000080">GOSUB </font>LCD
<font color="#000080">GOTO </font>Main
LCD:
<font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">1
</font><font color="#000080">LCDOUT </font><font color="#808080">$FE</font>,<font color="#808080">$80</font>,#Counter
<font color="#000080">PAUSE </font><font color="#808080">500
</font><font color="#000080">RETURN
END
</font></code></pre><!--EndFragment--></body>
</html>
It´s working very well whit in the rance of 50 - 60 meters whit the transmitter indoors and the reciver outdoors, but when i take the reciver also indoors in a house 50 - 60 meters away from the transmitter the counter on the reciver display starts to show wrong numbers sometimes but it´s still counting... but whit the reciver outdoors it does not miss a single number whit in 50 - 60 meters.
Any idé how i can to improve my code?
I´going to do some more tests to tomorrow, it´s soon time to sleep here in sweden...
Bookmarks