نشان دادن زمان به صورت معکوس

[Tarrah]

یه فرم داریم که کاربر فقط 10 دقیقه فرست داره روش یه کارایی انجام بده.
می خوام وقتی شروع رو زد کاربر این 10 دقیقه رو به صورت معکوس رو فرم ببینه که داره کم می شه تا وقتی که زمان به صفر برسه.
مثلا وقتی شروع رو زد زمان سنج به صورت معکوس نشون بده :
9:59 و 9:58 و 9:57 و ...

[vcldeveloper]

از یه تایمر و یه label استفاده کن. Interval تایمر رو روی 1000 بزار و در رویداد OnTimer اش، کد مربوط به تغییر مقدار caption لیبل رو قرار بده

[Delphi_Developer]

از یه تایمر و یه label استفاده کن. Interval تایمر رو روی 1000 بزار و در رویداد OnTimer اش، کد مربوط به تغییر مقدار caption لیبل رو قرار بده
ایشون زمان ساعت رو گفتن ---- Timer از عدد استفاده میکنه نه ساعت .

[ssmehizadeh]

دوست عزیز
میتونی همان طور که آقای مدیر گفتن از timer استفاده کنی و دو تا label یکی بعنوان دقیقه و دیگری به عنوان ثانیه روی فرم بزاری و خودت برنامه نویسیش کنی .

موفق باشی :flower:

[Tarrah]

منظورم همون چیزیه که آقای کشاورز گفتن .
ولی چه جوری از زمان تایمر کم کنم ؟ :گیج:

[vcldeveloper]

ایشون زمان ساعت رو گفتن ---- Timer از عدد استفاده میکنه نه ساعت .
یخورده فکر کنی، ربطشون رو متوجه میشی...
یه متغیر integer به اسم Counter در فرم تعریف کن و از کد زیر (یا شبیه اون) استفاده کن:


procedure TForm1.FormCreate(Sender: TObject);
begin
Counter := 60 * 10;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Counter = 0 then
begin
Timer1.Enabled := False;
{This area of code is executed, after time expiration.
...
}
Exit;
end;
Dec(Counter);
Label1.Caption := Format('%d : %d',[Counter Div 60,Counter mod 60]);
end;

[Tarrah]

ممنون آقای کشاورز همین الن امتحانش می کنم.اگه ممکنه لطف کنین به اون یکی تاپیک منم یه نگاهی بندازین. :oops: :cry:
http://www.barnamenevis.org/forum/viewtopic.php?t=29034

[Tarrah]

دستتون درد نکنه. :wise1: برنامه به درستی اجرا می شه. :)
فقط یه چیز دیگه می شه اعداد این زمان رو به صورت فارسی نشون داد؟ :oops:

[دنیای دلفی]

یکی از کامپوننتهای مجانی که ساعت را نشون می ده این قابلیت را داره که خیلی جالبه اگه وقت کردم Upload می کنم :موفق:

[Tarrah]

ممنون می شم از لطفتون :flower: