كيف يمكن جعل الوقت يمشي تنازلي

[delphiokba]

السلام عليكم
أخواني كيف يمكن أن أضع label
مثلا و caption 30
ثم عند التنفيذ يبدأ يعد للأسفل

[musvc]

هذا بسيط جدا ً
ضع SysUtils في قسم الـ Uses ان لم تن موجودة
اليك الكود الذي تكتبه داخل الـ Timer :

كود :

[color=blue]var[/color] Int : Integer; [color=blue]Begin[/color] Label1.caption := '30'; Int := StrToInt(Label1.caption); Int := Int -1; Label1.caption := IntToStr(Int); [color=Blue]end;[/color]

[COLOR="Indigo"]مع العلم غير خاصية الـ Interval الخاصة بالـ Timer لتبطيئ او تسريع العملية
و السلام عليكم[/COLOR]

[AL-MOB4RM3G]

هذه مثال مرفق والسلام عليكم
يبدوا سبقني اخي musvc

[Dr.MOT]

السلام عليكم
أخ musvc الكود الذي وضعت لا يظهر العد التنازلي وإنما 30 ز 29 فقط !!
لأنك وضعت في تآيمر ( Label1.Caption := 30 )
فهو يعين القيمة 30 عند كل مرة لكن اخي جرب هذا الكود :

PHP كود :

procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.Caption := IntToStr( StrToInt(Label1.Caption)-1 )  ;
end; 


بارك الله فيكم جميعا !

[kachwahed]

الذي يبدو أن السائل يبحث عن شيء مثل:

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Now)
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(StrToTime(Label1.Caption)-StrToTime('00:00:01'))
end; 


[saber-bsa]

السلام عليكم
لم تفلح معي امثلة الإخوة
انا أرلايده أن يبدأ العد من 3 دقائق ويبدا في التنازل
الله يحفظكم ويرعاكم بارك الله فيكم

[kachwahed]

السلام عليكم
الأخ saber-bsa مرحبا بك في المنتدى
المثال الذي كتبته سابقا يبدأ العد التنازلي من التوقيت الحالي
ليبدأ العد التنازلي من ثلاث دقائق غير

كود :

Label1.Caption := TimeToStr(Now)

في الكود السابق إلى:

PHP كود :

Label1.Caption := '00:03:00' 


إذا لم ينجح ذلك أرفق محاولتك.

[saber-bsa]

السلام عليكم ورحمة الله وبركاته
[/B][/COLOR]kachwahed أهلا أخي
طبقت ما قلته لي لكن يحدث خطأ

[kachwahed]

انتبه إلى أين تكتب الحدث:

كود :

procedure TForm1.[color=Red]FormCreate[/color](Sender: TObject); begin Label1.Caption := '00:03:00' end;

[saber-bsa]

السلام عليكم
بارك الله فيك اخي الكريم
لقد نجح الامر
حفظك اله ورعاك
حفظ الله لك والديك
جعل الله لك هذه المعلومات في ميزان حسناتك
اللهم إرزق أخي ( kachwahed )الهدى والتقى والعفاف والغنى