WinCC grafik editörde nesne istediğm noktada durmuyor

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
 
Son düzenleme:
KNX Standardı, küçük bir rezidansın içerisindeki aydınlatma, perde panjur, klima kontrolünden, Dünya’nın en büyük havalimanlarındaki aydınlatma otomasyonu gibi çözümler için tercih edilen bir Dünya standardıdır.
Yazımızda endüstrinin can damarı sayılabilecek PLC’yi inceleyeceğiz.
kodu buldum. çalışıyor.

selamlar...

Set objTag = HMIRuntime.Tags("deneme")
If (objTag.Read = 1) And (Item.Left < 600) Then
Item.Left = Item.Left + 10
End If
 

Forum istatistikleri

Konular
127,950
Mesajlar
913,859
Kullanıcılar
449,598
Son üye
kadir12366

Yeni konular

Geri
Üst