P3: PLC-Grundprogramm für SINUMERIK 840D sl
14.7 Inbetriebnahme PLC-Programm
Funktionen:
● Function Magic(bstrVal As String) As Long
● Function MakeSerienIB (FileName As String, Option As Long,
Container As S7Container) As Long
Beschreibung
Function Magic(bstrVal As String) As Long
Ü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ückgabe-Wert:
0
-1
-2
-4
-5
-6
-7
Nutzung im Script
Programmcode
If S7Ext.Magic("") < 0 Then
End If
For Each cont In s7prog.Next
892
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. Diskette 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
Grundfunktionen
Funktionshandbuch, 05/2017, A5E40870716