HSPTV!掲示板

ナレーターの読む速さを調整できますか?
ソース

e1="error1・インターネットに接続されていません。"
e2="error2・RSSではありませんでした。"
title"Yahoo!天気・災害 - 南部（京都）の天気"
screen 0,1600,200
yahoo="Yahoo!天気・災害 - 南部（京都）の天気"
#include "mod_rss.as"
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end
	spv->"Speak" yahoo
	objmode 2
	objsize 200,200
	font "HG正楷書体-PRO",95
button"今日",*k
pos 200,0
font "HG正楷書体-PRO",95
button"明日",*a
pos 400,0
font "HG正楷書体-PRO",65
button"明後日",*aa
pos 600,0
font "HG正楷書体-PRO",45
button"明々後日",*s
pos 800,0
font "HG正楷書体-PRO",45
button"弥明後日",*y
pos 1000,0
font "HG正楷書体-PRO",45
button"五明後日",*g
pos 1200,0
font "HG正楷書体-PRO",65
button"六日後",*m
pos 1400,0
font "HG正楷書体-PRO",45
button"一週間後",*i
stop
*k
url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 2
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end

	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
loop 
loop
stop
*a
url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 3
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end
	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
loop 
loop
stop
*aa
url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 4
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end
	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
loop 
loop
stop
*s
	url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 5
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end
	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
	loop 
loop
stop
*y
url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 6
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end

	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
loop 
loop
stop
*g
	url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 7
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end
	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
loop 
loop
stop
*m
	url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 8
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end

	spv->"Speak" ""+cnt+":"+desc(cnt), 1 
loop 
loop
stop
*i
	url="http://rss.weather.yahoo.co.jp/rss/days/6110.xml"
rssload desc,link,url,10
if stat=1 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e1
					stop}
if stat=2 {newcom spv, "Sapi.SpVoice"
					spv->"Speak" e2
					stop}
objsize 640,24
foreach desc
repeat 8
newcom spv, "Sapi.SpVoice"
	if varuse(spv)=0 : dialog "SAPI not found." : end
	spv->"Speak" ""+cnt+":"+desc(cnt), 1
	loop
	loop
	stop

spv("Rate") = 0;-10〜10

ありがとうございました。

Himさん、もう一回質問してもいいですか?
声の高さを変えるにはどうしたらいいですか?

細かくは指定できませんが、
pitch middle で変えられるみたいです。

https://sites.google.com/site/visualbasicwizard/tutorials/variable/dim/microsofttexttospeechapi

newcom spv, "Sapi.SpVoice"
spv->"Speak" "<pitch middle=\""+ -10 +"\">Hot soup processor</pitch>"
spv->"Speak" "<pitch middle=\""+   0 +"\">Hot soup processor</pitch>"
spv->"Speak" "<pitch middle=\""+  10 +"\">Hot soup processor</pitch>"
stop

なたでさん、ありがとうございました。