كد تايمر كه از 15 تا صفر را معكوس بشماره

[hosseine]

سلام و خسته نباشيد
من كد تايمر ميخوام كه وقتي فرم load ميشه از 15 تا صفر را برعكس بشماره
ميدونم واسه شما خيلي آسونه ولي واسه من كه تازه كارم سخته
متشكرم:خجالت:

[sina_saravi1]

سلام
برای این کار یه تایمر و یه تکست باکس تو فرم بزار
خاصیت Enable تایمر رو مساوی با true کن
خاصیت Multiline تکست باکس رو مساوی با true کن
این چند خط کد رو بنویس


Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 16

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x = 0 Then
Call zero()
Else
x = x - 1
TextBox1.Text = TextBox1.Text & vbNewLine & x
End If
End Sub
Private Sub zero()
Timer1.Enabled = False
MsgBox("www.SabaTM.IR")

End Sub
End Class

[hosseine]

مرسي
من فكر كنم سوالم را اشتباه مطرح كردم
منظورم اين بود كه از 15 تا صفر را مثل ثانيه ساعت برعكس نشان بده
ممنون ميشم اگه كمك كنيد

[salehbagheri]

كنترل هاي مورد نياز:
يك Label
يك تايمر



Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = 15
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Integer.Parse(Label1.Text) = 0 Then
Exit Sub
Else
Label1.Text = (Integer.Parse(Labe1.Text) - 1).ToString
End If
End Sub
End Class

[kamkar]

سلام
فکر کنم عددی که قراره شمرده بشه داخل یک متغیر یا روی عنوان یک textbox یا label باشه. پس خیلی راحت می تونی یه تایمر بذاری و interval تایمرو روی 1000 set کنی و بعد اگه متغیر بود بنویسی:

x=15
x=x-1
if x=0 then
timer.enabel=false

[محمد زارع]

سلام و خسته نباشيد
من كد تايمر ميخوام كه وقتي فرم load ميشه از 15 تا صفر را برعكس بشماره
ميدونم واسه شما خيلي آسونه ولي واسه من كه تازه كارم سخته
متشكرم:خجالت:


سلام

ممکنه بگید برای چه کاری این کد رو لازم دارید؟:لبخندساده:

زارع

[sina_saravi1]

سلام
برای این کار یه تایمر و یه تکست باکس تو فرم بزار
خاصیت Enable تایمر رو مساوی با true کن
خاصیت Multiline تکست باکس رو مساوی با true کن
خاصیت Interval تایمر رو برابر با 1000 کن
این چند خط کد رو بنویس


Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 16
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x = 0 Then
Call zero()
Else
x = x - 1
TextBox1.Text = "00:00:" & x
End If
End Sub
Private Sub zero()
Timer1.Enabled = False
MsgBox("www.SabaTM.IR")
End Sub
End Class