ivr

/*************************************************************
北京高阳圣思园信息技术有限公司IVR业务：
        流程说明：公司介绍子流程
    发布版本：Version 1.0.0
         编写日期：2005-05-27
         修改日期：2006-03-02
         流程作者：Hisunsray
    联系方式：Tel - (010)84505155-531
                  E_Mail :zhaojt@hisunsray.com
    版权归属：北京高阳圣思园信息技术有限公司
*************************************************************/

/*************************************************************
主流程修改记录：
        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

}