EMMETTRE UN BIP
luluc
-
11 déc. 2000 à 22:53
Janus006 Messages postés 8 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 12 mai 2010 - 18 févr. 2010 à 11:48
Janus006 Messages postés 8 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 12 mai 2010 - 18 févr. 2010 à 11:48
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/39-emmettre-un-bip
https://codes-sources.commentcamarche.net/source/39-emmettre-un-bip
18 févr. 2010 à 11:48
23 mars 2008 à 03:34
a = Beep(Fréquence, Temps) <----------
23 mars 2008 à 03:32
-----Bon dans le module on tape:
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
-----Et dans la Form:
Private Declare Function Beep Lib "kernel32" ( _
ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
a = Beep(Fréquence, Temps
End Sub
23 mars 2008 à 03:13
12 juin 2005 à 19:53
19 janv. 2003 à 22:20
26 oct. 2002 à 11:45
30 sept. 2001 à 18:50
31 mai 2001 à 23:36
4 mars 2001 à 15:08
Private Sub Form_Load()
Beep
End Sub
et il faut savoir que se son doit sortir du Pc et non pas des haut-parleurs.
Si cela ne fonctionne pas, c'est que ton ordi a un bug.
20 févr. 2001 à 19:03
11 déc. 2000 à 22:53