Sample 7 (Produktionsbeispiel)
Hier finden Sie ein Beispiel für einen Produktionsauftrag. Dabei werden Produktionsdaten wie Bauteillänge, Bauteilbreite etc. in einer Struktur zur Initialisierung ausgelesen (XML Read), die Produktion mit einer entsprechenden Stückzahl durchgeführt und der Produktionsauftrag mit einem Eintrag in der XML-Datei (Write) beendet. Um das Programm zu starten, muss zuvor das XML File an die dem Datei-Pfad entsprechende Stelle gespeichert werden und im SPS-Programm die Variable bStart auf TRUE gesetzt werden.
Das SPS-Projekt, das die Beispiele enthält, können Sie hier runterladen.
Variablendeklaration
PROGRAM Sample7
VAR
fbXmlSrvReadByName : FB_XmlSrvReadByName;
fbXmlSrvWriteByName : FB_XmlSrvWriteByName;
value : ST_MyProductionStruct;
state : INT := 0;
R_Edge : R_TRIG;
bStart : BOOL;
bError : BOOL;
nErrId : UDINT;
END_VAR
Struktur ST_MyProductionStruct
TYPE ST_MyProductionStruct :
STRUCT
rLength : REAL;
rWidth : REAL;
rHeight : REAL;
iQuantity : INT;
iCounter : INT;
bReady : BOOL;
stInfo : STRING;
END_STRUCT
END_TYPE
SPS Programm
(* The production data are read, the production is carried out and, according to the
quantity and the production order, completed with an entry in the XML file.
To start the program the XML file needs to be stored at the corresponding place
of the data path and the variable bStart needs to be set TRUE in the PLC program. *)
R_Edge (CLK := bStart);
IF R_Edge.Q THEN
state := 1;
END_IFCASE state OF
0: (* idle state *)
;
1: (* init state *)
fbXmlSrvReadByName( sNetId := '',
sSymName := 'Sample7.value',
sFilePath := 'Hard Disk\Production1.xml',
sXPath := '/dataentry/MAIN.value',
bExecute := TRUE,
tTimeout := t#10s,
bError => bError,
nErrId => nErrId);
state := 2;
2:
fbXmlSrvReadByName(bExecute := FALSE);
IF NOT fbXmlSrvReadByName.bBusy AND NOT fbXmlSrvReadByName.bError THEN
state := 3;
ELSIF fbXmlSrvReadByName.bError THEN
state := 100;
END_IF
3: (* working state *)
IF value.bReady = TRUE THEN
value.stInfo := 'The order was already processed!';
(* replace your production XML file! *)
state := 4;
RETURN;
END_IF
(* Call production program with
new length, width and height here *)
value.iCounter := value.iCounter + 1;
IF value.iCounter = value.iQuantity THEN
value.bReady := TRUE;
state := 4;
END_IF
4: (* documentation state *)
fbXmlSrvWriteByName( sNetId := '',
nMode := XMLSRV_SKIPMISSING,
sSymName := 'Sample7.value',
sFilePath := 'C:\Production1.xml',
sXPath := '/dataentry/MAIN.value',
bExecute := TRUE,
tTimeout := t#10s,
bError => bError,
nErrId => nErrId);
state := 5;
5:
fbXmlSrvWriteByName(bExecute := FALSE);
IF NOT fbXmlSrvWriteByName.bBusy AND NOT fbXmlSrvWriteByName.bError THEN
state := 0;
ELSIF fbXmlSrvWriteByName.bError THEN
state := 100;
END_IF
100:(* error state *)
;
END_CASE
XML Datei
<dataentry>
<MAIN.value>
<rLength>65.85</rLength>
<rWidth>30</rWidth>
<rHeight>2.5</rHeight>
<iQuantity>500</iQuantity>
<iCounter>0</iCounter>
<bReady>false</bReady>
<stInfo></stInfo>
</MAIN.value>
</dataentry>
Voraussetzungen
Entwicklungsumgebung | Zielplattform | Einzubindende SPS Bibliotheken |
---|---|---|
TwinCAT v2.10.0 | PC oder CX (x86, ARM) | TcXmlDataSrv.Lib |