Trợ giúp 1 chút về Code VBS trong WinCC Flexible

[thanphudu]

Em chào các bác!VBS em dùng vòng lặp Do.... Loop, chương trình tự động xuất ra .csv rồi, nhưng điều kiện của em thế này

Do
.......
If SmartTags ("SET") = True Then
Dataset = CStr (Now) & " ; " & SmartTags ("Tag_1") & " ; " & SmartTags ("Tag_2")
ts.WriteLine Dataset
ts.Close
End If
.....
Loop

mỗi lần Tag SET lên 1 thì tự động ghi vào .csv, nhưng nó ghi 1 tràng giang luôn, phải mấy trăm dòng các bác ạ! dung lượng File rất lớn, vậy làm thế nào để nó chỉ ghi 1 lần 1 dòng thôi ạ! có phải chèn thêm đoạn Code nào khác vào đây không các bác?
Em cảm ơn các bác trước

[hpecom]

Chào bạn,

Để khắc phục điểm này, trong PLC bạn tạo thêm một biến nữa (VD: PE) bắt cạnh lên của SET. Sau khi ghi dữ liệu thì bạn ra lệnh hạ PE xuống.

Chúc vui!

[daocongdabl]

Em chào các bác!VBS em dùng vòng lặp Do.... Loop, chương trình tự động xuất ra .csv rồi, nhưng điều kiện của em thế này

Do
.......
If SmartTags ("SET") = True Then
Dataset = CStr (Now) & " ; " & SmartTags ("Tag_1") & " ; " & SmartTags ("Tag_2")
ts.WriteLine Dataset
ts.Close
End If
.....
Loop

mỗi lần Tag SET lên 1 thì tự động ghi vào .csv, nhưng nó ghi 1 tràng giang luôn, phải mấy trăm dòng các bác ạ! dung lượng File rất lớn, vậy làm thế nào để nó chỉ ghi 1 lần 1 dòng thôi ạ! có phải chèn thêm đoạn Code nào khác vào đây không các bác?
Em cảm ơn các bác trước

tại bác lúc nào cũng gọi code thì ghi nhiều phải rồi
khi nào cần ghi data thì mới gọi code và so sánh tag thì lúc đó sẽ khắc phục được vấn đề

chúc thành công

[thanphudu]

Ơ mà em gắn Script vào Tag "SET" ở phần Properties > Change Value, trong Script em muốn chia ra thành nhiều cột nên giữa các giá trị em cho dấu " ; " nhưng sao vào file .csv nó lại hiện cả dấu " ; " ra hả các bác? như thế này "Thời gian ; Tag_1 ; Tag_2 ; .. ." chung 1 cột mà không phải là mỗi Tag 1 cột ạ? đấy là em bỏ Do .... Loop đi, chứ trc có Do ... Loop nó viết ra 1 tràng giang nhưng lại mỗi Tag nằm trong 1 cột, bây giờ bỏ đi thì nó lại ko chia cột ra mà còn hiện hẳn cả dấu " ; " nữa

[thanphudu]

Ơ mà em gắn Script vào Tag "SET" ở phần Properties > Change Value, trong Script em muốn chia ra thành nhiều cột nên giữa các giá trị em cho dấu " ; " nhưng sao vào file .csv nó lại hiện cả dấu " ; " ra hả các bác? như thế này "Thời gian ; Tag_1 ; Tag_2 ; .. ." chung 1 cột mà không phải là mỗi Tag 1 cột ạ? đấy là em bỏ Do .... Loop đi, chứ trc có Do ... Loop nó viết ra 1 tràng giang nhưng lại mỗi Tag nằm trong 1 cột, bây giờ bỏ đi thì nó lại ko chia cột ra mà còn hiện hẳn cả dấu " ; " nữa

À được rồi bác ạ! tại em đổi định dạng ngày, tháng năm từ Vietnamese sang US nên nó mới như thế

Mà các bác cho em hỏi thêm, em so sánh thời gian

myhour = Time(Now)
		If SmartTags("CHUYEN") = True Then
				
				If #6:30 AM# < myhour <= #2:30 PM# Then
					ts.WriteLine "CA_1"
					ElseIf #2:30 PM# < myhour <= #10:30 PM# Then
					ts.WriteLine "CA_2"
				Else 
					ts.WriteLine "CA_3"
				End If 
		End If

em viết giờ để so sánh như thế kia có đúng không ạ? em so sánh không thấy được, quá 2h30PM mà vẫn ghi ra là CA_1 ý