SR1 V5.1 Gelenkarmroboter

Moin

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

Code:

---

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

---

Und dann zum warten Gosub 1000

Sebastian

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$(128);CHR$(1);CHR$(0);CHR$(0);CHR$(5);

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

Deswegen funktioniert der Code so nicht.

mfg Charly

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

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

mfg Charly

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

hier der code damit es läuft:

Code:

---

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]

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