vb串口程序.txt

这是为一个扫描枪写的在生产线上比较2个不同的2个串口条玛的程序

 
串口扫描枪VB例程


适用机型: 
所有商业收款机 

文档内容： 

Private Sub Command1_Click()
'初始化
MSComm1.CommPort = 4 '设置端口号
MSComm1.Settings = "9600,N,8,1" '初始化端口
MSComm1.PortOpen = True '打开端口
MSComm1.RThreshold = 1 '设置触发串口接受数据事件(当缓冲区中收到一个字符时就触发MSComm1_OnComm()事件)

Text1.Text = "" '清空文本框
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False '关闭端口
End Sub

Private Sub MSComm1_OnComm()
‘取数据
kk = MSComm1.Input '接受数据

If kk = Chr$(13) Then '判断如果是回车，说明条码数据接受完毕
Text2.Text = Text1.Text
Text1.Text = ""
Else
Text1.Text = Text1.Text + CStr(kk) '如果不是回车，数据和下个字符累积
End If
End Sub