Windows环境下的串行数据通信程序设计

入处理发生缓冲器中的字符数低于设定的数值时产生该
    事件的代码
    End Select
    End Sub
    (2) 查询方式
    查询方式,就是每个命令(含数据块)都要查询等待对它的回答。详细使用方法请见下文
的实例叙述。
    三、一个完整例子
    该程序的设计背景是全军医药信息网上电话拨号用户前台软件中的自动拨号部分,为节
省篇幅和说明问题,这里进行了重新编辑,但其本身是完整的。该程序帮助主人进行电话拨
号以呼通被叫。
    调试环境:LEO 486/50,HiTec MODEM,院内电话脉冲拨号,使用串行口1,PWIN 3.1
    程序Form由下列部分组成:List1电话号码显示列表;Label1拨号状态显示;Dial,Canc
    el,
    Quit三个按钮;MSCOMM.VBX通信控件。
    '' ------------
    '' Visual Basic  3.0 MSCOMM.VBX程序设计:使用MODEM拨号,人工通话
    '' 程序名:MDIALER.TXT
    '' 军事医学科学院计算中心 夏云,1995.2.12
    '' 运行:使用VB FILE中的Load Text项装入,按F5或生成.EXE文件运行
    '' ------------
    Option Explicit
    Dim PhoneNumbers$()''电话号码存储变量
    Dim CancelFlag''Cancel按钮状态标志
    Sub Dial(Number$)''拨号例程
    Dim DialString$,FromModem$,dummy
      ''根据脉冲/双音多频拨号方式来选择DT/DP;
      ''所拨号码存放在变量PhoneNumbers$(Index)中;
      ''命令中的分号表示MODEM在拨号后重新回到命令状态;
      ''每个命令由回车符Chr$(13)结束;
      DialString$="ATDT"+Numbercontent";"+Chr$(13)
      Commi.Settings="2400,N,8,1"''设置帧格式
      On Error Resume Next''错误恢复
      Commi.PortOpen=True''启动该口工作
      If Err Then''如果该口不可启动,则显示信息
        MsgBox"当前串行通信端口不能工作,请选择使用另外端口。”
        Exit Sub
      End if
      Commi.InBufferCount=0''清除接收缓冲器
      Commi.Output=DialString