bip systèmeRésolu

Question

Salut tout le monde,

je cherche comment &#233;mettre un beep. Je ne parle pas du son de windows
qu'on active avec la fonction beep, mais d'un beep &#233;mis par le
haut-parleur de l'unit&#233; centrale. Quelle API dois-je utiliser?



Merci, @++

Charles Racaud · Accepted Answer

Salut,

C'est:
Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 

Kenji (&#165;&#198;&#165;&#185;&#165;&#200;)

<HR width="100%" SIZE=2>


Merci de cliquer sur "R&#168;&#166;ponse accept&#168;&#166;e" si une r&#168;&#166;ponse vous convient.

RPG3000 · Answer

Merci beaucoup :)

tinux · Answer

Comment la lancer ?
J'ai mis par exemple Beep(1,2) et il me dit que j'ai grill&#233; la pile ou quelque chose comme &#231;a... lol !

RPG3000 · Answer

Frequency: La fr&#233;quence en hertz, doit &#234;tre compris entre 32 et 767 (0x25 et 0x7FFF)



Duration: La dur&#233;e en millisecondes (exemple: 1000 pour 1 seconde)



La tu fait durrer un beep pendant 2 millisecondes a une fr&#233;quence tr&#232;s
inf&#233;rieur au minimum. Donc en effet tu peut ab&#238;mer ton mat&#233;riel.

RPG3000 · Answer

Exemple:




Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As 
Long) As Long





Public Function EmettreBip()



Dim resultat As Long

    resultat = Beep(700,1000)

    

    If resultat = 0 Then

        MsgBox "Echec !"   ' Impossible d'&#233;mettre un BIP.

       Exit Function

    End If

    

    MsgBox "Joli bip non ?"  ' Aucun probl&#232;me n'est survenu.



End Function

Bip système

5 réponses