منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كود عد تنازلي من 1 ساعة الى 0
نسخة كاملة : كود عد تنازلي من 1 ساعة الى 0
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

aldery

19-10-19, 11:14 PM
السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 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

fouadhdfouad

19-10-19, 11:47 PM
(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

aldery

20-10-19, 12:04 AM
(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 ويمشي بنقص -

alshandodi

20-10-19, 06:55 AM
(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

fouadhdfouad

20-10-19, 08:11 PM
(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
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > كود عد تنازلي من 1 ساعة الى 0