证券电话委托(IVR) 脚本例子

蓝星际语音平台脚本例子

这些例子都比较简单, 有些比较有趣，您很容易看明白，仔细阅读源程序可以让您迅速入门，也会提高您的水平。
每个例子都有一个说明文档，请您在运行例子之前阅读它。
请将蓝星际平台程序拷贝到相应的目录之下，然后运行。因为有些脚本使用了相对路径，所以建议脚本文件和蓝星际平台程序放在相同的目录。

证券电话委托

操作流程：

这个例子是个典型的IVR应用，说明如下：

演示股东代码: 0012345678
演示密码: 111111
普通话语音文件路径: .\PthSnd
广州话语音文件路径: .\GzhSnd
深圳行情库: Sjshq.dbf
语音文件是PCM格式的WAV文件，适合在TAPI版本的Voice Modem下使用.
如果使用语音卡硬件，如东进，三汇或Dialogic卡，请将语音文件转换为A率编码格式的WAV文件.

语音格式转换工具请选择Pcm2A.exe下载运行

示例：

// 模拟证券电话委托的例子
// 这是一个稍微复杂一点的例子

//   演示股东代码: 0012345678
//   演示密码: 111111
//   普通话语音文件路径: .\PthSnd
//   广州话语音文件路径: .\GzhSnd
//   深圳行情库: Sjshq.dbf

// 蓝星际公司版权所有, 2004
// bluesen@sina.com


// 常量定义
const PLAY_AMOUNT = 0;
const PLAY_MONEY = 1;
const PLAY_NUMBER = 2;


// 函数定义
// ----------------------------------------------------------------------------
function CheckId(pGddm, pJymm, retNo, retInfo)
{
  if( pGddm == "0012345678" && pJymm == "111111" )
  {
     retNo = 0;
     retInfo = "Ok.";
     return(retNo);
  }

  retNo = -1;
  retInfo = "Err.";

  Play("id_err.wav");  // 股东身份不符

  return(retNo);
}


function GetSzhq(pZqdm, fZjcj)  // 到行情库里去查找最近价
{
  hd = -1;
  DbOpen(0, "sjshq.dbf", "", "", "", hd);
  if( hd < 0 )
  {
      return(-1);
  }
  recNum = 0;
  DbRows(hd, recNum);
  recNum = recNum + 1;
  row = 1;
  vZqdm = "";
  while( row < recNum )
  {
     DbGetField(hd, "HQZQDM", row, vZqdm);
     if( pZqdm == vZqdm )
     {
        DbGetField(hd, "HQZJCJ", row, fZjcj);
        DbClose(hd);
        return(0);
     }
     row = row + 1;
  }
  fZjcj = "";
  DbClose(hd);
  return(-2);
}

// 语言选择
function SetLan()
{
  for(i=0; i<10; i++)
  {
     ClearKeys();
     Play("Lan.wav");  // 1普通话, 2广东话

     k = "";
     GetKeys(k, 1, 20);

     if( k=="1" )
     {
        SelectLan(0);    // 选择普通话
        return(0);
     }

     if( k=="2" )
     {
        SelectLan(1);    // 选择普通话
        return(1);
     }
  }
  Hangup();
  return(-1);
}

// 以下身份检查
// 输入股东代码、密码
function CheckGddm(gddm, jymm, isOk)
{
   isOk = false;

   v_input_gddm = "ncode.wav";
   v_input_jymm = "pcode.wav";

   for(i=0; i<3; i++)  // 身份检查, 如3次不正确, 将挂断
   {
      ClearKeys();

      gddm = "";   // 股东代码
      Play( v_input_gddm );  // 请输入股东代码

      GetKeys(gddm, 10, 20);
      if( gddm=="" )
      {
         continue;
      }

      SetDispKeys(2);  // 将交易密码显示为 * 号

      jymm = "";   // 交易密码

      Play( v_input_jymm );  // 请输入密码
      GetKeys(jymm, 6, 20);

      SetDispKeys(1);  // 正常显示按键

      No = -1;
      Info = "info";
      CheckId(gddm, jymm, No, Info);
      if( No == 0 ) // 身份合法
      {
         isOk = true;
         return(0);
      }
   }


   Play("rpt_err.wav");  // 仍然有误，系统终止
   Hangup();
   return(-1);
}

// 买入处理
function Buy()
{
  Play("tcode.wav");  // 请输入证券代码

  zqdm = "";  // 证券代码
  GetKeys(zqdm, 6, 20);

  Play("wait.wav");  // 请稍候
  Play("accept.wav");  // 您的委托已被接收，合同号是
  PlayNumber("500008", PLAY_NUMBER);
}

