hi C,
One reason why your results are hit/miss, you are sending "0" 0x0d, 0xoa ie: "0"<crlf>.
But you are only reading one byte at the receiver, leaving 0x0d,0x0a in the rx buffer.
I'm still working on the revised program.
E

 

hi C.
Try these two Basic programs [ currently set for SIM ], they work OK in Sim.
Make sure both TX and RX programs are either set for Sim or PIC.

The advantage of this method is that the number of Commands can be easily increased.
E
EDIT:
To Send to RXR
In Simulation the ? is seen as a LF
$0? or
$1?

The PIC RXR code will detect either the ? or LF as a end of msg terminator.
[No need to edit the code]

 

hi C.
Try these two Basic programs [ currently set for SIM ], they work OK in Sim.
Make sure both TX and RX programs are either set for Sim or PIC.

The advantage of this method is that the number of Commands can be easily increased.
E
EDIT:
To Send to RXR
In Simulation the ? is seen as a LF
$0? or
$1?

The PIC RXR code will detect either the ? or LF as a end of msg terminator.
[No need to edit the code]

Hi E,
Thanks, I'm just working through them both.
Glad you sent the EDIT
In PCB should it be:
main:
If button = 1 Then 'BUTTON NOT PRESSED
rled = 0
yled = 1
Hserout "$0", CrLf
Endif
WaitMs 500

If button = 0 Then 'BUTTON PRESSED
rled = 1
yled = 0
Hserout "$1", CrLf
Endif
WaitMs 500
Goto main

OR'------------------------------------------------------------------------------------
main:
If button = 1 Then 'BUTTON NOT PRESSED
rled = 0
yled = 1
Hserout $0, CrLf
Endif
WaitMs 500

If button = 0 Then 'BUTTON PRESSED
rled = 1
yled = 0
Hserout $1, CrLf
Endif
WaitMs 500
Goto main

C.

 

hi C,
Unless I am losing it,
The two clips you posted are the same.??

Where is the RXR clip.?
E

main:
get_led:
rxi = 0
If RCSTA.OERR = 1 Then 'RCSTA BIT1-if over run error then flush RXD buffer
RCSTA.CREN = 0
RCSTA.CREN = 1
char = RCREG
PIR1.RCIF = 0
Endif

sync1: 'wait for a '$' start of string
If PIR1.RCIF = 0 Then Goto sync1
char = RCREG

If char <> 0x24 Then Goto sync1 '$'
str1(1) = char 'STR1 ARRAY
rxi = 2

get_msg: 'read and save
If PIR1.RCIF = 0 Then Goto get_msg
char = RCREG
str1(rxi) = char 'STR1 ARRAY
rxi = rxi + 1

If char = 0x0a Or char = 0x3f Then Goto decode 'tests for either LF or ?
Goto get_msg

decode:

If str1(2) = "0" Then
Hserout "Red Off,,,Yw On: ", CrLf
rled = 0
yled = 1
Endif

If str1(2) = "1" Then
Hserout "Red On,,,Yw Off: ", CrLf
rled = 1
yled = 0
Endif

Goto main
End

 

hi C,
Unless I am losing it,
The two clips you posted are the same.??

Where is the RXR clip.?
E

main:
get_led:
rxi = 0
If RCSTA.OERR = 1 Then 'RCSTA BIT1-if over run error then flush RXD buffer
RCSTA.CREN = 0
RCSTA.CREN = 1
char = RCREG
PIR1.RCIF = 0
Endif

sync1: 'wait for a '$' start of string
If PIR1.RCIF = 0 Then Goto sync1
char = RCREG

If char <> 0x24 Then Goto sync1 '$'
str1(1) = char 'STR1 ARRAY
rxi = 2

get_msg: 'read and save
If PIR1.RCIF = 0 Then Goto get_msg
char = RCREG
str1(rxi) = char 'STR1 ARRAY
rxi = rxi + 1

If char = 0x0a Or char = 0x3f Then Goto decode 'tests for either LF or ?
Goto get_msg

decode:

If str1(2) = "0" Then
Hserout "Red Off,,,Yw On: ", CrLf
rled = 0
yled = 1
Endif

If str1(2) = "1" Then
Hserout "Red On,,,Yw Off: ", CrLf
rled = 1
yled = 0
Endif

Goto main
End

Hi E,
What is the last R in RXR?

When you say two clips the same, are you refering to #23, If so one has quotation marks, "$1" the other $1 or is it "$1?" or "$1LF" or no quotation marks at all?

I'll try again tomorrow.

C.

 

hi C,
The shortened, lazy way of writing the expression Receiver, is RXR.
Transmitter TXR.

E

 

Hi E,
I'm even lazier than that I use TX and RX.

Your RX works in SIM

