منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أصغر قيمة ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : أصغر قيمة ؟ (/showthread.php?tid=25286)



أصغر قيمة ؟ - hichem1 - 07-06-18

السلام عليكم 
أعلم أنني أكثر من السؤال .. لكن مشروعي سيكتمل قريبا جدا بفضلكم و شكرا لكم يا محترفين !! 
اريد من مشروعي أن يختار أصغر قيمة منlabels التي تحتوي على أوقات بالشكل هذا 
15س و 35دق
و كمثال مبسط لما أريد :
لدينا هنا مجموعة labels :
15س و 35دق
7س و 21دق 
7س و 13دق
19س و 46 دق
إذن فالقيمة الأصغر هي 7س و 13دق 
مع العلم أن القيمة يمكن أن تكون سالبة :
-4س و 12دق
فماذا أصنع ؟
في إنتظار إجابتكم


RE: أصغر قيمة ؟ - elgokr - 07-06-18

بدلاً من ان تقوم بتحيير نفسك بمعرفة ما هو الاصغر من labels 
قم بعمل التالى
وهو ايجاد الوقت الحالى للجهاز
والوقت التالى لوقت الصلاه وبالتالى
وقت الصلاه التالى هو الاقرب لك وهو يعنى الاصغر لفارق الساعات

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

تحياتى لك



RE: أصغر قيمة ؟ - hichem1 - 07-06-18

(07-06-18, 08:48 PM)elgokr كتب :
بدلاً من ان تقوم بتحيير نفسك بمعرفة ما هو الاصغر من labels 
قم بعمل التالى
وهو ايجاد الوقت الحالى للجهاز
والوقت التالى لوقت الصلاه وبالتالى
وقت الصلاه التالى هو الاقرب لك وهو يعنى الاصغر لفارق الساعات

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

تحياتى لك

أولا أريد أن أشكرك لأنك أعنتني بشكل كبير سيدي <3 
و بعد . أريد من مشروعي إستخراج أقرب وقت صلاة للوقت الحالي و بالتالي تكون هي الصلاة التالية 
أتمنى أنك فهمتني


RE: أصغر قيمة ؟ - elgokr - 07-06-18

الشكر لله..,

ساقوم بشرح مبسط لكيفية عمل ما تحتاج اليه
كل الامر فقط بحاجة الى تركيز

لنقول ان لديك كلاً من
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 كود :
'|-- هنا يعنى ان مواعيد الصلاه قد تم الانتهاء لهذا اليوم --|' 

هنا يعنى ان اخر صلاه لليوم وهى العشاء قم تم
فيمكنك عمل كود مثل دعاء او جلب وقت الفجر لليوم التالى
او الوقت المتبقي على بداء اليوم الجديد كما تشاء لك حرية ما تريد


تحياتى لك
وتمنياتى لك التوفيق



RE: أصغر قيمة ؟ - hichem1 - 09-06-18

(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 كود :
'|-- هنا يعنى ان مواعيد الصلاه قد تم الانتهاء لهذا اليوم --|' 

هنا يعنى ان اخر صلاه لليوم وهى العشاء قم تم
فيمكنك عمل كود مثل دعاء او جلب وقت الفجر لليوم التالى
او الوقت المتبقي على بداء اليوم الجديد كما تشاء لك حرية ما تريد


تحياتى لك
وتمنياتى لك التوفيق
أخي أين الحل ؟


RE: أصغر قيمة ؟ - elgokr - 10-06-18

كل ما عليك فعله هو التالى
فى هذا المنطقة بدلاً من هذا السطر
PHP كود :
'|-- هنا يعنى ان مواعيد الصلاه قد تم الانتهاء لهذا اليوم --|' 

كل ما هو عليك فعله
لنقل ان المنطقة التى تعرض الوقت المتبقي
Textbox1

فكل ما عليك بدلاً من جعل قيمته يعرض الوقت المتبقي على الصلاه
تجعل قيمته 
كود :
TextBox1.Text = "اذكار المساء"
او دعاء او انك تجعل قيمتها --:--
اى كان ما تريده من افكار
وتلقائي عند بدء اليوم الجديد ستجد تحول تلقائي للتوقت المتبقي لصلاة الفجر
وبكده تكون انهيت ما تتحدث عنه
تحياتى لك



RE: أصغر قيمة ؟ - hichem1 - 10-06-18

(10-06-18, 12:42 AM)elgokr كتب : كل ما عليك فعله هو التالى
فى هذا المنطقة بدلاً من هذا السطر
PHP كود :
'|-- هنا يعنى ان مواعيد الصلاه قد تم الانتهاء لهذا اليوم --|' 

كل ما هو عليك فعله
لنقل ان المنطقة التى تعرض الوقت المتبقي
Textbox1

فكل ما عليك بدلاً من جعل قيمته يعرض الوقت المتبقي على الصلاه
تجعل قيمته 
كود :
TextBox1.Text = "اذكار المساء"
او دعاء او انك تجعل قيمتها --:--
اى كان ما تريده من افكار
وتلقائي عند بدء اليوم الجديد ستجد تحول تلقائي للتوقت المتبقي لصلاة الفجر
وبكده تكون انهيت ما تتحدث عنه
تحياتى لك

حسنا فكرة جميلة