09-06-18, 10:19 PM
(07-06-18, 10:14 PM)elgokr كتب :أخي أين الحل ؟الشكر لله..,
ساقوم بشرح مبسط لكيفية عمل ما تحتاج اليهكل الامر فقط بحاجة الى تركيز
لنقول ان لديك كلاً من
1- Label1 = 1:30
2- Label2 = 3:30
3- Label3 = 6:30
4- Label4 = 8:30
5- Label5 = 11:30
ركز على الاسماء دى لانك ستقوم بتغييرها بنائاً على الاسماء لديك
كود :
Dim aa As Date = Date.Now
If TimeSpan.Parse(aa.ToString("hh:mm")) < TimeSpan.Parse(Label1.Text) Then
MsgBox("ok") '|-- مكان السطر ده قم بوضع الكود المطلوب تنفيذه --|'
ElseIf TimeSpan.Parse(aa.ToString("hh:mm")) < TimeSpan.Parse(Label2.Text) Then
MsgBox("ok") '|-- مكان السطر ده قم بوضع الكود المطلوب تنفيذه --|'
ElseIf TimeSpan.Parse(aa.ToString("hh:mm")) < TimeSpan.Parse(Label3.Text) Then
MsgBox("ok") '|-- مكان السطر ده قم بوضع الكود المطلوب تنفيذه --|'
ElseIf TimeSpan.Parse(aa.ToString("hh:mm")) < TimeSpan.Parse(Label4.Text) Then
MsgBox("ok") '|-- مكان السطر ده قم بوضع الكود المطلوب تنفيذه --|'
ElseIf TimeSpan.Parse(aa.ToString("hh:mm")) < TimeSpan.Parse(Label5.Text) Then
MsgBox("ok") '|-- مكان السطر ده قم بوضع الكود المطلوب تنفيذه --|'
Else
'|-- هنا يعنى ان مواعيد الصلاه قد تم الانتهاء لهذا اليوم --|'
End If
تذكر بان hh:mm تعنى الساعة بنظام 12 ساعةاذا كنت تعرض الوقت للصلاه بنظام 24 ساعة فقط قم بتحويل الجملة الى HH:mm
قى السطر الخاص بـ
PHP كود :
MsgBox("ok")
قم بمسح هذا السطر ووضع الكود المطلوب تنفيذهمثلاً كود عرض الوقت المتبقي على الصلاه التالية
بخصوص هذا السطر
PHP كود :
'|-- هنا يعنى ان مواعيد الصلاه قد تم الانتهاء لهذا اليوم --|'
هنا يعنى ان اخر صلاه لليوم وهى العشاء قم تمفيمكنك عمل كود مثل دعاء او جلب وقت الفجر لليوم التالىاو الوقت المتبقي على بداء اليوم الجديد كما تشاء لك حرية ما تريد
تحياتى لكوتمنياتى لك التوفيق
