soundf.pas

这是一个非常好的教师和学生沟通用的电子教室!

unit soundf;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, TFlatSpeedButtonUnit, ExtCtrls, TFlatPanelUnit, XPMenu,
  compass, VCLBase,mmsystem, IndiCtrls, TFlatGroupBoxUnit, ThdTimer, MMObj,
  MMCstDlg, XP_Button, TFlatButtonUnit;

type
  Tsound = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    FlatSpeedButton1: TFlatSpeedButton;
    Timer1: TTimer;
    FlatPanel3: TFlatPanel;
    Label1: TLabel;
    epNumPanel2: TepNumPanel;
    epNumPanel1: TepNumPanel;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sound: Tsound;

implementation

uses MAIN;

{$R *.DFM}

procedure Tsound.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show;
end;

procedure Tsound.FlatSpeedButton1Click(Sender: TObject);
begin

  if FlatButton1.Enabled = false then form1.N42Click(sender);
  timer1.Enabled :=false;
  epnumpanel1.Value :=0;
  epnumpanel2.Value :=0;
  close;
end;

procedure Tsound.FormShow(Sender: TObject);
begin
 if WaveOutGetNumDevs > 0 then
 begin
 label1.Caption :='语音广播准备就绪!     ';
 FlatButton1.Enabled :=true;
 FlatButton2.Enabled := false;
 end
 else
 begin
 ShowMessage('没有发现声卡设备!');
 sound.Close;
 end;
end;

procedure Tsound.Timer1Timer(Sender: TObject);
begin
  if epnumpanel1.Value <60 then
  begin
  epnumpanel1.Value:=epnumpanel1.Value+1;
  end;
  if epnumpanel1.Value =60 then
  begin
  epnumpanel2.Enabled :=true;
  epnumpanel2.Value :=epnumpanel2.Value +1;
  epnumpanel1.Value :=0;
  end;
end;

procedure Tsound.FlatButton1Click(Sender: TObject);
begin
  form1.SpeedButton3Click(sender);
  label1.Caption :='已启动语音广播...    ';
  FlatButton2.Enabled :=true;
  FlatButton1.Enabled := false;
  timer1.Enabled :=true;
end;

procedure Tsound.FlatButton2Click(Sender: TObject);
begin
  form1.N42Click(sender);
  label1.Caption :='语音广播已被停止...    ';
  FlatButton1.Enabled :=true;
  FlatButton2.Enabled := false;
  timer1.Enabled :=false;
  epnumpanel1.Value :=0;
  epnumpanel2.Value :=0;
end;

end.