[elgokr]

(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 للتوقيت الخاص بهم

تحياتى لك

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