Discussion :

[bassoa]

Bonjour!

Je crois que la question avait déjà été posée, mais je n'en ai pas retrouvé la trace!

Comment faire biper le haut parleur interne à l'ordinateur??
Le PC sur lequel je travaille n'a pas de haut parleur, dc on peut oublier le Beep...

merci!!
Frédéric

[ridan]

salut à toi,

la réponse à ta question est : beep()

bon courage

[bassoa]

Nannnn c'est aussi simple que ça???! j'essaye lundi!!!

mais, si on veut changer la fréquence du beep, on en note la valeur entre les () ?

En tout cas si ca marche merci!!!
Frédéric

[zazaraignée]

Salut

Je ne l'ai jamais utilisée, mais il y a une API pour ça. Et comme par hasard elle s'appelle aussi Beep!

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

Ulilise l'utilitaire API Viewer fourni avec VisualBasic et récupère les valeurs constantes de l'argument dwFreq. Malheureusement j'ignore quel est leur préfixe ou à quoi au juste elles ressemblent ou même s'il y en a. Tu peux toujours faire des tests avec des entiers longs, à tâton.

[ThierryAIM]

Extrait de API Guide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
 
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

[bassoa]

Merci beaucoup Thierry!! ça fonctionne à merveille!! bon j'ai fais un peu peur à tout le monde dans la boîte avec ce décollage de fusée!

J'pense leur faire une petite marseillaise en fin d'étalonnage...

encore merci!
Frédéric

[bassoa]

Ca marche bien... par contre, on ne peut pas placer la commande "Beep 200, 50" n'importe où !??! Là je viens de la placer au milieu de mon programme et j'ai une erreur! : " '49' Convention d'appel de DLL incorrecte"

Que faut-il faire?
merci!
Frédéric

[ThierryAIM]

Placer la déclararion de la fonction Beep dans un module en Public

[bassoa]

Ouais c'était assez évident... bref ça fonctionne!

merci Thierry pr tes réponses!!
Frédéric