Beep function real time tone adjustment

[geo77]

Hi guys,

I am trying to create simple tunes using the tone genarator. I use:

Sub Beep_1()
DoEvents
Beep a, b
End Sub

I can change a or b only after the sound finishes.
I also used:

Sub Beep_steps()
For i = 1 To 30
DoEvents
[B27] = 200 * i
Beep 200 * i, 400
DoEvents
Next i
End Sub

It sounds crappy (with fairly long irregular gaps between notes). I was wondering if there are some arguments of flags I can use that allow to change frequency while the beep function is playing.

Thanks, George

 

[Ruddles]

No, BEEP is, as you say, 'crappy'. Microsoft chapter & verse on BEEP: http://msdn.microsoft.com/en-us/library/ms679277(v=vs.85).aspx.

One alternative is to play a WAV file:-

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
  (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1

Sub Noisy()
  sndPlaySound32 "c:\windows\media\windows xp startup.wav", 0&  
End Sub