VB.NET程序运行耗时精确计量方法之一
2011-10-08 08:37
1126 查看
Imports System.Threading '精确计量程序运行时间的STOPWATCH Module Module1 Sub Main1() ' Create new Stopwatch instance. Dim watch As New Diagnostics.Stopwatch watch.Start() '启动 ' Measure. For i As Integer = 0 To 1000 - 1 Threading.Thread.Sleep(1) Next ' 停止并显示时间 watch.Stop() Console.WriteLine(watch.Elapsed.TotalMilliseconds) ' This isn't measured. For i As Integer = 0 To 1000 - 1 Threading.Thread.Sleep(1) Next ' Begin measuring again. watch.Start() ' Measure. For i As Integer = 0 To 1000 - 1 Threading.Thread.Sleep(1) Next ' Stop measuring again (not always needed). watch.Stop() Console.WriteLine(watch.Elapsed.TotalMilliseconds) Console.ReadLine() End Sub Sub Main2() ' Create a Stopwatch and sleep for zero milliseconds. Dim stopwatch As New Diagnostics.Stopwatch ' = stopwatch.StartNew stopwatch.Start() Thread.Sleep(0) stopwatch.Stop() ' Write the current time. Console.WriteLine(stopwatch.ElapsedMilliseconds) Console.WriteLine(DateTime.Now.ToLongTimeString) ' Start a new Stopwatch. stopwatch = stopwatch.StartNew Thread.Sleep(5000) stopwatch.Stop() Console.WriteLine(stopwatch.ElapsedMilliseconds) Console.WriteLine(DateTime.Now.ToLongTimeString) ' Start a new Stopwatch. stopwatch = stopwatch.StartNew Thread.Sleep(1000) stopwatch.Stop() Console.WriteLine(stopwatch.ElapsedMilliseconds) ' Start a new Stopwatch and use SpinWait. stopwatch = stopwatch.StartNew Thread.SpinWait(1000000000) stopwatch.Stop() Console.WriteLine(stopwatch.ElapsedMilliseconds) Console.ReadLine() End Sub Sub Main() 'Dim sw As New Diagnostics.Stopwatch 'sw.Start() 'For i As Integer = 0 To 100000 ' For k As Integer = 0 To 100000 ' Next 'Next 'sw.Stop() 'Console.WriteLine(sw.ElapsedMilliseconds) 'Console.ReadLine() End Sub End Module
相关文章推荐
- Vb.Net防止同一程序重复运行的方法
- 不安装.net framework框架运行.Net 程序的方法<收藏>
- VB.NET 同 Console 程序交互的方法
- VC获取系统时间、程序运行时间(精确到秒,毫秒)的五种方法
- vb.net 获取程序运行中的路径
- 在VS.net(C#)里,设置程序在启动时默认"以管理员身份运行"的方法
- [VB.NET]VB.net有窗体程序如何以系统服务方式运行?
- window 7 运行asp.net程序出错-IIS7.0 检测到在集成的托管管道模式下不适用的ASP.NET设置 的解决方法
- VC++ 获取系统时间、程序运行时间(精确到秒,毫秒)的五种方法
- 使用进程互斥实现WinForm程序只运行一个实例(VB.Net)
- 不安装.net framework框架运行.Net 程序的方法(转)
- 【VS开发】VC++ 获取系统时间、程序运行时间(精确到秒,毫秒)的五种方法
- VC获取系统时间、程序运行时间(精确到秒,毫秒)的五种方法
- 使用vb.net等待外部程序运行完毕才继续
- 不安装.net framework框架运行.Net 程序的方法
- VB.Net : ApplicationEvents类中,创建主程序的快捷方式 , 捕获程序未Try的错误及抛出相关的类和方法名 , 是否联机等相关。。
- [WinForm]C# .net防止一个程序(WinForm)重复运行的方法。
- VC++ 获取系统时间、程序运行时间(精确到秒,毫秒)的五种方法
- [VB.NET]如何在DataGridView控件中增加、删除和修改记录(用程序代码的方法)
- C++ 统计程序运行耗时的几种方法的总结