谁有金额数量的读音wav文件？给30分？ ( 积分: 30 )

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-04

• #1

壹','贰','叁','肆','伍','陆','柒','捌','玖','整','拾','佰','仟','万','亿','圆','角','分‘的标准读音，每个字一个wav文件，要声音圆润点的，女声最好

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-04

• #2

壹','贰','叁','肆','伍','陆','柒','捌','玖','整','拾','佰','仟','万','亿','圆','角','分‘的标准读音，每个字一个wav文件，要声音圆润点的，女声最好

 

C

cifanl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-04

• #3

你自己配下，再改个女声，就可以了吗！
所谓自己动手，丰衣足食

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-04

• #4

我是有，但录出来的效果不理想

 

C

CGN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #5

微软拼音有一个可以发音的API，IBM出的语音识别程序，也有一个。

 

S

shangchao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #6

我有一些，怎么给你？

 

L

lovewh119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #7

发到我的邮箱里来就行了，谢谢！
lovewh119@163.net

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #8

用API输出的wav文件效果也不很好，我试过。
我的MSN:yxctkhua@cctk.net,邮箱：kmwzh1103@vip.sina.com

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #9

收到后一定把分奉上。

 

S

shangchao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #10

家里电脑上，晚上发

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #11

好，先谢谢了

 

L

Lsh1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #12

有的，在家里的电脑！是超市里面用的。晚上下班以后发给你好了！可是你应该给个邮件或是QQ啊！

还有各位高手有懂VB的吗？请给我把下面的VB程序翻译成delphi的！急用！！！先谢谢了！！

Private Sub StopCreateDiagram(ByVal ret As Integer)
Dim msgVal As Integer
dtbs.Close

Debug.Print vbCrLf;
"Error : "
&
Error$(ret) &
""
msgVal = MsgBox("
Error '"
&
Error$(ret) &
"' Continue? ", vbYesNo + vbDefaultButton1, "Message&quot

' give user the option of quiting the creation due to an error.
If msgVal = vbYes then
Exit Sub

' stop creation
Debug.Print "Execution stopped by user..."
Stop

End Sub

 

L

Lsh1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #13

要声音文件的楼主请也我联系！QQ：120513682
E-Mail:liangshihong409@126.com

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #14

我的MSN:yxctkhua@cctk.net,
邮箱：kmwzh1103@vip.sina.com
qq:67108564
发到邮箱就行，thanks!

 

L

Lsh1982

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #15

不用客气！今晚给你好了我问题能给解决一下吗？

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #16

不好意思了,我对VB也不很熟，你把贴子发出来让大家看看，说不定能帮上你的

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-05

• #17

这是调用wav文件的代码，还有需要改进的地方吗？

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i,j,n:integer;
YY，DXJinE:string;
const
WaveList:array [1..18] of string=('壹','贰','叁','肆','伍','陆','柒','捌','玖','整','拾','佰','仟','万','亿','圆','角','分');
begin

DXJinE:='壹贰叁肆伍陆柒捌玖';
for i:=1 to length(DXJinE) div 2do

begin

YY:=copy(DXJinE,2*i-1,2);
for j := 1 to 18do

if WaveList[j] = YY then

begin

n := j;
break;
end;

sndplaysound(PChar(WaveList[n]+'.wav'),SND_ASYNC);
sleep(350);
end;

end;

 

D

dwguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #18

先谢过Lsh1982
有没有"圆"“角”“分”等的读音啊？

 

C

cyjsir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-06

• #19

给我一份，cyjisr@163.com

 

S

shangchao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-04-07

• #20

我给的，我没有圆、角、分
但我一女声中文，用TTS比用语音文件快，但效果也不差。