View Full Version : مبتدی: کد نویسی ساعت
messi2013
شنبه 22 تیر 1392, 16:35 عصر
سلام دوستان میشه واسه ی کدنویسی ساعت منو راهنمایی بکنید؟
miladatashin
شنبه 22 تیر 1392, 17:03 عصر
یک تایمر با اسم timer1 و اینتروال 1000 رو فرم قرار بدین. به همراه 3 تا textbox با اسم های text1 text2 text3
این کد رو هم کپی کنید
[VB]Private Sub Timer1_Timer()
If (Val(Text3.Text) < 59) Then
Text3.Text = Val(Text3.Text) + 1
Else
Text3.Text = 0
If (Val(Text2.Text) < 59) Then
Text2.Text = Val(Text2.Text) + 1
Else
Text2.Text = 0
If (Val(Text1.Text) < 23) Then
Text1.Text = Val(Text1.Text) + 1
Else
Text1.Text = 0
Timer1.Enabled = False
End If
End If
End If
End Sub
SlowCode
شنبه 22 تیر 1392, 21:01 عصر
سوالت واضح نیست!
ولی اگه میخوای تایمر درست کنی این کد کوتاه تره:
Dim Mil As Long
Private Sub Timer1_Timer()
Mil = Mil + 1
If Mil = 86400 Then Mil = 0 '86400 = 60 sec * 60 min * 24 hours = 1 day
txtTime.Text = Format$(Mil / 3600, "00") & " : " & Format$((Mil / 60) Mod 60, "00") & " : " & Format$(Mil Mod 60, "00")
End Sub
یه تکست باکس با اسم txtTime و یه تایمر با interval 1 بزار رو فرم.
vbhamed
شنبه 22 تیر 1392, 21:15 عصر
سلام
سؤالتون مشخص نيست ولي اگر ساعت سيستم رو ميخواين اين كدش هست
Private Sub Timer1_Timer()
text1 = Time
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.