transformer des chiffres d'un textbox en wav??

Question

Je souhaite faire un programme qui transforme mes chiffres entrés dans une textbox en son. Mon probleme c'est que l'application plante quand je mets plusieurs chiffre je sais pas si le probleme vient du flag de sndplaysound.
J'aimerais que quelqu'un qui a deja été confronter au probleme m'explique pourquoi ou m'envoie un petit programme avec une textbox et un bouton et quand je clique sur le bouton il me dise 1 2 3 si 123 est ecrit dans la textbox.

merci d'avoir lu ce message 
f4asb@caramail.com

voila mon petit bout de prog ....

Private Sub envoi_Click()
For i = 1 To Len(capture.Text)
chiffre = Mid(capture.Text, i, 1)
GoTo test
retour:
Next

test:
Select Case Val(chiffre)
Case Is = 0
sndPlaySound App.Path & "\dtmf\dtmf-0.wav", 0
GoTo retour
Case Is = 1
sndPlaySound App.Path & "\dtmf\dtmf-1.wav", 0
GoTo retour
Case Is = 2
sndPlaySound App.Path & "\dtmf\dtmf-2.wav", 0
GoTo retour
Case Is = 3
sndPlaySound App.Path & "\dtmf\dtmf-3.wav", 0
GoTo retour
Case Is = 4
sndPlaySound App.Path & "\dtmf\dtmf-4.wav", 0
GoTo retour
Case Is = 5
sndPlaySound App.Path & "\dtmf\dtmf-5.wav", 0
GoTo retour
Case Is = 6
sndPlaySound App.Path & "\dtmf\dtmf-6.wav", 0
GoTo retour
Case Is = 7
sndPlaySound App.Path & "\dtmf\dtmf-7.wav", 0
GoTo retour
Case Is = 8
sndPlaySound App.Path & "\dtmf\dtmf-8.wav", 0
GoTo retour
Case Is = 9
sndPlaySound App.Path & "\dtmf\dtmf-9.wav", 0
GoTo retour
End Select
End Sub

ShareVB · Answer

salut

a mon avis faut pas que tu mettes de goto test et retour:
tu mets le select case directement dans la boucle For

chiffre = Mid(capture.Text, i, 1)
select case val(chiffre)
case IS = 0
...

voila

ShareVB

f4asb · Answer

Salut ShareVB

Merci pour ta réponse ça fonctionne impec

Transformer des chiffres d'un textbox en wav??

2 réponses

Discussions similaires