HSPTV!掲示板

ちょっとお借りしたものですけども
これで読み上げ機能をつけたいんですけどもどうすればいいですか？


#include "hspsapi.as"

sdim msg_ms, 1024
mes "音声認識の結果"
objsize 640, 20 : input msg_ms : id_ms = stat

// MS音声認識初期化・オープン
oncmd gosub *wm_sapi, SAPI_MESSAGEID
// 通知するウィンドウハンドルを指定
sapi_SetCallbackHwnd hwnd, SAPI_MESSAGEID

// 初期化
sapi_Init 0

// オープンする
sapi_Open
if stat != 0 : dialog "MS音声認識がなんか失敗した？" : end

onexit gosub *exit

title "マイクに向かってしゃべってください"

stop

*wm_sapi
// 結果が来た
if lparam == 0{
dupptr msg, wparam, 256, 2
objprm id_ms, str(msg)
}
return

// 終了時の処理
*exit
cls : font "", 20, 16 : mes "開放処理中です。しばらくお待ちください。"
wait 12

sapi_Close
sapi_Exit
end
end
return

すいません無理なのでこれを
http://hinekure.m19.coreserver.jp/filedownload/tool/hspsapi.zip

新規関数 Speak で指定した文字列を喋らせています。
カスタマイズは独自に検索してください。

	// *** 読み込み *** \\
	#include "hspsapi.as"

#module

	#deffunc Speak str prm1
		txt = prm1
		newcom spv, "Sapi.SpVoice"
		if varuse(spv) = 0 {
			return 0
		}
		spv -> "Speak" txt, 1
		return 1

	#deffunc ByeSpeak onexit
		delcom spv
		return 0

#global

	// *** ウィンドウの作成や設定 *** \\
	screen 0, 640, 480, 0
	title "マイクに向かってしゃべってください"
	oncmd gosub *wm_sapi, SAPI_MESSAGEID
	sapi_SetCallbackHwnd hwnd, SAPI_MESSAGEID
	sapi_Init 0
	onexit *exit

	// *** 変数宣言 *** \\
	sdim msg_ms, 1024

	// *** メイン画面 *** \\
	mes "音声認識の結果"
	objsize 640, 20
	input msg_ms
	id_ms = stat
	sapi_Open
	if stat != 0 {
		dialog "MS音声認識がなんか失敗した？"
		end
	}
	stop

	// *** 結界範囲 *** \\
*wm_sapi
	if lparam == 0 {
		dupptr msg, wparam, 256, 2
		objprm id_ms, str(msg)
		Speak "" + str(msg)
	}
	return

	// *** 終了時 *** \\
*exit
	sapi_Close
	sapi_Exit
	end

余計かもしれませんが、
ジャンルが雑談になっていますよ。
投稿する前に確認してください。

質問です！のような題名は避けましょう。

すいません
しつこいですけどもこれって
棒読みちゃんと連携ってできますか？

棒読みちゃんは「AquesTalk」を使用しているので
AquesTalk で検索