[vb.net]-Uhr [scr]

[inmate]

Einfach und sehr simple doch viele wissen nicht wie man immer die exakte uhrzeit bekommt sprich , das die sekunden raufzählen.


Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000
Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = TimeOfDay
End Sub
End Class


mfG

[Bullterrier]

Cool Danke Inmate... wieder was dazu gelernt

[Kolabi]

TimeOfDay is undeclared :P

Du solltest vielleicht noch die zeit einfügen,sonst verstehen es manche doch nicht ;)


Imports System.Text
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Interval = 1000 ' 1000 ms = 1 sek
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim hour As String
Dim minutes As String
Dim seconds As String
hour = DateTime.Now.Hour
minutes = DateTime.Now.Minute
seconds = DateTime.Now.Second

Dim stringbuilder As New StringBuilder(hour + ":" + minutes + ":" + seconds)
Label1.Text = stringbuilder.ToString()
End Sub
End Class

[inmate]

so gehts natürlich auch , doch um wer meinen code nicht versteht , kann keine digitaluhren lesen :D
den im endefekt ist es das selbe ;)

mfG

[Code-C4]

wieso so schwer ^^:
Label1.text = (TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second)

[Kolabi]

wieso so schwer ^^:
Label1.text = (TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second)

Weil StringBuilder schneller ist.

Quelle : code-inside.de/blog/2007/07/11/vergleichstest-string-vs-stringbuilder/ (http://anonym.to/?http://code-inside.de/blog/2007/07/11/vergleichstest-string-vs-stringbuilder/)

msdn.microsoft.com/de-de/library/bb979559.aspx (http://anonym.to/?http://msdn.microsoft.com/de-de/library/bb979559.aspx)