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