B4R Question IRremote - how to send

[derez]

I have successfully decoded a remote signal - NEC (1) with value 551489775.
Now I want to send it by the ESP instead of the remote. How do I tell the application what to send ? I use sendNEC but what is m built of ?

I have another remote (the AC control !) which gives an unknown result and the values are inconsistent, so it needs a raw data to be logged and then sent. How can I do that ?

 

[Erel]

The nbit parameter sets the number of bits that should be sent. Try to pass 32.

The raw data is currently not exposed in the library. I will try to add this feature next week.

 

[derez]

I don't understand.

Sub Timer1_Tick
   Dim m As UInt = Bit.And(Millis, 0xffffffff) 'get 32 bits
   Log("sending: ", m)
   irsend.SendNEC(m, 32)
End Sub

How do I tell the code to send this value 551489775 (which is what I have decoded for a specific signal) ?

 

[Erel]

Dim m As ULong = 551489775
irsend.SendNEC(m, 32)

 

[miker2069]

We should be able to use external C code for the IR RAW sending/reading correct? Until you implement IR RAW features?

 

[Erel]

Please try it with the attached library (v1.10). There is a new IRResult.RawBuffer field and IRSend.SendRaw method. I haven't tried it myself.

 

[Cableguy]

I EREL, How do we use the new raw data feature?

When I try

Log("result: ", Result.RawBuffer)

I get "type not supported(type=Uint, Rank=1, RemoteObject=True)"

Can we have an example on how to read and send raw data!?

 

[Erel]

You can send it with IRSend.SendRaw.

You can log it with:

Dim bc As ByteConverter
Log(bc.HexFromBytes(bc.UIntsToBytes(Result.RawBuffer)))

 

[derez]

I get a softreset when copying the result.rawbuffer to a global buffer.
It goes OK when I send the result buffer after it is recorded, but I have to record the result buffer for later use, not send it immediately...
Just by direct allocation I get this error msg:

Error description: Cannot set a Const variable (global non-primitive variables are always constants).
Occurred on line: 31
recbuffer = Result.RawBuffer

When I copy the contents one by one in a loop I still get the reset.
It happens with two remote-controls.

This is the code:

Sub Process_Globals
   Public Serial1 As Serial
   Private ir As IrReceive
   Private irsend As IrSend
   Private d1 As  D1Pins
   Private pinbtn As Pin
   Private recbuffer(100) As UInt
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   ir.Initialize(d1.D6, "ir_Decoded") 'receiver is connected to pin 6, GND and 5v (or 3.3v on ESP8266)
   ir.Enable
   pinbtn.Initialize(d1.D1, pinbtn.MODE_INPUT_PULLUP)   ' pin 3
   pinbtn.AddListener("StateChangedSub")
   irsend.Enable(d1.D2, 38) 'frequency = 38khz  pin 4
End Sub

Private Sub ir_Decoded (Result As IrResult)
   Log("result: ", Result.DecodeType, ", ", Result.Value)
    For i = 0 To Result.RawBuffer.Length - 1
         recbuffer(i) = Result.RawBuffer(i)
        Log(i, "  " , recbuffer(i))
    Next
End Sub

Sub StateChangedSub(state As Boolean)
    Log(state)
    If state = False Then
        irsend.SendRaw(recbuffer, 38)
    End If
End Sub

The log is:

...
94 20
95 0
96 20
97 0
98 21
99 0
0
Soft WDT reset
ctx: cont
sp: 3ffef690 end: 3ffef8f0 offset: 01b0
>>>stack>>>
3ffef840: 3ffef870 3ffef850 00000004 40202169
3ffef850: 3ffee6f4 00000038 3ffee6e8 402021fb
3ffef860: 00000129 00000000 3ffee6f0 3ffee8bc
3ffef870: 00000000 00000000 3ffee420 402031c4
3ffef880: 00000000 00000000 3ffee420 40202f94
3ffef890: 3fffdad0 00000000 3ffee6dc 40201c20
3ffef8a0: 00000000 3fff0d54 3ffee5f4 40202db0
3ffef8b0: 00000000 3ffee5fc 00000000 40202e1b
3ffef8c0: 3fffdad0 00000000 3ffee8b4 402031ef
3ffef8d0: feefeffe feefeffe feefeffe 40203a9c
3ffef8e0: feefeffe feefeffe 3ffee8d0 40100718
<<<stack<<<
ets Jan 8 2013,rst cause:2, boot mode3,6)
load 0x4010f000, len 1384, room 16
tail 8
chksum 0x2d
csum 0x2d
v09f0c112
~ld

AppStart

Edit:
I made a global of "Private myresult As IrResult" and it was accepted by this line

Private Sub ir_Decoded (Result As IrResult)
   Log("result: ", Result.DecodeType, ", ", Result.Value)
     myresult.RawBuffer = Result.RawBuffer
 
    Delay(1000)
    irsend.SendRaw(myresult.RawBuffer, 38)
    Log("sent")
End Sub

but when sent by the button event it also crashes.

 

[Erel]

What is the length of Result.RawBuffer?

Note that you can use ByteConverter.ArrayCopy to copy the array. However the allocated global array must be large enough.

 

[derez]

Length is according to the recorded result buffer length.
I use this and it does not work (crash):

  ...
Private recbuffer(136) As Byte
Private first As Boolean = True
...

Private Sub ir_Decoded (Result As IrResult)
   If first Then
       Log("result: ", Result.DecodeType, ", ", Result.Value, " size ",Result.RawBuffer.Length)
       bc.ArrayCopy(bc.UIntsToBytes(Result.RawBuffer),recbuffer)
        Log(recbuffer.Length)
        first = False
    End If
End Sub

Sub StateChangedSub(state As Boolean)
    Log(state)
    If state = False Then
        Log("size ", recbuffer.Length)
        irsend.SendRaw( bc.UIntsFromBytes(recbuffer), 38)
    End If
End Sub

 

[Erel]

What is the output of:

Log("result: ", Result.DecodeType, ", ", Result.Value, " size ",Result.RawBuffer.Length)

 

[derez]

result: 1, 551489775 size 68
The bytes buffer hence is 68*2 = 136

 

[Erel]

Try to increase #StackBufferSize to 1000.

 

[derez]

No, not even when increased to 1500
חג שמח !

 

[Erel]

Try to find the exact statement that causes it to crash. Add Delay calls between the statements.

Dim b() As Byte = bc.UIntsToBytes(...)
Log("1")
Delay(50)
bc.ArrayCopy(b, recbuffer)
Log("2")
Delay(50)

 

[derez]

Sorry for not making myself clear, the crash is in this:

irsend.SendRaw( bc.UIntsFromBytes(recbuffer), 38)

no matter if it is in the recording sub or the transmit sub.
Sending the recorded Result.RawBuffer succeeds.

 

[Erel]

What I tried to understand is whether the error is in:
bc.UIntsFromBytes(recbuffer)

Or:
irsend.SendRaw(...)

I guess that it is in SendRaw call, right?

 

[derez]

I guess that it is in SendRaw call, right?

I have tested with delays and log and the answer is Yes (it comes from the SendRaw method).

Dim temp() As UInt = bc.UIntsFromBytes(recbuffer)
Log("OK")
Delay(2000)
irsend.SendRaw(temp , 38)

 

[Erel]

The array type in the library was incorrect. It should be ULong instead of UInt.

V1.11 is attached.