VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

來源:編成園地 mzdmt
聲音檔下載點
http://www.vfptop.com/forum/dispbbs.asp?boardID=3&ID=3195

FOXPRO我的生活---FOXPRO實戰（一）播讀功能
這幾天在站上看見幾位朋友在討論FOXPRO實用性問題，我相信每位元喜歡這門語言的朋友，對這個問題都會有相同的看法。我和大家一樣，也想過要換一種語言學學，可每當看到其他語言一串串又長又難懂的洋文，頭就大，哪有FOXPRO簡單，打入四個字元一個命令就搞定，好記！所以一有人問我要學什麼語言好學，我就告訴他，你看四個英文一個命令，爽！而且還是中國式的英語，我們還是先學好學的。FOXPRO學它，沒錯！其實人心是不足的你看到那麼多語言讓你選擇，你還真不知道選哪一個好。常言講萬事開頭難，所以學語言開始時還是找一個比較容易掌握的來學，好學好上手你就培養了興趣，有了這個興趣自然就可以持之與恒。
記得92、93年開始學電腦時，那時只有286機子，別說WINDOWS，就連玩DOS的程式，有時都要等上半天，那時記憶最深的是看到大部門學習電腦的都是FOXBASE，在命令行開頭有個點，編出來的程式如果要有些特色，比如要加一些圖片、線條什麼的還要借用其他語言來點綴。但大家仍然很有幹勁，好象沒有人會問，學這語言有用還是學那門語言有用，先學再說。那時能玩得上電腦就是福氣，那時的電腦多貴，那時我的工資一個月才一二百元，一台286電腦就要幾千上萬元，多珍惜那上機的機會。因為能學到東西就滿好了，知足啊！都是一個單位的，所以在那時交了很多玩機子的朋友，我問他們學什麼語言，他們想也沒想就說FOXBASE。所以後來學過DBASE 2、DBASE3、FOXBASE 2.1、FOXPRO2.5DOS、FOXPRO3.0WIN以及現在學的FOXPRO6.0，但是這個過程一直是自學，所以許多先進的FOXPRO方法沒有系統學過，所以在我編程的代碼中，許多命令一直還停留在FOXPRO2.5DOS時代，請大家包涵，（若大家有什麼好方法，不凡告訴我一聲。）甚至現在我的書桌上還經常在用很多年以前買的《FOXPRO 2.5 DOS 版》，以前的書好啊，特別對於一些知識的基礎問題講的特詳細，像前幾天回答幾位元朋友關於字元的問題，如比生成漢字簡拼等，這本書上對字元以及其他方面的函數用法都做了詳細的說明，讓人較容易理解，不象現在買的書，除非你有基礎，否則要想搞清楚一個問題是很難的。（但也有一些好書，比如本站推薦的FOXPRO'160'問，確實是一本難得的好書，FOXPRO愛好者必買，多貴都要買！）這也是現在人學語言難的問題所在。當然這些都還不是主要問題，問題是否有興趣，不是說有志者事競成，對於我來說有時一個資料庫問題解決不出來時，就自已苦思瞑想，上班、下班有空就想，今天不行明天再想，後來發現投入了精力，大部問題還是可以解決的，於是我的生活就或多或少的和它相結合，所以對我來說FOXPRO是我生活的一部分。為此我就更要盡我所能去宣揚他，讓更多人瞭解他，從而得到和我同樣的樂趣，為他無怨無悔！
接幾天前天的一個話題，FOXPRO能做什麼，有幾位朋友說的很對，FOXPRO應用廣泛，不只用在資料管理，還可以用在其他領域，是這樣，現在我在寫這編帖子時，一邊寫一邊聽著自己用FOXPRO寫的媒體播放器放的MP3樂曲。
今天我們來討論一下如何用FOXPRO進行語音播讀。它的思路是這樣：
我們知道，我們電腦所類比的程式，大部分是由人本身功能所模仿而來，相同，我們要分析人在講話時所必要的幾個因素，1、準確的發音；2、時間間隔，所以我們解決這個問題，只要能處理好這兩個問題，就能讓他朗讀所要播放的文字。FOXPRO有否能播放聲音的命令或者函數？有！
set bell to 'c:\pyzk\xp圖示\靜音.wav',wav
??chr(7)
這個簡單的命令，相信熟悉FOXPRO語言的朋友一定經常看見，他只不過是把一個音效檔案播放出來，要能播讀文字，這就是思路問題，我們上面提到講話的要素之一就是出聲，只要有聲音，不管是什麼聲音，我們已經成功了一半，另一半靠時間來解決，在POXPROWIN 以上版本都帶有時間控制項，這又使我們另一要素得到滿足，有了這兩個條件我們可以開始做讀漢字的語音程式。
1、用我們的音效卡中的拾音器的接入耳麥的麥克風配合WINDOWS的錄音軟體分別錄入'我'、'愛'、'你'三個單獨語音並把它們存在程式路徑中分別為：'我.WAV'、'愛.WAV'、'你.WAV'。
2、在同一路徑中建立一個表，欄位分別為：表名為 pyzk.dbf
字 C 2
WAV C 30
在裏面輸入三條記錄：
字 WAV
我我.WAV
愛愛.WAV
你你.WAV
3、建立一個表單：一個按鈕控制項、一個時間控制項在資料環境中加表PYZK.DBF
時間控制項的 THISFORM.TIMER1.ENABLED=.F.
thisform.timer1.interval=400
按鈕控制項 CHICK代碼：
THISFORM.TIMER1.ENABLED=.T.
時間控制項的 TIMER EVENT的代碼：
if thisform.timer1.interval=400
sele pyzk
if eof()
THISFORM.TIMER1.ENABLED=.F.
else
sele pyzk
stor wav to a
set bell to a,wav
??chr(7)
sele pyzk
skip
endif
else
endi
運行一下，可以聽見'我愛你'這個字。當然這只是語音播讀的初步！但我們的思路對了，進行下一步就容易了。
我也同時做了一個和上面一樣的程式，可惜這幾天我無法上傳資料。不然大家就能聽到我說：'我愛你'。
因寫到這裏又試運行這個程式用了將盡兩個小時，累死了！下一章明天再寫吧！繼續討論語音播讀的深入。
你的朋友：MZDMT

