Hallo,
Muss euch mal wieder nerven...
Hab dieses Prog aufm Rechner gefunden und ein bischen umgeschrieben... bekomme jedoch die Fehlermeldung:
Sollgeschwindigkeit A4!??
Warum???
DEF TEST()
EXT BAS (BAS_COMMAND :IN,REAL :IN)
DECL AXIS HOME
INT dx, dy, HANDLE, Offset
REAL TIMEOUT
DECL CHAR Eingabe[30]
DECL CHAR Form[10]
DECL STATE_T Lesestatus,Schreibstatus, Closestatus, Auswertstatus, Verarbeitungsstatus
DECL MODUS_T Lesemodus, Schreibmodus
;--------Ini
BAS(#INITMOV, 0)
HOME={AXIS: A1 0,A2 -90,A3 90,A4 0,A5 0,A6 0}
Schreibmodus=#SYNC
Lesemodus=ABS
Timeout=10
dy=0
dx=0
WartePos={X -864,Y -916,Z 680,A 47.57,B 4.46 ,C 179.96,S'B010',T'B000010'}
;---------------Hauptprogramm
LOOP
COPEN(:SER_2,HANDLE)
IF(HANDLE==0) THEN
HALT
ENDIF
Satzanfang=0
CREAD(HANDLE,Lesestatus,Lesemodus,Timeout,Satzanfang,"%s", Eingabe[])
Form[]="%02d"
Offset=1
SREAD(Eingabe[],Auswertstatus,Offset,Form[],dx)
Form[]="%02d"
Offset=5
SREAD(Eingabe[],Auswertstatus,Offset,Form[],dy)
WartePos.X = WartePos.X+dx
WartePos.Y = WartePos.Y+dy
WAIT SEC 1.0
PTP HOME
LIN WartePos
PTP HOME
END