المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
19-10-19, 11:14 PM
(آخر تعديل لهذه المشاركة : 19-10-19, 11:25 PM {2} بواسطة aldery.)
السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق .
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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
المشاركات : 100
المواضيع 23
الإنتساب : Apr 2017
السمعة :
10
الشكر: 0
تم شكره 111 مرات في 63 مشاركات
(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق .
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة :
11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
20-10-19, 12:04 AM
(آخر تعديل لهذه المشاركة : 20-10-19, 12:05 AM {2} بواسطة aldery.)
(19-10-19, 11:47 PM)fouadhdfouad كتب : (19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق .
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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 ويمشي بنقص -
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة :
32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
20-10-19, 06:55 AM
(آخر تعديل لهذه المشاركة : 20-10-19, 06:55 AM {2} بواسطة alshandodi.)
(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 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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
المشاركات : 100
المواضيع 23
الإنتساب : Apr 2017
السمعة :
10
الشكر: 0
تم شكره 111 مرات في 63 مشاركات
(19-10-19, 11:14 PM)aldery كتب : السلام عليكم عندي هذا الكود أخذته من المنتدى ولكن المشكلة عندما تصل الثواني الى 00 لا يقوم بخفض الدقائق .
انا احتاج الى كود يقوم بحساب الوقت يبداء من 1:59:00 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع
كود :
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
|