Und schon wieder stehe ich vor einem kleinen Problem.
Ich hab die Doku Cread/Cwrite mir schon zu Gemüte geführt und auch schon Programme aus diesem Forum.
Das CWrite klappt super,es kommt am Hyperterminal an, nur die Read funktion noch nicht!
Ich möchte wenn ich am Terminal auf 5 drücke das er kurz vor und zurück fährt. Und später sollen dann X,Y, und ein Winkel von meinem Programm übertragen werden.
Ach und die Progammierung verstehe ich noch nicht so ganz, ich habe jetzt alles in die src datei geschrieben, wird das dann alles auf die dat Datei paralles übertragen?
Hier mein Programm:
;-------Deklarationen
EXT BAS (BAS_COMMAND :IN,REAL :IN )
INT HANDLE, Offset
REAL Timeout
DECL CHAR c
DECL CHAR d
DECL CHAR z
Real R_Wert
Bool B_Wert
DECL STATE_T Lesestatus, Schreibstatus, Closestatus, Auswertstatus, Verarbeitungsstatus
DECL MODUS_T Lesemodus, Schreibmodus
CHANNEL :xprechner :SER_2 $PSER_2 ;Zuweisung einer Variablen an den Kanal
;------Initialisierung
BAS (#INITMOV,0 ) ;Ini von Geschw. Beschl. Koordiatensystem
Schreibmodus=#SYNC ;synchrone Datenuebertragung
Lesemodus=#ABS ;aktives Lesen intialisieren
c="A"
d="B"
;-------Hauptprogramm
COPEN(:xprechner, HANDLE) ;Kanal oeffnen
IF (HANDLE==0) THEN ;falls kein Kanal geoeffnet wurde
HALT ;dann Programmstop
ENDIF
CWRITE(HANDLE, Schreibstatus,Schreibmodus,"%c%c",c,d)
CREAD(HANDLE, Lesestatus,Lesemodus,"%c",z)
IF (z==5) THEN
PTP HOME Vel= 100% DEFAULT
LIN P1 Vel = 2m/s CPDAT1 Tool[1] Base[0]
PTP HOME Vel= 100% DEFAULT
ENDIF
CCLOSE(HANDLE, Closestatus); Kanal schließen