![]() |
Tipp 0017
|
Stoppuhr
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 18.06.2003 |
|
Entwicklungsumgebung: |
|
VB.Net 2002 |
Framework: |
|
1.0 |
|
|
Die TimeSpan-Struktur im Namespace System stellt ein Zeitintervall dar. Der Wert einer
Instanz von TimeSpan entspricht der in der Instanz enthaltenen Anzahl von Ticks im Bereich von
Int64.MinValue bis Int64.MaxValue. Ein Tick ist die kleinste Zeiteinheit, die angegeben werden kann,
und entspricht 100 Nanosekunden. Die angegebene Anzahl von Ticks und der Wert von
TimeSpan kann positiv oder negativ sein.
|
In diesem Tipp wird TimeSpan dazu genutzt, um eine Stoppuhr mit Millisekunden, Sekunden,
Minuten, Stunden und Tagen zu erhalten.
|
|
|
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Dim DiffZeit As Date
Dim TSpan As TimeSpan
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
DiffZeit = DateTime.Now
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
TSpan = DateTime.Now.Subtract(DiffZeit)
Label1.Text = TSpan.Days & ":" & TSpan.Hours & ":" & _
TSpan.Minutes & ":" & TSpan.Seconds & ":" & _
TSpan.Milliseconds
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (6,1 kB)
|
Downloads bisher: [ 2272 ]
|
|
|