VS1838B remote

[andybarrett1]

Pulsin works great. Heck, I just used the first part of that rentron code and did this with it --
I get a perfect momentary on/off with a bit of needed pause.


Main:
PULSIN PORTB.0,0,Leader ' leader pulse is ~9mS low-going
IF Leader < 850 THEN
LOW PORTB.2
GOTO Main
ENDIF

IF LEADER > 850 THEN
HIGH PORTB.2
PAUSE 300
ENDIF

LEADER = 0
PAUSE 100

GOTO MAIN

Just a question ......Why:-

GOTO Main
ENDIF

I would assume the other way round .....Genuine question. I can never understand software fully :-)

Andy

[mpgmike]

I think it's a method of skipping other IF/THEN options.

It could also be structured with...

IF This THEN
do something
ELSEIF That THEN
do something else
ELSE None of the above
Don't do anything
ENDIF

Only 1 option will be selected, forcing a break from the test once a match is found.

[andybarrett1]

I think it's a method of skipping other IF/THEN options.

It could also be structured with...

IF This THEN
do something
ELSEIF That THEN
do something else
ELSE None of the above
Don't do anything
ENDIF

Only 1 option will be selected, forcing a break from the test once a match is found.

Got it

Thank you

[Michael]

it's working fine but I added leader = 0 to clear it out (duh)
should have thought of that.
I need to put the breadboard in the sunshine and see if it stays stable.
if not, I'll just add his decoding the bytes data

kind of nice using any button on the remote

Main:
PULSIN PORTB.0,0,LEADER ' leader pulse is ~9mS low-going
IF Leader < 850 THEN
LOW PORTB.2
LEADER = 0
GOTO Main
ENDIF

and yes, could have used else but so simple just wanted to see if functions.

[Ioannis]

Another one for F675 chip

'*  Author  : Craig S Gardner, Modified by Jonathan Peakall to  *
'*          : allow baud rate selection.                        *
CMCON = 7             ' Comparators OFF
ANSEL = 0             ' A/D OFF -- Port pins all digital
TRISIO = %010000    ' All I/O but GPIO3 = outputs
GPIO = %000000      ' All 0 on boot


sBaud var byte
IRpulse_length var word(13)
xx var Byte
Command	Var	Byte
Device Var Byte
input gpio.3
'clear
pause 500
sbaud = 2
if gpio.3 = 1 then
  sBaud = 2
endif

if gpio.3 = 0 then
   sBaud = 0
endif

Getstartbits: 
PuLSIN GPIO.1,0,IRpulse_length(0)
if IRpulse_length(0) < 200 then
goto getstartbits
Endif

for xx=1 to 12
pulsin GPIO.1,0,IRpulse_length(xx)
next  xx



displaybits: 
if IRpulse_length(1) < 100 then
Command.bit0 = 0 
Else	
Command.bit0 = 1
endif
if IRpulse_length(2) < 100 then
Command.bit1 = 0 
Else	
Command.bit1 = 1
endif
if IRpulse_length(3) < 100 then
Command.bit2 = 0 
Else	
Command.bit2 = 1
endif
if IRpulse_length(4) < 100 then
Command.bit3 = 0 
Else	
Command.bit3 = 1
endif
if IRpulse_length(5) < 100 then
Command.bit4 = 0 
Else	
Command.bit4 = 1
endif
if IRpulse_length(6) < 100 then
Command.bit5 = 0 
Else	
Command.bit5 = 1
endif
if IRpulse_length(7) < 100 then
Command.bit6 = 0 
Else	
Command.bit6 = 1
endif
Command.bit7 = 0 
Command = Command + 1
If Command = 10 then
Command = 0
Endif



if IRpulse_length(8) < 100 then
Device.bit0 = 0 
Else	
Device.bit0 = 1
endif
if IRpulse_length(9) < 100 then
Device.bit1 = 0 
Else	
Device.bit1 = 1
endif
if IRpulse_length(10) < 100 then
Device.bit2 = 0 
Else	
Device.bit2 = 1
endif
if IRpulse_length(11) < 100 then
Device.bit3 = 0 
Else	
Device.bit3 = 1
endif
'Device.bit1 = 0



SEROUT GPIO.0,sbaud,[Device,Command]
pause 100 
goto Getstartbits

Ioannis

[Ioannis]

And another one, very educative.

Controlling the world_SIRC.pdf

Ioannis

[Michael]

Thanks Ioannis. That pdf will be my reading later. I may want to do more sophisticated RC stuff also.
This simple on/off is working great -- only sees NEC remotes. Tried others and no go which is good.
I suppose you could even set up another counter to get simple on/offs on other pins, press twice within 10 seconds and so on.
But not going there.