ich halte es für unhöflich eine halbe meile quellcode zu posten, der dazu noch größtenteils unkommentiert ist. nicht darauf hinzuweisen an welcher stelle der fehler auftritt und keine angaben zu machen was du bisher probiert hast um den fehler zu finden.
Da stimme ich dir im Prinzip völlig zu. ABER was Terabyte hier gepostet hat ist ein Programm für Robby CRP.
Der grösste Teil des Codes sind die Standardroutinen die in jedem Demo-Programm von Robby CRP enthalten sind.
Jemanden der sich mit Robby CRP auskennt - das ist vermutlich die Zielgruppe der Frage - wird die paar Zeilen die Terabyte da selber geschrieben, bzw. geändert hat sicherlich auch ohne Kommentierung sofort herausfinden.
Leider gehöre ich nicht zu denen die sich besonders gut damit auskennen und sehe nicht wo der Fehler ist.
Ich habe aber mal den Teil extrahiert in dem der Fehler meiner Meinung nach versteckt sein muss.
Code:
'---------- INIT---------------
gosub SUBSYS_PWR_ON
beep 368,10,0:pause 50
gosub NO_ACS_INT:beep 368,10,0:SYS ACS_MAX
'------------ ANTRIEB -------------------------
REV_L=on:REV_R=on:SYS PLM_SLOW
'--------------------------------------------
'--- WEGSTRECKENZÄHLER ---
'--------------------------------------------
gosub CLR_DISTANCE:gosub LEDSOFF:gosub move_fwd
#NO_TASK
pause 5:SYS COMNAV_STATUS
gosub L_DISTANCE
if LBYTE=5 then gosub LED1ON
if LBYTE=20 then gosub LED2ON
if LBYTE=45 then gosub LED3ON
if LBYTE=60 then goto links
goto NO_TASK
'--------------------------------------------
#links
gosub CLR_DISTANCE:gosub LEDSOFF:gosub MOVELINKS
#NO_TASK2
pause 5:SYS COMNAV_STATUS
gosub L_DISTANCE
if LBYTE=2 then gosub LED1ON
if LBYTE=10 then gosub LED2ON
if LBYTE=20 then gosub LED3ON
if LBYTE=30 then gosub MOVERECHTS:goto stop
goto NO_TASK2
'-------------------------------------------
#MOVELINKS
SYS FWDR:SYS FWDL:SPEED_L=70:SPEED_R=155:return
#stop
gosub LED4ON:SYS FWDR:SYS FWDL:SPEED_L=0:SPEED_R=0:end
#move_fwd
SYS FWDR:SYS FWDL:SPEED_L=155:SPEED_R=155:return
'---------------------------------------------
Lesezeichen