:19:با سلام
می خواستم بدانم کسی هست که سورس کد شمارش معکوس را داشته باشد؟
ممنون می شوم اگر کسی برایم بگذارد:10:
Printable View
:19:با سلام
می خواستم بدانم کسی هست که سورس کد شمارش معکوس را داشته باشد؟
ممنون می شوم اگر کسی برایم بگذارد:10:
سلام من سرس مخصوص این کار را ندارم ولی با سرس زیر می توان این کار را کرد.
در این کد TI یک متغیر است.کد:Dim Ti As Date
Private Sub Form_Load()
Ti = Time
Timer1.Interval = 1000
lblTime.Caption = Ti
End Sub
Private Sub Timer1_Timer()
Ti = Ti - 0.00001
lblTime.Caption = Ti
End Sub
موفق باشی.
ممنون از لطفتنقل قول:
:10:
آدم سر از كدهاي پيچيده در نمتونه بياره به راحتي
سلام دوستان من یه کد تایمر شمارش معکوس دارم که میخام بعد از صفر شدن مجدد شروع به شمردن کنه. میخواستم بدونم کسی میدونه که چه کار باید انجام داد؟؟؟
کد رو بزار...
نقل قول:
تو برنامه زیر که نوشتم شما سه تا تکست باکس دارید که مقدار اولی زمان شروع تایمر را بهش میدید و بعد با زدن دکمه شروع به شمارش معکوس میکنه و به آخر هم که برسه دوباره از اول شروع میکنه . وقت نکردم تست کنم . خودت یه تست بزن
کد:Option Explicit
Dim s, m, h As Integer
Private Sub command1_click() 'start
m = Val(Text1.Text)
s = Val(Text2.Text)
h = Val(Text3.Text)
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub command2_click() 'stop
Timer1.Enabled = False
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
End Sub
Private Sub Timer1_Timer()
s = s - 1
If s = 0 Then
s = 59
m = m - 1
End If
If m = 0 Then
m = 59
s = 59
h = h - 1
End If
If h = 0 Then
m = Val(Text1.Text)
s = Val(Text2.Text)
h = Val(Text3.Text)
End If
Label1.Caption = CStr(h) + " : " + CStr(m) + " : " + CStr(s)
End Sub
البته باگ هایی را هم داره که باید برطرف بشه