Example code for IR component.

[pascalbythree]

Hey, does somebody have freepascal example code for me to read the TSOP31136 IR component ? Greets, PascalByThree

[ccrause]

I only have some C code to capture a bit stream from an IR remote (not worth sharing, there are many similar examples on the internet). There are several strategies for reading the pulse stream:

• use the input capture functionality (ICR) of a timer
• use a pin interrupt and read the timer when the interrupt fires
• read the pin state in a loop and log the duration of the high/low levels

This bit stream with timings can be replayed if you simply want to clone the behaviour of the captured signal.  Further protocol identification and decoding is also possible, but involve a bit more work.

If you elaborate on your requirements perhaps more specific help can be given.

[pascalbythree]

The arduino IDE seems to have plenty of options.


Does anybody got them in FPC ?

Otherwise it is not going to work out i am affraid.

Greets, Wouter

[MarkMLl]

Use an Arduino, or something comparable, to convert the device's bitstream into a bytestream that you can read via USB.

There's quite simply too many layers of detail to make it feasible to do this directly with a PC, particularly now that microcontrollers and their support components are so cheap.

MarkMLl

[ccrause]

The RCapture demo illustrates how to capture the demodulated signal from an infrared receiver.  The example only captures timing information of the marks and spaces, decoding this requires information of different protocols.  This is possible (there are existing Arduino examples), but the primary intent of this example is to illustrate how to capture the raw signal.

[pascalbythree]

Does compile and program, and responds to old television remote control within half a hour work or so..

Except that it seems to only receive weird data, see attachment.

I am using the TSOP31138 component.

Is it also going to work on 8 mhz ? Or is a 16mhz Cristal permitted ?

I did change the baud rate to 19200 baud.

Can anybody help further ?

[ccrause]

Does compile and program, and responds to old television remote control within half a hour work or so..

Except that it seems to only receive weird data, see attachment.

Please share your compiler version and the full compiler command line (in Lazarus it is under Project Options, click on Show Options).  There was a problem with optimization levels above -O2, I discovered it because of corrupted serial output when testing this code.

I am using the TSOP31138 component.

That should work  Ensure that Vs and ground are connected to the same power supply as the controller and that the OUT pin is connected to PB0.

Is it also going to work on 8 mhz ? Or is a 16mhz Cristal permitted ?

You can run the controller at 8 MHz, the timing will just be slow by a factor of 2.  Firstly update the F_CPU define to 8000000 (Project Options, Custom Options). Then multiply the measured tick counts by 8 (or shift left by 3):

Code: Pascal  [Select][+][-]

1.     uart_transmit_asstring(dword(data[2*i]) shl 3);
2. ...
3.     uart_transmit_asstring(dword(data[2*i+1]) shl 3);
4.  

I did change the baud rate to 19200 baud.

The serial monitor correctly detects the text, so no issues with the baud rate.  This also means that F_CPU is correct.

[pascalbythree]

Yay! tank you, tank you, tank you, tank you,  it seems to work for a step further.

Are these the right values?

Incase yes, How do i make a IF statement what button is pressed?

please respond Mr. ccrause / others, i am about there! Greets, Wouter

[ccrause]

Are these the right values?

Difficult to say whether it is correct or not without having an idea what the protocol may be.  What remote control are you testing (make and model number)?  The timing results doesn't match the NEC, RC5 or Sony protocols.
 

Incase yes, How do i make a IF statement what button is pressed?

To identify a button code reliably requires a few extra checks such as ensuring that a long enough quiet time preceded the start of the first bit, checking if the first pulse is a header pulse (if the protocol has one).  This is to ensure your timing sequence starts at the beginning of a transmission.

[ccrause]

Note that one can also visualize the IR remote signal using LazScope.  Below see an example trace of the power button on an LG DVD player remote.