Jouer un son (fichier wav) [Résolu]

Question

Posez votre question Signaler

Jouer un son (fichier wav) [Résolu]

cs_ShayW

Messages postés: 3241
Date d'inscription: jeudi 26 novembre 2009
Dernière intervention: 26 novembre 2018

- 28 sept. 2014 à 13:53 - Dernière réponse : cs_ShayW

Messages postés: 3241
Date d'inscription: jeudi 26 novembre 2009
Dernière intervention: 26 novembre 2018

- 28 sept. 2014 à 16:19

VB.NET Posez votre question Signaler

Bonjour,

Dans ma ressource j'ai placé une liste de fichier wav chacun commence par mus
dans une list of string je récupère le titre de chaque fichier.
Je choisis aléatoirement un titre et voudrais jouer le wav correspondant.

 Private listmusics As New List(Of String)
For Each ResourceFile As DictionaryEntry In My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True).OfType(Of Object)()
            If TypeOf (ResourceFile.Key) Is String Then
                If ResourceFile.Key.ToString.StartsWith("mus") Then
                    listmusics.Add(ResourceFile.Key.ToString)
                End If
            End If
        Next

Dim rdn As New Random
 Dim x As Integer

x = rdn.Next(0, listmusics.Count)

listmusic(x) est le titre choisi maintenant comment jouer le wav correspondant

My.Computer.Audio.Play(My.Resources.listmusics(x))

n'est pas accepté
ou soit écrire un select case

Select Case listmusics(x)
            Case "muscondor1" : My.Computer.Audio.Play(My.Resources.muscondor1, AudioPlayMode.Background)
            Case "muscondor2" : My.Computer.Audio.Play(My.Resources.muscondor2, AudioPlayMode.Background)
        End Select

si j'ai plus de 50 wav il y a 50 case !!!!
il y a peut etre une autre méthode ?
Merci d'avance

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

2 réponses

Votre réponse

Répondre au sujet

Posez votre question

NHenry · Answer 1 · 2014-09-28T15:08:10+0200

Signaler Commenter la réponse de NHenry

NHenry

Messages postés: 14319
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 11 décembre 2018

28 sept. 2014 à 15:08

0

Merci

Bonjour,

D'après la documentation http://msdn.microsoft.com/en-us/library/cf1shcah%28v=vs.90%29.aspx
Tu peux mettre un nom de fichier ou un flux, je te suggère de voir une source qui permet d'extraire une ressources d'un projet en exécution, pour voir comment récupérer le flux qui va avec.

cs_ShayW · Answer 2 · 2014-09-28T16:19:05+0200

Bonjour

Merci j'ai trouvé une solution

private listmusics As New List(Of System.IO.UnmanagedMemoryStream)

For Each ResourceFile As DictionaryEntry In My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True).OfType(Of Object)()
            If TypeOf (ResourceFile.Key) Is String Then
                If ResourceFile.Key.ToString.StartsWith("mus") Then
                    listmusics.Add(CType(ResourceFile.Value, System.IO.UnmanagedMemoryStream))
                End If
            End If
        Next

Dim rdn As New Random
 Dim x As Integer

x = rdn.Next(0, listmusics.Count)

My.Computer.Audio.Play(listmusics(x), AudioPlayMode.WaitToComplete)

Jouer un son (fichier wav) [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !