Beeeeeep !!!
Biogen
-
7 oct. 2001 à 19:31
juliusius37 Messages postés 19 Date d'inscription jeudi 19 juin 2003 Statut Membre Dernière intervention 12 août 2006 - 16 mars 2004 à 13:51
juliusius37 Messages postés 19 Date d'inscription jeudi 19 juin 2003 Statut Membre Dernière intervention 12 août 2006 - 16 mars 2004 à 13:51
2 réponses
juliusius37
Messages postés
19
Date d'inscription
jeudi 19 juin 2003
Statut
Membre
Dernière intervention
12 août 2006
1
16 mars 2004 à 13:51
16 mars 2004 à 13:51
voila comment on fait, c'est pas trés compliquer
Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 'L'api
Sub Emettre(Frequence As String)
If txttps = "" Then 'Si le txttps est vide
MsgBox "Vous devez inscrire la durée du son", vbCritical, "Attention!"
txttps = "" 'Vide txttps
Exit Sub
ElseIf Val(txttps) > 20 Then
MsgBox "La durée du son, en secondes, ne doit pas dépasser 20 secondes", vbCritical, "Attention!"
txttps = "" 'Vide txttps
Exit Sub
Else 'Si txttps n'est ni vide, ni suppérieur à 20
APIBeep Frequence, txttps * 1000
'Joue le son d'une fréquence donnée, avec la durée voulue
'La durée est définie par txttps (*1000 car le PC comprend la durée en millisecondes
lblfreq = Frequence 'Indique la fréquence dans lblFreq
End If
End Sub
et apres tu a juste a appellé ta fonction avec la frequence en parametre ex:
emettre(110)
voila bon devellopement
txttps contient la durée du son
si par contre tu troyuve comment on fait varier la frequence d'un son mais avec direct sound pa avec le buzzer, previent moi
>:) [mailto:S0KARISS@hotmail.com mailto:S0KARISS@hotmail.com]
Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long 'L'api
Sub Emettre(Frequence As String)
If txttps = "" Then 'Si le txttps est vide
MsgBox "Vous devez inscrire la durée du son", vbCritical, "Attention!"
txttps = "" 'Vide txttps
Exit Sub
ElseIf Val(txttps) > 20 Then
MsgBox "La durée du son, en secondes, ne doit pas dépasser 20 secondes", vbCritical, "Attention!"
txttps = "" 'Vide txttps
Exit Sub
Else 'Si txttps n'est ni vide, ni suppérieur à 20
APIBeep Frequence, txttps * 1000
'Joue le son d'une fréquence donnée, avec la durée voulue
'La durée est définie par txttps (*1000 car le PC comprend la durée en millisecondes
lblfreq = Frequence 'Indique la fréquence dans lblFreq
End If
End Sub
et apres tu a juste a appellé ta fonction avec la frequence en parametre ex:
emettre(110)
voila bon devellopement
txttps contient la durée du son
si par contre tu troyuve comment on fait varier la frequence d'un son mais avec direct sound pa avec le buzzer, previent moi
>:) [mailto:S0KARISS@hotmail.com mailto:S0KARISS@hotmail.com]