VFP中实现电话拨号
|
|
|
|
作者：佚名
来源：InterNet 加入时间：2005-1-31 |
|
用ＶＦＰ 管理名片簿、通信录时，经常要用到电话拨号程序。如直接使用Ｗｉｎｄｏｗｓ ９８自带的拨号程序，ＶＦＰ 程序的完整性和界面一致性都将受到影响。
设计思想
要实现拨号，只需让程序往串口写入ａｔ 命令。利用ＶＦＰ 对Ｍｉｃｒｏｓｏｆｔ ＣｏｍｍＣｏｎｔｒｏｌ 控件的支持可以方便地控制电话。假设有一数据表Ｃｏｍｍｕｎｉｃａｔｉｏｎ ．ｄｂｆ ，内容如下：姓名电话号码其他张三１２３４５６７ＥＴＣ……将上述表引入表单Ｆｏｒｍ１的数据环境之后，在Ｆｏｒｍ１上加入下列控件，如下所示：
控件名称控件类型控件属性值
Ｔｅｘｔ１Ｔｅｘｔ ＣｏｎｔｒｏｌＳｏｕｒｃｅ ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ ．姓名
Ｔｅｘｔ２Ｔｅｘｔ ＣｏｎｔｒｏｌＳｏｕｒｃｅ ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ ．电话号码
Ｃｏｍｍａｎｄ１Ｃｏｍｍａｎｄ Ｂｕｔｔｏｎ Ｃａｐｔｉｏｎ ＝“拨号”
Ｃｏｍｍａｎｄ２Ｃｏｍｍａｎｄ Ｂｕｔｔｏｎ Ｃａｐｔｉｏｎ ＝“挂断”
Ｃｏｍｍａｎｄ３Ｃｏｍｍａｎｄ Ｂｕｔｔｏｎ Ｃａｐｔｉｏｎ ＝“下条记录”
在表单中加入ＯＬＥ 容器控件，当提示菜单出现时，选择Ｉｎｓｅｒｔ Ｃｏｎｔｒｏｌ ，在Ｃｏｎｔｒｏｌ Ｔｙｐｅ（控件类型）栏内找到并双击Ｍｉｃｒｏｓｏｆｔ ＣｏｍｍＣｏｎｔｒｏｌ ，这时表单上会出现一个带电话标志的图标，设定该控件的名称为Ｔｅｌｅｐｈｏｎｅ ，这就是在ＶＦＰ 中实现电话拨号的核心部件。选择Ｔｅｌｅｐｈｏｎｅ 控件，单击鼠标右键，选择ＭＳＣｏｍｍＰｒｏｐｅｒｔｉｅｓ 菜单项，可以更加灵活地控制该控件。
设定事件代码
在Ｆｏｒｍ１的Ｉｎｉｔ 事件中加入下列代码：
ｇｏ ｔｏｐ
＊设定通讯端口号，可根据你的实际情况设定
＊笔者的Ｍｏｄｅｍ 是接在Ｃｏｍ３上的ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ＣｏｍｍＰｏｒｔ ＝３
＊设定端口的通讯速率（波特率）、通讯字长以及是否进行校验
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．Ｓｅｔｔｉｎｇｓ ＝″９６００，ｎ ，８，１″
在Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ 事件中加入下述代码：
ｔｈｉｓ ．ｅｎａｂｌｅｄ ＝．ｎｏｔ ．ｔｈｉｓ ．ｅｎａｂｌｅｄ
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ ＝．ｔ ．
＊打开通信端口，准备工作
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ｐｏｒｔｏｐｅｎ ＝．ｔ ．
＊ＡＴＤＴ表示执行ＡＴ命令中的ＤＴ指令，Ｄ 表
示首先挂断电话
＊Ｔ表示使用音频拨号，如果你的电话使用的
是脉冲方式拨号
＊请将Ｔ改为Ｐ，ＣＨＲ（１３）表示发送命令完毕
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ｏｕｔｐｕｔ ＝″ＡＴＤＴ″＋电话号码＋
ｃｈｒ（１３）
ｗａｉｔ ｗｉｎｄ″正在拨号，请稍候″ｎｏｗａ
在Ｃｏｍｍａｎｄ２的Ｃｌｉｃｋ 事件中写入下列代码：
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ ＝．ｔ ．
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ ＝．ｆ ．
＊关闭通信端口
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ｐｏｒｔｏｐｅｎ ＝．ｆ ．
在Ｃｏｍｍａｎｄ３的Ｃｌｉｃｋ 事件中写入下列代码：
ｓｋｉｐ ｉｆ ｅｏｆ（）
ｇｏ ｔｏｐ
ｅｎｄｉ
ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ
经过上面几个步骤，大功告成了。戴上耳机，对着话筒。
[文章录入员:nancy] |
|
|
|
|