FOXPRO我的生活---FOXPRO實戰（二）播讀功能
上一章講到用:
set bell to '語音檔案名或者變數',wav &&變數就不要加分號
??chr(7)
我們知道了這種出聲方法，剩下的就是如何控制各種形式的文本，讓它按文本要求讀出聲來。
例：在我們在街上經常看到有賣一種計算器，在按數字鍵時能讀出數字鍵的數字音。我用FOXPRO做了以下代碼供大家參考。
做財務的朋友，特別是做重複、單調數字輸入工作的人特有感受，經常輸入會輸入錯誤，我也不例外，於是用以下幾行代碼來讓我們的數位鍵盤讀出聲音來。
建立一個表，PYZK.DBF 欄位為：
字 C 2
WAV C 30
增加表內容：
字 WAV
48 0.WAV
49 1.WAV
50 2.WAV
| |
57 9.WAV
建立一個表單，增加一個文本框TEXT1,
用我們的音效卡中的拾音器的接入耳麥的麥克風配合WINDOWS的錄音軟體分別錄入'0'、'1'~'9'三個單獨語音並把它們存在程式路徑中分別為：'0.WAV'、'1.WAV'~'9.WAV'
在表單數據環境中加入表PYZK.DBF
在TEXT1.KEYPRESS方法屬性中寫入以下代碼：
set cursor on
stor lastkey() to g
sele pyzk
loca all for 字=allt(str(g))
set bell to pyzk.wav,wav
??chr(7)
執行表單，在文本框內輸入數位鍵，就能聽到相應的數字播讀。
如果你有可自動生成單個語音格式為*.WAV格式的軟體，就不要自已去錄音了，採集生成一下就可以，目前我採集生成了幾千個單個字讀音幾十兆，發了幾天時間做的，能上傳時就上傳上來。如果你想自已做這項工作推薦軟體為：
先博多媒體電腦有限公司做的讀遍天下----普通話拼音&拼音翻譯軟體等
若有了這個音庫，下一章就我們就可討論：'你輸入任意字元或漢字後自行產生的讀音的過程'
你的朋友：MZDMT
FOXPRO我的生活---FOXPRO實戰（三）播讀功能
上一章我們討論到用數位鍵盤來播讀數字音，有了這個基礎，剩下的問題就不是很難了，只要做好對每句話中的漢字、字元、標點的識別，根據時間順序把這句話讀出來。
由於我以前做的讀音程式比較複雜，所以用了兩天時間來進行程式精減，希望對此感興趣的朋友把這個工作繼續下去，因為解決一個問題會有很多種方法，自已的未必是最好的，只有積累大家的智慧，才可以把事情處理的更完美，這也是我來這個論壇的目的之一。希望大家能把所做的，所想的都傳遞上來，象我一樣，好的壞的一起品嘗，讓我們的編程生活多姿多彩。
下面讓我們繼續討論對欄位裏的字元識別播讀的問題。這個問題，說起來還是字元控制問題，你如果對字元函數比較熟悉，其實你已經懂了以下的過程，無非是怎樣組織語言進行邏輯判斷，怎樣做更合理，不斷修改以使程式更合理。下面是我折騰的代碼，供朋友參考。
建立一個表單，一個文本框，一個時間控制項TIMER3，一個按鈕控制項。
建立一個名為PYZK2.DBF的表，表裏有兩個欄位
字 WAV 都為字元型，寬度自定
然後把所有漢字（單個不重複的漢字和常用的字元標點）字元輸入在字的欄位裏，在WAV欄位裏輸入你自已建立的語音檔的路徑。因為我不知道如何上傳我已做好的30MB的語音庫（大概有2900個漢字讀音）所以本示例程式裏的語音我用'名字'帳號傳遞上來。
建立一個臨時表JS.DBF 有一個欄位 JS1 數值型，寬度5
建立一個表YY.DBF 有一個欄位字元型寬度100 用於輸入要播讀的內容。
我的示例內容為：'您好嗎？您現在哪里;我很想你, 你快點,回來過年！'
在表單的資料環境裏加入PYZK2.DBF，文本框TEXT1的資料源為YY.DBF。在按鈕控制項裏加入以下代碼：
thisform.timer3.interval=300
THISFORM.TIMER3.ENABLED=.T.
sele pyzk2
go top
sele js
repl js1 with 1
在時間控制項的TIMER裏輸入代碼：
if thisform.timer3.interval=300
sele yy
stor allt(yy) to bbb
stor len(allt(bbb)) to aaa
sele js
stor js1 to ccc
if ccc-1=aaa &&a
THISFORM.TIMER3.ENABLED=.F.
else &&a
stor substr(allt(bbb),ccc,2) to ddd
sele PYZK2
loca all for allt(字)=ddd
if foun()
sele PYZK2
stor WAV to x1
set bell to x1,wav
??chr(7)
sele js
repl js1 with js1+2
else
stor substr(allt(bbb),ccc,1) to ddd
sele PYZK2
loca all for allt(字)=ddd
if foun()
sele PYZK2
stor WAV to x1
set bell to x1,wav
??chr(7)
sele js
repl js1 with js1+1
else
set bell to '靜音',wav
??chr(7)
sele js
repl js1 with js1+1
ENDIF
endi
endi &&a
endif
執行表單，就可以按文本框內容讀出資料。
為什麼，我的文本框中的內容為：'您好嗎？您現在哪里;我很想你, 你快點,回來過年！'這好象文本格式有點怪，這是因為，我們要測試標點在文本裏時，程式應怎樣識別。我這個程式還不完美，比如數字的測試還未增加，英文字母的測試未添加。大家自已添加吧，但別忘了做好了傳上來給我們參考，同時希望高手編出更加簡單的代碼來實現這個功能。同時還有個思路，由*.WAV佔用空間太大，我考慮以後試著用*.MP3檔來進行語音播讀，望大家有好的建議多發上來給大家參考。
希望這個方法對大家有用，謝謝！
你的朋友：MZDMT