Hier sind die Unterprogs die ich oben angesprochen hatte:
Ich muss aber betonen, dass die Unterprogs alleine nicht funktionsfähig und wenn man sie mit Robby ausführt, kann es zu Beschädigungen an ihm kommen. Ich übernehme keine Haftung!
Code:
#fahren    'benötigt INBYTE für die Strecke die zurückzulegen ist und ACS
if LBYTE=INBYTE then gosub stop
SYS FWDR:SYS FWDL:SPEED_L=155:SPEED_R=155
if (ACSL_F and ACSR_F)=on then gosub rotate
if ACSL_F=on then gosub move_right
if ACSR_F=on then gosub move_left
goto fahren

#stop
SYS FWDR:SYS FWDL:SPEED_L=0:SPEED_R=0:return

#move_right
SPEED_R=100:SPEED_L=255:return

#move_left
SPEED_L=100:SPEED_R=255:return

#rotate
SPEED_L=150:SPEED_R=150:SYS ROTR:return
Das sind also die Unterprogs mit denen es möglich sein sollte das Prog zu schreiben.
Ich versuche es jetzt.Mal sehen was dabei herrauskommt.

Gruß dj

ich hab ein Unterprog vergessen gehabt, hier ist es:
Code:
#micro
for GP=1 to 100
SAMPLE=MIC
if SAMPLE > HSAMPLE then HSAMPLE=SAMPLE
next
HSAMPLE=OUTBYTE:return