| 随着Windows在国内的普及，特别是Windows95的推出，越来越多的微机用户转向了Windows操作系统。不过Windows应用软件的开发对于一般工程技术领域的技术人员来说并非易事，不但Windows的消息循环机制不易理解，而且要开发一个功能强、界面美观的应用软件，其编程和调试的工作量是非常大的。许多并非搞软件出身的工程技术人员对Windows编程望而生畏。然而使用微软的VisualBasic来开发这些方面的Windows应用软件就十分方便，一般工程技术人员易于掌握，设计软件界面非常方便，编程工作量相对较小，只需进行主要应用功能的编程和少量界面控制的编程。本文介绍了笔者使用VB在串行通信编程方面的一些收获，由于在报刊杂志上对Windows下串行通信编程的介绍多为用MicrosoftC++或BorlandC++，故笔者愿意就VB在该方面的应用与大家探讨。对于采用了RS-232接口进行串行通信的计算机测控系统软件的开发，具有一定的参考价值。
WWcW_PLCJS_COM－PLC－技.术_网 在该系统中使用了80C31单片机作为下位机采集惯性敏感部件的测量数据，经过一定的预处理后通过RS-232串行口将数据传送给上位PC机。在PC机上Windows环境下运行检测软件，接受串行口传来的数据，进行数据处理、显示、存盘等。数据处理结果以表格形式打印输出。 WWW_PL※CJS_COM－PLC－技.术_网 在VB3.0中，有许多专业厂商提供用户定制的控件(Customcontrol)，这些控件以.VBX为后缀，其中MSCOMM.VBX即是用于串行通信的控件。对于VB3.0，启动后该控件就包含于控件工具箱(toolbox)内，否则可以通过File|AddFile将该控件加入控件工具箱。然后就可以利用该控件进行串行通信的程序设计。 ——可——编——程——控－制－器－技——术——门——户 下面举一个简单的例子，说明了如何进行串行通信的程序设计，该程序在Windows95环境下，使用VB3.0已经实现: WWW_PLCJS@_COM%－PLC－技.术_网 1.先建立一个项目文件，其控件如下表所示: WWW_PL※CJS_COM－PLC－技.术_网 2.代码如下: WWW.PLCJS.COM——可编程控制器技术门户 SubForm_Load() WWcW_PLCJS_COM－PLC－技.术_网 comm1.CommPort=1‘使用串行口1 WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) ’波特率9600，偶校验，8个数据位，1个停止位。 WWW_PLC※JS_COM－PmLC－技.术_网 comm1.Settings=“9600，E，8，1” WWW_PLC※JS_COM－PmLC－技.术_网 当使用Comm1.Input时，每次从接收缓冲区取一个字节。 plcjs.技.术_网 comm1.InputLen=1 WWW_P※LCJS_CO※M－PLC－技－.术_网 timer1.interval=20‘定时器的中断间隔为20ms，用于更新显示时间。 WWW_PLC※JS_COM－PmLC－技.术_网 EndSub WWW_P※LCJS_CO※M－PLC－技－.术_网 SubcmdComm_Click() P.L.C.技.术.网——可编程控制器技术门户 Dimechoch%‘命令变量 WW.W_PLC※JS_C,OM－PL,C－技.术_网 Staticmaxf01&，maxf02&，minf01&，minf02&‘最大值，最小值 WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户) OnErrorResumeNext‘简单的错误处理 WW.W_PLCJS_COM－PLC－技.术_网 maxf01&=maxf02&=0‘初始化变量 P.L.C.技.术.网——可编程控制器技术门户 minf01&=32767 plcjs.技.术_网 minf02&=32767 WWW_P※LCJS_COM－PLC－)技.术_网 label2.Caption=comm1.Settings‘显示串行口的设置。 WWW_PLC※JS_COM－PmLC－技.术_网 Ifcmdcomm.Caption=“通信”Then‘若当前命令按扭的提示为“通信”则开始发送和 WW.W_PLC※JS_C,OM－PL,C－技.术_网 cmdcomm.Caption=“停止”‘接受数据，并将命令按扭提示改为“停止”，以 WWW.PLCJS.COM——可编程控制器技术门户 cmdexit.Enabled=False‘允许停止通信。使退出命令在通信中失效。 WWW_PLCJS@_COM%－PLC－技.术_网 IfNotcomm1.PortOpenThen‘若串行口没有打开，则打开串行口 W1WW_P4LCJS_COM－PLC－技.术_网 comm1.PortOpen=True WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户) EndIf WWW_PLC※JS_COM－PmLC－技.术_网 Ifcomm1.PortOpenThen WWW_P※LCJS_CO※M－PLC－技－.术_网 Ifecho.Text＜＞“”Then‘若命令输入框不空，则将其转换为十六进制数值 WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户) echoch%=Val(“&H”+echo.Text) WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户) Else P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户 echoch%=&HF0‘否则确省命令为F0H ——可——编——程——控－制－器－技——术——门——户 EndIf WWW_PL※CJS_COM－PLC－技.术_网 comm1.Output=Chr(echoch%)‘向串行口写入一字节命令，由WINDOWS自 WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户) EndIf‘动将命令发出 WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户) label3.Caption=Hex(echoch%)‘显示刚发出的命令 P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户 DoWhilecomm1.PortOpen WW.W_PLCJS_COM－PLC－技.术_网 Ifcomm1.InBufferCount＞0Then‘若comm1.InBufferCount＞0表示接受缓冲 ——可——编——程——控－制－器－技——术——门——户 ch$=comm1.Input‘区有数据，并读出一个字符， WWW_PLCJ－S_COM－PLC－技.术_网(可－编程控－制器技术－门户) IfAsc(ch$)=echoch%Then‘若与发出的命令相同，则退出当前循环 P.L.C.技.术.网——可编程控制器技术门户 ExitDo‘进入下一循环 WWW_PLC※JS_COM－PmLC－技.术_网 EndIf WWW_PLCJS_COM－PLC－技.术_网 Else plcjs.技.术_网 comm1.Output=Chr(echoch%)‘否则继续向下位机发命令，通知下位机 P.L.C.技.术.网——可编程控制器技术门户 EndIf‘送数据 WWW_P※LCJS_CO※M－PLC－技－.术_网 dummy=DoEvents()‘让系统处理其他消息 WWW_PL※CJS_COM－PLC－技.术_网 Loop WWW_P※LCJS_COM－PLC－)技.术_网 ‘下位机接受到正确的命令，并回发命令正确时，进入下面循环 WWW_P※LCJS_COM－PLC－)技.术_网 i=1 WWW_PLCJS@_COM%－PLC－技.术_网 DoWhilecomm1.PortOpen WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) Ifcomm1.InBufferCount＞5Then WWW_PLC※JS_COM－PmLC－技.术_网 ch$=comm1.Input WW.W_PLCJS_COM－PLC－技.术_网 DoWhileAsc(ch$)＜＞echoch%‘以命令字节同步测试数据 WWW_PLC※JS_COM－PmLC－技.术_网 ch$=comm1.Input WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户) Loop WWW.PLCJS.COM——可编程控制器技术门户 ch1$=comm1.Input‘从WINDOWS串行数据接受缓冲区读测试数据 WWW.PLCJS.COM——可编程控制器技术门户 ch2$=comm1.Input W1WW_P4LCJS_COM－PLC－技.术_网 ch3$=comm1.Input WWW_PLCJS@_COM%－PLC－技.术_网 ch4$=comm1.Input WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) newf01&=CLng(CLng(Asc(ch2$))*16*16+Asc(ch1$))‘合并为一个整数 WWcW_PLCJS_COM－PLC－技.术_网 newf02&=CLng(CLng(Asc(ch4$))*16*16+Asc(ch3$)) WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户) ifnewf01&＞maxf01&Then‘判断最大值，最小值 WW.W_PLCJS_COM－PLC－技.术_网 maxf01&=newf01& plcjs.技.术_网 EndIf WWW_P※LCJS_CO※M－PLC－技－.术_网 Ifnewf01&＜minf01&Then WWcW_PLCJS_COM－PLC－技.术_网 minf01&=newf01& W1WW_P4LCJS_COM－PLC－技.术_网 EndIf WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户) Ifnewf02&＞maxf02&Then WWcW_PLCJS_COM－PLC－技.术_网 maxf02&=newf02& W1WW_P4LCJS_COM－PLC－技.术_网 EndIf WWW_P※LCJS_CO※M－PLC－技－.术_网 Ifnewf02&＜minf02&Then P.L.C.技.术.网——可编程控制器技术门户 minf02&=newf02& WWW_PL※CJS_COM－PLC－技.术_网 EndIf WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) labf01.Caption=Str(newf01&)‘显示数据 WWW_PL※CJS_COM－PLC－技.术_网 labf02.Caption=Str(newf02&) ——可——编——程——控－制－器－技——术——门——户 labmaxf01.Caption=Str(maxf01&) WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) labminf01.Caption=Str(minf01&) plcjs.技.术_网 labmaxf02.Caption=Str(maxf02&) P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户 labminf02.Caption=Str(minf02&) WWW_P※LCJS_COM－PLC－)技.术_网 Else WW.W_PLCJS_COM－PLC－技.术_网 comm1.Output=Chr(echoch%) WWW_P※LCJS_COM－PLC－)技.术_网 EndIf WW.W_PLC※JS_C,OM－PL,C－技.术_网 dummy=DoEvents() WWW_PL※CJS_COM－PLC－技.术_网 Loop WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户) Else‘在通讯过程中，按下cmdCOMM按钮则停止通信，发出停止测试 WWW_PL※CJS_COM－PLC－技.术_网 cmdcomm.Caption=“通信”‘命令，关闭串行口，使退出按钮有效。 WWW_P※LCJS_COM－PLC－)技.术_网 comm1.Output=Chr(&H5F) W1WW_P4LCJS_COM－PLC－技.术_网 comm1.PortOpen=False WWW※PLCJS_COM－PL＃C－技.术_网(可编※程控※制器技术门户) cmdexit.Enabled=True WWW_P※LCJS_CO※M－PLC－技－.术_网 EndIf WW.W_PLCJS_COM－PLC－技.术_网 EndSub WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) SubcmdExit_Click() plcjs.技.术_网 Ifcomm1.PortOpenThen‘确认关闭串行口 WWW_PLCJS※COM－PLC－技×术_网(可编程控※制器技术门户) comm1.PortOpen=False WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户) EndIf plcjs.技.术_网 End‘终止整个程序 WWcW_PLCJS_COM－PLC－技.术_网 EndSub WWW_PLCJS_COM－PLC－技.术_网 SubTimer1_Timer()‘更新显示时间 ——可——编——程——控－制－器－技——术——门——户 Iflabtime.Caption＜＞Time&Then WWW_PLCJS※COM－PLC－技.术_网(可※编程控※制器技术门户) labtime.Caption=Time$ plcjs.技.术_网 EndIf WWW_PLCJS@_COM%－PLC－技.术_网 EndSub WWcW_PLCJS_COM－PLC－技.术_网 3.程序说明: P.L.C.技.术.网——可编程控制器技术门户 a.上述程序的通信协议为:波特率9600，偶校验，8个数据位，1个停止位。由上位机发送开始测试命令，下位机接收到命令后每隔500ms向上位机发送检测到的数据。每次发送5个字节，第一个字节为下位机接受到的命令，第二三字节为16Byte的值，第四五字节为16Byte的值。上位机循环接受并处理和显示数据; P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户 b.由于在控制软件中，串行通讯发送和接受的数据多为十六进制，故在命令输入时为十六进制数，在程序中通过echoch%=Val(“&H”+echo.Text)将输入的echo.Text转换为十六进制数，并赋给变量echoch%。而在通过串行口发送时comm1.Output要求接受字符型变量，故通过语句comm1.Output=Chr(echoch%)实现; WWW_PLC※JS_COM－PLC－技.术_网(可编程控※制器技术门户) c.接受数据时，每次要判断第一个字节是否为发出的命令，只有是后面4个字节才为正确的数据，否则查看下一字节。通过设置COMM1.InputLen=1来实现每次从接受缓冲区内读取一个字节; P_L_C_技_术_网——可——编——程——控－制－器－技——术——门——户 d.当退出程序时，一定要关闭串行口，通过comm1.PortOpen=False完成; ——可——编——程——控－制－器－技——术——门——户 e.如果需要上位机定时查询下位机，可以将串行通讯在定时器Timer1-Timer事件中进行; WW.W_PLC※JS_C,OM－PL,C－技.术_网 f.要实现完善的功能，必须进一步改善程序，甚至要用到WindowsAPI、OLE等，上述程序只是一个简单的例子; plcjs.技.术_网 上面介绍了笔者在使用VB开发Windows环境下测控软件的一点收获，笔者使用上述原理开发了一个界面友好、功能全面、使用方便的卫星控制系统惯性敏感部件检测软件，实际使用效果良好，提高了工作效率，甚至实现了测试和数据处理的自动化。 |