+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن جعل الوقت يمشي تنازلي (/showthread.php?tid=640)
الصفحات:
1
2
كيف يمكن جعل الوقت يمشي تنازلي - delphiokba - 01-03-2009
السلام عليكم
أخواني كيف يمكن أن أضع label
مثلا و caption 30
ثم عند التنفيذ يبدأ يعد للأسفل
كيف يمكن جعل الوقت يمشي تنازلي - musvc - 01-03-2009
هذا بسيط جدا ً
ضع 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]
كيف يمكن جعل الوقت يمشي تنازلي - AL-MOB4RM3G - 01-03-2009
هذه مثال مرفق والسلام عليكم
يبدوا سبقني اخي musvc
كيف يمكن جعل الوقت يمشي تنازلي - Dr.MOT - 15-04-2009
السلام عليكم
أخ musvc الكود الذي وضعت لا يظهر العد التنازلي وإنما 30 ز 29 فقط !!
لأنك وضعت في تآيمر ( Label1.Caption := 30 )
فهو يعين القيمة 30 عند كل مرة لكن اخي جرب هذا الكود :
PHP كود :
procedure TForm1.Timer1Timer(Sender: TObject);
Begin
Label1.Caption := IntToStr( StrToInt(Label1.Caption)-1 ) ;
end;
كيف يمكن جعل الوقت يمشي تنازلي - kachwahed - 17-12-2009
الذي يبدو أن السائل يبحث عن شيء مثل:
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 - 16-04-2010
السلام عليكم
لم تفلح معي امثلة الإخوة
انا أرلايده أن يبدأ العد من 3 دقائق ويبدا في التنازل
الله يحفظكم ويرعاكم بارك الله فيكم
كيف يمكن جعل الوقت يمشي تنازلي - kachwahed - 16-04-2010
السلام عليكم
الأخ saber-bsa مرحبا بك في المنتدى
المثال الذي كتبته سابقا يبدأ العد التنازلي من التوقيت الحالي
ليبدأ العد التنازلي من ثلاث دقائق غير
كود :
Label1.Caption := TimeToStr(Now)PHP كود :
Label1.Caption := '00:03:00'
كيف يمكن جعل الوقت يمشي تنازلي - saber-bsa - 16-04-2010
السلام عليكم ورحمة الله وبركاته
[/B][/COLOR]kachwahed أهلا أخي
طبقت ما قلته لي لكن يحدث خطأ
كيف يمكن جعل الوقت يمشي تنازلي - kachwahed - 16-04-2010
انتبه إلى أين تكتب الحدث:
كود :
procedure TForm1.[color=Red]FormCreate[/color](Sender: TObject);
begin
Label1.Caption := '00:03:00'
end;كيف يمكن جعل الوقت يمشي تنازلي - saber-bsa - 16-04-2010
السلام عليكم
بارك الله فيك اخي الكريم
لقد نجح الامر
حفظك اله ورعاك
حفظ الله لك والديك
جعل الله لك هذه المعلومات في ميزان حسناتك
اللهم إرزق أخي ( kachwahed )الهدى والتقى والعفاف والغنى