[ابو روضة]

معايا برنامج بينشر على الفيس بوك وعاوز اعمل له جدولة زمنية بحيث

لما اكتب منشور مثلا فى التكست بوكس أحدد له موعد النشر.. فمثلا

لو كتبت كلمة " وقت الصلاة سيب اللى فى إيدك وكّلم سيدك "

أريد تحديد وقت يقوم البرنامج بنشرها الساعة 9 مساءا مثلاً ولو قفلت البرنامج 

وفتحته مثلا الساعة 8 مساءا يكون البرنامج حافظ هذا الموعد وعند دخول الموعد يتم النشر مباشرة.

فكيف يتم عمل هذا الله يكرمكم..

[dasktop]

بسيطه اخي


فقط اضف 6 اداة textbox


والاداة رقم 1 تسمى الفجر

والاداة رقم 2 تسمى الضهر

والاداةرقم 3 تسمى العصر

والاداة رقم 4 تسمى المغرب

والاداة رقم 5 تسمى العشاء

والاداة 6 رسالة التنبية

ونسحب من الموقع https://timesprayer.com/prayer-times-cities-egypt.html

توقيت الصلاه

ونضع شرط



عند كل تكست ينشر الرسالة اللتي في textbox6

[ابو روضة]

(10-07-19, 05:10 AM)dasktop كتب : بسيطه اخي


فقط اضف 6 اداة textbox


والاداة رقم 1 تسمى الفجر

والاداة رقم 2 تسمى الضهر

والاداةرقم 3 تسمى العصر

والاداة رقم 4 تسمى المغرب

والاداة رقم 5 تسمى العشاء

والاداة 6  رسالة التنبية

ونسحب من الموقع https://timesprayer.com/prayer-times-cities-egypt.html

توقيت الصلاه

ونضع شرط



عند كل تكست ينشر الرسالة اللتي في textbox6

شكرا لك يا طيب لكنى لا أريد عمل برنامج تذكير لآوقات الصلاة.

انا اريد تنفيذ كود بوقت محدد أحدده أنا ولو قفلت البرنامج وفتحته مرة اخرى يكون هذا الامر محفوظ

[ابراهيم ايبو]

السلام عليكم اخي ابو روضة

اقرن شرط اظهار الرسائل مع التوقيت في حدث Timer1_Tick

بمعنى لو ان الوقت الحالي يساوي التوقيت المخزن قم بنشر الرسالة

اليك الكود

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ' مثلا هذه التواقيت
       Dim fajr As String = "04:29:00 AM"
       Dim thohr As String = "01:14:00 PM"
       Dim Aser As String = "04:23:00 AM"
       Dim Magreb As String = "08:40:00 AM"
       Dim ishaa As String = "04:29:00 AM"
       Dim gg As Date = Now.ToString("hh:mm:ss tt")
       If gg = fajr Or gg = thohr Or gg = Aser Or gg = Magreb Or gg = ishaa Then
           MsgBox("وقت الصلاة سيب اللى فى إيدك وكّلم سيدك")
       End If
   End Sub

بدل اظهار الرسالة ضع الكود الذي تريد تنفيذه

[ابو روضة]

(10-07-19, 10:37 AM)ابراهيم ايبو كتب :

السلام عليكم اخي ابو روضة

اقرن شرط اظهار الرسائل مع التوقيت في حدث Timer1_Tick

بمعنى لو ان الوقت الحالي يساوي التوقيت المخزن قم بنشر الرسالة

اليك الكود

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       ' مثلا هذه التواقيت
       Dim fajr As String = "04:29:00 AM"
       Dim thohr As String = "01:14:00 PM"
       Dim Aser As String = "04:23:00 AM"
       Dim Magreb As String = "08:40:00 AM"
       Dim ishaa As String = "04:29:00 AM"
       Dim gg As Date = Now.ToString("hh:mm:ss tt")
       If gg = fajr Or gg = thohr Or gg = Aser Or gg = Magreb Or gg = ishaa Then
           MsgBox("وقت الصلاة سيب اللى فى إيدك وكّلم سيدك")
       End If
   End Sub

بدل اظهار الرسالة ضع الكود الذي تريد تنفيذه

الله يعزك أصلك أخى ابراهيم...

حضرتك لو انا مثلا أريد اظهار الرسالة التى وضعتها أنت مثلا الساعة 9 صباح الويم كيف يتم هذا ؟

ومشكور أخى جدا

[ابراهيم ايبو]

اخي ابو سريع الحبيب اسعدت صباحا

كود :

' اذا اردت اقتران الحدث مع تاريخ وساعة معينة

       Dim kk As String = "10/07/2019 09:52:17 AM"
       Dim gg As Date = Now.ToString()
       If gg = kk Then
           '  ضع كودك هنا
       End If

هنا ستضع وقت وتاريخ مثل المفكرة

[ابو روضة]

(10-07-19, 10:57 AM)ابراهيم ايبو كتب : اخي ابو سريع الحبيب اسعدت صباحا

كود :

' اذا اردت اقتران الحدث مع تاريخ وساعة معينة

       Dim kk As String = "10/07/2019 09:52:17 AM"
       Dim gg As Date = Now.ToString()
       If gg = kk Then
           '  ضع كودك هنا
       End If

هنا ستضع وقت وتاريخ مثل المفكرة

صباحك أرق من النسيم أستاذ إبراهيم فعلا أخذت فكرتك الأول وطورتها لهذا ونجحت

كود :

Dim fajr As String = MaskedTextBox1.Text
       Dim gg As Date = Now.ToString("hh:mm:ss tt")
       If gg = fajr Then
           MsgBox("وقت الصلاة سيب اللى فى إيدك وكّلم سيدك")
       End If

شيئ أخير فقط ينقصنى وهو ازاى لو أغلقت البرنامج يتم حفظ هذه الاعدادات بحيث
لما افتح البرنامج مرة اخرى قبل المدة المحددة يتم تطبيق الكود ؟
وجزاك الله كل الخير

[ابراهيم ايبو]

الافضل انشاء قاعدة بيانات تدخل فيها قيم المتغيرات عن طريق الحفظ مثل اي بيانات

( يجب ان تكون المتغيرات قد عرفت خارج حذث التايمر اي في الكلاس) 

عند الاقلاع سنملا  LIstBox بقيم هذه المتغبرات من الجدول ثم ننادي ايضا على Sub خاص

  وظيفته اسناد القيم الى المتغيرات من  LIstBox

هنا ستكون القيم عرفت بالنسبة للمقارنة وبما ان التايمر مفعل دائما سيتم الامر

فكرة ثانية : يمكن اسناد قيم المتغيرات من الجدول مباشرة

ارجو ان تكون الفكرة قد اتضحت لديك اخي ابو روضة

قم بالعمل وان واجهتك اي مشكلة المنتدى كله بخدمتك

دمت بخير 

الفكرة شبيهة بفكرة شريط الاخبار

[ابو روضة]

تسلم حبيب قلبى خلاص وصلت الفكرة بفضل الله....

معلش تعبتك معايا لكن تعبك جاء بفائدة صدقنى وأنت حليت لى الموضوع بأبسط الطرق

جزاك الله كل الخير.