Lecture fichier WAV

Question

Bonjour,

Je suis à la recherche du moyen le plus simple de lire un fichier WAV lorque j'excute un progrmme, le fichier sera à récuperer sous window, je suis débutant ++ j'ai cherché avant de poser ma question mais n'ai rien trouvé qui me plaise a part le petit prog si dessous mais qui ne fonctionne pas avec VB 2008, ou je me suis planté (cas le plus probable...)

Alors si quelqu'un à un peu de temps à perdre, merci du coup de main
Bonne Année 2009
Pat

'dans les déclaration au début du prog

Private

Const SND_ASYNC = &H1 
'Joue le son en arrière-plan.
Private
Const SND_FILENAME = &H20000 
'Le son provient d'un fichier externe
Private
Const SND_LOOP = &H8 
' Répète le son jusqu'au prochain appel de PlaySound
Private
Const SND_PURGE = &H40 
'Stop la lecture du fichier
Private

Declare
Function PlaySound 
Lib
"winmm.dll"
Alias
"PlaySoundA" (
ByVal lpszName 
As
String, 
ByVal hModule 
As
Long, 
ByVal dwFlags 
As
Long) 
As
Long
'dans mon prog quand j'en ai besoin

Private
Sub Form_Load()
PlaySound 
"C:\Program Files\Microsoft Games\Microsoft Flight Simulator X\Sound\gearwarn.wav", 
ByVal 0&, SND_FILENAME 
Or SND_ASYNC 
Or SND_LOOP
End

Sub

tovin · Answer

Bonjour,
Et ça, est-ce que cça marcherait :


Imports System.Media
Imports System.ComponentModel




Recherche de la musique en Wav









Private Sub browseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles browseButton.Click         Dim openFileDialog1 As New OpenFileDialog()        openFileDialog1.InitialDirectory "c:\windows\media"        openFileDialog1.Filter "WAV files (*.wav)|*.wav"        openFileDialog1.FilterIndex = 1        openFileDialog1.RestoreDirectory True        If (openFileDialog1.ShowDialog() Windows.Forms.DialogResult.OK) Then            fileName openFileDialog1.FileName            soundFileNameTextBox.Text fileName
      End If
end sub




Jouer la musique










Private Sub playSyncButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles playSyncButton.Click
        If fileName IsNot Nothing Then
            My.Computer.Audio.Play(fileName)
        End If
    End Sub









Stopper la musique







Private Sub stopAsyncPlayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stopAsyncPlayButton.Click


               My.Computer.Audio.Stop()
    End Sub

patorion33 · Answer

Merci,
Je vais essayer cela cet APM, en fait moi il faut que je modifie ton prog pour que le fichier demarre avec un truc du style je joue le fichier pour A=1 et si A=0 je le coupe le truc simple qui me complique bien la vie (pour moi...)
A+ et encore merci
Pat

Lecture fichier WAV

2 réponses

Votre réponse

Discussions similaires