/*************************************************************
北京高阳圣思园信息技术有限公司IVR业务:
流程说明:公司介绍子流程
发布版本:Version 1.0.0
编写日期:2005-05-27
修改日期:2006-03-02
流程作者:Hisunsray
联系方式:Tel - (010)84505155-531
E_Mail :[email protected]
版权归属:北京高阳圣思园信息技术有限公司
*************************************************************/ /*************************************************************
主流程修改记录:
2005-05-27:编制公司介绍子流程
2006-03-02:修改流程为点歌台,增加上一条,下一条,重听操作
*************************************************************/ /*************************************************************
寄存器使用说明:
SR10: 播放内容
SR0:  系统提示音路径
SR30: 播放的提示音
SR50: 内容语音路径
SR51: 播放的内容语音 *************************************************************/
/************************************************************
子流程输入输出参数说明:
输入:
无 输出:
_Field1:点送的内容
返回值:
0:表示成功
1:表示失败
*************************************************************/
/*****************宏定义*************************************/
#define SUCCESS 0
#define EXCEPTION 1
/************************************************************/ TRACE ON FUNCTION Func_key1
{ /**
开始
*/
BEGIN:
EvtStart[]
ReadStrFromINI(_INIFileName,"PATH.key1",SR0) /*z:\0236\125901234\1\*/
ReadStrFromINI(_INIFileName,"PATH.key1Content",SR50) /*z:\0236\125901234\1\content\*/
->stTipVoice //跳转到函数 /**
播放欢迎语音
*/
stTipVoice:
SAssign(SR30,SR0) //把路径赋值给SR30
SAdd(SR30,"Tip1.vox") //收听过程中按1键听下一条,2键听上一条,3键重听,按*键返回主菜单
PlayFile(SR30,"?") //"?"代表按任意键打断,""表示不打断 //未打断
EvtReturn[]
SAssign(SR1,"song") //歌曲名称的共有名song
SAssign(SR2,"") //歌曲名称的编号
-> stPlayContent //打断
EvtReturn[]
SAssign(SR1,"song")
SAssign(SR2,"")
-> stPlayContent //异常
EvtReturn[-] -> END //异常 /**
根据变量播放内容语音
*/
stPlayContent:
SAssign(SR51,SR50) //*z:\0236\125901234\1\content\*/
SAdd(SR51,SR1) //z:\0236\125901234\1\content\song
SAdd(SR51,SR2) //z:\0236\125901234\1\content\song1 SR2为计数变量,下一首则加,上一首则减
SAdd(SR51,".vox") //播放第一首song1.vox
PlayFile(SR51,"123#*") //z:\0236\125901234\1\content\song1.vox
EvtReturn[] -> stGetDigits //等待用户按键
EvtReturn[] -> stGetDigits
EvtReturn[-] -> END stGetDigits:
GetDigits(,,"") //获取用户按键,3秒超时
EvtReturn[]
//SAssign(SR10,_EventData)
-> stCheckButton //如果正常获取,则检查按键
EvtReturn[] -> stPlayContent //超时重放
EvtReturn[-] -> END //返回 stCheckButton:
CheckPushedButton() //检查用户按键
EvtReturn[] -> stNext //按键1
EvtReturn[] -> stBefore //按键2
EvtReturn[] -> stPlayContent //按键3
EvtReturn[] -> END //按键#
EvtReturn[] -> END //按键*
EvtReturn[-] -> stPlayContent //其他按键 stNext: //听下一条
StoI(IR2,SR2) //类型转换
IAdd(IR2,) //序号加1
IEqual(IR2,) //序号与10比较
EvtReturn[] //参数1大于参数2
SAssign(SR2,"")
->stPlayContent
EvtReturn[-]
ItoS(SR2,IR2)
->stPlayContent stBefore: //听上一条
StoI(IR2,SR2)
ISub(IR2,) //序号减1
IEqual(IR2,) //序号与1比较
EvtReturn[] //参数1小于参数2
SAssign(SR2,"")
->stPlayContent
EvtReturn[-] //其他
ItoS(SR2,IR2)
->stPlayContent /********************************************随机播放内容音*****************************************************/ stRandPlay:
IntRand(IR2,) //IR2中的随机数为0至10中的任意一个
IEqual(IR2,)
EvtReturn[]
IAdd(IR2,)
ItoS(SR2,IR2)
->stPlayContent
EvtReturn[-]
ItoS(SR2,IR2)
->stPlayContent }
05-07 15:27