[VB6] Emettere suoni di varie frequenze

[goku370]

E' possibile inserire in un progetto vb un controllo o un API che permetta di emettere suoni ad una certa frequenza impostata dall'utente?

[ivangarigli]

Per quanto ne so di API, esiste la funzione Beep, che permette di eseguire un suono di x frequenza e y durata dall'autoparlande del sistema.

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

Non è il massimo ma è utile, se vuoi un lavoro professionale si può utilizzare la libreria DirectSound per elaborare i suoni wav.

[SimoneVB]

Se sei un musicista o vuoi che lo speaker suoni le "canzoncine", ecco un esempio che può tornarti utile:

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


Private Sub Command1_Click()

  Dim dwStartFreq As Long                           ' freq. iniziale (LA)
  Const dwHTFreq As Long = 40                       ' range freq. per 1/2 tono
  Const dwDuration As Long = 1500                   ' durata in ms
  
  dwStartFreq = 440
  
  Beep dwStartFreq, dwDuration
  Beep dwStartFreq + (dwHTFreq * 11), dwDuration    ' eleva di 11 semitoni
End Sub

Ciao
Simo