مرحبا :
لو نجي لطريقة العد التنازلي تكدر تستثمرها بعدة جوانب منها :
رقم سري للدخول الى البرنامج او الدخول الى قاعدة البيانات , او تريد من المستخدم ان يعطيك الاجابة عن سؤال بمدة محددة , او تريد انهاء البرنامج بعد مدة من تشغيله وهكذا ..
يعني مدة زمنية تكدر تستثمرها بالشيء الي يعجبك :
نبدي بالعمل :
اول شيء افتح لغة vb.net 2008 وطبق التالي :
1- اضف مؤقت timer
2- اضف مربع نص text box
3- اضف كوماند ( زر امر )
=====================
ملاحظات على الكود :كود:Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Interval = 500 Timer1.Start() End Sub Dim stpw As New Stopwatch Dim CountDownFrom As Integer = 2 * 60 Dim CountDown As New TimeSpan Private Sub StartCountDown() CountDown = TimeSpan.FromSeconds(CountDownFrom) stpw.Stop() : stpw.Reset() : stpw.Start() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Not stpw.IsRunning Then Exit Sub Dim TimeRemaining As TimeSpan = CountDown - stpw.Elapsed TextBox1.Text = TimeRemaining.Minutes.ToString.PadLeft(2, "0"c) & ":" & TimeRemaining.Seconds.ToString.PadLeft(2, "0"c) If TimeRemaining.TotalMilliseconds <= 0 Then stpw.Stop() If TextBox1.Text = "00:00" Then Timer1.Stop() MsgBox("انتهى الوقت يرجى اعادة المحاولة") End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click StartCountDown() End Sub End Class
1- في حدث الفورم لود يبدأ التايمر بالعمل
2- ثم نعرف المتغير على انه من نوع intger , وعدد الدقائق هي مبينة بالكود بالشكل 2*60 حيث 60 عدد الثواني
3- في حدث المؤقت نضع الكود الخاص بظهور الثواني بداخل التيكست بوكس
لتحميل مشروع جاهز من المرفقات
رد مع اقتباس
المشاركة الأصلية كتبت بواسطة Daleen
