|  | 
 

 

上海浦东bet8可信吗

浦东bet8可信吗

上海徐汇bet8可信吗

徐汇bet8可信吗

上海黄浦bet8可信吗

黄浦bet8可信吗

上海杨浦bet8可信吗

杨浦bet8可信吗

上海卢湾bet8可信吗

卢湾bet8可信吗

上海静安bet8可信吗

静安bet8可信吗

上海虹口bet8可信吗

虹口bet8可信吗

 

 

 

 

 

 

 

友情链接
更多链接...
 
  您当前位置 -> 维修资料  

在VB中利用MSTTS技术实现英文朗读功能

  《金山词霸2000》的英文全文朗读功能,是直接使用了MSTTS(Text-to-Speech)技术,在VB6.0中通过对MS Speech API的调用,可以轻松实现更强大的功能。方法如下:
  首先,从《金山词霸2000》光盘上\ciba子目录下运行mstts.exe(MS TTS engine)并安装spchapi(MS Speech API)。
  第二,进入VB6.0,执行菜单“工程”中的“引用”,“浏览”到Windows目录下的Speech子目录,打开vtxtauto.tlb,则“VoiceText 1.0 Type Library”将被添加到可用的引用中。选中它,然后单击确定。
  第三,执行菜单“文件/新建工程/标准EXE”并确定,在Form1中添加Text1,command1,command2,command3和command4。主要属性设置如下:
  Form1的StartUpPosition=2
  Text1的MultiLine=True,Caption=″How are you?″,ScrollBars=2
  Command1的Caption=″Read″
  Command2的Caption=″Stop″,Enabled=false
  Command3的Caption=″Pause″,Enabled=false
  Command4的Caption=″Quit″
  第四,代码如下:
  ′通用声明
  Private Declare Function waveOutGetNumDevs Lib ″winmm.dll″ () As Long
  Private Sub Form_Load()
  ′通过API函数调用,判断bet9封了吗是否安装有声卡以及声卡驱动程序
  Dim i As Integer
  i = waveOutGetNumDevs()
  If i <= 0 Then
  MsgBox ″bet9封了吗无声卡或未装声卡驱动程序,请安装好以后再试...″,″错误提示″
  Unload Me
  Else
  ′注册
  Call VTxtAuto.VTxtAuto.Register(Space(10),Space(10))
  End If
  End Sub
  Private Sub Command1_Click()
  ′如果text1中有汉字,转到错误提示
  On Error GoTo handler
  ′开始朗读
  Call VTxtAuto.VTxtAuto.Speak(Trim(Text1.Text),vtxtsp_VERYHIGH + vtxtst_READING)
  Command2.Enabled = True
  Command3.Enabled = True
  Exit Sub
  handler:
  MsgBox ″本程序只能阅读英文文档″,,″错误提示″
  End Sub
  Private Sub Command2_Click()
  ′停止朗读
  Call VTxtAuto.VTxtAuto.StopSpeaking
  Command2.Enabled = False
  Command3.Enabled = False
  End Sub
  Private Sub Command3_Click()
  ′暂停或恢复朗读
  If VTxtAuto.VTxtAuto.IsSpeaking Then
  Call VTxtAuto.VTxtAuto.AudioPause
  Command3.Caption = ″Resume″
  Else
  Call VTxtAuto.VTxtAuto.AudioResume
  Command3.Caption = ″Pause″
  End If
  End Sub
  Private Sub Command4_Click()
  Unload Me
  End Sub
  程序运行时,在Text1中输入英文句子,然后单击“朗读”按钮,即可实现朗读。
  第五,说明:
  1.成员函数的第一个参数向TTS引擎传递需要朗读的文字,第二个控制朗读时的语气和优先级,由两个常量相加组成。
  控制优先级的常量有:vtxtsp_HIGH = 256 (&H100),尽快读出,加入播放队列开始。vtxtsp_NORMAL = 512 (&H200),默认,加入播放队列末尾。vtxtsp_VERYHIGH = 128 (&H80),立即读出,可打断正在读的内容。
  控制语气的常量有:vtxtst_COMMAND = 4,命令的语气。vtxtst_NUMBERS = 32 (&H20),阅读数字的语气。vtxtst_QUESTION = 2,提问的语气。vtxtst_READING = 16 (&H10),阅读文档时的语气。vtxtst_SPREADSHEET = 64 (&H40),阅读电子表格中元素的语气。vtxtst_STATEMENT = 1,平时说话时的语气,默认。vtxtst_WARNING =,警告语气。
  2.通过IsSpeaking可以取得当前状态,AudioPause和AudioResume实现暂停和恢复朗读。
  3.另外,AudioFastForward和AudioRewind可以向前和向后跳过一句朗读,修改Speed属性的值可以设置朗读的语速,默认是170。
  4.本程序支持粘贴功能,可从剪贴板中粘贴英文文档内容到文本框中,也可直接输入英文句子。
  注:本程序在Win98、VB6.0环境中调试通过。




     BET9账号被风控有限公司版权所有    Copyright2002All Rights Reserved   

浦东bet8可信吗|徐汇bet8可信吗|黄浦bet8可信吗|杨浦bet8可信吗

卢湾bet8可信吗|静安bet8可信吗|虹口bet8可信吗|闸北bet8可信吗

BET9App下载

关于本站 | 联系方式 |招聘信息 | 意见反馈 | 网站地图|加盟我们