日韩日韩日韩日韩日韩,成年人免费在线播放,精品国产一区二区三区在线

導(dǎo)讀數(shù)據(jù)庫，簡而言之可視為電子化的文件柜——存儲電子文件的處所，用戶可以對文件中的數(shù)據(jù)進(jìn)行新增、截取、更新、刪除等操作。所謂“數(shù)據(jù)庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應(yīng)...

數(shù)據(jù)庫，簡而言之可視為電子化的文件柜——存儲電子文件的處所，用戶可以對文件中的數(shù)據(jù)進(jìn)行新增、截取、更新、刪除等操作。所謂“數(shù)據(jù)庫”是以一定方式儲存在一起、能與多個用戶共享、具有盡可能小的冗余度、與應(yīng)用程序彼此獨(dú)立的數(shù)據(jù)集合。

5、聲明一函數(shù)，用于最終調(diào)用：
      　　Function MyReadMoney(Decimal AMoney)
     　　
　　代碼實(shí)現(xiàn)如下：
　　integer i,count
       　　string ls_dxje

　　ls_dxje = xx2dx(Amoney)

　　count = len(ls_dxje)

　　for i= 1 to count step 2
　　 CHOOSE CASE mid(ls_dxje,i,2)
　　 CASE "零"
　　 playsound("0.wav",0)
　　 CASE "壹"
　　 playsound("1.wav",0)
　　 CASE "貳"
　　 playsound("2.wav",0)
　　 CASE "叁"
　　 playsound("3.wav",0)
　　 CASE "肆"
　　 playsound("4.wav",0)
　　 CASE "伍"
　　 playsound("5.wav",0)
　　 CASE "陸"
　　 playsound("6.wav",0)
　　 CASE "柒"
　　 playsound("7.wav",0)
　　 CASE "捌"
　　 playsound("8.wav",0)
　　 CASE "玖"
　　 playsound("9.wav",0)
　　CASE "拾"
　　 playsound("十.wav",0)
　　 CASE "佰"
　　 playsound("佰.wav",0)
　　 CASE "仟"
　　playsound("仟.wav",0)
　　 CASE "萬"
　　 playsound("萬.wav",0)
　　 CASE "億"
　　 playsound("億.wav",0)
　　 CASE "元"
　　 playsound("元.wav",0)
　　 CASE "角"
　　 playsound("角.wav",0)
　　 CASE "分"
　　 playsound("分.wav",0)
　　 CASE "整"
　　 playsound("整.wav",0)
　　 END CHOOSE
　　next

　　6、在程序中，可以任意調(diào)用此函數(shù)。當(dāng)然，可以適當(dāng)加入出錯處理一類的代碼。
　　7、備注：如果不能發(fā)聲，應(yīng)檢查聲音文件是否在可執(zhí)行文件的同一路徑，最好是在函數(shù)MyReadMoney中，對各wav文件直接加上路徑如C:\temp

全新的路由器不僅讓你更穩(wěn)定快速地連接無線網(wǎng)絡(luò)，更可以讓家中的智能設(shè)備連接在一起。

溫馨提示：喜歡本站的話，請收藏一下本站！

當(dāng)前位置:雨林木風(fēng)下載站 > 應(yīng)用軟件教程 > 詳細(xì)頁面

在pb中用語音讀金額(4)

本類教程下載

系統(tǒng)下載排行