Lập trình VBS trong Wincc Flexible 2008.

[vukhiem10101986]

bạn muốn di chuyển một vật từ trái sang phải hoặc từ phải sang trái chỉ cần dùng hàm left thôi mà sang trái thì:
doituong.left = doituong.left - x (x thì tùy bạn chọn là số nguyên),sang phải thì thay trừ bằng cộng thôi
còn việc gán s1 sag phải thì bạn chỉ cần sử dụng hàm read rồi sử dụng điều kiện là ok tương tự cho di chuyển sang trái
bạn tham khảo:
Function Left_Trigger(ByVal Item)
Dim v
Dim a, b
Set v = ScreenItems("12")
Set a = HMIRuntime.Tags("S1")
Set b = HMIRuntime.Tags("S2")
a.Read
b.Read
If a.Value = 1 Then
v.Left = v.Left - 2
End If
If b.Value = 1 Then
v.Left = v.Left + 2
End if
End Function