Startseite › 6_2008-2009 › Example with MS Agent, text-to-speech
Advertisement
6_2008-2009 OLE/ COM/ DCOM/ Active-X #195816

Example with MS Agent, text-to-speech

Amir Malik
★★★★★
4.8 · Downloads: 2,341

Microsoft Agent will speak (computerized voice) the contents of a textbox or richtextbox to you!

AI

KI-Zusammenfassung: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Quellcode
original-source 
' MSAGENT example by Amir Malik
' website: http://amir142.cjb.net
' e-mail : amir@infoteen.com

Private Sub cmdPaste_Click()
  TextData.Text = Clipboard.GetText
End Sub
Private Sub cmdPauseR_Click()
  If cmdPauseR.Caption = "&Pause / Stop" Then
    sp.AudioPause
    cmdPauseR.Caption = "&Resume"
  ElseIf cmdPauseR.Caption = "&Resume" Then
    sp.AudioResume
    cmdPauseR.Caption = "&Pause / Stop"
  End If
End Sub
Private Sub cmdSpeak_Click()
  sp.Speak TextData.Text
  sp.Speed = txtSpeed.Text
  Sspeak = True
End Sub
Private Sub txtSpeed_LostFocus()
  If txtSpeed.Text < 50 Then
    MsgBox "Speed is too low."
    txtSpeed.Text = "150"
  End If
  If txtSpeed.Text > 250 Then
    MsgBox "Speed is too high."
    txtSpeed.Text = "150"
  End If
End Sub

Upload
Originalkommentare (3)
Wiederhergestellt von der Wayback Machine