bạn gửi tên cân chính xác và đầy đủ hơn thì gửi manual or VB project đi kèm như thế thì mọi người có thể có thêm thông tin về định dạng dữ liệu truyền, bắt tay và nhanh chóng tìm ra lỗi.
Trích:
Nguyên văn bởi seatek
Tôi kết nối máy tính với cân điện tử AND 6100. Khi sử dụng chương trình kèm theo của nhà cung cấp, cân trả giá trị về cho máy tính nhưng khoảng 10 hoặc 15 thì không trả lại giá trị được mà phải Retart lại máy thì mới tiếp tục được. Như là bị sự cố gì? có ai biết xin chỉ giúp.
Khi tôi sử dụng code VB6 để tự lấy giá trị từ cân. Nếu máy tính kết nối trực tiếp với cân thì được nhưng kết nối thông qua swith thi không lấy giá trị được nữa. Có ai đước cách khắc phục thì xin chỉ giúp.
Code:
With MSComm1
If .PortOpen Then .PortOpen = False
.CommPort = 1
.Settings = "2400,e,7,1"
.PortOpen = True
.Output = "Q" & vbCrLf
Do Until InStr(1, prvGetValueFromCOM, vbCrLf)
DoEvents
prvGetValueFromCOM = prvGetValueFromCOM & .Input
Loop
If .PortOpen Then .PortOpen = False
End With
|