读书人
栏目▼

帮忙看看这代码是什么语言？解决办法

发布时间： 2013-01-25 15:55:29 作者： rapoo

帮忙看看这代码是什么语言？


一个ivr简单的流程代码
#function PlayRoundSMS
#function main
#declare SR sCode
#declare SR Path
main
{
:stWait
 Connect(0) -> stAllocResource
 Connect -> stAllocResource
 
:stAllocResource           
 [ setvoxformat 8000,4]  
 [ ClearDTMF ]
 [ AllocMediaDevice 1 ]
 AllocResourceOK -> stSetMandarin
 AllocResourceFail -> stExit
     
:stSetMandarin
        [ EnableCall 0]
 [ SetLang 1 ]
 -> stBillBegin
      
:stBillBegin         
 [ BillBegin 1,0,$ServiceItemNo ]
 Verify(0) -> stWelcome
 Verify(-1) -> stExit
 
:stWelcome     
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\jytip01.vox"  ]   //播放欢迎词。
 StopPlayBack -> stStart
 DialTerminate -> stStart
 Failed->stExit
 Bargein ->stExit
            
:stStart     
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\jytip02.vox"  ]   //播放按键提示。按1进入每日一句按2进入经典对话按3进入慢速英语按4进入英文歌曲按5进入名人演讲按6进入英文交友按7进入人工咨询按8进入公司简介.
 StopPlayBack -> stChoose
 DialTerminate -> stChoose
 Failed->stExit
 Bargein ->stExit
  
:stChoose
 [ SETDTMF "?"]
 [ DIGIT 5 ]
 StopDigits('1') -> stKey1   //按1每日一句
 StopDigits('2') -> stKey2           //按2进入经典对话
 StopDigits('3') -> stKey3         //按3慢速英语
 StopDigits('4') -> stKey4         //按4英文歌曲
 StopDigits('5') -> stKey5         //按5名人演讲
 StopDigits('6') -> stKey6         //按6英文交友
 StopDigits('7') -> stKey7         //按7人工咨询
 StopDigits('8') -> stKey8         //按8公司简介
 StopDigits -> stStart  
 TimeOut -> stStart 
 Failed ->stExit
 Bargein ->stExit
:stKey1        //
        [ Assign Path,".\vox\1\"]
        [ Assign sCode,"1"]
        [ CallFunc &PlayRoundSMS ]     
        Returned(3)->stKey1
        Returned(4)->stKey2
        Returned(5)->stKey3
        Returned(6)->stKey4
        Returned(7)->stKey5
        Returned(8)->stKey6 
 
        Returned(9)->stKey7
        Returned(10)->stKey8
        Returned(-1)->stStart
        Returned(1)->stStart
            
//----------------------------------------------          
:stKey2         //
        [ Assign Path,".\vox\2\"]
        [ Assign sCode,"2"]             //
        [ CallFunc &PlayRoundSMS ]     
        Returned(3)->stKey1
        Returned(4)->stKey2
        Returned(5)->stKey3
        Returned(6)->stKey4
        Returned(7)->stKey5
        Returned(8)->stKey6
        Returned(9)->stKey7
        Returned(10)->stKey8
        Returned(-1)->stStart
        Returned(1)->stStart
       
//-------------------------------------------             
:stKey3       //
        [ Assign Path,".\vox\3\"]
        [ Assign sCode,"3"]             //
        [ CallFunc &PlayRoundSMS ]     
        Returned(3)->stKey1
        Returned(4)->stKey2
        Returned(5)->stKey3
        Returned(6)->stKey4
        Returned(7)->stKey5
        Returned(8)->stKey6
        Returned(9)->stKey7
        Returned(10)->stKey8
        Returned(-1)->stStart
        Returned(1)->stStart
       
//-------------------------------------------
:stKey4       //
        [ Assign Path,".\vox\4\"]
        [ Assign sCode,"4"]             //
        [ CallFunc &PlayRoundSMS ]     
        Returned(3)->stKey1
        Returned(4)->stKey2
        Returned(5)->stKey3
        Returned(6)->stKey4
        Returned(7)->stKey5
        Returned(8)->stKey6 
 
        Returned(9)->stKey7
        Returned(10)->stKey8
        Returned(-1)->stStart
        Returned(1)->stStart
       
//-------------------------------------------
:stKey5       //
        [ Assign Path,".\vox\5\"]
        [ Assign sCode,"5"]             //
        [ CallFunc &PlayRoundSMS ]     
        Returned(3)->stKey1
        Returned(4)->stKey2
        Returned(5)->stKey3
        Returned(6)->stKey4
        Returned(7)->stKey5
        Returned(8)->stKey6
        Returned(9)->stKey7
        Returned(10)->stKey8
        Returned(-1)->stStart
        Returned(1)->stStart
       
//-------------------------------------------
:stKey6       //
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\6\introduce6.vox"  ]//英文交友，并提示业务开发中按任何键返回总提示。
 StopPlayBack -> stStart
 DialTerminate -> stStart
 Failed->stExit
 Bargein ->stExit 
//-------------------------------------------
:stKey7       //
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\7\introduce7.vox"  ]//人工咨询，并提示业务开发中按任何键返回总提示。
 StopPlayBack -> stStart
 DialTerminate -> stStart
 Failed->stExit
 Bargein ->stExit 
//-------------------------------------------
:stKey8      //
        [ ClearDTMF]
 [ SetDTMF "?"]
 [ PlayFile ".\vox\8\introduce8.vox"  ]//公司简介，并提示按任何键返回。
 StopPlayBack -> stStart
 DialTerminate -> stStart
 Failed->stExit
 Bargein ->stExit    
:stExit
        [ Return 0 ]       
}

PlayRoundSMS//相关栏目的一个子函数.
{
:stWait
 [ClearDTMF]                            //我们为您准备了10条精彩的内容，请按0-9号键选择收听！按*或者#返回。
 [SetDTMF "?"]
 [PlayFile ".\vox\jytip03.vox" ]
 StopPlayBack -> stPlayDigit
 DialTerminate -> stPlayDigit
 Failed -> stAssignIR2
 Bargein ->stExit
 
:stPlayDigit  
        [ DIGIT 5 ]
 StopDigits('*') -> stAssignIR1  //返回
 StopDigits('#') -> stAssignIR1  //返回 
 
 StopDigits -> stPlayAssign
 TimeOut-> stWait
 Failed ->stAssignIR2
 Bargein ->stExit
:stPlayAssign
        [Assign IR3,IR0 ]
        [Assign SR5,Path]
        [StrCat SR5,sCode]
        [StrCat SR5,"0"]
        [StrCat SR5,SR0 ]
        [StrCat SR5,".vox"]
        ->stPlayVox
       
:stPlayVox       
 [ClearDTMF]                            //提示音
 [SetDTMF "?"]
 [PlayFile SR5 ]
 StopPlayBack -> stPlayOk
 DialTerminate -> stDigit
 Failed -> stAssignIR2
 Bargein ->stExit       
:stPlayOk
 [ClearDTMF]                            //信息播放完毕，收听上一条请按1键，重听本条请按2号键，收听下一条请按3键，返回子栏目提示请按*号。
 [SetDTMF "?"]
 [PlayFile ".\vox\jytip04.vox" ]
 StopPlayBack -> stDigit
 DialTerminate -> stDigit
 Failed -> stAssignIR2
 Bargein ->stExit       
:stDigit
        [ DIGIT 3 ]
 StopDigits('1') -> stPireceVox            //听上一条语音
 StopDigits('2') -> stPlayVox              //重听
 StopDigits('3') -> stNextVox              //听下一条语音
 StopDigits('*') -> stWait    //返回子栏目的提示。
 StopDigits -> stPlayOk
 TimeOut-> stPlayOk
 Failed ->stAssignIR2
 Bargein ->stExit
 
:stPireceVox
 [Assign SR5,Path ]
 [StrCat SR5,sCode ]
 [Dec IR3 ]
        [IToS IR3 ]
        [StrLen SR0 ]
        [Equal IR0,1]
        Passed ->stPireceVox1
        Failed ->stPireceVox2
       
:stPireceVox1
        [StrCat SR5,"0"]
        ->stPireceVox2
       
:stPireceVox2   
        [StrCat SR5,SR0]
 [StrCat SR5,".vox"]
 [ GetFileTime SR5 ]
 [ EQUAL IR0,-1 ]
 Passed -> stAssignFirst
 Failed -> stPlayVox
:stNextVox
 [Assign SR5,Path ]
 [StrCat SR5,sCode ]
 [Inc IR3 ]
        [IToS IR3 ]
        [StrLen SR0 ] 
 
        [Equal IR0,1]
        Passed ->stNextVox1
        Failed ->stNextVox2
:stNextVox1
        [StrCat SR5,"0"]
        ->stNextVox2
:stNextVox2   
        [StrCat SR5,SR0]
 [StrCat SR5,".vox"]
 [GetFileTime SR5 ]
 [Equal IR0,-1 ]
 Passed -> stAssignEnd
 Failed -> stPlayVox
:stAssignFirst
        [Assign SR1,".\vox\jytip05.vox"]                          //已是最上一条信息，按1进入每日一句按2进入经典对话按3进入慢速英语按4进入英文歌曲按5进入名人演讲按6进入英文交友按7进入人工咨询按8进入公司简介.
        ->stPlayEnd
:stAssignEnd
        [Assign SR1,".\vox\jytip06.vox"]                          //已是最后一条信息，请重新选择收听！按1进入每日一句按2进入经典对话按3进入慢速英语按4进入英文歌曲按5进入名人演讲按6进入英文交友按7进入人工咨询按8进入公司简介.
        ->stPlayEnd
              
:stPlayEnd       
        [ClearDTMF]
        [ SetDTMF "?" ]
 [ playfile  SR1]                                      
 StopPlayBack ->stEndDigit
 DialTerminate ->stEndDigit
        Failed ->stAssignIR2
        Bargein ->stExit
       
:stEndDigit
        [ DIGIT 3 ]
 StopDigits('1') -> stAssignIR3            //
 StopDigits('2') -> stAssignIR4            //
 StopDigits('3') -> stAssignIR5            //
 StopDigits('4') -> stAssignIR6            //
 StopDigits('5') -> stAssignIR7            //
 StopDigits('6') -> stAssignIR8            //
 StopDigits('7') -> stAssignIR9            //
 StopDigits('8') -> stAssignIR10            //
 StopDigits('*') -> stAssignIR1    //
 StopDigits -> stPlayEnd
 TimeOut-> stPlayEnd
 Failed ->stExit
 Bargein ->stExit
  
:stAssignIR0            //
        [ Assign IR1,0]
        ->stExit
:stAssignIR1            //返回上一级 
 
        [ Assign IR1,1]
        ->stExit       
:stAssignIR2            //错误    
        [ Assign IR1,2]
        ->stExit      
:stAssignIR3           //收听1   
        [ Assign IR1,3]
        ->stExit
:stAssignIR4           //收听2  
        [ Assign IR1,4]
        ->stExit
:stAssignIR5           //收听3   
        [ Assign IR1,5]
        ->stExit
:stAssignIR6          //收听4 
        [ Assign IR1,6]
        ->stExit
:stAssignIR7           //收听5  
        [ Assign IR1,7]
        ->stExit
:stAssignIR8           //收听6  
        [ Assign IR1,8]
        ->stExit
:stAssignIR9          //收听7
        [ Assign IR1,8]
        ->stExit
:stAssignIR10           //收听8 
        [ Assign IR1,10]
        ->stExit
:stExit
        [ Return IR1  ]
       
}




求相关资料
[解决办法]
这是一个ivr简单的流程代码

IVR，(Interactive Voice Response)即互动式语音应答，您只须用电话即可进入服务中心，根据操作提示收听手机娱乐产品。 可以根据用户输入的内容播放有关的信息。

意即无线语音业务增值服务，和目前大家熟知的固定电话声讯服务类似。手机用户拨打指定号码，获得所需信息或者参与互动式的服务。

最常见的业务有：
1 语音点歌
2 语音聊天交友
3 手机杂志
4 电子贺卡

IVR，即语音增值业务，是移动运营商由2002年开始启动的业务。移动的IVR分为两大品牌：音信互动和娱音在线，联通的IVR品牌为联通音。
[解决办法]
这是一份IVR开发流程文档资料，如果学习IVR，可以先看它

http://www.docin.com/p-90255845.html

希望能对你有所帮助

读书人网 >嵌入开发

热点推荐

触屏版 | 电脑版

读书人网 m.reader8.net