[VB6] Emettere suoni di varie frequenze

[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