串口通讯调试器用VB调试串口通讯-vb教程.pdfVIP

串口通讯调试器:用VB调试串口通讯-vb教程 疯狂代码 http://CrazyC/ ĵ http:/CrazyC/VisualBasic/Article15514.html lass=MsoNormal style=\MARGIN: 0cm 0cm 0pt\现有电子秤台使用串口和计算机进行通讯编写VB来访 问串口达到读取电子秤上显示数据该电子秤为BE01型仪表输出为RS-232C标准接口波特率为300-9600、偶校 验、7个数据位、2个停止位所有均发送11位ASCII码个起始位在VB中和串口通讯需要引入Control控件 MSComm串口通讯Control控件(在Microsoft Comm Control 6.0中)具体如下:Control控件简称:MSC Dim Out(12) As Byte ´接收var中值 Dim var As Variant ´接收MSC.input中数值 Dim nRece As Integer ´计算MSC.inputbuffer个数 Dim i As 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事件 End With 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 ´设置数据接收模式为 2进制形式 .InBufferCount = 0 ´清除接收缓冲区 If Not .PortOpen Then .PortOpen = True ´打开通信端口 End If End With End Sub Private Sub MSC_OnComm DelayTime ‘用来延续时间 ClearText With MSC Select Case .CommEvent ´判断通信事件 Case comEvReceive: ´收到Rthreshold个字节产生接收事件 SwichVar 1 If Out(1) = 2 Then ´判断是否为数据开始标志 .RThreshold = 0 ´关闭OnComm事件接收 End If Do DoEvents Loop Until .InBufferCount = 3 ´循环等待接收缓冲区=3个字节 ´ nRece = nRece + 1 For i = 2 To 12 SwichVar i Text1.Text = Text1.Text Chr(Out(i)) Next