code pour la lecture d'un fichier son

Question

Bonjour les amis

Voiçi le code que j'ai utilisé pour lire un fichier son dans mon application.
   MMControl1.Notify = False
   MMControl1.Wait = True
   MMControl1.Shareable = False
   MMControl1.DeviceType = "waveAudio"
   'MMControl1.FileName = "C:\POCC\Bus6.WAV"
   MMControl1.FileName = "C:\POCC\OK2.WAV"
   MMControl1.Command = "open"
   MMControl1.Command = "play"
Le fichier c'est OK2. Mais je voudrais que cette lecture se repète chaque fois qu'il est à la fin;et aussi longtemps qu'on a pas encore quitté l'application. comment faire?

scromania · Answer

tu sais combien de temps dur le son.

 Private Sub Boucle()
        MMControl1.Notify = False
        MMControl1.Wait = True
        MMControl1.Shareable = False
        MMControl1.DeviceType = "waveAudio"
        'MMControl1.FileName = "C:\POCC\Bus6.WAV" 
        MMControl1.FileName = "C:\POCC\OK2.WAV"
        MMControl1.Command = "open"
        MMControl1.Command = "play"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '1000 mili 1sec * 60 1 m 
        Dim isec As Integer
        isec += 1
        If isec = 60 Then
            Boucle()
            isec = 0

        End If
    End Sub

scromania · Answer

Il peut y avoir plus simple et mieux,je pense que ça peux faire l'affaire

cs_Le Pivert · Answer

Bonjour,
j'ai cela en VB.Net

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Arrete la lecture du son
        My.Computer.Audio.Stop()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.Background) 'joue en arrière plan
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.WaitToComplete) 'joue complétement, ne s'arrête qu'à la fin du morceau
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.BackgroundLoop) 'joue en boucle
    End Sub


A mettre le fichier wav dans le dossier Debug de l'application
@+
Le Pivert

scromania · Answer

oui tu as raison avec cette commande il joue en boucle
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        My.Computer.Audio.Play(Application.StartupPath & "\fichier.wav", AudioPlayMode.BackgroundLoop) 'joue en boucle
    End Sub

@+

Code pour la lecture d'un fichier son

4 réponses

Votre réponse

Discussions similaires