なでしこで使う
| 投稿日 | ： 2007/02/15 01:33 |
| 投稿者 | ： むく |
| 参照先 | ： http://yanwenglee.hp.infoseek.co.jp/ |
| 件名 | ： すごくいいですね |
| 投稿日 | ： 2014/09/26 15:52 |
| 投稿者 | ： なかヨッシー |
| 参照先 | ： http://www4.hp-ez.com/hp/yossi7/page13 |
これ、すごくいいですね、
「「
Option Explicit
Dim str1,sp
Function hanasi(str1)
Set sp = CreateObject("SAPI.SpVoice")
sp.Speak str1
End Function
」をVBSCRIPTコード追加。
「hanasi("こんにちは")」をVBSCRIPTする」
という方法を前使ってたんですが声がへんであまり使う機会がありませんでしたが、これはイントネーションが自分で決められるのがいいです。イントネーションを決めるのは「/」と「'」だけですか？。
もし、ほかにあるなら教えてください(^^)
「「
Option Explicit
Dim str1,sp
Function hanasi(str1)
Set sp = CreateObject("SAPI.SpVoice")
sp.Speak str1
End Function
」をVBSCRIPTコード追加。
「hanasi("こんにちは")」をVBSCRIPTする」
という方法を前使ってたんですが声がへんであまり使う機会がありませんでしたが、これはイントネーションが自分で決められるのがいいです。イントネーションを決めるのは「/」と「'」だけですか？。
もし、ほかにあるなら教えてください(^^)
| 件名 | ： すごくいいですね |
| 投稿日 | ： 2014/09/26 15:52 |
| 投稿者 | ： なかヨッシー |
| 参照先 | ： http://www4.hp-ez.com/hp/yossi7/page13 |
これ、すごくいいですね、
「「
Option Explicit
Dim str1,sp
Function hanasi(str1)
Set sp = CreateObject("SAPI.SpVoice")
sp.Speak str1
End Function
」をVBSCRIPTコード追加。
「hanasi("こんにちは")」をVBSCRIPTする」
という方法を前使ってたんですが声がへんであまり使う機会がありませんでしたが、これはイントネーションが自分で決められるのがいいです。イントネーションを決めるのは「/」と「'」だけですか？。
もし、ほかにあるなら教えてください
「「
Option Explicit
Dim str1,sp
Function hanasi(str1)
Set sp = CreateObject("SAPI.SpVoice")
sp.Speak str1
End Function
」をVBSCRIPTコード追加。
「hanasi("こんにちは")」をVBSCRIPTする」
という方法を前使ってたんですが声がへんであまり使う機会がありませんでしたが、これはイントネーションが自分で決められるのがいいです。イントネーションを決めるのは「/」と「'」だけですか？。
もし、ほかにあるなら教えてください
| 件名 | ： Re: なでしこで使う |
| 投稿日 | ： 2007/09/04 10:23 |
| 投稿者 | ： クジラ飛行机 |
| 参照先 | ： http://nadesi.com |
むくさん、なでしこでのラッパーを作ってくださり
ありがとうございます。
なでしこ本体にも収録させてください。
ありがとうございます。
なでしこ本体にも収録させてください。
| 件名 | ： Re: なでしこで使う |
| 投稿日 | ： 2007/02/15 01:40 |
| 投稿者 | ： むく |
| 参照先 | ： http://yanwenglee.hp.infoseek.co.jp/ |
以上です。
プログラムに一箇所、掲示板では強制改行されて表示されている部分がありますが、そこは改行なしでお願いします。
なでしこの本体は下のURLよりDLできます。(最初のh省略してます)
ttp://nadesi.com/
プログラムに一箇所、掲示板では強制改行されて表示されている部分がありますが、そこは改行なしでお願いします。
なでしこの本体は下のURLよりDLできます。(最初のh省略してます)
ttp://nadesi.com/
| 件名 | ： Re: なでしこで使う |
| 投稿日 | ： 2007/02/15 01:31 |
| 投稿者 | ： むく |
| 参照先 | ： http://yanwenglee.hp.infoseek.co.jp/ |
＃続き これで最後です
＃同期発声のサンプル ここから
｢げ'ん/きー？｣をAqTalk話す
＃ここまで
＃非同期発声のサンプル ここから
＃ハンドルの取得
H=AqTalk開く
＃非同期発声
Hで「<NUMK VAL=7 COUNTER=じ>/<NUMK VAL=20 COUNTER=ふん>に、え'きで/ま'ってます。」をAqTalk非同期話す
＃終了時にハンドル開放。（終了時なら不要かも）。isPlayを使って発声が終了するのを待たないと発声途中でも終わる。
母艦の閉じた時は〜
(isPlay(H)==1)の間
HのAqTalk閉じる
終わる
＃ここまで
＃同期発声のサンプル ここから
｢げ'ん/きー？｣をAqTalk話す
＃ここまで
＃非同期発声のサンプル ここから
＃ハンドルの取得
H=AqTalk開く
＃非同期発声
Hで「<NUMK VAL=7 COUNTER=じ>/<NUMK VAL=20 COUNTER=ふん>に、え'きで/ま'ってます。」をAqTalk非同期話す
＃終了時にハンドル開放。（終了時なら不要かも）。isPlayを使って発声が終了するのを待たないと発声途中でも終わる。
母艦の閉じた時は〜
(isPlay(H)==1)の間
HのAqTalk閉じる
終わる
＃ここまで
| 件名 | ： Re: なでしこで使う |
| 投稿日 | ： 2007/02/15 01:30 |
| 投稿者 | ： むく |
| 参照先 | ： http://yanwenglee.hp.infoseek.co.jp/ |
＃続きです 前のとあわせないと機能しません。
＃DLL制御用関数で同じことできるけど、なでしこらしく日本語的に使うための関数
#-----------------------------------------------------------------------
＃同期発声の場合は、ハンドルの取得は不要。
●AqTalk話す（Mと｜Mを）
PlaySync(M,90)
＃非同期発声の場合はAqTalk開くでハンドルを取得すること。不要になったらAqTalk閉じるでハンドルを開放。
●AqTalk非同期話す（HでMと｜Mを）
Play(H,M,90,母艦ハンドル,0,0)
●AqTalk開く
Create()で戻る
●AqTalk閉じる（Hの）
Release(H)
#-----------------------------------------------------------------------
＃DLL制御用関数で同じことできるけど、なでしこらしく日本語的に使うための関数
#-----------------------------------------------------------------------
＃同期発声の場合は、ハンドルの取得は不要。
●AqTalk話す（Mと｜Mを）
PlaySync(M,90)
＃非同期発声の場合はAqTalk開くでハンドルを取得すること。不要になったらAqTalk閉じるでハンドルを開放。
●AqTalk非同期話す（HでMと｜Mを）
Play(H,M,90,母艦ハンドル,0,0)
●AqTalk開く
Create()で戻る
●AqTalk閉じる（Hの）
Release(H)
#-----------------------------------------------------------------------
さっそく日本語プログラム言語「なでしこ」で利用するための関数を作ってみました。
＃ここから なでしこ用プログラムのサンプル
＃DLL制御用
#-----------------------------------------------------------------------
●PlaySync(char, iSpeed)=DLL("AquesTalkDa.dll","int AquesTalkDa_PlaySync(char *koe, int iSpeed)")
●Play(hMe, char, iSpeed, hWnd, msg, dwUser)=DLL("AquesTalkDa.dll","int AquesTalkDa_Play(H_AQTKDA hMe, char *koe, int iSpeed, HWND hWnd, long msg, long dwUser)")
＃↑●の後は改行なしでお願いします
●Create()=DLL("AquesTalkDa.dll","H_AQTKDA AquesTalkDa_Create()")
●Release(hMe)=DLL("AquesTalkDa.dll","void AquesTalkDa_Release(H_AQTKDA hMe)")
●Stop(hMe)=DLL("AquesTalkDa.dll","void AquesTalkDa_Stop(H_AQTKDA hMe)")
●isPlay(hMe)=DLL("AquesTalkDa.dll","int AquesTalkDa_IsPlay(H_AQTKDA hMe)")
#-----------------------------------------------------------------------