In the TX I tried "1" and "$1"
TX is transmitting, here's a terminal view:

Between the two modules ther's no ON/OFF.
C

 

hi C,
I don't understand what you are describing.??

Sending "1" without the '$' prefix is a waste of time.

E

 

hi C,
I don't understand what you are describing.??

Sending "1" without the '$' prefix is a waste of time.

E

Hi E,

IN SIM:
I've tried: Hserout "$1?", CrLf
This works.

ON PCB:
I'm using the MAIN LOOP from your #22 TX1
I've also tried Hserout "$1", CrLf
NO LED on RX.
Perhaps I've missed something, I'll recheck.

C.

 

hi C,
I assume the TX and RX are on the same channel.? and that channel is not being used by some other local persons TX/RX.?
Also the Baud rates are the same, I use 9600.?
I have my Power at P8, which is the highest specified power.

How far apart are the TX and RX modules.??

E

 

hi C,
I assume the TX and RX are on the same channel.? and that channel is not being used by some other local persons TX/RX.?
Also the Baud rates are the same, I use 9600.?
I have my Power at P8, which is the highest specified power.

How far apart are the TX and RX modules.??

E

Hi E,
Same channel, tick
9600 , tick
correct range , tick
frequency--------------OOOps

Working now, thanks.
C.

 

hi C.
Pleased to hear it works OK.
If required you can now add more commands to the TX msg and decode them in the RX.
eg:
TX = $01<crlf> ' the state of two different p/b's

RX, check the str1(2) and str1(3) array locations and set LEDs' On Off, etc...

OK.?
E

If str1(2) = "0" Then
Hserout "Red Off,,,Yw On: ", CrLf
rled = 0
yled = 1
Endif

If str1(2) = "1" Then
Hserout "Red On,,,Yw Off: ", CrLf
rled = 1
yled = 0
Endif

If str1(3) = "0" Then
Hserout "Green Off,,,Blue On: ", CrLf
rled = 0
yled = 1
Endif

If str1(3) = "1" Then
Hserout "Green On,,,Blue Off: ", CrLf
rled = 1
yled = 0
Endif
E

 

hi C.
Pleased to hear it works OK.
If required you can now add more commands to the TX msg and decode them in the RX.
eg:
TX = $01<crlf> ' the state of two different p/b's

RX, check the str1(2) and str1(3) array locations and set LEDs' On Off, etc...

OK.?
E

If str1(2) = "0" Then
Hserout "Red Off,,,Yw On: ", CrLf
rled = 0
yled = 1
Endif

If str1(2) = "1" Then
Hserout "Red On,,,Yw Off: ", CrLf
rled = 1
yled = 0
Endif

If str1(3) = "0" Then
Hserout "Green Off,,,Blue On: ", CrLf
rled = 0
yled = 1
Endif

If str1(3) = "1" Then
Hserout "Green On,,,Blue Off: ", CrLf
rled = 1
yled = 0
Endif
E

Hi E,
I'm now thinking about many uses, better stop for now.
I'll come back to this later, as I'm recalling the Tracker with comma positions too.
Cheers, C.

 

hi C,
You cannot connect two TXD driver outputs together.
Connecting two RXD's reading inputs is OK, I often do that for monitoring.

Post a short Oshonsoft Basic program, say driving just two LED' s Red, Yellow I can check it for you.
E

Hi E,
I have some switching components in a 'basket' that will switch between two inputs into one, then I re-read your message.
As it is the RX that needs two inputs, I don't need to buy the switches, good!
Thanks, C

 

hi C,
Do you mean like this image.?
If Yes, it is OK.
I assume we are talking all at TTL Serial levels.?
E

Your description sounds incorrect.

 

hi C,
Do you mean like this image.?
If Yes, it is OK.
I assume we are talking all at TTL Serial levels.?
E
View attachment 151219

Hi E,
Like this:

All 3.3v

C.

 

Hi C.
Huh.???
Please post an image marked up showing the signal details.
E

 

hi C,
Repeating my earlier note:
You cannot connect two TXD driver outputs together.

E

 

hi C,
Repeating my earlier note:
You cannot connect two TXD driver outputs together.

E

Hi E,
OK.
I am always getting them mixed up.
I'll carry on ordering the switches, thanks.
C.

 

hi C,
Have you considering using a Software serial input, using Oshonsoft Basic.?
I have used the Hardware and another Software Uart on a number of PIC projects

Clip from Manual;
DEFINE SEROUT_DELAYUS = 5000
SEROUT PORTC.6, 1200, "Hello world!", CrLf
DIM I AS BYTE loop:
SERIN PORTC.7, 9600, I
SEROUT PORTC.6, 9600, "Number: ", #I, CrLf
GOTO loop

E