Printable View
یه فرم داریم که کاربر فقط 10 دقیقه فرست داره روش یه کارایی انجام بده.
می خوام وقتی شروع رو زد کاربر این 10 دقیقه رو به صورت معکوس رو فرم ببینه که داره کم می شه تا وقتی که زمان به صفر برسه.
مثلا وقتی شروع رو زد زمان سنج به صورت معکوس نشون بده :
9:59 و 9:58 و 9:57 و ...
از یه تایمر و یه label استفاده کن. Interval تایمر رو روی 1000 بزار و در رویداد OnTimer اش، کد مربوط به تغییر مقدار caption لیبل رو قرار بده
ایشون زمان ساعت رو گفتن ---- Timer از عدد استفاده میکنه نه ساعت .نقل قول:
از یه تایمر و یه label استفاده کن. Interval تایمر رو روی 1000 بزار و در رویداد OnTimer اش، کد مربوط به تغییر مقدار caption لیبل رو قرار بده
دوست عزیز
میتونی همان طور که آقای مدیر گفتن از timer استفاده کنی و دو تا label یکی بعنوان دقیقه و دیگری به عنوان ثانیه روی فرم بزاری و خودت برنامه نویسیش کنی .
موفق باشی :flower:
منظورم همون چیزیه که آقای کشاورز گفتن .
ولی چه جوری از زمان تایمر کم کنم ؟ :گیج:
یخورده فکر کنی، ربطشون رو متوجه میشی...نقل قول:
ایشون زمان ساعت رو گفتن ---- 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;
ممنون آقای کشاورز همین الن امتحانش می کنم.اگه ممکنه لطف کنین به اون یکی تاپیک منم یه نگاهی بندازین. :oops: :cry:
http://www.barnamenevis.org/viewtopic.php?t=29034
دستتون درد نکنه. :wise1: برنامه به درستی اجرا می شه. :)
فقط یه چیز دیگه می شه اعداد این زمان رو به صورت فارسی نشون داد؟ :oops:
یکی از کامپوننتهای مجانی که ساعت را نشون می ده این قابلیت را داره که خیلی جالبه اگه وقت کردم Upload می کنم :موفق:
ممنون می شم از لطفتون :flower: