Discussion :

[pve3]

Bonjour,
Mon projet est de lire (audio) les données d'un fichier. Je souhaiterai pouvoir écouter les énumérations du fichier tout en me permettant de faire une pause quand je le souhaite et aussi de pouvoir reprendre l'énumération. Je ne sais pas comment coder l'évenement SpeakCompleted.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Private Speech1 As New SpeechSynthesizer
....
 
FileOpen(no, "C:\Users\Controljournalachat\journal.txt", OpenMode.Input)
       While Not EOF(no) 
               Speech1.SpeakAsync (LineInput(no)) 
               'permettre une pause
       End While
FileClose(no)

Merci d'avance.

[-N4w4k-]

Salut,

Je souhaiterai pouvoir écouter les énumérations du fichier tout en me permettant de faire une pause quand je le souhaite et aussi de pouvoir reprendre l'énumération.

Qu'est ce que tu n'arrives pas à faire?

Pense à baliser ton code (icone #) dans ton précédent message, ça le rendra plus lisible et donnera plus envie aux gens de te lire.

[pve3]

Je souhaiterais pouvoir mettre un bouton "pause" qui arrêterai l'énumération(audio) du fichier.
Un bouton "continuer" permettrai de reprendre l'énumération (audio).

[-N4w4k-]

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
    Private pause As Boolean = False
 
    Private Sub Main()
        '...
        While Not EOF(no) 
            While Not pause
                Speech1.SpeakAsync (LineInput(no)) 
            End While
        End While
        '...
    End Sub
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        pause = Not pause
    End Sub

Quelque chose comme ça? le Button1 servirait à mettre/enlever la pause (toggle)...

[pve3]

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
    Private pause As Boolean = False
 
    Private Sub Main()
        '...
        While Not EOF(no) 
            While Not pause
                Speech1.SpeakAsync (LineInput(no)) 
            End While
        End While
        '...
    End Sub
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        pause = Not pause
    End Sub

Quelque chose comme ça? le Button1 servirait à mettre/enlever la pause (toggle)...

Non, dans ce cas la boucle va trop rapidement.

Je dois lancer une ligne du fichier. Attendre que la lecture de cette ligne est finie(en audio) et ensuite relancer la lecture de la ligne suivante. Et pendant la lecture(audio) je peux mettre en pause la lecture de la prochaine ligne si nécéssaire.

Deux solutions :
- Soit j'arrive à calculer le temps en sec de la lecture de la ligne en cours pour lancer la lecture audio de la prochaine ligne

- Soit Si il y a un évènement qui determine la fin de la lecture audio ce qui me permettra de lancer la prochaine phrase.

[shayw]

Salut
peut etre comme ça

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports System.Speech
     Imports System.Speech.Synthesis
 
     Private montext As New List(Of String)
    Dim speaker As New SpeechSynthesizer()
     Private Sub PlayText()
        speaker.Rate = 0
        speaker.Volume = 100
        Try
            For Each phrase In montext
                speaker.SpeakAsync(phrase)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try    
     End Sub
 Private Sub ReadFile(ByVal pathfichier As String)
        Try
            montext = System.IO.File.ReadAllLines(pathfichier).ToList
            RichTextBox1.Clear()
            ListBox1.Items.AddRange(System.IO.File.ReadAllLines(pathfichier))
        Catch ex As Exception
            'en cas d'exception affiche l'erreur 
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ReadFile("C:\Users\Controljournalachat\journal.txt")
    End Sub
 
  Private Sub ButtonPlay_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonPlay.MouseClick
        speaker.Resume()
        PlayText()
    End Sub  
 
 Private Sub ButtonPause_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonPause.MouseClick
       speaker.Pause()
 
    End Sub

[pve3]

Un grand merci shayw pour ton aide c'est exactement ce que je souhaitais.

Merci aussi à -N4w4k-

pve3

[shayw]

Code améliorié
avec un seul bouton play/pause

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Imports System.IO
 Imports System.Speech
 Imports System.Speech.Synthesis
   Private montext As New List(Of String)
   Private speaker As New SpeechSynthesizer()
   private countphrase As Integer
 
   Private Sub speaker_SpeakCompleted(ByVal sender As Object, ByVal e As SpeakCompletedEventArgs)
        countphrase += 1
        If countphrase = montext.Count Then
            ButtonPlay.Text = "Play"
        End If
    End Sub
 
 Private Sub PlayText()
        AddHandler speaker.SpeakCompleted, AddressOf speaker_SpeakCompleted
        speaker.Rate = 0
        speaker.Volume = 100
        Try
            For Each phrase In montext
                speaker.SpeakAsync(phrase)
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try   
 End Sub
 
 Private Sub ButtonPlay_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ButtonPlay.MouseClick
       Try
            If speaker.State = SynthesizerState.Ready Then
                countphrase = 0
                PlayText()
                DirectCast(sender, Button).Text = "Pause"
            ElseIf DirectCast(sender, Button).Text = "Pause" Then
                speaker.Pause()
                DirectCast(sender, Button).Text = "Play"
            ElseIf speaker.State = SynthesizerState.Paused Then
                DirectCast(sender, Button).Text = "Pause"
                speaker.Resume()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try        
    End Sub
 
    Private Sub ReadFile(ByVal pathfichier As String)
        Try
            montext = System.IO.File.ReadAllLines(pathfichier).ToList
                  Catch ex As Exception
            'en cas d'exception affiche l'erreur 
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As  System.EventArgs) Handles Me.Load
        ReadFile("C:\Users\Controljournalachat\journal.txt")
         ButtonPlay.Text = "Play"
End Sub