我写一个函数吧 文件名的加入就和我前面一样它加入到一个数组中去. 我这里给出把单音结合成复合 dim sz sz1 as integer select case date case 1 case 31 把31分解成3 10 1 把这个文件名放入数组 end select '然后用fy用行放音下面的sn1初始化为1,sn为数组 private sub timer1() if sz1<sz then sz1=sz1+1 fy(sn1) else timer1.enabled=false end if end sub sub fy(number as integer) dim wjm as string if number<=sz then '注意这里sn是指数组的大小了. wjm="wf"+sj(num)+".wav" '注意这里的wf是我定义文件名的如1=wf1 2=wf2 mmcontrol1.command="close" mmcontrol1.devicetype="waveaudio" mmcontrol1.filename=wjm mmcontrol1.command="open" mmcontrol1.command="play end if end sub '通过这些应该可以做一个标准的普通话报时器和发音计算器了
文件名的加入就和我前面一样它加入到一个数组中去.
我这里给出把单音结合成复合
dim sz sz1 as integer
select case date
case 1
case 31
把31分解成3 10 1 把这个文件名放入数组
end select
'然后用fy用行放音下面的sn1初始化为1,sn为数组
private sub timer1()
if sz1<sz then
sz1=sz1+1
fy(sn1)
else timer1.enabled=false
end if
end sub
sub fy(number as integer)
dim wjm as string
if number<=sz then '注意这里sn是指数组的大小了.
wjm="wf"+sj(num)+".wav" '注意这里的wf是我定义文件名的如1=wf1 2=wf2
mmcontrol1.command="close"
mmcontrol1.devicetype="waveaudio"
mmcontrol1.filename=wjm
mmcontrol1.command="open"
mmcontrol1.command="play
end if
end sub
'通过这些应该可以做一个标准的普通话报时器和发音计算器了
你参照一下mmcontrol1控件的使用方法.
它有起始位置和结束位置的.