منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
الوقت المتبقي للحدث العظيم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=25283)

الوقت المتبقي للحدث العظيم - hichem1 - 07-06-18

السلام عليكم 
أريد label يظهر الوقت المتبقي لحدث ما 
مثل label1 يكون الوقت فيه 4:23 و ال label2 يكون الوقت فيه 5:30
و يظهر لي label3 الفارق بين التوقيتين (1ساعة و 7دقائق) مع عد تنازلي 
و شكرا

RE: الوقت المتبقي للحدث العظيم - elgokr - 07-06-18

فكرة الكود لطرح وقت من وقت اخر يتم التالى
كود :
Dim startTime As TimeSpan = TimeSpan.Parse(label1.Text)
       Dim endTime As TimeSpan = TimeSpan.Parse(label2.Text)
       Dim gettime As TimeSpan = endTime - startTime
       label3.Text = "الوقت المتبقي هو " & gettime.Hours & " ساعة و " & gettime.Minutes & " دقيقة"

ولتنفيذ الكود وتحديث كل ثانية
قم باضافة الاداء Timer
وقم بجعل القيم التالية كما يلى من الخصائص
PHP كود :
Enabled = True
Interval = 1000 

من ثم قم باستخدام الكود الذى تم ذكره بالاعلى فى منطقة Timer
ليصبح الكود النهائي بهذا الشكل

كود :
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim startTime As TimeSpan = TimeSpan.Parse(label1.Text)
       Dim endTime As TimeSpan = TimeSpan.Parse(label2.Text)
       Dim gettime As TimeSpan = endTime - startTime
       label3.Text = "الوقت المتبقي هو " & gettime.Hours & " ساعة و " & gettime.Minutes & " دقيقة"
   End Sub

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


RE: الوقت المتبقي للحدث العظيم - hichem1 - 07-06-18

عفوا لكنه لا يعمل .. هل يمكنك التعديل على هذا المشروع؟ ؟
سأظيفه في الملحقات الأن

RE: الوقت المتبقي للحدث العظيم - elgokr - 07-06-18

(07-06-18, 06:31 PM)hichem1 كتب : عفوا لكنه لا يعمل .. هل يمكنك التعديل على هذا المشروع؟ ؟
سأظيفه في الملحقات الأن


اخى الحبيب الكود يعمل لكن انت لم تقم بالتعديل وعمل اللازم

حيث انك قمت باستخدام الكود فى المشروع المرفق ولا تقم بتغيير مسميات كلاً من
Label2 , Label3

لما هو موجود فى المشروع المرفق حيث يجب الكود ان يكون بهذا الشكل بعد تغيير المسميات
كود :
   Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Dim startTime As TimeSpan = TimeSpan.Parse(Label4.Text)
       Dim endTime As TimeSpan = TimeSpan.Parse(Label7.Text)
       Dim gettime As TimeSpan = endTime - startTime
       Label1.Text = "الوقت المتبقي هو " & gettime.Hours & " ساعة و " & gettime.Minutes & " دقيقة"
   End Sub

ثانياً والاهم
هو اعطاء قيم كلاً من 
Label4 و Label7
للوقت البداء ووقت الانتهاء لاتمام عملية الطرح بينهم
ويجب ان يكون القيم بهذا الشكل 4:24 و 5:30 لا يلزم تطابق الارقام ولكن الفكرة من الشكل

قم بجعل قيمة Label4 هو وقت الجهاز للمستخدم او اذا كنت تريد عمل فارق التوقيت ما بين صلاه الظهر والعصر مثلاً
فقم باعطاء كل من Label4 و Label7 للتوقيت الخاص بهم

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