منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود عد تنازلي من 1 ساعة الى 0 - نسخة قابلة للطباعة

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

كود عد تنازلي من 1 ساعة الى 0 - aldery - 19-10-19

السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End Class


RE: كود عد تنازلي من 1 ساعة الى 0 - fouadhdfouad - 19-10-19

(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C
استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد
كود :
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class


RE: كود عد تنازلي من 1 ساعة الى 0 - aldery - 20-10-19

(19-10-19, 11:47 PM)fouadhdfouad كتب :
(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C
استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد
كود :
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class
أشكرك على الرد أخي ولكن أنا أحتاج الوقت يمشي وليس ثابت وشيئ ثاني انا اريد الوقت ان يضهر في label ويمشي بنقص -

RE: كود عد تنازلي من 1 ساعة الى 0 - alshandodi - 20-10-19

(20-10-19, 12:04 AM)aldery كتب :
(19-10-19, 11:47 PM)fouadhdfouad كتب :
(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C
استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد
كود :
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class
أشكرك على الرد أخي ولكن أنا أحتاج الوقت يمشي وليس ثابت وشيئ ثاني انا اريد الوقت ان يضهر في label ويمشي بنقص -

تعمل الكود في timer وتخله enabeld 1000
(20-10-19, 12:04 AM)aldery كتب :
(19-10-19, 11:47 PM)fouadhdfouad كتب :
(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C
استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد
كود :
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class
أشكرك على الرد أخي ولكن أنا أحتاج الوقت يمشي وليس ثابت وشيئ ثاني انا اريد الوقت ان يضهر في label ويمشي بنقص -

تعمل الكود في timer وتخله enabeld 1000
(20-10-19, 12:04 AM)aldery كتب :
(19-10-19, 11:47 PM)fouadhdfouad كتب :
(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C
استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد
كود :
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class
أشكرك على الرد أخي ولكن أنا أحتاج الوقت يمشي وليس ثابت وشيئ ثاني انا اريد الوقت ان يضهر في label ويمشي بنقص -

تعمل الكود في timer وتخله enabeld 1000

RE: كود عد تنازلي من 1 ساعة الى 0 - fouadhdfouad - 20-10-19

(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق . 
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  Heart
كود :
Public Class Form2

   Dim lSeconds = 20
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       lSeconds = lSeconds - 1
       Label2.Text = "الوقت المتبقي : " & Format(lSeconds, "01:00:00")
       If lSeconds = 0 Then Timer1.Enabled = False
   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Timer1.Start()
   End Sub
End C
استعمل هده الطريقة  ثم قم بوضع الشرط الدي تريد
كود :
Public Class Form1
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim T1, T2 As Date
       T1 = TimeOfDay
       T2 = #8:44:00 PM#
       Dim TS As TimeSpan = T1 - T2
       MsgBox(TS.ToString)
   End Sub
End Class