Bonjour,

Je suis débutant en VB.NET et j'utilise le code ci dessous pour enregistrer du text to speech dans un fichier .wav, tout ce passe bien mais le son enregistrer est de mauvaise qualité.
Est ce que quelqu'un peu m'aider.

Merci d'avance.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim SAPI, fichier_out
        SAPI = CreateObject("sapi.spvoice")
        SAPI.Speak(TextBox1.Text)
 
        fichier_out = CreateObject("SAPI.SpFileStream")
        fichier_out.Open("c:\sortie.wav", 3, False)
 
        SAPI.AudioOutputStream = fichier_out
        SAPI.Speak(TextBox1.Text)
        fichier_out.close()
 
    End Sub
 
End Class