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: Season greetings
May this Christmas season bring cheer to your life. Merry Christmas
Jerson - 26th December 2025, 03:26