vb串口通信程序设计典型实例{修}

al = settings, BarDCB)Р If retval = -1 ThenР retval = GetLastError()Р MsgBox "无效设备 DCB 块" & Comsettings & " 错误: " & retvalР retval = Num)Р = FalseР Exit FunctionР End IfР retval = Num, BarDCB)Р If retval = -1 ThenР retval = GetLastError()Р MsgBox "无效设备 DCB 块" & Comsettings & " 错误: " & retvalР retval = Num)Р = FalseР Exit FunctionР End IfР = TrueР:Р Exit FunctionРEnd FunctionР'关闭程序РPrivate Sub _Click()Р Unload MeРEnd SubР'关闭端口РPrivate Sub Form_Unload(Cancel As Integer)Р CloseHandle (ComNum)РEnd SubР4.运行程序Р图6-5 程序运行界面Р程序设计、调试完毕,执行菜单“运行/启动”命令或单击工具栏快捷按钮“启动”,运行程序。Р(1)首先在程序窗体中发送字符区输入要发送的字符,单击“发送数据”按钮,1口发送出去。Р(2)另一台计算机发送数据,本计算机自动读入并显示在接收数据区中。Р程序运行界面如图6-5所示。Р6.1.5.3 m控件实现PC双串口互通信Р如果一台计算机有两个串口,2端口的GND相连,如图6-6(a)所示,这是串口通信设备之间的最简单连接(即三线连接),图中的2号接收脚与3号发送脚交叉连接是因为在直连方式时,把通信双方都当作数据终端设备看待,双方都可以发送也可以接收。