zapotek
Üye
- Katılım
- 24 Ocak 2007
- Mesajlar
- 351
- Puanları
- 1
- Yaş
- 43
rectangle X=600 noktasında durmuyor. deneme tagi 1 olduğunda 10 ar 10 ar öteleniyor fakat
600 de durmuyor. kodun neresi yanlış olabilir?
teşekkürler
Function Left_Trigger(ByVal Item)
Dim objTag, Value1, objRectangle, objRectangleItem
Set objTag = HMIRuntime.Tags("deneme")
Set objRectangle = ScreenItems("Rectangle1")
Do While objTag.Read() = 1
Do
objRectangle.Left = objRectangle.Left + 10
Loop Until objRectangleItem.Left() = 600
Loop
End Function
600 de durmuyor. kodun neresi yanlış olabilir?
teşekkürler
Function Left_Trigger(ByVal Item)
Dim objTag, Value1, objRectangle, objRectangleItem
Set objTag = HMIRuntime.Tags("deneme")
Set objRectangle = ScreenItems("Rectangle1")
Do While objTag.Read() = 1
Do
objRectangle.Left = objRectangle.Left + 10
Loop Until objRectangleItem.Left() = 600
Loop
End Function
Son düzenleme: