Now to something completely different

[Darrel Taylor]

Sorry, there must have been an error of some kind.

Many posts of the same message appeared.

Also edited the last message, since it no longer applied.

[ardhuru]

Thanks, Darrel.

I have no idea why my message got posted repeatedly.

I'm sorry for the inconvenience caused.

Regards,

Anand

[Ted's]

I accept your excuse.

Darrel, do you have a recommendation on how to proceed regarding the main issue?

[Ted's]

I proceeded in the past. I succeeded in creating the signal, but decoding using pbp is a challenge.
The code is rc5.
Here is the pbpcode. Receiver means TSOP1740, 1 = No signal, 0 = Signal:

Palm:
WHILE Receiver = 1
WEND  
WHILE Receiver = 0
WEND  
WHILE Receiver = 1
WEND  
ByteNumber = 5
WHILE ByteNumber > 0
--------Time = 0
--------WHILE Receiver = 0
----------------Time = Time + 1
----------------Pauseus 10
--------WEND
--------IF Time > 140 THEN
----------------DeviceNr.0[ByteNumber-1] = 0
--------ELSE
----------------DeviceNr.0[ByteNumber-1] = 1
--------ENDIF
--------ByteNumber = ByteNumber - 1
--------Time = 0
--------WHILE Receiver = 1
----------------Time = Time + 1
----------------Pauseus 10
--------WEND
--------IF Time > 140 THEN
----------------DeviceNr.0[ByteNumber-1] = 1
--------ELSE
----------------DeviceNr.0[ByteNumber-1] = 0
--------ENDIF
--------ByteNumber = ByteNumber - 1
WEND 
ByteNumber = 6
WHILE ByteNumber > 0
--------IF Receiver = 1 THEN
----------------Time = 0
----------------WHILE Receiver = 1
------------------------Time = Time + 1
------------------------Pauseus 10
------------------------If Time = 254 THEN
--------------------------------ByteNumber = 0
------------------------ENDIF
----------------WEND
----------------IF Time > 140 THEN
------------------------Content.0[ByteNumber-1] = 0
----------------ELSE
------------------------Content.0[ByteNumber-1] = 1
----------------ENDIF
----------------ByteNumber = ByteNumber - 1
--------ELSE
----------------Time = 0
----------------WHILE Receiver = 0
------------------------Time = Time + 1
------------------------Pauseus 10
----------------WEND
----------------IF Time > 140 THEN
------------------------Content.0[ByteNumber-1] = 1
----------------ELSE
------------------------Content.0[ByteNumber-1] = 0
----------------ENDIF
----------------ByteNumber = ByteNumber - 1
--------ENDIF
WEND
Goto Palm

Content and DeviceNr are always 0xFF. Why is this so?

If you have questions, ASK!

Thank you.

[Ted's]

To be continued here: http://www.picbasic.co.uk/forum/show...8443#post58443