|
用ＶＦＰ 管理名片簿、通信錄時，經常要用到電話撥號程序。如直接使用Ｗｉｎｄｏｗｓ ９８自帶的撥號程序，ＶＦＰ 程序的完整性和界面一致性都將受到影響。
設計思想
要實現撥號，只需讓程序往串口寫入ａｔ 命令。利用ＶＦＰ 對Ｍｉｃｒｏｓｏｆｔ ＣｏｍｍＣｏｎｔｒｏｌ 控件的支持可以方便地控制電話。假設有一數據表Ｃｏｍｍｕｎｉｃａｔｉｏｎ ．ｄｂｆ ，內容如下：姓名電話號碼其他張三１２３４５６７ＥＴＣ……將上述表引入表單Ｆｏｒｍ１的數據環境之后，在Ｆｏｒｍ１上加入下列控件，如下所示：
控件名稱控件類型控件屬性值
Ｔｅｘｔ１Ｔｅｘｔ ＣｏｎｔｒｏｌＳｏｕｒｃｅ ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ ．姓名
Ｔｅｘｔ２Ｔｅｘｔ ＣｏｎｔｒｏｌＳｏｕｒｃｅ ＝ｃｏｍｍｕｎｉｃａｔｉｏｎ ．電話號碼
Ｃｏｍｍａｎｄ１Ｃｏｍｍａｎｄ Ｂｕｔｔｏｎ Ｃａｐｔｉｏｎ ＝“撥號”
Ｃｏｍｍａｎｄ２Ｃｏｍｍａｎｄ Ｂｕｔｔｏｎ Ｃａｐｔｉｏｎ ＝“掛斷”
Ｃｏｍｍａｎｄ３Ｃｏｍｍａｎｄ Ｂｕｔｔｏｎ Ｃａｐｔｉｏｎ ＝“下條記錄”
在表單中加入ＯＬＥ 容器控件，當提示菜單出現時，選擇Ｉｎｓｅｒｔ Ｃｏｎｔｒｏｌ ，在Ｃｏｎｔｒｏｌ Ｔｙｐｅ（控件類型）欄內找到并雙擊Ｍｉｃｒｏｓｏｆｔ ＣｏｍｍＣｏｎｔｒｏｌ ，這時表單上會出現一個帶電話標志的圖標，設定該控件的名稱為Ｔｅｌｅｐｈｏｎｅ ，這就是在ＶＦＰ 中實現電話撥號的核心部件。選擇Ｔｅｌｅｐｈｏｎｅ 控件，單擊鼠標右鍵，選擇ＭＳＣｏｍｍＰｒｏｐｅｒｔｉｅｓ 菜單項，可以更加靈活地控制該控件。
設定事件代碼
在Ｆｏｒｍ１的Ｉｎｉｔ 事件中加入下列代碼：
ｇｏ ｔｏｐ
＊設定通訊端口號，可根據你的實際情況設定
＊筆者的Ｍｏｄｅｍ 是接在Ｃｏｍ３上的ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ＣｏｍｍＰｏｒｔ ＝３
＊設定端口的通訊速率（波特率）、通訊字長以及是否進行校驗
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．Ｓｅｔｔｉｎｇｓ ＝″９６００，ｎ ，８，１″
在Ｃｏｍｍａｎｄ１的Ｃｌｉｃｋ 事件中加入下述代碼：
ｔｈｉｓ ．ｅｎａｂｌｅｄ ＝．ｎｏｔ ．ｔｈｉｓ ．ｅｎａｂｌｅｄ
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ ＝．ｔ ．
＊打開通信端口，準備工作
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ｐｏｒｔｏｐｅｎ ＝．ｔ ．
＊ＡＴＤＴ表示執行ＡＴ命令中的ＤＴ指令，Ｄ 表
示首先掛斷電話
＊Ｔ表示使用音頻撥號，如果你的電話使用的
是脈沖方式撥號
＊請將Ｔ改為Ｐ，ＣＨＲ（１３）表示發送命令完畢
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ｏｕｔｐｕｔ ＝″ＡＴＤＴ″＋電話號碼＋
ｃｈｒ（１３）
ｗａｉｔ ｗｉｎｄ″正在撥號，請稍候″ｎｏｗａ
在Ｃｏｍｍａｎｄ２的Ｃｌｉｃｋ 事件中寫入下列代碼：
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ ＝．ｔ ．
ｔｈｉｓｆｏｒｍ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ ＝．ｆ ．
＊關閉通信端口
ｔｈｉｓｆｏｒｍ．ｔｅｌｅｐｈｏｎｅ ．ｐｏｒｔｏｐｅｎ ＝．ｆ ．
在Ｃｏｍｍａｎｄ３的Ｃｌｉｃｋ 事件中寫入下列代碼：
ｓｋｉｐ ｉｆ ｅｏｆ（）
ｇｏ ｔｏｐ
ｅｎｄｉ
ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ
經過上面幾個步驟，大功告成了。戴上耳機，對著話筒。
（四川省新都縣國家稅務局６１０５００）
| 
