VISUAL BASIC串口通讯调试方法.pdfVIP

Visual Basic 串口通讯调试方法 现有电子秤一台，使用串口与计算机进行通讯。编写VB程序来访问串口，达到读取电子秤上显示的数据。 该电子秤为BE01型仪表，输出为RS-232C标准接口，波特率为300-9600、偶校验、7个数据位、2 个 停止位。所有字符均发送11位ASCII码，一个起始位。在VB 中与串口通讯需要引入控件MSComm 串口 通讯控件 （在Microsoft Comm Control6.0 中）。具体程序如下：控件简称：MSC DimOut(12)As Byte 接收var 中的值 DimvarAs Variant 接收MSC.input 中的数值 Dim nReceAs Integer计算MSC.inputbuffer 的个数 Dim iAs Integer,j As Integer 随即变量，计算循环 **************************************************************************** Private Sub Form_Load() ClearText With MSC .CommPort 1设置Com1为通信端口 .Settings 9600,E,7,2设置通信端口参数 9600赫兹、偶校验、7个数据位、1个停止位. （这里需要进一步说明的是：.Setting ”BBBB,P,D,S”。 含义是：B：Baud Rate （波特率）；P：Parity （奇偶）；D：Data Bit；S：Stop Bit） .InBufferSize 40 设置缓冲区接收数据为40字节 .InputLen 1设置Input 一次从接收缓冲读取字节数为1 .RThreshold 1设置接收一个字节就产生OnComm事件 EndWith End Sub **************************************************************************** Private Sub ClearText() Text3.Text Text2.Text 5 Text1.Text End Sub Private Sub Command1_Click() ClearText nRece 0 计数器清零 With MSC .InputMode comInputModeBinary 设置数据接收模式为二进制形式 .In