Будильник/секундомер

[kop]

Задание: создать часы/будильник/секундомер

Вообщем все написал, вот только когда звонит будильник он 5 раз пищит, а нужно что-бы он пищал пока я его не отключу....

unit Project2;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Menus, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel_cloc: TPanel;
    Timer_cloc: TTimer;
    Timer_alarm_clock: TTimer;
    Timer_stopwatch: TTimer;
    seconds_alarm: TEdit;
    min_alarm: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    cloc_alarm: TEdit;
    Button3: TButton;
    Button4: TButton;
    Panel1: TPanel;
    N4: TMenuItem;
    N5: TMenuItem;
    on1: TMenuItem;
    off1: TMenuItem;
    procedure Timer_clocTimer(Sender: TObject);
    procedure Timer_stopwatchTimer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer_alarm_clockTimer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   
var

  Form1: TForm1;
  chas:Integer;//÷àñû
  min:Integer;//ìèíóòû
  sec:Integer;//ñåêóíäû
  mili,a:integer; //
  a1,a2,a3:string;//íîëèêè äëÿ ñåêóíäîìåðà
  cloc:Integer;//áóäèëüíèê
  h,m,s,ms,i,bh,bm,bs:integer;
  tm: SYSTEMTIME;


implementation

{$R *.dfm}

procedure TForm1.Timer_clocTimer(Sender: TObject);
begin
Panel_cloc.Caption:=TimeToStr(Now);
end;

procedure TForm1.Timer_stopwatchTimer(Sender: TObject);
begin
ms:=ms+1;
if ms=60 then
begin
  ms:=0;
 s:=s+1;
end;

if s>60 then
  begin
  s:=0;
  m:=m+1
  end;
if m>60 then
  begin
  m:=0;
  h:=h+1;
  end;
  Panel1.Caption:=IntToStr(h)+':'+inttostr(m)+':'+inttostr(s)+':'+inttostr(ms);
end;


procedure TForm1.Button4Click(Sender: TObject);
begin
 Panel1.Caption:='00:00:00'  ;
m:=0;s:=0;ms:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Button3.Caption = 'Ïóñê'  then  Button3.Caption := 'Ñòîï'
else    Button3.Caption:='Ïóñê';

 if  Timer_stopwatch.Enabled=True then
 Timer_stopwatch.Enabled:=False  else
   Timer_stopwatch.Enabled:=True;
end;



procedure TForm1.Button1Click(Sender: TObject);

begin
Button1.Caption :='Æäèòå';
a:=2;
Timer_alarm_clock.Enabled:=True;
end;


procedure TForm1.Timer_alarm_clockTimer(Sender: TObject);
begin
GetLocalTime(tm);
if (cloc_alarm.Text+':'+min_alarm.Text+':'+seconds_alarm.Text=Panel_cloc.Caption)
    then
 Windows.Beep(2000,500);

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
 Timer_alarm_clock.Enabled:=False;
end;

end.

[Step_UA]

как вариант - введите глобальную булеву переменную, которая будет устанавливаться при срабатывании условия, и сбрасываться в случае выключения (нажатия кнопки)

[NetSpace]

хм, внешне всё верно, но попробуйте в последнем случае написать хотя бы так:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if(Timer_alarm_clock.Enabled=True)then Timer_alarm_clock.Enabled:=False;
end;

можно уж и совсем иначе:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if(s=0)then...;//а вот тут проверяем его в действии
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    s:=0;//по нажатию кнопки делаем его таким
end;

procedure TForm1.FormCreate(Sender:TObject);
begin
   s:=1;//по умолчанию этот параметр такой
end;

не забудьте объявить

 s: Byte;

[kop]

спасибо попробую