// 卖出处理
function Sell()
{
  Play("tcode.wav");  // 请输入证券代码

  zqdm = "";  // 证券代码
  GetKeys(zqdm, 6, 20);

  Play("wait.wav");  // 请稍候
  Play("sell_out.wav");  // 您的股票数量不足，委托被拒绝
}

// 撤单处理
function Cancel()
{
  Play("htcode.wav");  // 请输入合同号码

  hthm = "";  // 合同号码
  GetKeys(hthm, 6, 10);
  Play("wait.wav");  // 请稍候
  Play("can_ad.wav");  // 撤单已报送交易所
}

// 成交查询
function Cjcx()
{
  Play("htcode.wav");  // 请输入合同号码

  hthm = "";  // 合同号码
  GetKeys(hthm, 6, 10);
  Play("wait.wav");  // 请稍候
  Play("notcj.wav");  // 您的委托未成交
}

// 现金查询
function Xjcx()
{
  Play("wait.wav");  // 请稍候
  Play("sjje.wav");  // 实际金额
  PlayNumber("325600.78", PLAY_MONEY);  // 播报金额
}

// 股票余额查询
function Gpye()
{
  Play("tcode.wav");  // 请输入证券代码

  zqdm = "";  // 证券代码
  GetKeys(zqdm, 6, 20);

  Play("wait.wav");  // 请稍候

  PlayNumber("3560", PLAY_AMOUNT);  // 播报数量
  Play("gu.wav");  // 股
}

// 行情查询
function Hqcx()
{
  Play("tcode.wav");  // 请输入证券代码

  zqdm = "";  // 证券代码
  GetKeys(zqdm, 6, 10);

  Play("wait.wav");  // 请稍候

  zjcj = ""; // 最近价
  GetSzhq(zqdm, zjcj);
  if( zjcj=="" )
  {
     Play("nohq.wav");  // 此种证券无行情
  }
  else
  {
     Play("zjcj.wav");  // 最近成交
     PlayNumber(zjcj, PLAY_MONEY);  // 播报金额
  }
}
// ----------------------------------------------------------------------------

// 主流程

pthDir = ".\PthSnd";  // 普通话路径
gzhDir = ".\GzhSnd";  // 广州话路径

SetSndDir(pthDir, gzhDir, pthDir);

SetSndExt(".wav");  // 缺省语音文件扩展名
SetEndKey("#");  // 不足位数按#号结束
SetBreak(true);  // 可以打断
SelectLan(0);    // 选择普通话
SetKeyTime( 40 );   // 设置两个按键之间的最大间隔

while(true)
{
   WaitRing(1);   // 等待振铃

   // 接收并显示主叫号码
   caller = "";
   GetCallerId(caller);
   DispInfo(0, caller);

   SetLan();  // 选择语言：普通话或广东话

   // 以下身份检查
   gddm = "";
   jymm = "";
   isOk = false;
   CheckGddm(gddm, jymm, isOk);

   for(m=0; m<5; m++)  // 主操作, 循环5次
   {
      Play("ocode.wav");  // 11买进 33卖出 55...

      mainMenuKey="";   // 主菜单按键
      GetKeys(mainMenuKey, 2, 20);

      zqdm="";
      hthm = "";     // 合同号码
      switch(mainMenuKey) // 判断主操作按键
      {
         case("11")  // 买进
         {
            Buy();
         }
         case("33")  // 卖出
         {
            Sell();
         }
         case("55")  // 撤单
         {
            Cancel();
         }
         case("77")  // 查询
         {
            Play("inqtype.wav");  // 1 成交、2 现金、3 股票余额、4 行情、...

            cxMenuKey = "";
            GetKeys(cxMenuKey, 1, 5);
            switch(cxMenuKey)  // 判断查询按键
            {
               case("1")  // 查成交
               {
                  Cjcx();
               }
               case("2")  // 查现金
               {
                  Xjcx();
               }
               case("3")  // 查股票余额
               {
                  Gpye();
               }
               case("4")  // 查行情
               {
                  Hqcx();
               }

               default()  // 其它
               {
                  if( cxMenuKey=="*" )
                  {
                     continue;
                  }
                  else
                  {
                     Play("area_err.wav");  // 选择有误，请重输一次
                  }
               }
            }
         }

         default()  // 其它
         {
            if( mainMenuKey=="#" )
            {
               Play("area_err.wav");  // 选择有误，请重输一次
               break;
            }
         }
      }
   }

   Hangup();  // 挂断

   OnDisconn();
}

OnSysQuit(); // 如系统退出将到这里
DbCloseAll();
return(0);

下载：

脚本＋dbf＋语音＋说明

Koodoo脚本示例

蓝星际语音平台 脚本例子

证券电话委托

蓝星际语音平台脚本例子