unit1.pas

用Delphi写扬声器音乐

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, BleepInt;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Bleep (bOK);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Bleep (bInterrupt);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Bleep (bError);
end;

procedure TForm1.Button4Click(Sender: TObject);
Var
  I : Integer;
Begin
  For I:=100 To 150 Do DoBleep (I*10, 10);
  For I:=150 Downto 100 Do DoBleep (I*10, 10);
End;

procedure TForm1.Button5Click(Sender: TObject);
begin
  DoBleep (146, 250);
  DoBleep (123, 250);
  DoBleep (164, 500);
  DoBleep (123, 500);
  DoBleep (138, 125);
  DoBleep (146, 250);
  DoBleep (123, 250);
  DoBleep (164, 500);
  DoBleep (123, 500);
  DoBleep (138, 500);
  DoBleep (146, 500);
  DoBleep (195, 500);
  DoBleep (184, 500);
  DoBleep (195, 500);
  DoBleep (164, 500);
  DoBleep (146, 250);
  DoBleep (123, 250);
  DoBleep (164, 250);
  DoBleep (164, 250);
  DoBleep (123, 1000);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  If button6.Caption='噪音' Then
  Begin
    button6.Caption:='停止';
    DoBleep (1000, -1);
  End
  Else
  Begin
    button6.Caption:='噪音';
    ShutUp;
  End;
end;

end.