Lecture fichier WAV

Signaler
Messages postés
7
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
8 novembre 2010
-
Messages postés
7
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
8 novembre 2010
-
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

2 réponses

Messages postés
164
Date d'inscription
samedi 11 décembre 2004
Statut
Membre
Dernière intervention
14 août 2013
2
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
Messages postés
7
Date d'inscription
lundi 21 avril 2008
Statut
Membre
Dernière intervention
8 novembre 2010

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