رسالتي الأولى

(f)

السلام عليكم...

أهلا بك ..معنا ..ولكن سؤالك ليس بصعب ..ولكن لن تجدي أحداً فارغاً ؟.

قد يساعدونك بأشياء ...قد تجدين صعوبة بها ....وتري الزخ الهائل

من المساعدات ....؟؟؟؟:D

جربي ذلك ..وأبدءي بمحاولة ...لوحدك ...؟؟؟:(

وأخبرينا بكل جديد......;)

سؤال : هل أنت مبتدئ في البرمجة .....؟؟؟:o

يرجى الأجابة....;)

FOX_DELPHI:cool:

نعم جديدة مررررررة (f)(f)(f)

اقتباس

كاتب الرسالة الأصلية : Rema

نعم جديدة مررررررة     (f)(f)(f)

السلام عليكم....(f)(f)

اختي العزيزة ...عليك اولاً تصفح المنتدى ....ومن اهم ماتتصفيحنه..

هو ...لنبدء دورة دلفــي .....وأجعلي من الدورة مرجعاً ..لك ...وأنا

بالخدمة أن شاء الله ....والشباب كلهم بأذن الله .....؟

:'( (( مافي حدا:D)):'(

وشكراً لمشاركتك معنا .....

أخـــــــوكم....:cool:

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

أرجوا من الاخوة و الأخوات من لديه خبرة أن لا يبخل علي به

أنا اريد

أن اجعله ينبه في وقت الرسالة اذا و صل وقتها و يعرضها عليه

شكرا لكم جميعا

اختكم

ريما

اختي الكريمة

السلام عليكم ورحمة الله وبركاته

بالنسبة لاظهار الموعد يلزمك وضع Timer يقوم بمقارنة الوقت واليوم بوقت ويوم الموعد الذي تم تخزينه مسبقا فاذا كانا اقل او يساوي الوقت واليوم الحالي للنظام فانه يتم عرض الموعد.

ممكن مثال يا أبو هاني الله يحفظك

السلام عليكم

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

للجميع المثال يعمل على تنبيهنا في الوقت المحدد في الكائن edit1 واظهار

رسالة خلال تنفيذ البرنامج كما يلي :

يلزمنا Edit1 و Edit2 و ComboBox1 و Label1 و Label2 و Label3 من الصفحة

standard

ويلزمنا Timer1 و MediaPlayer1 من الصفحة system

ويلزمنا Form2

الآن نبدأ بالشكل التالي:

نبرمج Timer1 بالشكل:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Case DayOfWeek (Date)Of

1:Label1.Caption:= 'الاحد';

2:Label1.Caption:= 'الاثنين';

3:Label1.Caption:= 'الثلاثاء';

4:Label1.Caption:= 'الاربعاء';

5:Label1.Caption:= 'الخميس';

6:Label1.Caption:= 'الجمعة';

7:Label1.Caption:= 'السبت';

end;

Label2.Caption:=TimeTostr(Now);

Label3.Caption:=dateTostr(Now);

if TimeTostr(Now)=Edit1.Text

then

if DateTostr(Now)=Edit2.Text

then

if

ComboBox1.Text=Label1.Caption

then Begin

MediaPlayer1.Play;

Form2.Show;

end;

if TimeTostr(Now)=Edit1.Text

then

if Edit2.Text=''

then

if

ComboBox1.Text=''

then Begin

MediaPlayer1.Play;

Form2.Show;

end;

if TimeTostr(Now)=Edit1.Text

then

if DateTostr(Now)=Edit2.Text

then

if

ComboBox1.Text=''

then Begin

MediaPlayer1.Play;

Form2.Show;

end;

if TimeTostr(Now)=Edit1.Text

then

if

ComboBox1.Text=Label1.Caption

then

if

Edit2.Text=''

then Begin

MediaPlayer1.Play;

Form2.Show;

end;

end;

end.

وفي القسم var نكتب مايلي

var

Form1: TForm1;

StartTime,StopTime:TDateTime;

بقي الآن شئ بسيط وهو تعديل بعض الخواص

1-في الخاصية items للكائن ComboBox1

نكتب في string list Editor

السبت

الاحد

الاثنين

الثلاثاء

الاربعاء

الخميس

الجمعة

2-الخاصية Auto Open لل MediaPlayer1 نحولها True

الخاصية File Name نحدد منها مسار او مكان الملف الصوتي المراد سماعه

عند الوقت المحدد

الخاصية visible نحولها False

3- في Form2 نكتب الرسالة المراد عرضها عند الوقت المحدد.

الآن ننفذ المشروع ونكتب في Edit1 الوقت المطلوب التنبية عنده ويجب ان

يكون متوافق مع شكل ساعة الكمبيوتر مثلا 01:12:45 م او 10:06:07 ص

(يوجد فراغ واحد فقط بين الوقت وال م )(يوجد فراغ واحد فقط بين الوقت وال ص)

يأخي بارك الله فيك

ممكن ترفق المثال شعال لأني ما قدرت اعمله

بعدين أبغاه شغال طوالي بجوار الساعة حتى يتبه بالموعد

شكرا لك

اختي الكريمة

تفضلي برنامج المذكرة ، فانه يقوم بنفس ما تبحثين عنه ، واذا كنت فعلا بحاجة الى تصميم نفس الفكرة ، فسوف اقوم بشرح فكرة عرض المواعيد

تفضلي رابط البرنامج

http://www.arabdevelopers.com/news/news.ph...tnews&newsid=17

أخي الكريم انا اطلعت عليه و جزاك الله خيرا وبرنامج رائع من شخص كريم

ولكن لدي فكرة أخرى و أريد هذه الجزئية

ياليت يرفق مثال مبسط لها

اليكم البرنامج المشروح سابقا

ملاحظة:بعد فك الضغط يجب وضع الملف الصوتي فقط مباشرة في ال C

اما بالنسبة لوضع البرنامج بجوار الساعة فلا استطيع المساعدة من هذة

الناحية .

منèé.zip

كثر خيرك و ماقصرت

ياليت اني أعرف ما أزعجتكم

أنا اريده شغال دائما حتى ينبه للمواعيد تمام

أخي عوف جربته ولكن لا يعمل التنبيه و لا يشتغل فورم 2

هنالك خطأ في الاستخدام

1-يجب وضع الملف الصوتي فقط مباشرة في ال C

2-يجب ترك مسافة واحدة بين ال (م) والوقت كما بالشكل م 12:21:30

اذا كان الوقت مساء اما صباحا اذا اردنا التنبية الساعة

10 و 26 دقيقة و 5 ثواني مثلا نكتب ص 10:26:05

3- يكتب وقت التنبية في ال edit المقابلة للوقت فقط

الصورة في الملف المرفق

1.zip

ليه ما نحدد الوقت من كمبو للدقائق و الساعات و الثواني صباحا و مساء بدل النقط و مشاكلها

يمكن ذلك وهذا راجع لطريقة برمجة البرنامج بالتاكيد ورغبة المصمم ولكن تصميم البرنامج السابق يعتمد على عملية المقارنة بين ماداخل ال edit وساعة الكمبيوتر لذلك تجب المطابقة بشكل تام حتى بالنقاط .

هل عمل البرنامج معك بشكل جيد ؟؟

طبعا لا لم يعمل و قد حاولت ولكنه لم يعمل