sub avec paramétre dans une boucle
Bonjour,
j'ai coder une fonction qui d’après le texte (String) quelle rencontre déclenche un fichier :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Sub dispositif_depart(ByVal vehicule As String) 'declenche le son qui correspand au vehicule
Select Case vehicule
Case "VSAV1NOV"
My.Computer.Audio.Play(svsav1, _
AudioPlayMode.WaitToComplete)
Case "VSAV2NOV"
My.Computer.Audio.Play(svsav2, _
AudioPlayMode.WaitToComplete)
Case "FPT1NOV"
My.Computer.Audio.Play(semb, _
AudioPlayMode.WaitToComplete)
End Select |
Ensuite j'ai une boucle qui parcours un tableau avec parfois les 3 véhicules ou 2 ou un seul, et je souhaite lire les fichiers son, les un à la suite des autres j'ai donc fait :
Code:
1
2
3
4
| Dim h As Integer = 0
For h = 0 To tab.Length - 1
dispositif_depart(tab(h))
Next h |
Le soucis c'est que c'est toujours le premier indice qui est lu est pas les autres, j'ai mis un point d’arrêt et voici pourtant les valeurs de mon tableau :
tab(0) = "VSAV1NOV"
tab(1) = "VSAV2NOV"
tab(3) = "FPT1NOV"
je ne vois pas ou est le problème !!
