Discussion :

[drakkar_agfa]

Bonjour à tous,

Je voudrais savoir s'il est possible d'émettre un beep variable.
Je sais que simplement le code

Code :

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

Beep

permet d'émettre un BIP mais d'une fréquence et d'une durée variée.

Est-ce possible d'utiliser un Bip un peu comme en C++ qui ressemblerait à ça

Code :

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

Beep(50,2)

pour une fréquence 50 de 2 secondes?

Merci pour votre aide!

[cafeine]

Hello,

ça doit être jouable par les API

Code :

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

Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

[laetitia]

bonjour drakkar_agfa cafeine le forum j ai trouve cela !! si cela peut t'aider

Code :

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

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Activate()
    Dim Cnt As Long
    For Cnt = 0 To 5000 Step 10
        'play a tone of 'Cnt' hertz, for 50 milliseconds
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub

[drakkar_agfa]

Merci!

Mais j'ai un problème à l'exécution, sur ce code, j'ai l'erreur 49 "Convention d'appel de DLL incorrecte" sur la ligne

Code :

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

Beep Cnt, 50

Est-ce qu'il manque quelque chose au projet?

Merci encore, je suis sur le bon chemin ^^

[laetitia]

re j ai testé dans un userform excel 2003 pas de souci ??

Option Explicit

Code :

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

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
  Dim Cnt As Long
    For Cnt = 0 To 500 Step 10
        Beep Cnt, 50
        Me.Caption = Cnt
        DoEvents
    Next Cnt
End Sub

[drakkar_agfa]

Et bien,

J'ai essayé et ça fonctione, je ne sais pas si j'avais mal copié une ligne.

Merci C'est exactement ce que je voulais!

Je vais maintenant pouvoir jouer de la musique!