Nutzung Im Script - Siemens SINUMERIK 840D sl Funktionshandbuch

Inbetriebnahme PLC-Programm
6.6 PLC-Serieninbetriebnahme, PLC Archive
Über Aufruf wird Zugang zu bestimmten Funktionen erreicht. Die Funktion muss nach
Serverinstanzierung einmalig aufgerufen werden. Der Wert von bstrVal kann leer sein. Hiermit
wird die korrekte STEP 7-Version und Path-Angabe in Autoexec geprüft. Bei Rückgabe von 0
sind die Funktionen freigeschaltet.
Rückgabe (-1) = falsche STEP 7-Version
Rückgabe (-2) = kein Eintrag in Autoexec.bat
Function MakeSerienIB(FileName As String, Option As Long, Container As S7Container) As
Long
Parameter "Option":
0:
Bit 0 = 1:
Bit 1 = 1:
Rückgabewert:
0
-1
-2
-4
-5
-6
-7

Nutzung im Script

Programmcode
If S7Ext.Magic("") < 0 Then
End If
For Each cont In s7prog.Next
Fehler = S7Ext.MakeSerienIB("f:\dh\arc.dir\PLC.arc", 0, Cont)
'Jetzt Fehlerauswertung
46
Normale Serien-IBN-Datei mit Urlöschen.
Serien-IBN-Datei ohne Urlöschen. Wenn SDBs im Projekt sind, ist diese Option nicht
wirksam.
Es wird dann immer ein Urlöschen durchgeführt.
Serien-IBN-Datei mit PLC-Neustart
= OK
= Funktion nicht verfügbar, Funktion "Magic" vorher aufrufen
= Dateiname nicht erzeugbar
= Parameter Container ungültig oder Baustein Container leer
= interner Fehler (Speicheranforderung durch Windows abgelehnt)
= interner Fehler (Problem im STEP 7-Projekt)
= Schreibfehler beim Erzeugen der Serien-IBN-Datei (z. B. Datenträger voll)
Wscript.Quit(1)
Set Proj1 = s7.Projects("neu")
set S7Prog = Nothing
Set s7prog = Proj1.Programs.Item(1) 'wenn es nur ein Programm gibt
If (Cont.ConcreteType = S7BlockContainer) Then
'Bausteincontainer prüfen
Exit For
End if
Cont = Nothing
Next
Funktionshandbuch, 06/2019, A5E47433877A AB
PLC