VB.NET-Tipp 0082: Die StopWatch-Klasse

 
' Dieser Quellcode stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!

' Projektversion:   Visual Studio 2005
' Option Strict:    Aus
' Option Explicit:  An
'
' Referenzen: 
'  - System
'  - System.Data
'  - System.Xml
'
' Imports: 
'  - Microsoft.VisualBasic
'  - System
'  - System.Collections
'  - System.Data
'  - System.Diagnostics
'

' ##############################################################################
' ############################# modZeitmessung.vb ##############################
' ##############################################################################
Imports System.Diagnostics

Module modZeitmessung
   Sub Main()
      Dim SW As Stopwatch = Stopwatch.StartNew

      ' Irgendetwas machen ...
      System.Threading.Thread.Sleep(1000)
      SW.Stop()

      Console.WriteLine(SW.ElapsedMilliseconds)
      Console.ReadLine()
   End Sub
End Module