B4R Question IRremote - how to send

Tayfur said:

Hello @derez ;
could you share for us IR circuit with ardiuno (ESP) board.

Click to expand...

 ...
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
...

Erel said:

It is fixed.

Click to expand...

derez said:

View attachment 49142

B4X:

 ...
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
...

I use d1.D1 and d1.D2 for pins 3 & 4 because this is how my Chinese Wemos D1 likes it...


It works in the application but not for the accessory...
When I use irsend.SendNEC it works (a TV) but not with the RawBuffer. I guess there are more parameters involved. Actually I am not going to use anything like controlling my AirCondition or TV away from home, so I put this issue aside.
Thank you

Click to expand...

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

result: 3 - 1151 - 24
20
18
19
35
36
35
19
18
19
18
36
18
19
18
18
18
19
18
19
18
19

Click to expand...

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