+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عمل تايمر بوقت معين (/showthread.php?tid=31514)
عمل تايمر بوقت معين - لسه مبتدئ - 26-09-19
السلام عليكم ورحمة الله وبركاته
اخواني كنت عايز أعمل تايمر
يعني مثلا لو كتبت 10 ثواني في تيكست بوكس وضغطت على زرار ابدأ
يبدأ الوقت في النزول حتى انتهاؤه
شاكر لكم
RE: عمل تايمر بوقت معين - trakktour - 26-09-19
(26-09-19, 09:32 AM)لسه مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
اخواني كنت عايز أعمل تايمر
يعني مثلا لو كتبت 10 ثواني في تيكست بوكس وضغطت على زرار ابدأ
يبدأ الوقت في النزول حتى انتهاؤه
شاكر لكم
و عليكم السلام اخي الكريم
تفضل هذا الكود
كل ما عليك هو اضافة timer & textbox & label
كود :
Public Class Form1
Dim M As Int32
Dim S As Int32
Dim T As Int32
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
T -= 1
If T >= 0 Then
M = Int(T / 60)
S = T - (M * 60)
Dim D As New Date(1900, 1, 1, 0, M, S)
Label1.Text = Format(D, "mm:ss")
Else
Label1.Text = "done"
Timer1.Stop()
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
T = TextBox1.Text
Timer1.Start()
End Sub
End ClassRE: عمل تايمر بوقت معين - لسه مبتدئ - 29-09-19
جزاكم الله خيرا أخي الكريم وبارك الله في عملك