WinCC VBS WinCC

[levo81]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,

ich habe das versucht.

Im PDL-Bild "Übersiciht" ist ein Button, der sichtbar werden soll, wenn Bedingung erfüllt wird.
Ich habe es VBS geschrieben in Aktion(Global).
Ich würde gerne den Button ohne eine Interne Variable visualisieren.
Also direkt den Button sichtbar machen.

Dim objTxt
Dim BildName
Dim objScrWindow


'Bildname Holen
Set objScrWindow = HMIRuntime.ActiveScreen
BildName = objScrWindow.Objectname

IF BildName = "Übersicht" THEN
IF HMIRuntime.Tags("BBR::100UHT806KFX001/Klappe.Out2#Value").read = "1" THEN
ScreenItems("Button10").Visible = True
ELSE
ScreenItems("Button10").Visible = False

END IF
END IF


Danke

 

[PN/DP]

Ich würde gerne den Button ohne eine Interne Variable visualisieren.

Was meinst Du mit "interne Variable"?

Ich habe es VBS geschrieben in Aktion(Global).

Warum willst Du überhaupt als globale Aktion VBS-skripten? Du kannst doch direkt an dem Butten das Attribut "Anzeige" dynamisieren, indem Du da die Variable 'BBR::100UHT806KFX001/Klappe.Out2#Value' direkt angibst, oder im Dynamic-Dialog einen Ausdruck formulierst (falls die Variable mehr Werte als 0 und 1 haben kann).

Harald

 

[levo81]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich habe es VBS geschrieben in Aktion(Global).
--->Ich habe nicht direkt den Button-> sonstiges -> sichtbar mit VBS "programmiert" sondern im WinCC Explorer eine Akion.bac datei erstellt.


Ich würde gerne den Button ohne eine Interne Variable visualisieren.
--->Damit meine ich, dass ich nicht den Button sichtbar über eine interne Variable, die ich in Variablenarchiv (WinCC) anlegen müsste machen will. Ich will dass es über die Aktion.bac aufgerufen wird
bwz. sichtbar gemacht wird.

Es sind mehr als 200 Butttons und die Buttons werden auch in anderen Seiten verwendet . Ind ich habe es verkürzt es sind zum Teil 100 Bedingungen bei denen der Button sichtbar gemacht werden soll. Ich werde es dann dort schon anpassen.
ich hoffe ich konnte mich jetzt besser ausdrücken

Danke für deine Frage

 

[Hoffy]

Kann man nicht einfach so machen ?

dim mybutton
set mybutton= HMIRuntime.Screens("picture").ScreenItem("Button")
mybutton.visibile = true