Sự cố khi kết nối máy tính với cổng COM RS232
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
|