معايا برنامج بينشر على الفيس بوك وعاوز اعمل له جدولة زمنية بحيث
لما اكتب منشور مثلا فى التكست بوكس أحدد له موعد النشر.. فمثلا
لو كتبت كلمة " وقت الصلاة سيب اللى فى إيدك وكّلم سيدك "
أريد تحديد وقت يقوم البرنامج بنشرها الساعة 9 مساءا مثلاً ولو قفلت البرنامج
وفتحته مثلا الساعة 8 مساءا يكون البرنامج حافظ هذا الموعد وعند دخول الموعد يتم النشر مباشرة.
فكيف يتم عمل هذا الله يكرمكم..
بسيطه اخي
فقط اضف 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
هنا ستضع وقت وتاريخ مثل المفكرة
الافضل انشاء قاعدة بيانات تدخل فيها قيم المتغيرات عن طريق الحفظ مثل اي بيانات
( يجب ان تكون المتغيرات قد عرفت خارج حذث التايمر اي في الكلاس)
عند الاقلاع سنملا LIstBox بقيم هذه المتغبرات من الجدول ثم ننادي ايضا على Sub خاص
وظيفته اسناد القيم الى المتغيرات من LIstBox
هنا ستكون القيم عرفت بالنسبة للمقارنة وبما ان التايمر مفعل دائما سيتم الامر
فكرة ثانية : يمكن اسناد قيم المتغيرات من الجدول مباشرة
ارجو ان تكون الفكرة قد اتضحت لديك اخي ابو روضة
قم بالعمل وان واجهتك اي مشكلة المنتدى كله بخدمتك
دمت بخير
الفكرة شبيهة بفكرة شريط الاخبار
تسلم حبيب قلبى خلاص وصلت الفكرة بفضل الله....
معلش تعبتك معايا لكن تعبك جاء بفائدة صدقنى وأنت حليت لى الموضوع بأبسط الطرق
جزاك الله كل الخير.