Operating Condition
Syntax: SET WINBEEP ON/OFF n
Default: OFF
Allows R:BASE to access a subset of the Sound Events in Windows. WINBEEP 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 sound type 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 |
Example
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
