我用 (青苹果称重管理软件标准版) 电子称仪表采用:上海彩信XK315A系列2反序 测试正常
台称技术参数:
串行通讯接口RS— 232 连续发送,波特率 2400
通讯数据格式(RS-232C 输出)
通信地址Adr = 00 , 连续发送格式, 先低后高, 发送格式为
=,X1,X2,X3,X4,X5,X6,=,发送的X1,X2,X3,X4,X5,X6 为显示数据,= 为分隔符。
例如显示重量:100.00kg, 则发送格式为= 00.001 =00.001=
在论坛找了这个代码用起来又没反映:(摘不懂求帮助)
DataReceived事件在串口接收到数据的时候触发。
With Ports("COM1")
Dim cnt As Integer = .BytesToRead
If cnt >= 17 Then '缓冲区是否有数据
Dim Val(cnt - 1) As Byte
.Read(val,0,cnt)
Dim ss As String = BitConverter.ToString(val)
ss = ss.Replace("-","")
ss = ss.Trim("")
Dim k As Integer
Dim s(cnt - 1) As String
For j As Integer = 0 To cnt - 1
k = j * 2
s(j) = ss.substring(k,2)
Next
For i As Integer = 0 To cnt -2
Dim st As String = s(i) & s(i+1)
If st = "FFAA" Then
If (12+i) <= cnt -1 Then
If s(12+i) = "00" Then
forms("电子称重").controls("textbox1").value = HexToDec(s(i+8) & s(i+9) & s(i+10) & s(i+11))/100
End If
End If
End If
Next
End If
End With
[此贴子已经被作者于2013-3-1 10:22:52编辑过]