منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET كود عد تنازلي من 1 ساعة الى 0
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
كود عد تنازلي من 1 ساعة الى 0
aldery غير متصل
عضو مبدع
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة : 11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
#1
19-10-19, 11:14 PM (آخر تعديل لهذه المشاركة : 19-10-19, 11:25 PM {2} بواسطة 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 Class
البحث
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
fouadhdfouad غير متصل
عضو مبدع
المشاركات : 100
المواضيع 23
الإنتساب : Apr 2017
السمعة : 10
الشكر: 0
تم شكره 111 مرات في 63 مشاركات
#2
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 , aldery
aldery غير متصل
عضو مبدع
المشاركات : 139
المواضيع 52
الإنتساب : Mar 2018
السمعة : 11
الشكر: 90
تم شكره 127 مرات في 74 مشاركات
#3
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 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  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 غير متصل
عضو نشيط
*
المشاركات : 285
المواضيع 63
الإنتساب : Sep 2018
السمعة : 32
الشكر: 485
تم شكره 456 مرات في 198 مشاركات
#4
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 الى ان ينتهي الوقت ويقوم البرنامج بتوقف وشكراً للجميع  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 غير متصل
عضو مبدع
المشاركات : 100
المواضيع 23
الإنتساب : Apr 2017
السمعة : 10
الشكر: 0
تم شكره 111 مرات في 63 مشاركات
#5
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
البحث
الرد }}}
تم الشكر بواسطة: aldery , aldery


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [كود] عمل برنامج مؤقت تنازلي shado1796 4 8,285 10-03-21, 02:46 AM
آخر رد: Kareem2021
  طريقة جمع الوقت لأكثر من 24 ساعة جيولوجي مبتدئ 5 2,459 16-08-20, 09:07 AM
آخر رد: جيولوجي مبتدئ
  سؤال بخصوص جمع الوقت لأكثر من أربع وعشرين ساعة جيولوجي مبتدئ 5 1,986 13-08-20, 10:19 PM
آخر رد: محمد كريّم
  [كود] عد تنازلي عبدالرحمن المكاوي 3 2,149 24-11-18, 12:36 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] عمل عداد تنازلي Simo1991 1 2,912 25-09-18, 05:06 PM
آخر رد: ابراهيم ايبو
  نظام 12 ساعة أو 24 ساعة ؟؟ hichem1 5 3,357 07-06-18, 03:24 PM
آخر رد: elgokr
  كيف يمكنني عمل ساعة بإستخدام أداة NumericUpDown farah112233 1 1,549 12-05-18, 08:20 PM
آخر رد: elgokr
  [VB.NET] طلب كود عد تنازلي من ساعه معينه علي بن عبدالله 2 2,799 05-02-18, 02:54 AM
آخر رد: علي بن عبدالله
  [C#.NET] إضافة برنامجي جنب ساعة Anis Gladiator 6 2,215 30-09-17, 09:41 AM
آخر رد: Anis Gladiator
  عايز كود برنامج يعمل كوبى اتوماتيك كل ساعة من مكان الى اخر mahdyfox 4 2,415 10-07-16, 11:03 PM
آخر رد: الوادي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم