我这边代码:参考,需要看电子称接口说明.
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("textbox13").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