Discussion :

[pirouge]

Bonjour,
Dans mon programme j’ai une Alarme qui fonctionne mais je n’arrive pas à l’arrêter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Hora = Hora1 And Minute = Minute1 Then
    SoundName$ = App.Path & "\" & "Alarm_Clock.Wav"
   wFlags% = SND_ASYNC Or SND_NODEFAULT
   x% = sndPlaySound(SoundName$, wFlags%)

[l_autodidacte]

Astuce : Clic droit sur le bureau ou dans le dossier "App.Path", pointer sur Nouveau ensuite fichier wav qu'on renomme en Stop.wav
Ensuite dans l'évènement Click d'un CommandButton mettre ceci : sndPlaySound App.Path & "\Stop.wav", wFlags.

A propos, wFlags est de type Long ainsi que X

[ProgElecT]

Salut

Ou sndPlaySound vbNull, vbNull

[pirouge]

Salut

Ou sndPlaySound vbNull, vbNull

Bonjour,
Merci Mais ne fonctionne pas

[pirouge]

Astuce : Clic droit sur le bureau ou dans le dossier "App.Path", pointer sur Nouveau ensuite fichier wav qu'on renomme en Stop.wav
Ensuite dans l'évènement Click d'un CommandButton mettre ceci : sndPlaySound App.Path & "\Stop.wav", wFlags.

A propos, wFlags est de type Long ainsi que X

Bonjour,
Il me donne "Erreur de complation: erreur de syntaxe" ??

[ProgElecT]

Cela doit provenir du mode d'ouverture, 2éme paramètre.
Essais avec un CommandButton et en changent le CheminEtTitre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
'________________________________________ API _______________________________________
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Dim CheminEtTitre As String
Dim wFlags As Long
 
Private Sub Form_Load()
'pour essais
CheminEtTitre =  "C:\ploutounette\VOICE\SONA3.WAV"
wFlags = SND_ASYNC Or SND_NODEFAULT
sndPlaySound CheminEtTitre, wFlags
End Sub
Private Sub Command1_Click()
sndPlaySound vbNullString, vbNull
End Sub

Code revérifié, vbNullString évite le "Ding" lors du Stop que l'on a si on met un vbNull, mais le code de départ que je t'ai proposé dans mon message précédant ne provoque pas d'erreur non plus.

[l_autodidacte]

Il me donne "Erreur de compilation: erreur de syntaxe" ??

J'ai pourtant testé avant d'envoyer la réponse et cela fonctionnait parfaitement.
Peut-être que ton App.Path se termine par le caractère \ qui pourrait être à l'origine de l'erreur invoquée ! ou que le flaf (wFlags) devrait être remplacé par (vbNull) comme l'a indiqué ProgElecT(bonjour).
Une autre source de cette erreur : Si tu as gardé les variables pendant l'utilisation telles qu'elles sont et que tu as changé le type cette erreur peut se produire et je vote pour cette possibilité:
Par exemple, dans la partie appel x% devrait être soit x tout cours ou x&. Les autres variables sont aussi à traiter de la même façon.
Après un nouveau test de ma proposition et de celle de ProgElecT, les 2 fonctionnent correctement.

Sinon je ne vois pas d'autres possibilités causant l'erreur.
Voici le code de test et les fichiers utilisés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Dim SoundName$, X&, wFlags&
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1         '  play asynchronously
Private Const SND_NODEFAULT = &H2     '  silence not default, if sound not found
 
Private Sub Command1_Click()
 
    SoundName = "C:\Son.wav"
   wFlags = SND_ASYNC Or SND_NODEFAULT
   X = sndPlaySound(SoundName, wFlags)
End Sub
 
Private Sub Command2_Click()
    sndPlaySound "C:\Stop.wav", wFlags ' ou encore vbNull pour wFlags
    'sndPlaySound vbNullString, vbNull
End Sub

[pirouge]

Bonjour,
Non, pas d’erreur mai ne s’arrête pas

[ProgElecT]

Salut l_autodidacte et pirouge

pirouge, fais un nouveau projet VB, 1 Form et 1 CommandButton et le code de l_autodidacte ou celui que je t'ai fourni.
Y a-t-il toujours une erreur chez toi ?