用VB6标准模块实现微机及单片机间的通信源程序.docVIP

VB6标准模块实现微机与单片机间的通信源程序 1、模块的使用方法: (1) 在窗体中放置一个 MSComm 控件 (2) 设置好 MSComm 控件下面属性: CommPort = 端口号 端口号如为1,即COM1 Handshaking = 0 无握手协议 InputMode = 1 二进制收发模式 Settings = 9600,n,8,1 波特率/奇偶校验/数据位/停止位 (3) 在程序入口放置下列命令: Set CommControl = 窗体名.MSComm控件名 如: Set CommControl = Form1.MSComm1 ============================================================== InitPort 函数说明 打开指定端口并进行端口初始化 PortNum 指定端口号 ClosePort 函数说明 关闭当前打开的端口 SendData 函数说明 发送数据子程序 Addr 下位机地址号 Cmd 命令 Datas 数据（可选参数，调用时如不指定则发送一无数据的命令串） Timeout 超时时间，单位：秒(s) (每发送一帧数据后需接收一个回应数据，等于 0 - 成功 不等于 0 - 失败) GetData 函数说明 接收数据子程序 lData 要接收数据长度（纯数据长度，不包含其它固定格式数据） Buffer 接收数据缓冲区 Addr 要接收数据下位机地址(不指定时自动采用最后一次发送地址) Timeout 超时时间，单位：秒(s) 各个函数返回值 0 vbSuccess 通信成功 1 vbBusy 端口忙 2 vbOpenPortFailed 端口打开失败，端口可能已被其它应用程序所占用 3 vbTimeout 通信超时 4 vbInvalidData 接收的数据有误 5 vbPortNotOpened 端口还未初始化 ============================================================== 2、模块的程序设计: Option Explicit ======== 通信结果枚举定义 ======== Public Enum CommResult vbSuccess = 0 vbBusy = 1 vbOpenPortFailed = 2 vbTimeout = 3 vbInvalidData = 4 vbPortNotOpened = 5 End Enum ======== 通信常数定义 ======== Public Const SOI = HAA 定义开始位 Public Const EOI = HBB 定义停止位 Public Const VER = H10 定义版本号 ========模块内部变量定义======== Public CommControl As MSComm 定义模块内部控件名 Public DefAddr As Byte 定义默认下位机地址 ------------------------------------------------------------------------------------------------ Public Function ClosePort() As CommResu