Beschreibung; Nutzung Im Script - Siemens SINUMERIK 840D sl Funktionshandbuch

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

If S7Ext.Magic("") < 0 Then
End If
For Each cont In s7prog.Next
Fehler = S7Ext.MakeSerienIB("f:\dh\arc.dir\PLC.arc", 0, Cont)
Grundfunktionen
Funktionshandbuch, 01/2008, 6FC5397-0BP10-3AA0
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
'Bausteincontainer prüfen
Exit For
End if
Cont = Nothing
Next
PLC-Grundprogramm (P3)
13.5 Inbetriebnahme PLC-Programm
901