TIA VBS Skript, Variablen setzen-rücksetzen

[tarzipan7]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,

Höchstwahrscheinlich ein sehr einfaches Thema für die Profis:

Möchte einem Skript variablen übergeben und diese setzen bzw. rücksetzen im Skript.
Kriegs nicht hin

Gruss

 

[DeltaMikeAir]

Leider schreibst du ja nicht sehr viel ( was geht nicht, welches System / Software wird eingesetzt... )

Ein reines schreiben oder lesen einer Variable wird so gemacht:

SmartTags("DeineVariable") = 100

oder

SmartTags("DeineVariable") = TRUE
SmartTags("DeineVariable") = FALSE
SmartTags("DeineVariable1") = SmartTags("DeineVariable2") + SmartTags("DeineVariable3")

 

[Larry Laffer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Naja ... in dem Fall eher :

binIn1 = 1

... aber was ist binIn1 ? Wann und wie wird dein Script aufgerufen ?

Du solltest also wirklich noch "ein bißchen mehr" zu deinem Problem schreiben - so ist es doch seeeeeehr dürftig ...

Gruß
Larry

 

[tarzipan7]

Sub ForceAll_DO(ByRef biIn0, ByRef biIn1, ByRef biIn2, ByRef biIn3, ByRef biIn4, ByRef biIn5, ByRef biIn6, ByRef biIn7)
'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:

SetTag biIn0, 1
SetTag biIn1, 1
SetTag biIn2, 1
SetTag biIn3, 1
SetTag biIn4, 1
SetTag biIn5, 1
SetTag biIn6, 1
SetTag biIn7, 1

End Sub

(ByRef biIn0) sind Variablen (BOOL) die ich übergeben und schreiben will.

Der Skript wird über einen Button aufgerufen.

Gruss

Sorry TIA Version 13 muss ich verwenden. TP1500 Comfort

 

[PN/DP]

Du willst anscheinend in dem Skript auf die übergebenen Variablen schreibend zugreifen - das geht nicht in VBS, weder direkt noch über Name oder Adresse der übergebenen Variable. Man kann nur den Wert lesen. Als "Function" kann man einen Wert zurückgeben und einer Variable zuweisen.

Man könnte den Name einer HMI-Variable als String übergeben, dann kann man im Skript auf die HMI-Variable zugreifen (vermutlich wird man dann von anderen Programmierern gesteinigt, weil ein so ausgeführter Zugriff auf eine Variable in den Querverweisen nicht zu finden ist):

Sub VB_Funktion(ByRef In_1)

SmartTags(In_1) = 1

End Sub

Harald

 

[tarzipan7]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Harald, danke für den Tip. Scheint wirklich nur so zu gehen. Deshalb Skript delete und Funktion auf den Button setzen.
Schönen Tag