+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة بسيطة جداً بموقت timer (/showthread.php?tid=18622)
مشكلة بسيطة جداً بموقت timer - 3asfa~mdmra - 29-12-16
سلام عليكم
واجهتني مشكلة بسيطية
وهي كالتالي:
عند الضغط ع بوتين ايقاف تايمر يرجع من حيث توقف
ولكن اريد عند الضغط ع زر بوتين التوقف والبدء من الصفر
وسوف اوضح سؤوالي بالاكواد
والرجاء مساعدتي وشكراً
كود :
Public Class Form1
Dim second As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[size=small] Timer1.Interval = 1000[/size]
[size=small][/size][size=small] Timer1.Start() 'Timer starts functioning[/size]
[size=small][/size]
End Sub
[size=small] [/size]
[size=small][font=Monaco, Consolas, Courier, monospace] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/font][/size]
[size=small] [/size]
[size=small][/size]
[font=Monaco, Consolas, Courier, monospace][size=small][/size][/font]
Timer1.Stop()
[font=Monaco, Consolas, Courier, monospace][size=small][/size][/font]
[size=small][font=Monaco, Consolas, Courier, monospace] End Sub[/font][size=small] [/size][/size]
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = DateTime.Now.ToString
second = second + 1
If second >= 10 Then
Timer1.Stop() 'Timer stops functioning
Label1.Text = "timer stopped"
End If
End Sub
End ClassRE: مشكلة بسيطة جداً بموقت timer - silverlight - 30-12-16
الكود فيه بعض اللخبطة و مش واضح
لكن ما فهمته انك تريد أن تبدأ التايمر بالضغط علي باتون ثم و عندما تصل الثواني لعدد معين يتم إيقاف التايمر
ان كان هذا طلبك رجاء التأكيد علي ذلك
عموما بشكل مبدئي نفذ الكود التالي
و لتنفيذ الكود افتح فورم ضع عليه باتون و label و اضف له تايمر
PHP كود :
Public Class Form1
Private count As Integer = 0
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
count += 1
Label1.Text = count.ToString
If count >= 100 Then
Timer1.Enabled = False
Timer1.Stop()
count = 0
Label1.Text = count.ToString
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Start()
End Sub
End Class
RE: مشكلة بسيطة جداً بموقت timer - 3asfa~mdmra - 30-12-16
تمام وهو المطلوب