مساعدة حول صنع برنامج

اين انت اخي ذ.عبد العزيز انجدني

اولا اريد ان اشير الى ان الاخوة المشرفين سيقمون بغلق الموضوع بحجة ان العنوان غير مناسب لذى ساحاول ان اجيب قبل ان يغلقوه :(

المهم الفكرة حسب راي هي بوضع Timer وادخال الكود التالي

procedure TForm1.Timer1Timer(Sender: TObject);
var T:ttime;
begin
 T:=Now;

 If T=Strtotime('22:58:05') then
	Begin
	  //....
	End;
end;

هذه مجرد فكرة ممكن الاخوة الخبراء الدلفي فيدوك اكثر

بارك الله فيك

ممكن توضح بمثال اخي الله يكرمك

ساعدوني الله يرحم والديكم

تم ذكر طريقة جميلة في أحد المواضيع في منتدى الأسمبلي و هي

عندما يبدأ البرنامج يقوم بحساب الوقت المتبقي للتنبيه و يقوم بتعيير التايمر حسب الوقت المتبقي

يعني لنفرض أن الوقت المتبقي على التنبيه هو ساعة بتحويلها للثواني 1*60*60 = 3600 ثانية

كل ثانية تساوي 1000 في الخاصية interval في العنصر تايمر بالتالي ستكون القيمة في الخاصية interval هي 1000*3600 = 3600000

لماذا هذه الطريقة :

لأنها تقوم بحساب الوقت مرة واحدة بدلا من حساب الوقت كل ثانية بالتالي سيكون أستهلاك البرنامج للموارد أقل

موضوع مخالف بشتى المقاييس

1. عنوان غير دال على المحتوى

2.تطلب المساعدة من شخص معين .

أخى الكريم راجع القوانين بعد ذلك قبل طرح سؤالك .

اجابة سؤالك تتلخص فى 3 نقاط

1. تايمر Timer

2.مكون جاهز لوضع البرنامج بــجوار الساعة ( او تكويد المكون)

3. الحدث داخل التايمر

طبعاً هتحتاج ListBox لوضع أكثر من مهمة

بالتوفيق