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

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

Code:

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

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!

Trích dẫn:

Gửi bởi 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

Code:

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

Ơ 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 :34::34::-((

Trích dẫn:

Gửi bởi 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 :34::34::-((

À đượ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ế hihihihi

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

Code:

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 ý