Lire un des son de mes ressources, mais avec des variables

Question

Bonjour,
Je sais que le titre est très mal expliqué, mais voilà, j'ai 3 sons en.waw dans mes ressources nommé par exemple Jean1, Jean2 et Jean3. Un petit code génère un nombre aléatoire de 1 à 3.
J'aimerais simplement jouer le son en faisant genre :
 My.Computer.Audio.Play(My.Resources.("Jean" & nbaléatoire & ".wav"), AudioPlayMode.Background)

Whismeril · Answer

Bonjour
regarde du coté de la classe Random

cs_Le Pivert · Answer

Bonjour,
comme ceci
Select Case nbaléatoire 
                Case 1
                  My.Computer.Audio.Play(My.Resources.Jean1.wav), AudioPlayMode.Background) 'adapter la resource
                Case 2
                   My.Computer.Audio.Play(My.Resources.Jean2.wav), AudioPlayMode.Background)'adapter la resource
                Case 3
                    My.Computer.Audio.Play(My.Resources.Jean3.wav), AudioPlayMode.Background)'adapter la resource
End Select

Hugo · Answer

Le problème avec ce code, c'est que sa ne marche pas parce que 	 -  Impossible de convertir une valeur de type 'UnmanagedMemoryStream' en 'String'. - car mon code pour la valeur aléatoire est: 
Dim rm As New Random
nbaléatoire = rm.Next(1, 4)

cs_Le Pivert · Answer

Il faut mettre tes fichiers wav dans le dossier de l'executable avec ce code:
   My.Computer.Audio.Play(Application.StartupPath & "\Jean1.wav", AudioPlayMode.Background) 'joue en arrière plan
Ce code ne fonctionne pas avec les fichiers Resources . Il faut un chemin
My.Computer.Audio.Play(My.Resources.Jean1.wav), AudioPlayMode.Background) 'adapter la resource
           
Il ne faut pas oublier de déclarer
nbaléatoire  en Integer
@+ Le Pivert

Karin.code · Answer

Bonsoir,
Si tu fais comme ça
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        Dim nbraleatoire As Integer = 0        nbraleatoire = TextBox1.Text 'Remplace TextBox1.Text par le nombre aléatoire généré par ton code        Dim Son As System.Media.SoundPlayer        If nbraleatoire = 1 Then            Son = New System.Media.SoundPlayer(My.Resources.Jean1)        ElseIf nbraleatoire = 2 Then            Son = New System.Media.SoundPlayer(My.Resources.Jean2)        ElseIf nbraleatoire = 3 Then            Son = New System.Media.SoundPlayer(My.Resources.Jean3)        End If        Son.Play()    End Sub
ça devrait marcher

Whismeril · Answer

Bonsoir

Dim mesRessources As ResourceManager = My.Resources.ResourceManager

Dim maRessource As Object = mesRessources.GetObject("Image1")

Lire un des son de mes ressources, mais avec des variables

6 réponses

Votre réponse

Discussions similaires