WINBEEP
Top  Previous  Next

Operating Condition

Syntax: SET WINBEEP ON/OFF

Default: OFF

Allows R:BASE to access a subset of the Sound Events in Windows. WINBBEP command will use the current system sound schema.

When set to OFF R:BASE will use a standard Windows sound for all errors and the BEEP command. When set to ON certain sounds, as set in the Windows Control Panel, will be used instead depending on which soundtype is used. Below is a table of Types and their corresponding sound event. You must set the actual sounds used in the Windows Sounds Control Panel Applet. You will also need to ensure that your speakers are Un-Muted and working properly. In either case, WINBEEP ON or WINBEEP OFF, if you have the "No Sounds" scheme selected in your Sounds Control Panel you will not hear any beeps from R:BASE for Windows.

Sound Type
Sound Event
0
SYSTEM
1
SYSTEMSTART
2
SYSTEMEXIT
3
SYSTEMHAND
4
SYSTEMASTERISK
5
SYSTEMQUESTION
6
SYSTEMEXCLAMATION
7
SYSTEMWELCOME
8
SYSTEMDEFAULT


Examples

SET CAPTION ' '  
SET VAR VRows INTEGER = 0  
SET VAR VMsg TEXT = NULL  
SELECT COUNT(*) INTO VRows INDIC IVRows FROM TableName  
IF VRows = 0 THEN  
   CLS  
   SET WINBEEP ON 2  
   BEEP  
   PAUSE 2 USING 'No Record(s) on File!' AT CENTER CENTER  
   SET WINBEEP OFF  
   GOTO Done  
ELSE  
   CLS  
   SET WINBEEP ON 1  
   BEEP  
   SET VAR VMsg = ((CTXT(.VRows)) & 'Record(s) on File!')  
   PAUSE 2 USING .VMsg AT CENTER CENTER  
   SET WINBEEP OFF  
   GOTO Done  
ENDIF  
   
LABEL Done  
   CLS  
   CLEAR ALL VAR