Discussion :

[jojo86]

Bonjour,

Je voulais savoir s'il était possible de jouer des beeps sur différentes fréquences sous visual basic...

Peut être existe t-il une fonction de l'API windows pour le faire?

Merci beaucoup de votre aide !

[laetitia]

bonjour jojo86 le forum pour le son tu modifier les valeurs

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Private Declare Function Beep Lib "Kernel32" (ByVal Fq As Long, ByVal Tm As Long) As Long
 Sub Us()
  Dim Cnt As Long
  For Cnt = 0 To 100 Step 10
  Beep Cnt, 500
  DoEvents
  Next Cnt
End Sub

'ou encore

Code :

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

1
2
3
4
Sub us1()
Dim retour As Long
retour = Beep(440, 500)
End Sub

en complement tu peus faire des beep espace de tempo

Code :

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

1
2
3
4
5
6
7
sub es()
beep:beep:beep
Application.Wait Now + TimeValue("00:00:1")
beep:beep
Application.Wait Now + TimeValue("00:00:3")
'ect..
end sub

bonjour Louis & merci je connaissais pas. passe une bonne fin de journée

[LeForestier]

Bonjour, bojour Leti
Avec les API c'est plus facile

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Declare Function BeepPerso Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
 
Sub EmetBeep()
Const Hz = 300 'Fréquence
Const Tp = 1000 'Temps
    Call BeepPerso(Hz, Tp)
End Sub
 
'Joue un son de windows
Sub EmetSonWin()
Const NumSon = 10 'Numéro du son windows
    Call MessageBeep(NumSon)
End Sub

A+