السلام عليكم ورحمة الله وبركانه
اخواني الكرام
سؤالي : هل يمكن وضع منبه يعني يكون في قاعدة بيانات أحتاج اليها في المستقبل في وقت وتاريخ معين وأريد أن ينبهني بأي طريقة عندما يأتي ذلك الوقت والتاريخ؟
اذا كان الجواب نعم ياليت حد يدلني على برنامج به هذه الخاصية؟
وشكراً لكم يا أحلى منتدى؟
خالد اليافعي
بارك الله فيك اخي اكسير على المشاركة
اخي الفاضل خالد
لكي نقوم بعمل هذه التنبيه نحتاج الى عمل بعض الخطوات كالتالي :
1. نتأكد اولا من مجلد النظام في الويندوز C:\WINDOWS\system32 هل يوجد به هذا العنصر COMDLG32.OCX الخاص بالـ ActiveX ام لا فإن كان موجود فكان بها ونعما وإن لم يكن موجود نقوم بنسخه الى مجلد النظام C:\WINDOWS\system32 وهذا المكون هو المسئول عن الوقت والتاريخ في مربعي العنصرين الموجودان في النموذج . ( الأول للوقت والثاني للتاريخ )
2. اذا رغبت في عمل نموذج جديد خاص بك او رغبت ان تجرب هذا العنصر الخاص بالأكتيف اكس ActiveX فكل ما عليك هو فتح النموذج في وضع التصميم ثم الذهاب الى اشرطة قوائم الأكسيس العلوية واختيار ادراج ثم عنصر ActiveX وستظهر لك قائمة طويله بالعناصر المحملة في مجلد النظام اختر منها العنصر Microsft Date and Time Picker Control 6.0
وسيتم ادراجه مباشرة في النموذج وسيكون افتراضيا على التاريخ لهذا نختار خصائص هذا العنصر ونغيره الى وقت ونكرر العملية مره ثانية بإدراج عنصر آخر ايضا ونتركه على التاريخ وسيكون في النموذج بهذا الشكل
3 . نقوم بإدراج مربعي نص واحد للوقت الحالي Time= والثاني للتاريخ الحالي Date= في النموذج في الركن العلوي وإذا رغبنا بإخفاءها فلا يوجد مشكله في ذلك فهي سوف تعمل الى ما شاء الله ولن تتوقف .
بالنسبة لجعل الوقت يتحرك مثل عقارب الساعه فنضع في حدث عند عداد الوقت الأمر التالي
Me.xTime.Requery
حيث مربع نص الوقت اسمه xTime
وسنجد اسفل الحدث مباشرة الفاصل الزمني نضعه على 1000 لأنه يمثل 1 ثانية
4. نقوم بعمل جدول ونسميه مثلا tblAlert ونضع به حقلين واحد للوقت txtTime والأخر للتاريخ txtDate ويكونان بصيغة وقت وتاريخ
5. نعرض النموذج في وضع التصميم ونجعل مصدره هو الجدول ونجعل مصدر عنصر التحكم الأول الخاص بالوقت DTPicker0 هو txtTime ونجعل مصدر عنصر التحكم DTPicker1 الخاص بالتاريخ هو txtDate
6. نختار الآن الأحداث الخاصة بالنموذج ونضع في حدث الحالي للنموذج الكود التالي
Private Sub Form_Current() Me.Refresh End Sub
7. نضع هذه الوظائف في رأس محرر الفيجول بيسك في النموذج
Private Const SND_APPLICATION = &H80 Private Const SND_ALIAS = &H10000 Private Const SND_ALIAS_ID = &H110000 Private Const SND_ASYNC = &H1 Private Const SND_FILENAME = &H20000 Private Const SND_LOOP = &H8 Private Const SND_MEMORY = &H4 Private Const SND_NODEFAULT = &H2 Private Const SND_NOSTOP = &H10 Private Const SND_NOWAIT = &H2000 Private Const SND_PURGE = &H40 Private Const SND_RESOURCE = &H40004 Private Const SND_SYNC = &H0 Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
ونضع في حدث عند عداد الوقت مع الكود الذي وضعناه سابقا الخاص بتحديث وقت الساعة لكي تتحرك
Private Sub Form_Timer() Me.xTime.Requery If [xDate] = Me.DTPicker1.Value And [xTime] = Me.DTPicker0.Value Then PlaySound Application.CurrentProject.Path & "\Duaa.wav", 0, SND_FILENAME Or SND_ASYNC End If End Sub
السطر الأول من الكود خاص بتحديث الساعة .
السطر الثاني يقارن بين مربع نص التاريخ xDate وبين عنصر التحكم الخاص بالتاريخ DTPicker1 ( وهو الذي نقوم بالتغيير فيه كيفما نريد سواء بالزياده او النقصان ) وايضا بين مربع نص الساعة xTime التي تعمل بشكل مستمر في رأس النموذج وبين عنصر التحكم الخاص بالوقت DTPicker0 ( وهو الذي نقوم بالتغيير فيه كيفما نريد سواء بالزياده او النقصان ) .
السطر الثالث يستدعي الدالة او الوظيفة الخاصة بتشغيل ملف صوتي PlaySound نضعه في نفس المجلد الموجود به القاعدة فمثلا وضعت لك ملف صوتي للشيخ السديس وهو جزء من دعاء ختم القرآن في مكه .
فإذا تساوت الأوقات والتواريخ في النموذج لإنه سوف يتم تشغيل الملف الصوتي مباشرة بالثانية وبدون اي تأخير وهذا دلالة على التنبيه ان الوقت والتاريخ الذي قمنا بإدارجها في عناصر التحكم في النموذج هو المطلوب .
بإمكانك وضع اي وقت وتاريخ ترغب فيه وحتى لو كان لسنة قادمه او اشهر وكذلك الوقت فإذا حان الوقت والتاريخ الصحيح فسوف يعمل الملف الصوتي مباشرة .
حاول تجرب تاريخ اليوم وتضع وقت قريب جدا بفارق دقائق معدوده واترك النموذج مفتوح وسترى انه سوف يعمل الملف الصوتي عند الوقت المحدد .
بالنسبة للتحكم في وضع الوقت في النموذج فيوجد سهمين واحد للأعلى للزياده والآخر للأسفل لنقصان فكل ما عليك هو وضع المؤشر على الساعات ثم الضغط على احد السهم وكذلك للدقائق وايضا للثواني ومن ثم ايضا اختر ص ( صباحا ) او م ( مساء )
بالنسبة للتحكم في التاريخ فيكفي ان تضغط السهم السفلي وسيظهر لك تقويم تختار منه التاريخ المطلوب بهذا الشكل
وهذا هو الملف كامل به ملف صوتي وعنصر التحكم والقاعدة
ملاحظة : تم تعديل الملف السابق بنسخة أحدث حيث تشمل على ان الصوت يعمل بشكل مستمر بدون توقف مع اضافة زر أمر عند الرغبه في ايقاف الصوت .
بالتوفيق
الأخت الفاضله زهرة
جزاك الله كل خير على الشرح والبرنامج
ابو ليان
إذا دعتك قدرتك على ظلم العباد فتذكر قدرة الله عليك
بسم الله الرحمن الرحيم
بارك الله فيك اختنا زهرة
والشكر موصول للاخ اكسير
لا اله الا الله
والله ما اعرف شو اقول الا جزاك الله خير اختي زهرة والله اني تعلمت منك على أشياء كثيرة كنت أجهلها ومش عارف من دونك شو كنت اسوي بارك الله فيكي اختي وسأجرب الطريقة وأخبرك
طبعا لا انسى الأخ اكسير جزاك الله خير وبارك الله فيكم جميعا
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
