在pb中用语音读金额(1)|雨林木风下载站

导读数据库，简而言之可视为电子化的文件柜——存储电子文件的处所，用户可以对文件中的数据进行新增、截取、更新、删除等操作。所谓“数据库”是以一定方式储存在一起、能与多个用户共享、具有尽可能小的冗余度、与应...

数据库，简而言之可视为电子化的文件柜——存储电子文件的处所，用户可以对文件中的数据进行新增、截取、更新、删除等操作。所谓“数据库”是以一定方式储存在一起、能与多个用户共享、具有尽可能小的冗余度、与应用程序彼此独立的数据集合。

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 = "万仟佰拾亿仟佰拾万仟佰拾元"

全新的路由器不仅让你更稳定快速地连接无线网络，更可以让家中的智能设备连接在一起。

……

标签:在pb中用语音读金额(1)