Sign in Join
FPDoc Onlineexperiment

NoSound procedure

In unit Crt

Stop system speaker.

Declaration

pascal
procedure NoSound

Description

NoSound stops the speaker sound. This call is not supported on all operating systems.

Errors

None.

See also

Example: ex16

pascal
Program Example16;
uses Crt;

{ Program to demonstrate the Sound and NoSound function. }

var
  i : longint;
begin
  WriteLn('You will hear some tones from your speaker');
  i:=0;
  while (i<15000) do
   begin
     inc(i,500);
     Sound(i);
     Delay(100);
   end;
  WriteLn('Quiet now!');
  NoSound; {Stop noise}
end.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.