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