VB语音开发
一、引言
电话语音查询系统已广泛应用于电话银行、话费查询、证券委托、自动缴费（水、电、气等费用）、语音信箱、自动声讯服务、民航、公共考务、铁路等部门的信息查询以及各种公共场所自动回答顾客提问等领域。
电话语音查询系统的工作流程是用户拨通电话语音查询系统的热线电话，并根据电话中的语音提示，通过按电话键来查询电脑中存储的各种信息； 电脑自动对用户的操作进行应答，并以语音形式将信息反馈给用户。 其组成结构如图１所示。
图１ 自动语音查询系统
二、组成
电话语音查询系统是现代电信技术与计算机技术高度结合的产物，一般由硬件和软件两部分组成。
1. 硬件
电话语音查询系统的硬件部分主要包括：电脑、电话语音卡、外线（普通市话线路）或内线。
语音卡，具体地讲，是“电脑与电话语音处理卡”（以下简称为“语音卡”），它是一种用于电脑并能够实现语音处理的电脑插件。语音卡的主要功能是：通过计算机与电话网相连，提供录音、放音、收码（DTMF 码、PULSE 码）、自动拨号、 振铃检测与控制摘挂机、信令检测、转接内线、监控录音、传真、数据传输、主叫号侦测等服务功能。
硬件部分的安装过程极为简单。只要将电话语音卡插入电脑的扩展槽中，再将电话线接至电话语音卡提供的电话插座上，即可构成电话语音查询系统的硬件部分。
2. 软件
软件一般由操作系统、电话语音卡底层驱动软件和二次开发接口软件、电话语音查询系统应用软件等三个部分构成。由于目前电话语音卡的国际标准尚未制订，因此不同生产厂家仍需随卡提供支持各种电话语音功能（如录音、放音、接收和发送双音频码等）的底层驱动软件。但是，很多生产厂家还提供了方便用户进行二次开发的各种编程语言接口（主要以 .DLL 文件格式提供）。
电话语音查询系统应用软件一般由电话语音处理和数据库处理两大程序模块组成。
电话语音处理程序模块的主要任务是负责完成（通过调用底层驱动软件）每条线路的摘挂机控制、放音、录音、接收由用户按键产生的双音频信号以及发送双音频信号等功能，并能够检测各种信号音，如占线、忙音等。
数据库处理程序模块是根据语音处理模块所采集的考号在数据库中查询所对应成绩的模块，是语音查询系统最重要的组成部分之一。
三、实现
1．先把语音卡（我们用北京五岳鑫信息技术有限公司生产的8口的TW_8VID型语音卡）插到电脑主板后重新启动计算机并安装该卡底层驱动软件和二次开发接口软件程序（相关库函数动态连接口），以便电话语音处理。
2．通过语音卡自带的录音功能把欢迎信息、用户操作提示信息、出错提示信息、引导信息、特别是把分数等用中文语音的方式描述出来，以便在语音查询系统的适当过程中播放出来，引导用户正确使用查询系统和获得所需要的信息。
3．打开VB创建一个工程，分别添加5个计时器控件（Timer）及数据库连接控件（Ado），主要用于语音处理和数据库查询，为保证语音处理的实时性，故将每个计时器的Timer属性设置为200ms。核心代码如下：
Dim AppDir As StringDim MaxChannel As LongDim Dig As DoubleDim DataFound As BooleanDim DataReturn As StringDim ReturnValueType As IntegerDim CurChannel As IntegerDim ChannelHitKey(0 To 7) As IntegerDim ChannelSentence(0 To 7) As StringDim ChannelTW_Folder(0 To 7) As StringDim ChannelPlayFile(0 To 7) As StringDim ChannelPlayTotal(0 To 7) As LongDim ChannelPlayRest(0 To 7) As LongDim ChannelRes(0 To 7) As LongDim ChannelPlaySentences(0 To 7) As String Dim ChannelDataFound(0 To 7) As BooleanDim ChannelReturnScore(0 To 7) As StringDim ChannelReturnValueType(0 To 7) As IntegerDim ChannelWaiteTime(0 To 7) As IntegerDim Score(0 To 7) As Integer Dim ChannelRings(0 To 7) As IntegerDim ChannelCallingID(0 To 7) As StringDim ChannelCallingDate(0 To 7) As DateDim ChannelCallingStartTime(0 To 7) As StringDim ChannelCallingEndTime(0 To 7) As StringDim ChannelStep(0 To 7) As IntegerDim ChannelLanguage(0 To 7) As Integer Dim ChannelIsBegin(0 To 7) As BooleanDim ChannelSig(0 To 7) As LongDim ChannelCount(0 To 7) As LongDim ChannelSigLen(0 To 7) As LongDim ChannelSigUnuse(0 To 7) As LongDim BarCodeStr As StringDim ChannelBarCodEnterCount(0 To 7) As Integer Private Sub SetVoice() TV_SetVoicei CN_END, ""TV_SetVoicei CN_NOTHING, "" TV_SetVoicei Asc(0), "voice\d0.tw" '设置各数字及各种语音提示的对应语音文件TV_SetVoicei Asc(1), "voice\d1.tw" TV_SetVoicei Asc(9), "voice\d9.tw"TV_SetVoicei Asc(10), "voice\d10.tw"TV_SetVoicei Asc(11), "voice\d100.tw"TV_SetVoicei Asc(12), "voice\fen.tw" '单字“分”的ASCII码 End Sub Private Sub Form_Load()Dim Channels As IntegerChannels = TV_Installed()If Channels = 0 ThenMsgBox "Tw8vid 驱动程序没有安装!"TV_DisableEndEnd IfTV_Initialize '初始化语音卡Call SetVoiceEnd Sub Private Sub Tmr_3_0_Timer()' 功能: 第三号通道的主控制程序模块Dim Channel As IntegerChannel = 3If Channels(Channel).CStatus = WS_HANGUP ThenChannelRings(Channel) = TV_RingDetect(Channel)If ChannelRings(Channel) > 2 ThenTV_OffHookCtrl ChannelCall InitializeChannal(Channel)ChannelStep(Channel) = 1Channels(Channel).CStatus = WS_OFFHOOKEnd If'End IfIf Channels(Channel).CStatus = WS_OFFHOOK Then ｀处于摘机状态Select Case ChannelStep(Channel) Case 1: ｀用户刚刚登陆系统播放欢迎词ChannelPlayFile(Channel) = App.Path + "\voice" + "welcome.tw" ｀欢迎词ChannelWaiteTime(Channel) = 25TV_StartTimer Channel, ChannelWaiteTime(Channel)Case 2: ｀提醒用户输入考号ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_2.tw" ｀请输入考号ChannelWaiteTime(Channel) = 50 TV_StartTimer Channel, ChannelWaiteTime(Channel)Case 3: ｀提醒用户稍等以便系统进入下一个阶段ChannelPlayFile(Channel) = App.Path + "\voice" +"\CHN_12.tw" ｀请稍等ChannelWaiteTime(Channel) = 50TV_StartTimer Channel, ChannelWaiteTime(Channel)ChannelStep(Channel) = 2 ｀开始输入考号Case 4: ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_3.tw" ｀您所输入的考号为ChannelWaiteTime(Channel) = 35TV_StartTimer Channel, ChannelWaiteTime(Channel)ChannelStep(Channel) = 5 ｀开始放音"所输入的考号为"Case 6:ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_4.tw"确认请按1 ,重新输入请按2,退出本系统请按3ChannelWaiteTime(Channel) = 15TV_StartTimer Channel, ChannelWaiteTime(Channel)ChannelStep(Channel) = 7 ｀开始放音"确认请按1。。。。"Case 8:ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_11.tw" ｀请稍等TmrSearch_3_4.Enabled = TrueChannelStep(Channel) = 8 ｀开始放音所输入的考号Case 9:ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_5.tw" ｀'谢谢使用Case 10:ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_10.tw" ｀ 你的成绩为：。。。。ChannelWaiteTime(Channel) = 15TV_StartTimer Channel, ChannelWaiteTime(Channel)ChannelStep(Channel) = 7 Case 11:ChannelPlayFile(Channel) = App.Path + "\voice" + "\Chn_11.tw" ｀你的成绩尚未录入 End Select If TV_StartPlayFile(Channel, ChannelPlayFile(Channel), 0, LONG_MAX) = -1 ThenMsgBox "放音失败！", MB_ICONSTOP, "监听外线"TV_HangUpCtrl ChannelChannelIsBegin(Channel) = TrueElse ｀正在开始放音"Channels(Channel).CStatus = WS_PLAYINGTV_FlushDTMF (Channel)Select Case ChannelStep(Channel)Case 1TmrChoose_3_1.Enabled = True Case 2TmrInputExamCode_3.Enabled = True ｀启动考号输入操作监测模块ChannelExamCode(Channel) = ""ChannelSentence(Channel) = ""Case 7TmrConfirm_3_3.Enabled = True ｀启动确认按键End SelectEnd IfEnd IfIf Channels(Channel).CStatus = WS_PLAYING ThenSelect Case TV_PlayFileRest(Channel)Case -1MsgBox "放音失败！", MB_ICONSTOP, "监听外线"TV_HangUpCtrl Channel Channels(Channel).CStatus = WS_HANGUP Case 0 Channels(Channel).CStatus = WS_WAITING If ChannelStep(Channel) = 5 Then TV_PlaySentence Channel, ChannelSentence(Channel) Channels(Channel).CStatus = WS_PLAYINGSENTENCE ChannelRes(Channel) = 0 TmrReadData_3_2.Enabled = True ｀启动读出用户所输入考号模块 End If If ChannelStep(Channel) = 7 Then TV_PlaySentence Channel, ChannelSentence(Channel) Channels(Channel).CStatus = WS_PLAYINGSENTENCE ChannelRes(Channel) = 0ChannelStep(Channel) = 12 ｀设置为查询完毕 End If If ChannelStep(Channel) = 8 Then TmrSearch_3_4.Enabled = True If (ChannelStep(Channel) >= 9) And (ChannelStep(Channel) <= 12) Then TV_HangUpCtrl Channel Channels(Channel).CStatus = WS_HANGUP ChannelIsBegin(Channel) = False End If End SelectEnd If If (ChannelStep(Channel) = 9) And (Channels(Channel).CStatus = WS_ENDSEARCHING) ThenIf ChannelDataFound(Channel) ThenScore(Channel)= Val(Trim(ChannelReturnScore(Channel)))ChannelSentence(Channel) =""Select Case Trim(ChannelReturnScore(Channel))Case "100"ChannelSentence(Channel) = String(1, Chr(11) ) ｀“一百分”语音Case ElseIf (Score(Channel))<=10 then ChannelSentence(Channel) =String(1, Chr(Score(Channel))) ｀“几分”语音ElseChannelSentence(Channel) =String(1, Chr(Score(Channel)\10))+ String(1, Chr(10))+ String(1, Chr(Score(Channel) Mod 10)) ｀“几十几分”语音End If End SelectChannelStep(Channel) =10 ElseChannelStep(Channel) =11 End IfTV_StopPlayFile (Channel) ｀停止“请稍等”语音Channels(Channel).CStatus = WS_OFFHOOKEnd IfEnd Sub Private Sub TmrChoose_3_1_Timer()｀功能: 第三号通道开始工作时选择服务类别Dim Channel As IntegerChannel = 3If (ChannelStep(Channel) = 1) And (Channels(Channel).CStatus = WS_PLAYING Or Channels(Channel).CStatus = WS_WAITING Or Channels(Channel).CStatus = WS_DTMF) ThenChannelHitKey(Channel) = TV_GetDTMFChar(Channel)If ChannelHitKey(Channel) <> -1 ThenTV_StopPlayFile (Channel)Channels(Channel).CStatus = WS_DTMFSelect Case ChannelHitKey(Channel)Case 49:TV_StopPlayFile (Channel)Channels(Channel).CStatus = WS_OFFHOOKChannelStep(Channel) = 2 ｀服务选择为开始输入卡号TmrChoose_3_1.Enabled = FalseCase 50:TV_StopPlayFile (Channel)Channels(Channel).CStatus = WS_OFFHOOKChannelStep(Channel) = 2 ｀退出本系统TmrChoose_3_1.Enabled = FalseEnd SelectElseIf (TV_TimerElapsed(Channel) = -1) ThenChannels(Channel).CStatus = WS_OFFHOOKChannelStep(Channel) = 9 ｀超时直接退出本系统TmrChoose_3_1.Enabled = False End IfEnd IfEnd SubPrivate Sub TmrReadData_3_2_Timer()｀功能: 第三号通道 ,给用户读出所输入考号数据Dim Channel As IntegerChannel = 3If (ChannelStep(Channel) = 5) And (Channels(Channel).CStatus = WS_PLAYINGSENTENCE) ThenChannelRes(Channel) = TV_PlaySentenceRest(Channel) Select Case ChannelRes(Channel) Case 0 ChannelStep(Channel) = 6 Channels(Channel).CStatus = WS_OFFHOOK TmrReadData_3_2.Enabled = False Case -2 'MsgBox "未定义的文件名", MB_ICONSTOP, "读数字" End SelectEnd IfEnd SubPrivate Sub TmrInputExamCode_3_Timer()｀功能: 第三号通道 , 输入考号数据Dim Channel As IntegerChannel = 3 If (ChannelStep(Channel) = 2) And (Channels(Channel).CStatus = WS_PLAYING Or Channels(Channel).CStatus = WS_WAITING Or Channels(Channel).CStatus = WS_DTMF) ThenChannelHitKey(Channel) = TV_GetDTMFChar(Channel) If ChannelHitKey(Channel) <> -1 Then TV_StopPlayFile (Channel) Channels(Channel).CStatus = WS_DTMF Select Case ChannelHitKey(Channel) Case 48 To 57: ChannelExamCode(Channel) = Trim(ChannelExamCode(Channel)) + String(1, Chr(ChannelHitKey(Channel))) ChannelSentence(Channel) = Trim(ChannelSentence(Channel)) + String(1, Chr(ChannelHitKey(Channel) ) Case 35: If Len(ChannelExamCode(Channel)) <> 10 Then ChannelExamCode(Channel) = ChannelSentence(Channel) + "输入有误" ChannelStep(Channel) = 3 ｀输入数据有误 ChannelExamCode(Channel) = "" ChannelSentence(Channel) = "" Else ChannelStep(Channel) = 4 ｀输入数据正确、确认、重新输入 End If Channels(Channel).CStatus = WS_OFFHOOK TmrInputExamCode_3.Enabled = False End Select ElseIf (TV_TimerElapsed(Channel) = -1) Then Channels(Channel).CStatus = WS_OFFHOOK ChannelStep(Channel) = 9 ｀退出本系统 End If End IfEnd Sub Private Sub TmrSearch_3_4_Timer()｀功能: 第三号通道 ,按考号进行查询操作'Dim Examcode_str As StringDim Channel As IntegerChannel = 3TmrSearch_3_4.Enabled = FalseIf (ChannelStep(Channel) = 8) Then Adodc1.RecordSource = "SELECT EXAMVAL FROM STUDRECORD WHERE EXAMCODE=" + "'" + ChannelExamCode(Channel) + "'" Adodc1.Refresh If Not Adodc1.Recordset.EOF Then ｀库中存在此考生信息 ChannelDataFound(Channel) = True ChannelReturnScore (Channel) = Adodc1.Recordset.Fields("EXAMVAL").Value & "" Else ChannelDataFound(Channel) = False ｀库中不存在此考生信息 End If Channels(Channel).CStatus = WS_ENDSEARCHING ChannelStep(Channel) = 9End IfEnd Sub? 四、测试
当外线电话打入时，计算机自动检测到振铃信号，并开始播放提示音，同时开始接收用户的电话按键信息。用户通过电话按键输入考号，计算机根据接收的信息从后台数据库中取得查询结果数据，并将相应分数数据进行语音合成，再通过语音卡的相应外线电话通道播放查询结果。
五、结语
在通讯技术飞速发展且普及的今天，利用电话这一最为百姓常用的通讯工具并开发相应的各类信息查询软件，实现无论在何时何地均可查询本(用)户所需信息，确实是一件方便用户的好事，值得供各类信息服务提供者的推广应用。本文提供了实现语音成绩查询系统的整个源代码，相信读者利用这些源程序可以开发出适合自己需求的语音查询系统。