Encore et toujours Text To Speech

Résolu
Signaler
Messages postés
48
Date d'inscription
lundi 11 février 2008
Statut
Membre
Dernière intervention
22 mai 2010
-
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
Bonjour tout le monde,

Je n'arrive pas à faire marcher text to speech sous VB 2008 enfin je veut dire sa marche mais je ne sais pas comment le mettre en français. En faite je cherche à créer un APLI qui permettra de lui parler avec des mots simples pour qu'il fasse des actions bien précise. Si quelqu'un connait un moyen d'utiliser la reconnaissance et la synthèse vocal sa serait parfait.

Merci encore pour tout l'aide que je trouve ici

Cordialement

Bonne journée

5 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
la reconnaissance vocale n'existe qu'en anglais en chinois et en japonais sur XP,Win2003,Win2K et anterieur 
donc à part si tu as Win (Daube) Vista tu ne l'auras pas en français
pour la synthèse vocale c'est différent tu peux la trouver en +-30 langues sur le site de MS Agent

exemple de  synthèse vocale  en français :
http://www.vbfrance.com/codes/TODO-PARLE_46587.aspx
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
9
Salut,
Voilà pour un Text To Speech en .NET:

Private WithEvents Synthe As New System.Speech.Synthesis.SpeechSynthesizer
Private Style As New System.Speech.Synthesis.PromptStyle
Private InstalledVoices As System.Collections.ObjectModel.ReadOnlyCollection(Of System.Speech.Synthesis.InstalledVoice)

Private Sub frmMain_Load(...) Handles MyBase.Load
    InstalledVoices = Synthe.GetInstalledVoices

    Style.Emphasis = Speech.Synthesis.PromptEmphasis.None
    Style.Rate = Speech.Synthesis.PromptRate.Medium
    Style.Volume = Speech.Synthesis.PromptVolume.Medium

    Synthe.SelectVoice(InstalledVoices(0).VoiceInfo.Name
End Sub

Private Sub Say(Text As String)
         Dim msg As New System.Speech.Synthesis.PromptBuilder

        msg.StartStyle(Style)
        msg.AppendText(Me.txtText.Text)
        msg.EndStyle()

        Synthe.SpeakAsync(msg)
End Sub
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
salut Kevin.Ory , ^^c'est à partir du Framework 3
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
9
Il est sur le framework 3.5 je pense
"Je n'arrive pas à faire marcher text to speech sous VB 2008"
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
4
ah oui décidément ...!
heureusement que tu es la  8D