易語言制作方言版語音合成工具

.版本 2
.支持庫 exui
.支持庫 iext
.程序集 窗口程序集_啟動(dòng)窗口
.程序集變量 音樂, 文本型
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
云語音_初始化 (“dev.voicecloud.cn:80/index.htm”, “5476b55d”, “10000”, “speex.dll”, “2048”)
時(shí)鐘1.時(shí)鐘周期 ＝ 100
組合框_語言.加入項(xiàng)目 (“女聲.標(biāo)準(zhǔn)普通話”, , , )
組合框_語言.加入項(xiàng)目 (“男聲.標(biāo)準(zhǔn)普通話”, , , )
組合框_語言.加入項(xiàng)目 (“女聲.英文”, , , )
組合框_語言.加入項(xiàng)目 (“男聲.英文”, , , )
組合框_語言.加入項(xiàng)目 (“女聲.粵語”, , , )
組合框_語言.加入項(xiàng)目 (“臺(tái)灣.普通話”, , , )
組合框_語言.加入項(xiàng)目 (“女聲.四川普通話”, , , )
組合框_語言.加入項(xiàng)目 (“女聲.東北普通話”, , , )
組合框_語言.現(xiàn)行選中項(xiàng) ＝ 1
.子程序 _時(shí)鐘1_周期事件
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 1)
  編輯框2.內(nèi)容 ＝ “xiaoyan”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 2)
  編輯框2.內(nèi)容 ＝ “xiaoyu”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 3)
  編輯框2.內(nèi)容 ＝ “Catherine”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 4)
  編輯框2.內(nèi)容 ＝ “henry”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 5)
  編輯框2.內(nèi)容 ＝ “vixm”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 6)
  編輯框2.內(nèi)容 ＝ “vixl”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 7)
  編輯框2.內(nèi)容 ＝ “vixr”
.如果真結(jié)束
.如果真 (組合框_語言.現(xiàn)行選中項(xiàng) ＝ 8)
  編輯框2.內(nèi)容 ＝ “vixyun”
.如果真結(jié)束
透明標(biāo)簽1.標(biāo)題 ＝ 到文本 (滑塊條_音量.位置)
透明標(biāo)簽2.標(biāo)題 ＝ 到文本 (滑塊條_語速.位置)
.判斷開始 (選擇框_音樂.選中 ＝ 真)
  音樂 ＝ “1”
.默認(rèn)
  音樂 ＝ “0”
.判斷結(jié)束
.子程序 _按鈕1_被單擊
.如果真 (通用對(duì)話框1.打開 ())
  復(fù)制文件 (取運(yùn)行目錄 () ＋ “\麥霸傳說語音文件.wav”, 通用對(duì)話框1.文件名)
.如果真結(jié)束
.子程序 _按鈕_朗讀_左鍵單擊
云語音_合成語音 (編輯框_內(nèi)容.內(nèi)容, “1”, “intp”, 編輯框2.內(nèi)容, 透明標(biāo)簽2.標(biāo)題, 透明標(biāo)簽1.標(biāo)題, “text”, “GB2312”, 音樂, “raw”, “0”, “audio/L16;rate=16000”, 真, 取運(yùn)行目錄 () ＋ “\麥霸傳說語音文件.wav”)
.子程序 _按鈕_保存_左鍵單擊
.如果真 (通用對(duì)話框1.打開 ())
  復(fù)制文件 (取運(yùn)行目錄 () ＋ “\麥霸傳說語音文件.wav”, 通用對(duì)話框1.文件名)
.如果真結(jié)束