-> Hier kostenlos registrieren
Ich möchte eine Bewegung eines Objektes anhand eines Scriptes realisieren, so weit bin ich schon. :-D Ich habe nur keine Ahnung wie ich mit dem Script anfange und vorgehe, sodass es sich schlussendlich bewegt. Es soll von keiner Variable abhängen. Die Bewegung soll dauernd vorhanden sein. Habe das Script gefunden, aber weiß jetzt nicht wie ich es richtig einbinden soll. Habe schon viel probiert.
Danke im voraus für die Hilfe!
Danke im voraus für die Hilfe!
Code:
Dim lEndPos
lEndPos = 300 'Endwert in Pixel
Dim lStartPos
lStartPos = 0 'Startposition
Dim lSchrittweite
lSchrittweite = 20 ' Schrittweite in Pixel
'Die aktuelle Richtung aus der [B]Variable[/B] lesen
Dim objTag
Set objTag = HMIRuntime.Tags("Richtung")
objTag.Read
Dim bRichtung
bRichtung = objTag.Value
'Die aktuelle Position lesen
Dim lleft
lleft = item.Left
'1 bedeutet in diesem Fall nach rechts laufen
If( bRichtung = 1 ) Then
If( lleft < lEndPos ) Then
' Die neue Position setzen
Item.Left = lleft + lSchrittweite
Else
'Wieder von vorne beginnen
Item.Left = lStartPos
End If
Else 'Nach Links laufen
If( lleft > lStartPos ) Then
' Die neue Position setzen
Item.Left = lleft - lSchrittweite
Else
'Wieder von vorne beginnen
Item.Left = lEndPos
End If
End If