mailto:S0KARISS@hotmail.comvoila comment on fait
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