meikelneit
Level-2
- Beiträge
- 151
- Reaktionspunkte
- 1
-> Hier kostenlos registrieren
Ich bekomme bei folgendem VB Script einen Syntax Error für
Zeile 8 Spalte 2 angezeigt. Zeile 8 habe ich eingetragen. Wenn ich dort am beginn der Zeile 2 mal recht drücke, bin ich in der Zeile darunter.
Zeile 30 gibt die Warnung:
,Möglicherweise funktioniert die Systemfunktion nicht fehlerfrei, wenn eine Instanz des Bildbaustein-Typs angelegt wird. in Zeile 30, Spalte 1,,,19:55:04
Ich habe mir heute das erste mal die VB Scripts angeschaut, ich finde da einfach nicht das Problem.
Sub Recipemanager()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
' Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:
Zeile 8
Dim ScreenNumber
Select Case SmartTags("Properties\ioData.Index")
Case 1
ScreenNumber = SmartTags("Properties\M01")
Case 2
ScreenNumber = SmartTags("Properties\M04")
Case 3
ScreenNumber = SmartTags("Properties\M20")
Case 4
ScreenNumber = SmartTags("Properties\M02")
Case 5
ScreenNumber = SmartTags("Properties\M40")
Case 6
ScreenNumber = SmartTags("Properties\M05")
Case Else
ActivatePreviousScreen
End Select
Zeile 30 ActivateScreenByNumber ScreenNumber, 0
End Sub
Mit freundlichem Gruß
Meikelneit
Zeile 8 Spalte 2 angezeigt. Zeile 8 habe ich eingetragen. Wenn ich dort am beginn der Zeile 2 mal recht drücke, bin ich in der Zeile darunter.
Zeile 30 gibt die Warnung:
,Möglicherweise funktioniert die Systemfunktion nicht fehlerfrei, wenn eine Instanz des Bildbaustein-Typs angelegt wird. in Zeile 30, Spalte 1,,,19:55:04
Ich habe mir heute das erste mal die VB Scripts angeschaut, ich finde da einfach nicht das Problem.
Sub Recipemanager()
'Tip:
' 1. Verwenden Sie die Tastenkombination <CTRL+SPACE> oder <CTRL+I>, um eine Liste aller Objekte und Funktionen zu öffnen
' 2. Schreiben Sie den Code unter Verwendung des HMI Runtime Objekts.
' Beispiel: HmiRuntime.Screens("Screen_1").
' 3. Verwenden Sie die Tastenkombination <CTRL+J>, um eine Objektreferenz zu erstellen.
'Schreiben Sie den Code ab dieser Position:
Zeile 8
Dim ScreenNumber
Select Case SmartTags("Properties\ioData.Index")
Case 1
ScreenNumber = SmartTags("Properties\M01")
Case 2
ScreenNumber = SmartTags("Properties\M04")
Case 3
ScreenNumber = SmartTags("Properties\M20")
Case 4
ScreenNumber = SmartTags("Properties\M02")
Case 5
ScreenNumber = SmartTags("Properties\M40")
Case 6
ScreenNumber = SmartTags("Properties\M05")
Case Else
ActivatePreviousScreen
End Select
Zeile 30 ActivateScreenByNumber ScreenNumber, 0
End Sub
Mit freundlichem Gruß
Meikelneit
Zuletzt bearbeitet: