.版本 2.常量 對(duì)話前, "<文本長(zhǎng)度: 7>", , text":".常量 對(duì)話后, "<文本長(zhǎng)度: 2>", , "}.常量 token前, "<文本長(zhǎng)度: 16>", , "access_token":".常量 雙撇號(hào), "<文本長(zhǎng)度: 1>", , ".常量 apikey, "<文本長(zhǎng)度: 24>", , Tc9KWDDFPLm1QNVPgEx7kco6.常量 Secretkey, "<文本長(zhǎng)度: 32>", , DnqP3q2GwOqGuYI9sUhLT4l7uC2f1yVL.常量 識(shí)別返回前, "<文本長(zhǎng)度: 10>", , result":[".常量 識(shí)別返回后, "<文本長(zhǎng)度: 3>", , "],

.版本 2.支持庫 eMMedia.支持庫 ESpeechEngine.支持庫 internet.支持庫 spec.支持庫 eAPI.程序集 窗口程序集_啟動(dòng)窗口.程序集變量 API地址, 文本型.程序集變量 APIkey, 文本型.程序集變量 喚醒名, 文本型, , "0".程序集變量 音量, 短整數(shù)型.程序集變量 計(jì)時(shí), 整數(shù)型.程序集變量 最大頻段, 整數(shù)型.程序集變量 發(fā)送內(nèi)容, 文本型.子程序 _語音識(shí)別1_識(shí)別到語音.參數(shù) 識(shí)別文本, 文本型.如果真 (尋找文本 (識(shí)別文本, 喚醒名 [1], , 假) ≠ -1) ' 識(shí)別到喚醒名就開始錄音。 錄音音波1.打開 () ' 這個(gè)是檢測(cè)麥克風(fēng)音量的用的 最大頻段 ＝ 錄音音波1.取上限 () － 1 播放音樂 (#開始聲音, ) 設(shè)置喚醒按鈕.標(biāo)題 ＝ “正在聆聽” 錄音1.錄制 () ' 開始錄音…… 判斷是否說話時(shí)鐘.時(shí)鐘周期 ＝ 10 ' 判斷是否在說話的時(shí)鐘。.如果真結(jié)束.子程序 _設(shè)置喚醒按鈕_被單擊語音識(shí)別1.創(chuàng)建 (0, 1) ' 初始化語音識(shí)別引擎，初始化失敗的需要下載微軟的語音識(shí)別引擎Microsoft Speech SDK v5.1加入成員 (喚醒名, 編輯框1.內(nèi)容)語音識(shí)別1.加入常用 (喚醒名)信息框 (“設(shè)置成功，請(qǐng)直接對(duì)著麥克風(fēng)呼喚： ” ＋ 編輯框1.內(nèi)容 ＋ “ 即可開始對(duì)話”, 0, )設(shè)置喚醒按鈕.禁止 ＝ 真.子程序 機(jī)器人對(duì)話, 文本型, , 調(diào)用圖靈機(jī)器人API接口.參數(shù) 發(fā)送的內(nèi)容, 文本型.局部變量 數(shù)據(jù), 文本型.局部變量 返回內(nèi)容, 文本型.局部變量 需要的內(nèi)容長(zhǎng)度, 整數(shù)型數(shù)據(jù) ＝ 編碼_gb2312到utf8 (發(fā)送的內(nèi)容) ' ——————————先轉(zhuǎn)換成utf8碼返回內(nèi)容 ＝ 到文本 (HTTP讀文件 (“http://www.tuling123.com/openapi/api?key=bad4d07e4c1c439b935a922906176478&info=” ＋ 數(shù)據(jù) ＋ “&loc=北京&userid=a1”)) ' ——————————發(fā)送給圖靈返回內(nèi)容 ＝ 編碼_utf8到gb2312 (返回內(nèi)容) ' —————————— 先把返回的數(shù)據(jù)轉(zhuǎn)成簡(jiǎn)體中文的編碼調(diào)試輸出 (返回內(nèi)容) ' ——————————調(diào)試輸出一下看看需要的內(nèi)容長(zhǎng)度 ＝ 取文本長(zhǎng)度 (返回內(nèi)容) － 尋找文本 (返回內(nèi)容, #對(duì)話前, , 假) － 取文本長(zhǎng)度 (#對(duì)話前) － 取文本長(zhǎng)度 (#對(duì)話后) ＋ 1 ' 全部的長(zhǎng)度 - 前面文本所在位置 - 前面文本長(zhǎng)度 - 后面文本長(zhǎng)度 + 1，得出來的結(jié)果就是需要的文本長(zhǎng)度返回內(nèi)容 ＝ 取文本中間 (返回內(nèi)容, 尋找文本 (返回內(nèi)容, #對(duì)話前, , 假) ＋ 取文本長(zhǎng)度 (#對(duì)話前), 需要的內(nèi)容長(zhǎng)度) ' ——————————起始位置是前面文本所在位置 + 前面文本的長(zhǎng)度編輯框3.內(nèi)容 ＝ 返回內(nèi)容 ' ——————————編輯框上顯示出來返回 (返回內(nèi)容).子程序 獲取token, 文本型, , 獲取百度驗(yàn)證信息.局部變量 臨時(shí)數(shù)組, 文本型, , "0".局部變量 返回的文本, 文本型.局部變量 token, 文本型返回的文本 ＝ 到文本 (HTTP讀文件 (“https://openapi.baidu.com/oauth/2.0/token?grant_type=client_credentials&client_id=” ＋ #apikey ＋ “&client_secret=” ＋ #Secretkey))臨時(shí)數(shù)組 ＝ 分割文本 (返回的文本, #token前, )token ＝ 取文本左邊 (臨時(shí)數(shù)組 [2], 尋找文本 (臨時(shí)數(shù)組 [2], #雙撇號(hào), , 假) － 1)返回 (token).子程序 合成語音, , , 調(diào)用百度語音合成API接口.參數(shù) 需要合成的文本, 文本型.局部變量 句柄, 整數(shù)型.局部變量 z, 文本型.局部變量 返回的語音, 字節(jié)集z ＝ 需要合成的文本z ＝ 編碼_gb2312到utf8 (z) ' 先轉(zhuǎn)換成utf8編碼z ＝ 編碼_URL編碼 (z) ' 再進(jìn)行URL編碼媒體播放1.停止 ()媒體播放1.關(guān)閉 () ' 關(guān)閉正在播放的才能寫出新的語音返回的語音 ＝ HTTP讀文件 (“http://tsn.baidu.com/text2audio?tex=” ＋ z ＋ “&lan=zh&ctp=1&cuid=” ＋ 取本機(jī)網(wǎng)卡物理地址 () ＋ “&tok=” ＋ 獲取token () ＋ “&pit=9”)寫到文件 (“C:/Users/Administrator/Desktop/1.mp3”, 返回的語音)媒體播放1.打開 (“C:/Users/Administrator/Desktop/1.mp3”)媒體播放1.播放 (-1, )調(diào)試輸出 (“合成語音完成”)設(shè)置喚醒按鈕.標(biāo)題 ＝ “完成”.子程序 _判斷播放狀態(tài)時(shí)鐘1_周期事件, , , 如果播放完了就關(guān)閉文件，這樣才能寫出新的文件.判斷開始 (媒體播放1.取狀態(tài) () ＝ 2) 媒體播放1.關(guān)閉 ().默認(rèn).判斷結(jié)束.子程序 _判斷是否說話時(shí)鐘_周期事件錄音音波1.取聲波值 (音量, 2047)音量 ＝ 取絕對(duì)值 (音量).判斷開始 (音量 ＞ 200) 計(jì)時(shí) ＝ 0.判斷 (計(jì)時(shí) ＞ 100) ' 時(shí)鐘周期是10，如果連續(xù)100次（也就是1秒鐘）音量都小于200就結(jié)束錄音。這個(gè)作用就是1秒鐘之內(nèi)沒說話就停止錄音。 判斷是否說話時(shí)鐘.時(shí)鐘周期 ＝ 0 錄音1.停止 () 播放音樂 (#結(jié)束聲音, ) 設(shè)置喚醒按鈕.標(biāo)題 ＝ “正在識(shí)別” 錄音1.保存文件 (取運(yùn)行目錄 () ＋ “/ly.wav”, 真) 合成語音 (機(jī)器人對(duì)話 (識(shí)別 ())) 計(jì)時(shí) ＝ 0.默認(rèn) 計(jì)時(shí) ＝ 計(jì)時(shí) ＋ 1.判斷結(jié)束.子程序 識(shí)別, 文本型, , 調(diào)用百度語音識(shí)別API接口.局部變量 MAC, 文本型.局部變量 語言, 文本型, , , 中文=zh、粵語=ct、英文=en，不區(qū)分大小寫，默認(rèn)中文.局部變量 返回內(nèi)容, 文本型MAC ＝ 取本機(jī)網(wǎng)卡物理地址 ()語言 ＝ “zh”返回內(nèi)容 ＝ 編碼_utf8到gb2312 (到文本 (網(wǎng)頁_訪問 (“http://vop.baidu.com//server_api?lan=” ＋ 語言 ＋ “&format=wav” ＋ “&rate=8000” ＋ “&channel=1” ＋ “&cuid=” ＋ MAC ＋ “&token=” ＋ 獲取token (), 1, , , , “Content-Type:audio/wav;rate=8000;Content-length=999999”, , , 讀入文件 (取運(yùn)行目錄 () ＋ “/ly.wav”), )))返回內(nèi)容 ＝ 取文本中間 (返回內(nèi)容, 尋找文本 (返回內(nèi)容, #識(shí)別返回前, , 假) ＋ 取文本長(zhǎng)度 (#識(shí)別返回前), 尋找文本 (返回內(nèi)容, #識(shí)別返回后, , 假) － 尋找文本 (返回內(nèi)容, #識(shí)別返回前, , 假) － 取文本長(zhǎng)度 (#識(shí)別返回前)) ' 取得需要的文本調(diào)試輸出 (“識(shí)別后的內(nèi)容：” ＋ 返回內(nèi)容)編輯框2.內(nèi)容 ＝ 返回內(nèi)容返回 (返回內(nèi)容)