Code:
loop:
if portb.1=0 then 'here is switch 1 of the rotary encoder
counter=counter+1
goto lcd
endif
if portb.0=0 then 'here is switch 2 of the rotary encoder
counter=counter-1
goto lcd
endif
goto loop
lcd:
lcdout $fe,$c0,dec5 counter
while (portb.0=0 or portb.1=0):pause 10:wend
goto loop
Common of the encoder is Low and Pull Up is supposed to be active.
Ioannis


Menu

Re: memory full
Dear Jerson and Henrik,
Gevo - 26th March 2026, 10:40Thanks for you input. It was 2 x 30 (1 x open and 1x close) routine's with all the same code.
I have made two routine's with four sub's linke Henrik code.
Close, Open...