FUNCTION Beep >LPARAMETERS nFrequency, nDuration > > IF EMPTY(nFrequency) > nFrequency = 1000 > ENDIF > > IF EMPTY(nDuration) > nDuration = 40 > ENDIF > > DECLARE Beep IN Win32API INTEGER dwFreq, INTEGER dwDuration > > =Beep(nFrequency, nDuration) > >RETURN>
>loSpeak = CREATEOBJECT("SAPI.SPVoice") >loSpeak.Speak("beep") >>
>Set Bell to "c:\windows\media\chimes.wav" >?? Chr(7) >Set bell to && restore default beep >