Problème Multi Alarme Audio

Question

Probl&#232;me de d&#233;butant qui apprend VB : j'&#233;labore un programme qui d&#233;clenche une dizaine d'alarmes avec pour chacune un son diff&#233;rent. J'utilise la m&#233;thode du bouquin sur VB6 (j'essaie de faire le bon &#233;l&#232;ve).Mon pb, c'est que lors de la premi&#232;re alarme, le son se lance bien, mais pour la seconde, rien. Pas de probl&#232;me de chemins sons. Pas probl&#232;mes de type de fichiers non plus. Ce qui est &#233;trange c'est que si je mets toutes mes alarmes avec un son beep, &#231;a fonctionne. Si je mets beep en alarm1, et un fichier wav en alarm2, &#231;a fonctionnee, mais le fichier wav2 en alarm3 marche pas non plus.. Bref, je m'arrache les cheveux depuis qques jours l&#224; dessus. Merci d'avance ! [mailto:keymart_2003@hotmail.com keymart_2003@hotmail.com] 
Mon code source se base sur l'horloge syst&#232;me.
Mon code (super simple) : 

Private Sub Timer1_Timer()
CurrentTime = Format(Time, "hh:mm:ss")
If CurrentTime = Text1.Text Then
Beep
End If
End Sub


Private Sub Timer2_Timer()
CurrentTime = Format(Time, "hh:mm:ss")
If CurrentTime = Text2.Text Then
MMControl2.Notify = False
MMControl2.Wait = True
MMControl2.Shareable = False
MMControl2.DeviceType = "WaveAudio"
MMControl2.FileName = "c:\vb6sbs\less17\applause.wav"
MMControl2.Command = "open"
MMControl2.Command = "Play"
End If
End Sub


Private Sub Timer3_Timer()
CurrentTime = Format(Time, "hh:mm:ss")
If CurrentTime = Text3.Text Then
MMControl3.Notify = False
MMControl3.Wait = True
MMControl3.Shareable = True
MMControl3.DeviceType = "WaveAudio"
MMControl3.FileName = "c:\vb6sbs\less17\applause.wav"
MMControl3.Command = "open"
MMControl3.Command = "Play"
End If
End Sub


Private Sub Timer4_Timer()
CurrentTime = Format(Time, "hh:mm:ss")
If CurrentTime = Text4.Text Then
MMControl4.Notify = False
MMControl4.Wait = True
MMControl4.Shareable = False
MMControl4.DeviceType = "WaveAudio"
MMControl4.FileName = "c:\vb6sbs\less17\applause.wav"
MMControl4.Command = "open"
MMControl4.Command = "Play"
End If
End Sub

cs_DARKSIDIOUS · Answer

C'est simplement que tes sons doivent &#234;tre jou&#233; en synchrones, et du
coup, lorsque 2 se chevauchent, ca ne marche plus. Le probl&#232;me ne se
pose pas avec les beep puisqu'ils sont &#233;mis de fa&#231;on asynchrone par le
syst&#232;me mais pour des waves, cela pose probl&#232;me.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : http://www.ProgOtoP.com/popapi/

keymart_2003 · Answer

d&#233;j&#224; merci pr la r&#233;ponse. 
Comment r&#233;soudre ce probl&#232;me techniquement ? j'veux dire comment mettre mes sons en mode Asynchrone ?
ou alors as tu une autre solution ?
thks a lot

Problème Multi Alarme Audio

2 réponses

Discussions similaires