تایمر

[facetoface]

سلام یه بر نامه تایمر می خوام که با دلفی نوشته شده

همین امروز فرداا
مرسی ی ی ی

[Valadi]

این هم کد برنامه :


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var defaulttime:word=120;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j:integer;
begin
i:=(defaulttime div 60);
j:=defaulttime-i*60;
dec(defaulttime);
if j>=10 then
Label1.Caption:=inttostr(i)+' : '+inttostr(j)
else
Label1.Caption:=inttostr(i)+' : 0'+inttostr(j);
if((i=0)and(j=0)) then Timer1.destroy
end;

end.

[حرفه ای]

سلام یه بر نامه تایمر می خوام که با دلفی نوشته شده



می خوای از تایمر چه استفاده ای کنی ؟

[Valadi]

جناب facetoface یک نوع دیگه هم تامیر هست در کد بالا بصورت دقیقه ایست اما راه دوم بصورت ثانیه ای است به طور مثال در بالا 2 دقیقه اما را نوع دوم 120 ثانیه

[MNosouhi]

مطمئنید منظور ایشون رو درست متوجه شده اید ؟

[vesal]

من که منظورشون رو نفهمیدم!!!

[dkhatibi]

شاید ساعت منظورشون بوده
یک Lable روی فرم بگذار به همراه یک نایمر.
روی تایمر دوبار کلیک کن و کد زیر را تایپ کن.


Lable1.caption:=timetostr(time);

[Valadi]

نه دوستان این هم روش دیگر تامیر که البته ما پیش شما اساتید درس پس می دهیم
var
Form1: TForm1;
RemainedTime: integer;
implementation


{$R *.dfm}
procedure TForm11.FormCreate(Sender: TObject);
begin
RemainedTime:=75;
end;
procedure TForm11.Timer1Timer(Sender: TObject);
begin
Dec(RemainedTime);
form11.Label1.Caption := IntToStr(RemainedTime);
if RemainedTime=0 then
form11.Timer1.Enabled:=False;

[حرفه ای]

ولدی عزیز ، اساتید درس می دهند درس پس نمی دهند !