WinCC Objekteigenschaften dynamisieren

[Ragamuffin]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

ich möchte in WinCC die Objekteigenschaft Bedienfreigabe über VBS dynamisieren. Ich gebe also unter "If" meine Bedingungen an aber was muss ich unter "Then" ausführen damit wirklich die Bedienfreigabe auf Nein gesetzt wird? Hat jemand ein Beispiel für mich?

MfG Daniel

 

[SPSKILLER]

Hi,

Beispiel für einen Button mit Namen "Button1"

dim objButton
set objButton = screenitems.item("Button1")
 
if ... then
     objButton.Operation = false
else
     objButton.Operation = true
end if 
set objButton = nothing

Gruß Micha

 

[Ragamuffin]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hi,

danke für deine Antwort aber irgendwie haut das nicht hin.
Mein Button heißt "Button3" und eine Variable die ich zum testen eingefügt habe heißt "Foerdern_Hand_Ein_Aus".
Müsste doch so klappen oder?

Function Enabled_Trigger(ByVal Item)
dim objButton
Set objButton = ScreenItems.item("Button3")
 
If Foerdern_Hand_Ein_Aus = True Then
     objButton.Operation = false
else
     objButton.Operation = true
end if 
set objButton = nothing
End Function

 

[Kai]

Hier noch mal ein kurzes VBScript für die Dynamisierung der Bedienfreigabe eines Buttons:

Function Enabled_Trigger(ByVal Item)
 
Dim myBooleanTag, objButton
 
Set myBooleanTag = HMIRuntime.Tags("Bedienfreigabe")
Set objButton = ScreenItems.Item("Schalter")
 
If myBooleanTag.Read = 1 Then
     objButton.Operation = True
Else
     objButton.Operation = False
End If 
 
Set myBooleanTag = Nothing
Set objButton = Nothing
 
End Function

Gruß Kai