Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Make a sound
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01138013
Message ID:
01138021
Views:
11
>What is a simple way of creating two different sounds that will represent good and bad entry?
>
>Thanks
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
or
Just for joke:)
loSpeak = CREATEOBJECT("SAPI.SPVoice")
loSpeak.Speak("beep")
or
Set Bell to "c:\windows\media\chimes.wav"
?? Chr(7) 
Set bell to && restore default beep
_______________________________________________________________
Testing displays the presence, not the absence of bugs.
If a software application has to be designed, it has to be designed correctly!
_______________________________________________________________
Vladimir Zografski
Systems Analyst
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform