下面是别人给我的VB代码：
1、 Init代码
Private Sub Init_Click()
sign = 0
MSComm1.CommPort = 1 选择串行端口1
If MSComm1.PortOpen = False Then 打开串行端口1
MSComm1.Settings = "9600,n,8,1" 设置波特率
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0 串口输出缓冲置0
MSComm1.InBufferCount = 0 串口接收缓冲置0
MSComm1.Output = Chr$(2)&Chr$(27)&"]R"&Chr$(3) 执行第一条初始化指令
MSComm1.Output = Chr$(2)&Chr$(27)&"ZB1"&Chr$(3) 执行第二条初始化指令
buffer = "" 清除接收缓冲
End Sub

2、 Ver代码
Private Sub Ver_Click()
sign = 1
MSComm1.OutBufferCount = 0 串口输出缓冲置0
MSComm1.InBufferCount = 0 串口接收缓冲置0
MSComm1.Output = Chr$(2) & Chr$(27) & "ZC" & Chr$(3) 向识读器发送返回版本指令
End Sub

3、 Print代码
Private Sub Print_Click()
Form1.Text1 = buffer 在文本框显示接收缓冲内容
End Sub

4、 Cls代码
Private Sub Cls_Click()
Form1.Text1 = "" 清除文本框内容
buffer = "" 清除缓冲内容
End Sub