کد نویسی ساعت

[messi2013]

سلام دوستان میشه واسه ی کدنویسی ساعت منو راهنمایی بکنید؟

[miladatashin]

یک تایمر با اسم 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]

سوالت واضح نیست!
ولی اگه میخوای تایمر درست کنی این کد کوتاه تره:

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]

سلام
سؤالتون مشخص نيست ولي اگر ساعت سيستم رو مي‌خواين اين كدش هست
Private Sub Timer1_Timer()

text1 = Time

End Sub