从串口的激光扫描平台获得的数据乱码，有做过的进来帮忙。

[Equn]

串口的激光平台，HS1250
通过MSCOMM1.Input获得的数据乱码，不知道怎么回事

setting为“9600,n,8,1”

帮忙哦

[Equn]

不同类型的条码多出来的字符不一样的

[rainstormmaster]

如果你的设置没错的话，可以尝试利用strconv解决问题

[zdingyun]

检查MSComm控件属性InputMode是否设置为comInputModeBinary，采用二进制输入。
将接收的BYTE数据流逐字节转为16进制数据分析。

[Equn]

不知道是否设备有问题。代码：
Private Sub MSComm1_OnComm()
Dim dt() As Byte
dt = MSComm1.Input()
For i = 0 To UBound(dt)
Debug.Print "十进制：" & dt(i) & vbTab & "十六进制：" & Hex(dt(i)) & vbTab & "ASC：" & Chr(dt(i))
Next
End Sub


扫描条码：6920459912096，输出：

十进制：57 十六进制：39 ASC：9
十进制：177 十六进制：B1 ASC：
十进制：178 十六进制：B2 ASC：
十进制：48 十六进制：30 ASC：0
十进制：57 十六进制：39 ASC：9
十进制：54 十六进制：36 ASC：6
十进制：141 十六进制：8D ASC：
十进制：198 十六进制：C6 ASC：
十进制：54 十六进制：36 ASC：6
十进制：57 十六进制：39 ASC：9
十进制：178 十六进制：B2 ASC：
十进制：48 十六进制：30 ASC：0
十进制：180 十六进制：B4 ASC：
十进制：53 十六进制：35 ASC：5
十进制：57 十六进制：39 ASC：9


扫描条码：6910019405007，输出：

十进制：180 十六进制：B4 ASC：
十进制：48 十六进制：30 ASC：0
十进制：53 十六进制：35 ASC：5
十进制：48 十六进制：30 ASC：0
十进制：48 十六进制：30 ASC：0
十进制：183 十六进制：B7 ASC：
十进制：141 十六进制：8D ASC：
十进制：198 十六进制：C6 ASC：
十进制：54 十六进制：36 ASC：6
十进制：57 十六进制：39 ASC：9
十进制：177 十六进制：B1 ASC：
十进制：48 十六进制：30 ASC：0
十进制：48 十六进制：30 ASC：0
十进制：177 十六进制：B1 ASC：
十进制：57 十六进制：39 ASC：9

[Equn]

出现乱码确定是setting错误，正确的为：9600,E,7,1
现在的问题是，读出来的条码分成两次读入，扫描一次获得的数据包含了上一次扫描的后6位数字。本次扫描只得到条码的前7位，并且最前面还有一个字符“F”，如：
“405007(CRLF)F6910019”

[rainstormmaster]

//现在的问题是，读出来的条码分成两次读入，扫描一次获得的数据包含了上一次扫描的后6位数字。本次扫描只得到条码的前7位，并且最前面还有一个字符“F”

分两次是你程序的要求，还是系统的问题

[Equn]

系统的问题，要一次性读入。
是程序代码有问题，使超级终端测试不会分成两段，不过前面的字符“F”也有。

[rainstormmaster]

如果仅仅多出来一个字符F的话，你replace掉即可