在pb中用语音读金额(1)
发表时间：2025-12-12 来源：浏览器大全整理相关软件相关文章人气：
数据库，简而言之可视为电子化的文件柜——存储电子文件的处所，用户可以对文件中的数据进行新增、截取、更新、删除等操作。所谓“数据库”是以一定方式储存在一起、能与多个用户共享、具有尽可能小的冗余度、与应用程序彼此独立的数据集合。
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 = "万仟佰拾亿仟佰拾万仟佰拾元"
全新的路由器不仅让你更稳定快速地连接无线网络，更可以让家中的智能设备连接在一起。
