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

[dohung]

Đúng rồi em.
Em ngâm cứu thêm đi.Nếu không xong nữa thì anh làm cái tut và code cho em xem.

Thế tag offset chính là tag "position" mà anh nói phải không ạ?Vì cái em làm mà chạy 1 ít là em chọn tag offset theo trục x chính là nút nhấn s1.
Về phần này em gà quá nên mong anh chỉ bảo tận tình.

[khuchuong]

Đúng rồi em.
Em ngâm cứu thêm đi.Nếu không xong nữa thì anh làm cái tut và code cho em xem.

Anh ơi em thử làm rùi,nhưng vẫn chưa được,anh có thể viết code cho em tham khảo được không ạ?
Cảm ơn anh nhiều!

[khuchuong]

Sao không thấy anh hồi âm vậy?Em đang rất cần vì sắp bảo vệ rồi.
Mong anh và mọi người giúp ạ!

[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

[khuchuong]

vâng cảm ơn anh nhé.

[khuchuong]

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

em làm như anh nhưng cũng báo lỗi, nó có các gạch đỏ ở dưới code, thế là sao hả anh?

[vukhiem10101986]

chào bạn mình làm bài này trên phần mềm PCS7 sp1 wincc của nó tích hợp giống với phần mềm wincc expoler còn mình thử trên wincc flex thì đúng là có hiện tượng giống như bạn nói nhưng mình chưa hiểu lắm phần mềm này.
mong các bạn khác giúp đỡ thêm!