duijiangf.pas

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

unit duijiangf;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  TFlatSpeedButtonUnit, TFlatGroupBoxUnit, ExtCtrls, TFlatPanelUnit,
  TFlatButtonUnit, StdCtrls, VCLBase, IndiCtrls, EPCtrls, VolCtrl, Volumes,
  Scope,mmsystem, XPMenu, MMObj, MMWheel, ComCtrls;

type
  Tduijiang = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatPanel2: TFlatPanel;
    FlatSpeedButton1: TFlatSpeedButton;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    Timer1: TTimer;
    VolumeControl1: TVolumeControl;
    FlatPanel3: TFlatPanel;
    epNumPanel2: TepNumPanel;
    epNumPanel1: TepNumPanel;
    FlatPanel4: TFlatPanel;
    Label1: TLabel;
    XPMenu1: TXPMenu;
    MMWheel1: TMMWheel;
    procedure FlatSpeedButton1Click(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure MMWheel1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  duijiang: Tduijiang;
  TempMax  : Integer;

implementation

uses MAIN;

{$R *.DFM}

procedure Tduijiang.FlatSpeedButton1Click(Sender: TObject);
begin

   if flatbutton1.Enabled = false then form1.N65Click(sender);
   timer1.Enabled :=false;
   epnumpanel1.Value :=0;
   epnumpanel2.Value :=0;
   form1.show;
   close;
end;

procedure Tduijiang.FlatButton1Click(Sender: TObject);
begin
form1.N64Click(sender);
label1.Caption :='已启动语音对讲......';
flatbutton2.Enabled :=true;
flatbutton1.Enabled :=false;
timer1.Enabled :=true;
end;

procedure Tduijiang.FlatButton2Click(Sender: TObject);
begin

  label1.Caption :='语音对讲已被停止......';
  flatbutton1.Enabled :=true;
  flatbutton2.Enabled :=false;
  form1.N65Click(sender);
  timer1.Enabled :=false;
  epnumpanel1.Value :=0;
  epnumpanel2.Value :=0;
end;

procedure Tduijiang.FormShow(Sender: TObject);
begin
 if WaveOutGetNumDevs > 0 then
 begin
  flatbutton1.Enabled :=true;
  flatbutton2.Enabled :=false;
  label1.Caption :='语音对讲准备就绪!     ';
 end
 else
 begin
 ShowMessage('没有发现声卡设备!');
 duijiang.Close;
 end;
end;

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

procedure Tduijiang.MMWheel1Change(Sender: TObject);
begin
  volumecontrol1.waveVolume:=round(mmwheel1.value);
end;

end.