diff --git a/Modules.Language/Language.vbproj b/Modules.Language/Language.vbproj index ffffd8d2..3bb78f44 100644 --- a/Modules.Language/Language.vbproj +++ b/Modules.Language/Language.vbproj @@ -90,6 +90,7 @@ Settings.settings True + diff --git a/Modules.Language/Watch.vb b/Modules.Language/Watch.vb new file mode 100644 index 00000000..6a567627 --- /dev/null +++ b/Modules.Language/Watch.vb @@ -0,0 +1,23 @@ +Public Class Watch + + Private ReadOnly _StopWatch As Stopwatch + Private ReadOnly _Name As String + + Public Sub New(pName As String) + _StopWatch = New Stopwatch() + _StopWatch.Start() + + _Name = pName + Debug.WriteLine($"Starting [{pName}].") + End Sub + + Public Sub Restart() + _StopWatch.Restart() + Debug.WriteLine($"Starting [{_Name}].") + End Sub + + Public Sub [Stop]() + _StopWatch.Stop() + Debug.WriteLine($"Stopped [{_Name}] after {_StopWatch.Elapsed.TotalSeconds} seconds.") + End Sub +End Class