Citazione:
Originalmente inviato da sim176  ANSEL = 0 ' Set all digital
CMCON = 7 ' Analog comparators off
WO var byte
loop:
pulsin GPIO.3,1,WO
if WO < 111 then goto seq1
if WO > 111 then goto seq2
goto loop
seq1:
high 1
pause 500
goto loop
seq2:
high 2
pause 500
goto loop
End |
prova così
ANSEL = 0 ' Set all digital
CMCON = 7 ' Analog comparators off
WO var byte
symbol led1 = gpio.1
symbol led2 = gpio.2
loop:
pulsin GPIO.3,1,WO
if WO < 111 then goto seq1
if WO > 111 then goto seq2
goto loop
seq1:
led1=1
pause 500
led1=0
goto loop
seq2:
led2=1
pause 500
led2=0
goto loop
Saluti