SR1 V5.1 Gelenkarmroboter

[.:Sebastian:.]

Moin

Im Prinzip hab ich nix anderes gesagt als Charly.
Wait bringt dich nicht weiter, du kannst stattdessen eine For-Schleife nehmen.

10000 for i = 1 to 1000
10001 next i
10002 return

Und dann zum warten Gosub 1000

Sebastian

[Charly2006]

Hallo Sebastian
ich denke das der Fehler nicht in der Wait Routine ( For-Next schleife) liegt.
Ich glaube das der Feher in den Print anweisungen liegt.

Der RN Controler braucht immer ein Zeilenende !! , wenn hinter jeden print befehle am Schluß ein Semicolon gesetzt ist ( wie ganz oben im Code) so wird dieses nicht mit gesendet.

original
105 PRINT #1,CHR$(12;CHR$(1);CHR$(0);CHR$(0);CHR$(5);

Code ohne Semicolon am Ende !!!!!!
105 PRINT #1,CHR$(12;CHR$(1);CHR$(0);CHR$(0);CHR$(5)

Deswegen funktioniert der Code so nicht.

mfg Charly

[.:Sebastian:.]

Moin Moin

Ja so viel Basic kann ich nach 5 Jahren auch noch gerade so selber.

Sag das net mir sondern SR1 V5.1.

mfg
Sebastian

[Charly2006]

Hallo Sebastian
ich meinte eigentlich SR1 V5.1
und wollte dir nicht zu nahe treten.

mfg Charly

[SR1 V5.1]

vielen dank an euch ihr habt mir sehr weitergeholfen und es funktioniert einwandfrei !!!

hier der code damit es läuft:

10 KEY OFF
20 CLS
30 OPEN "COM1:9600,N8,1,CS,DS" AS #1

40 PRINT #1,CHR$(128);CHR$(1);CHR$(0);CHR$(0);CHR$(5);
50 PRINT #1,CHR$(128);CHR$(1);CHR$(1);CHR$(0);CHR$(20);
60 PRINT #1,CHR$(128);CHR$(1);CHR$(2);CHR$(0);CHR$(72);
69 GOSUB 70

70 FOR I=1 TO 15000
71 NEXT I
72 RETURN 73
73 GOTO 140

140 PRINT #1,CHR$(128);CHR$(1);CHR$(0);CHR$(0);CHR$(5);
150 PRINT #1,CHR$(128);CHR$(1);CHR$(1);CHR$(0);CHR$(20);
160 PRINT #1,CHR$(128);CHR$(1);CHR$(2);CHR$(0);CHR$(13);

170 FOR I=1 TO 15000
171 NEXT I
172 RETURN 173
173 GOTO 200

200 GOTO 40

danke[/code]

[SR1 V5.1]

http://www.youtube.com/user/YellowSR1