což se ovšem netýká problému podtečení ale to neva, hlavně žes to zjistil.
Pár připomínek:
1. Když něco voláš přes
gosub
, tak to něco musí končit return
em. Ty tam ale ve všech těch (barva)op máš skok zase na začátek toho podprogramu.2. místo
Kód: Vybrat vše
start:
...
goto start
Kód: Vybrat vše
DO
...
LOOP
V rozhodování z ovladače:
Kód: Vybrat vše
case 6
gosub spocitej
pwmduty modra,pontb
case 7
gosub spocitej
pwmduty zluta,pontb
case 8
gosub spocitej
pwmduty lustr,pontb
Kód: Vybrat vše
spocitej:
irin [3000,ovladac],ir,irb
select case irb
case 17
IF pontb < 11 THEN let pontb=0 ENDIF
IF pontb > 10 THEN let pontb=pontb-10 ENDIF
case 16
let pontb=pontb+10 max 1023
case 73
pontb=1023
case 74
pontb=0
end select
let irb=0
return