Sprachausgabe Windows 8

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von programmer71.

    Sprachausgabe Windows 8

    Nach etlicher Sucherei, eröffne ich nun mal einen Thread.

    Ich möchte gerne eine einfache Sprachausgabe in egal welcher Sprache machen.
    Jedoch erkennt er keinen Syntesizer.
    Hat jemand da eventuell nen Download Link oder einen anderen Weg ?
    Mfg , ´´

    @Irelio

    VB.NET-Quellcode

    1. Option Explicit On
    2. Option Strict On
    4. Imports SpeechLib
    6. Public Class Form1
    8. Private _SpVoice As New SpVoice
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    11. Handles Button1.Click
    12. Speak("Anna", Me.TextBox1.Text)
    13. End Sub
    15. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    16. Handles Button2.Click
    17. Speak("Stefan", Me.TextBox1.Text)
    18. End Sub
    20. Private Sub Speak(ByVal MyName As String, ByVal MyText As String)
    21. Dim voicename As String = "Name=LH " & MyName
    22. Dim language As String = "Language=409"
    23. Try
    24. Me._SpVoice.Voice = Me._SpVoice.GetVoices(voicename, language).Item(0)
    25. Me._SpVoice.Speak("", SpeechVoiceSpeakFlags.SVSFPurgeBeforeSpeak)
    26. Me._SpVoice.Speak(MyText, SpeechVoiceSpeakFlags.SVSFlagsAsync)
    27. Catch ex As Exception
    28. Throw New Exception(ex.Message.ToString())
    29. End Try
    30. End Sub
    32. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    33. Handles MyBase.Load
    34. Me.TextBox1.Text = "Test"
    35. End Sub
    36. End Class



    Dazu musst du Anna aber wahrscheinlich erst runterladen.
    Das ist dann Deutsch. Es gibt noch andere Stimmen. ;)
    Google mal noch nach SpeechLib.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „programmer71“ ()

Facebook
Telefonspende