Guru
Joined: 11/02/2018
Location: AustraliaPosts: 3127
| Posted: 01:16am 31 Aug 2024 |
Thanks Geoff and Marcel, after any problems or improvements have been sorted out I will post it on FOTS.
If anyone has other variants of the NEC protocol post them here and I will try to add them to the Sub.
As I have only one Samsung device to test on I would like to know if these programs work on others.
First Bug - MM.INFO(Pinno xx) is different on F4 to Pico. It gives the first pin of the Port, not the individual pin number.
By blind luck the pin I used was the first pin of that port so it worked.
For the F4 define IRpin this way:-
' "NECsend with option for Samsung32 variant.bas"
'Dim Integer IRpin = MM.Info(pinno GP0) 'for Picomite - set your output pin
Dim Integer IRpin = 23 '= PA0 for ArmMiteF4 - set your output pin
'Dim Integer IRpin = MM.Info(pinno GP0) 'for Picomite - set your output pin
Dim Integer IRpin = 23 '= PA0 for ArmMiteF4 - set your output pin
The Samsung receiver program has now been tested on the ArmMiteF4 using this setup:-
> LIST
' "Samsung32 IR code receiver - F4.bas"
' tested on ArmMiteF4 v5.07.02
Dim Integer IRpin = 1 '= PE2 <- set your pin
' "Samsung32 IR code receiver - F4.bas"
' tested on ArmMiteF4 v5.07.02
Dim Integer IRpin = 1 '= PE2 <- set your pin
Edited 2024-08-31 15:37 by phil99