基于VB的CTI电话语音应答系统

第四章：系统的实现技术

4.1模块详述系统各部分的实现方法

本人最初的想法是对大丰城市规划及土地管理业务系统的缺陷的一个补充，软件要能实现CTI的如下功能:1.来电显示 2.来电应答  3.打电话 4.放音 5.录音 6.收发短消息7收发传真.

其功能详细描述如下：

4．2程序流程

在设计之前所要强调的是：要购买一个外置式的猫，同时电话还要开通家家E功能。为什么要开通家家E功能，因为我们发送的短消息是通过家家E的功能来与手机、小灵通相互联系的。有了这些准备后，将猫接在计算机的串口上，正确地装好驱动程序。 

来电显示功能的实现（首先要向电信局开通来电显示功能）：

Private Sub V_CallerID(ByVal LineIndex As Integer, ByVal CallerID As String)’当电话来的时候响应，一般在来电的第二声电信局送电话号码信息到电话机上面。

showMsg "CallerID：" & CallerID ‘Callerid就是指的来电号码

End Sub

过程结束

Private Sub V_Connected(ByVal LineIndex As Integer, ByVal fInComing As Boolean)’当电话接通时，产生该事件，这时将显示哪条线路，有没有来电。

V.SetCurLine LineIndex 程序设定哪条线路将接通

If fInComing Then‘如果有哪条线路被接通，则显示哪条线路被接通。

showMsg CStr(LineIndex) + "Line connected after  answering(" + V.LineName + ")"‘显示哪一条线路被接通

Else

showMsg CStr(LineIndex) + "line connected(" + V.LineName + ")"

End If

cmdDrop.Enabled = True‘挂断按钮生效

If OptLine.Value Then如果录音是否被选中，则去检测声音文件是否存在,注明：dir是查找文件的意思.

 If Not (Dir("record.wav") = "" And optPlayFileRecorded.Value) Then

cmdStartOrStopPlay.Enabled = True

 End If ‘播放或停止按钮有效

 cmdStartOrStopRecord.Enabled = True‘播放或停止按钮有效

ckMonitorSilence.Enabled = True

‘静默按钮有效

 End If

ckMonitorDigit.Enabled = True ‘检测按键有效

 cmdGatherDigits.Enabled = True 收集按键信息按钮有效

 framGatherDigits.Enabled = True收集按键信息框架有效

 ckUseSpeakerphone.Enabled = True ‘卖克风有效

 cmdGenerateDigits.Enabled = True 一般按键有效

 CallState = CALL_STATE_CONNECTED 当前线路状态是已联接

End Sub

Enum CALL_STATE ''定义枚举变量类型CALL_STATE,用来标记当前线路的状态。

 CALL_STATE_IDLE ''空闲

 CALL_STATE_DIALING '' 正在拨号

 CALL_STATE_CONNECTED ''电话接通

End Enum 结束枚举

Private CallState As CALL_STATE ''将CallState定义为CALL_STATE类型的变量

Private Sub ckMonitorDigit_Click() 检测按键单击产生以下事件。

V.MonitorDigit ckMonitorDigit.Value 是否检测按键，Ckmonitordigit.value有两种值，checked 或 unchecked

End Sub

Private Sub ckMonitorSilence_Click()检测静默

If ckMonitorSilence.Value Then 如果静默被选中则

V.MonitorSilence CLng(txtTimeForSilence.Text)

‘则指定期静默时间,时间由txttimeforsilence文本内的内容决定。

cmdStartOrStopPlay.Enabled = False

开始或停止按钮失效。

Else ‘否则

V.MonitorSilence 0

‘静默0秒钟

cmdStartOrStopPlay.Enabled = True

开始或停止按钮有效。

End If

End Sub 结束过程

Private Sub ckUseSpeakerphone_Click()

‘ckusespeakerphone一点击就触发以下事件：

V.EnableSpeakerPhone IIf(ckUseSpeakerphone.Value = 1, True, False)

‘是否允许耳卖有效,这里iif就相当于 if(ckusespeakerphone.value=1 then

v.enabelspeakerphone=true 可以用耳卖讲话

else

v.enabelspeakerphone=flase 不可以用耳卖讲话

endif

If V.ErrorNumber Then showMsg V.ErrorDescribe

如果出现错误，则显示错误原因  

End Sub

Private Sub cmbLines_Click() 选择线路

V.Close ‘则关闭当前联接

V.SetCurLine (cmbLines.ListIndex)

‘设置当前线路为cmblines.listindex   

V.Open

‘打开刚刚选择的线路

cmdDial.Enabled = True

拨打电话按钮有效

V.LineForShowWave = cmbLines.ListIndex

当前播放声音指向当前线路

If V.ErrorNumber <> 0 Then

‘如果有错误产生，则显示错误

showMsg V.ErrorDescribe

End If

调用挂断电话程序

cmdDrop_Click

以下程序是判断语音猫还是语音卡.

If V.LineType = 2 Or V.OperateMode = 1 Then ''语

猫 Voice modem

cmbWaveFormat.ListIndex = 0

设置指定的语音格式

cmbWaveFormat.Enabled = False

cmbwaveformat选择框无效

ElseIf V.LineType = 3 Then ''语音卡 Voice board

cmbWaveFormat.ListIndex = 1

‘设置指定语音格式

cmbWaveFormat.Enabled = True

‘cmbwaveformat有效

End If

End Sub

‘接听电话效果

Private Sub cmdAnswer_Click()

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167