VPF::Таймер - Форум программистов

Paha1992

Дата 19.4.2012, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.3.2012

Репутация: нет
Всего: нет

Собственно, в чем дело:
Нужно сделать таймер в котором отображаются МИНУТЫ и СЕКУНДЫ, я написал код НО работают только секунды, да и то... работают не правильно, так как при нажатии на СТАРТ таймер доходит до 01 сек. и дальше ничего не происходит.

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Timer1.Enabled
then
begin
Button1.Caption:='ÑÒÀÐÒ';
Button2.Enabled:=True;
end
else
begin
Timer1.Enabled:=True;
Button1.Caption:='ÑÒÎÏ';
Button2.Enabled:=False;
end
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var m: Integer;
    S: Integer;
begin
S:=0;
m:=0;
Label2.Visible:= not Label2.Visible;
if not Label2.Visible
then exit;
if S=59
then
begin
inc(m);
Label1.Caption:= IntToStr(m);
S:=0;
end
else
inc(S);
if S<10 then
Label3.Caption:= '0'+IntToStr(s)
else
Label3.Caption:= IntToStr(s);
end;

procedure TForm1.Label1Click(Sender: TObject);
var S: Real;
    m: Integer;
begin
begin
Label1.Caption:=IntToStr(m);
S:=0;
end;
if
S=0 then
begin
Label1.Caption:='00';
end
end;

procedure TForm1.Label3Click(Sender: TObject);
var m: Real;
begin
if
 m=0 then
begin
Label3.Caption:='00';

end;

end;
end.

Cheloveck

Дата 19.4.2012, 10:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1578
Регистрация: 26.7.2008
Где: Тула

Репутация: нет
Всего: 32

Paha1992, почему тема в разделе C++?

--------------------

Paha1992

Дата 19.4.2012, 10:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.3.2012

Репутация: нет
Всего: нет

А где должно быть?

borisbn

Дата 19.4.2012, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: нет
Всего: 135

Цитата(Paha1992 @ 19.4.2012, 10:44

)

А где должно быть?

наверное, где-то здесь

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

Paha1992

Дата 19.4.2012, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 30.3.2012

Репутация: нет
Всего: нет

Блин... а как туда перенести? или модеры перенесут?

borisbn

Дата 19.4.2012, 12:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: нет
Всего: 135

Цитата(Paha1992 @ 19.4.2012, 11:27

)

Блин... а как туда перенести? или модеры перенесут?

кликаешь и просишь перенести

--------------------

Женщины отличаются от программистов тем, что у них чары состоят из стрингов

northener

Дата 19.4.2012, 23:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

Цитата(Paha1992 @ 19.4.2012, 09:54

)

при нажатии на СТАРТ таймер доходит до 01 сек. и дальше ничего не происходит

А что вы ожидали увидеть, если для подсчета времени вы используете локальные переменные процедуры таймера?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »