在pb中用语音读金额

• 　　1、将金额转换成大写金额；
  　　2、根据大写金额依次朗读出来；

  　　为此，需要完成以下内容：
  　　1、分别录制各WAV文件：0,1,2,3,4,5,6,7,8,9,元,角,分,拾,佰,仟,万,亿,整
  　　2、在工程中声明两个External 函数（Windows的API函数），用于发声；
         　　Function boolean sndPlaySoundA (string SoundName, uint Flags) Library "WINMM.DLL"
         　　Function uint waveOutGetNumDevs () Library "WINMM.DLL"
  　　3、新建一函数用于在程序中调用发声：
         　　Function PlaySound(string as_filename,integer ai_option) returns integer
  
  　　该函数的代码如下：
        　　uint lui_numdevs
        　　lui_numdevs = WaveOutGetNumDevs()
       　　 If lui_numdevs > 0 Then
  　　　  sndPlaySoundA(as_filename,ai_option)
  　　　     return 1
      　　  Else
  　　  return -1
  　　      End If
  
  　　4、新建一函数用于将小写金额转换成大写金额：
        　　Function xx2dx(Decimal ls) returns string
  
  　　代码实现如下：
  　　string dx_sz,dx_dw,str_int,str_dec,dx_str,fu,a,b,b2,c,d,result
  　　long num_int,num_dec,len_int,i,a_int,pp

  　　dx_sz = "零壹贰叁肆伍陆柒捌玖"
  　　dx_dw = "万仟佰拾亿仟佰拾万仟佰拾元" 
  
  
  　　  /*处理小于零情况*/
  　　if ls<0 then
  　　   ls = ls*(-1)
  　　   fu = "负"
  　　else
  　　     fu = ""
  　　end if

  　　  /*取得整数及整数串*/
  

• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 在pb中用语音读金额 相关文章：
• ·在pb中用语音读金额
• 在pb中用语音读金额 相关软件

上一篇:PB代码优化

下一篇:PB中实现数据窗口动态排序的三种方法

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