الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال M هل يمكن وضع مؤقت عكسي يبدأ من وقت محدد حتى الصفر ؟

مغلق
بدأه near_deathnote في 22 أغسطس 2007 · 6 رد · 632 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد معرفة هل يمكن وضع مؤقت عكسي يبدأ من وقت محدد حتى الصفر(مع الشرح ان امكن)

و كذلك هل يمكن تقسيم الوقت يعني الساعات منEDIT1.text و الدقائق منedit2.text الخ...

و شكرا

تم تعديل هذه المشاركة بواسطة B.M.AbdelAziZ في 22 أغسطس 2007 في 10:07

#2

لماذا لا ترنا محاولتك ..

نضف , Timer, 3TEdit,1Button

خاصية interval لـ Timer1 قيمتها 1000

Enabled نجعلها false

نضف الكود الآتي

type
TheTimer=record
 sec,min,hour:integer;
...
// define global variable
MyTimer:TheTimer;

procedure TForm1.Timer1Timer(Sender: TObject);
label  timerstop;
begin
 if(MyTimer.sec=0)then
 begin
   if(MyTimer.min=0)then
   begin
	if(MyTimer.hour=0)then
	begin
	 Timer1.Enabled:=false;
	 goto timerstop;
	end;
	MyTimer.min:=59;
	dec(MyTimer.hour);
   end
   else
	dec(MyTimer.min);

   MyTimer.sec:=59;
 end
 else
 begin
   dec(MyTimer.sec);
 end;
 timerstop:
 Edit1.Text:=inttostr(MyTimer.hour);
 Edit2.Text:=inttostr(MyTimer.min);
 Edit3.Text:=inttostr(MyTimer.sec);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if(not Timer1.Enabled)then
  begin
	MyTimer.hour:=strtoint(Edit1.Text);
	MyTimer.min:=strtoint(Edit2.Text);
	MyTimer.sec:=strtoint(Edit3.Text);
	Timer1.Enabled:=true;
  end
  else
   Timer1.Enabled:=false;
end;

بقي عليك التأكد من كون القيم المدخلة الى 3TEdit عبارة عن أرقام ...

لا أعتقد أن هناك أي صعوبة في فهم الكود وإن كان هناك أي تساؤلات ضعها ..

إضافة : عليك أيضاً التأكد من أن قيم الـ TEdit لم تتجاوز الحد المسموح به , 59 للثواني والدقائق ..

تم تعديل هذه المشاركة بواسطة cipher في 22 أغسطس 2007 في 08:55

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#3

?label لقد حاولت لكن دون جدوى شكرا لك اخي على مجهودك لكن ما فائدة

تم تعديل هذه المشاركة بواسطة near_deathnote في 22 أغسطس 2007 في 10:30

#4

كيف ما في فائدة؟

ما الذي عملته؟

لا تخبرني أنك لا تعرف كيف تستخدم الكود السابق !!!

بعد عمل run ادخل القيم في الـ Edit وبعد ذلك انقر على Button1 وسيبدأ العداد بالعد التنازلي

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

#5

هناك خطأ بسيط في تعريف ال Record 

type
TheTimer=record
sec,min,hour:integer;
end;

يبدوا انها اعاقت السائل من تنفيذ البرنامج:D

اقتباس
?label لقد حاولت لكن دون جدوى شكرا لك اخي على مجهودك لكن ما فائدة

ابحث في المنتدى عن الفائدة وسوف تجد ما تريد

اقتباس
بقي عليك التأكد من كون القيم المدخلة الى 3TEdit عبارة عن أرقام ...

لا أعتقد أن هناك أي صعوبة في فهم الكود وإن كان هناك أي تساؤلات ضعها ..

إضافة : عليك أيضاً التأكد من أن قيم الـ TEdit لم تتجاوز الحد المسموح به , 59 للثواني والدقائق ..

Timer.rar

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#6

كحل بديل عن استخدام ال Label يمكن استخدام تابع لعرض القيم

TheTimer=recordsec,min,hour:integer;
end;

var
  Form1: TForm1;
// define global variable
  MyTimer:TheTimer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if(not Timer1.Enabled)then
  begin
	MyTimer.hour:=strtoint(Edit1.Text);
	MyTimer.min:=strtoint(Edit2.Text);
	MyTimer.sec:=strtoint(Edit3.Text);
	Timer1.Enabled:=true;
  end
  else
   Timer1.Enabled:=false;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
label  timerstop;
begin
  if(MyTimer.sec=0)then
  begin
	 if(MyTimer.min=0)then
	 begin
		if(MyTimer.hour=0)then
		begin
		  Timer1.Enabled:=false;
		  showTime;
		end;

		MyTimer.min:=59;
		dec(MyTimer.hour);
	 end
	 else
	  dec(MyTimer.min);

	 MyTimer.sec:=59;
  end
  else
	 dec(MyTimer.sec);
  showTime;
end;

procedure TForm1.showTime;
begin
  Edit1.Text:=inttostr(MyTimer.hour);
  Edit2.Text:=inttostr(MyTimer.min);
  Edit3.Text:=inttostr(MyTimer.sec);
end;

تم تعديل هذه المشاركة بواسطة Wael Dalloul في 22 أغسطس 2007 في 12:35

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#7
اقتباس
يبدوا انها اعاقت السائل من تنفيذ البرنامج

هو ليس خطأ في التعريف ولكن حين طبعت الكود من محرر الدلفي الى المنتدى نسيت طباعة end; . وإن كانت هذي هي المشكلة هي التي أعاقت تنفيذ البرنامج فعلى السائل مراجعة أساسيات الباسكال ..

على العموم شكراً للأخ وائل لأنه وضع المثال في المرفقات .. أنا تعمدت عدم وضع مرفقات في الرد رغم أن المثال كان جاهز حين وضعت أول رد :P

"First they ignore you, then they laugh at you, then they attack you, then you win"

===

اقتباس

حُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا

هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا

الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا

القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ

لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ

البردوني "أبو تمام وعروبة اليوم" 1971

===

اقتباس
عبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــم

و تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم

ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم

أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟

ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا

البردوني "نحن و الحاكمون "

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…