基于VB的远程通讯程序.docVIP

基于VB的远程通讯程序　 [ 2005-9-28 11:33:29 | By: ] 1　引言　　计算机与通信的紧密结合极大地推动了工业自动化的进程。人们坐在计算机前就可以实现对远端设备的集中监控，从而提高了整个系统的稳定性和可靠性。本文作者曾经参与了电源远程监控系统软件的开发工作。在运用VB开发监控软件的过程中，为实现远程通讯功能，我们利用了VB提供的通讯控件MSComm。该控件屏蔽了通信过程中的底层操作，程序员只需设置和监视MSComm控件的属性和事件，就可以轻而易举地实现串行异步通讯。　　远程监控中心可以对分布的各个独立的电源系统进行遥测、遥控。电源控制器可以现场监测和控制电源系统的各项工作参数；可以接受远端监控中心的查询、控制；并可以向中心上报工作状态。为实现上述功能 ，首要任务是建立两者之间的通讯。因此可分别将监控中心计算机和电源控制器通过RS-232C接口与Modem相连，再通过Modem接入公用电话网（PSTN）,由PSTN实现本地Modem与电源端Modem的联接，就可以实现监控中心计算机与电源控制器间的通讯。如图1所示。图12　通讯控件简介　　MSComm 控件提供了一系列标准通讯属性和方法。使用它可以建立起应用程序与串行端口的联接。为实现远程通讯，还需要把调制解调器与串行端口通过RS-232C接口连接，这样，在应用程序中发出AT命令，就可以达到控制调制解调器的目的，进行远程通讯。有关调制解调器的AT命令，本文不做讨论，读者可以参考相关的调制解调器手册。2．1　在项目中加入MSComm控件　　启动Visual Basic，建立一个新项目。　　选Project菜单，从中选择Components子菜单。　　在弹出的Components对话框里的Controls标签下选择Microsoft Comm Control 5.0项。2．2　与程序设计有关的 MSComm控件属性　　CommPort　设置或返回通讯端口号。格式为：MSComm.CommPort［ = PortNumber ］。 在设计时，PortNumber 可以设置成从 1 到 16 的任何数（缺省值为 1）。但是如果用 PortOpen 属性打开一个并不存在的端口时，就会产生错误 。还需注意的是必须在打开端口之前设置 CommPort 属性。例如：MSComm.CommPort=2，即设置当前通信串口为COM2口。　　Settings　以字符串形式设置或返回波特率、奇偶校验、数据位和停止位。格式为：　　MSComm.Settings［=ParaString］。ParaString是一个包含四部分的字符串。第一部分为波特率，其可选值为110,300,600,1200,2400,4800,9600,14400,19200,28800。第二部分为奇偶校验，N 表示不校验,E 表示偶校验,O表示奇校验，S表示空格检验,M表示符号校验。第三部分为数据位位数，其可选值为4,5,6,7,8。第四部分为停止位位数，其可选值为1，1.5,2 。Settings属性的缺省值为“9600,N,8,1” 。　　PortOpen　设置并返回通讯端口的状态（打开或关闭）。在设计时无效。格式为：　　MSComm.PortOpen［=TRUE/FALSE］ 。　　Input　返回并删除接收缓冲区中的数据流。该属性在设计时无效，在运行时为只读。　　格式为：MSComm.Input。　　InputLen　设置并返回 Input 属性从接收缓冲区中每次读取的字符数。格式为：MSComm.InputLen［=CharNumber］。InputLen 属性的缺省值是 0。设置 InputLen 为 0 时，使用 Input 将使 MSComm 控件读取接收缓冲区中全部的内容。若接收缓冲区中的字符数小于InputLen 属性设置的字符数，Input 属性返回一个零长度字符串 ()。所以在使用Input 前，用户可以通过检查 InBufferCount 属性来确定缓冲区中是否已有需要数目的字符。　　InBufferCount　返回接收缓冲区中已接收的字符数。格式为： MSComm.InBufferCount［=0］。该属性在设计时无效，但设置InBufferCount 属性为0 可以清除接收缓冲区。　　InputMode　设置或返回 Input 属性取回的数据的类型。格式为MSComm.InputMode［=ModeValue］。若数据只用 ANSI 字符集，设置InputMode属性值为0（缺省），数据通过 Input 属性以文本形式取回。如数据中有嵌入控制字符、Nulls 等等，可设置InputMode属性值为1，数据通过 Inpu