Siemens SIMATIC FM 357-2 Handbuch Seite 563

Beispiele
; Es soll ein Programm zur Zeitmessung TestProg1 erzeugt werden.
; TestProg1 erzeugt wiederum ein Programm PROTOKOLL,
; hier wird die gemessene Zeit eingetragen
; Hinweis: zur besseren Übersichtlichkeit wurde auf die Auswertung
; des Returnwertes ERROR verzichtet
; Variablendefinition
N10 DEF INT ERROR
N20 DEF STRING[20] ProgName="TestProgr1.mpf"
N30 DEF STRING[50] SN10="N10 DEF STRING[50] STARTZ=' " ' Startzeit: ' " ' "
N40 DEF STRING[50] SN20="N20 DEF STRING[50] ENDEZ=' " ' Endezeit: ' " ' "
N50 DEF STRING[50] SN30="N30 DEF INT ERROR_2
N60 DEF STRING[50] SN40="N40 G0 G90 G64 X0 Y0 Z0 F100"
N70 DEF STRING[100] SN50="G1 G91 X1 Y1 Z1"
N80 DEF STRING[20] Prog
N90 DEF INT IDX=0
; Programmname bilden
N100 IDX=MATCH(ProgName, ".mpf")
N110 Prog=SUBSTR(ProgName,0, IDX)
; N120 DELETE (ERROR, Prog)
; Schreiben in Programm:
; Programmkopf schreiben
WRITE (ERROR, Prog, ";Test in Datei Schreiben")
WRITE (ERROR, Prog, ";Programmname: "<<Prog)
WRITE (ERROR, Prog, "
WRITE (ERROR, Prog, ";Uhrzeit: "<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND)
; NC-Sätze aus vordefinierten STRING-Variablen schreiben
WRITE (ERROR, Prog, SN10 )
WRITE (ERROR, Prog, SN20 )
WRITE (ERROR, Prog, SN30 )
WRITE (ERROR, Prog, SN40 )
; Satz für Start der Zeitmessung schreiben
WRITE (ERROR, Prog, "N50
STARTZ=STARTZ<<$A_HOUR<<":"<<$A_MINUTE<<":"<<$A_SECOND
; Beginn Zeitmessung
; zehn G91-Sätze mit fortlaufender Satznummer erzeugen
N130 R10 = 0
N140 WHILE R10 < 10
N150 WRITE (ERROR, Prog, "N"<<R10+60<<SN50 )
N160 R10 = R10+1
Mehrachsbaugruppe FM 357-2 für Servo- bzw. Schrittantrieb
6ES7 357-4AH00-8AG0
; evl. vorhandenes Programm löschen
;
Datum "<<$A_DAY<<"."<<$A_MONTH<<"."<<$A_YEAR)
NC-Programmierung
10–137