WinCC Script interne Variable hochzählen

[pjoddi]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich versuche, unter WinCC (V6.2) per Mausklick ein VB-Script zu aktivieren, welches eine Variable hochzählt, und zwar selbstständig bis zu einem Wert X.

Sinn der Aktion ist die Animation eines Textes, der Quasi in das Bild reinfliegt, d.h, die Variable soll nachher als Dynamisierte Position für den Text verwendet werden.
Um eine flüssige Darstellung zu bekommen und die Kommunikation (bzw. die WinCC-Performance) nicht zu belasten, möchte ich den Wert nicht in der SPS, sondern intern in WinCC hochzählen.

Im groben tut das Script es ja, jedoch nicht ganz so wie gewünscht, er zählt nicht bis zum Ende, sondern hört irgendwo bei ca. der Hälfte des voreingestellten Wertes auf, also wenn ich 50 einstelle, zählt er mal 21, mal 23, mal 25, stelle ich den Wert auf 100, zählt er so ca. bis 50.

So sieht das Script aus, welches über den Button aktiviert wird:

Sub OnClick(ByVal Item)                        
Dim Wert
Dim i
Set Wert = HMIRuntime.Tags("Sägezahn")


For i = 1 To 40
Wert.Read
Wert.Value = Wert.Value + 1
Wert.Write
Wert.Read
Next

If Wert.Value >= 40 Then Wert.Write 0
End Sub

Ist das so kompletter Mist oder kann jemand bei der Verbesserung helfen?

 

[pjoddi]

Lösung gefunden...

ok, für alle, die vor dem selben Problem stehen:
nach viel Probiererei klappt folgender Code

Sub OnClick(ByVal Item)                                     
Dim Wert
Dim i

Set Wert = HMIRuntime.Tags("Sägezahn")

For i = 1 To 500
	Wert.Value = Wert.Value + 1
	Wert.Write
Next

End Sub

Das funktioniert, wenn jemand Einwände hat - bitte immer her damit!