VB.NET: Générer un bip

Fermé

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 13 sept. 2014 à 18:20
Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 - 14 sept. 2014 à 16:43

Bonjour,

Je programme en vb.net 2010, et j'aimerais générer un bip.
Je veux pouvoir modifier la fréquence et la durée du son, donc la commande Beep() (qui ne marche d'ailleurs pas, rien ne se passe) ne me sert à rien.
J'ai trouvé un code sur internet, mais une erreur était retournée à chaque fois.

Merci de votre aide.

A voir également:

Vb.net beep
Vb.net download - Télécharger - Langages
Tp vb.net + correction pdf - Forum Framework .NET
Beep c - Forum C
Support.hp.com led beep code - Forum PC portable
VB Editor - Télécharger - Langages

2 réponses

Réponse 1 / 2

Utilisateur anonyme
13 sept. 2014 à 18:38

Bonjour pour voir ce qui ne va pas avec ton code il faudrait le poster.
Voir ici comment bien utiliser la coloration syntaxique.
Signaler la ligne qui bug et retranscrire le message d'erreur entier.

Concernant Beep, chez moi ça marche, qu'as tu essayé?

        System.Media.SystemSounds.Beep.Play()

Il existe aussi

        System.Media.SystemSounds.Asterisk.Play()
        System.Media.SystemSounds.Exclamation.Play()
        System.Media.SystemSounds.Hand.Play()
        System.Media.SystemSounds.Question.Play()

Réponse 2 / 2

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
Modifié par Anonyme209 le 13/09/2014 à 20:17

Bonjour,

moi, rien.
que ce soit seulement avec

Beep()

ou avec

System.Media.SystemSounds.Beep.Play()

Pour ce qui est du code retournant une erreur, il s'agit de celui-là:

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

Private Sub Command1_Click()
    Dim frequency As Long
    frequency = CLng(250)
    APIBeep frequency, 500
End Sub

Source: http://www.vb-helper.com/howto_api_beep.html

Utilisateur anonyme
13 sept. 2014 à 20:24

Ok, on voit que c'est un code vb6 et le message d'erreur?

--

Anonyme209 Messages postés 678 Date d'inscription samedi 6 octobre 2012 Statut Membre Dernière intervention 22 décembre 2020 15
Modifié par Anonyme209 le 13/09/2014 à 20:42

PInvokeStackImbalance was detected
"A call to PInvoke function 'Test!Test.Form1::APIBeep' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature."

(Test est le nom du projet dans l'erreur)