[VB.NET]時間を計測する

>Blog Top Page >[VB.NET] Top Page >[VB.NET] VB.NET ALL

■処理時間等を計測する

view plainprint?

1. Module Module1  
2.   
3.     Sub Main()  
4.   
5.         'オブジェクトの作成  
6.         Dim StopWatch As New System.Diagnostics.Stopwatch()  
7.   
8.         '■時間を止めずに計測時間を出力  
9.         Console.WriteLine("■時間を止めずに計測時間を出力")  
10.   
11.         StopWatch.Start()  
12.   
13.         System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり  
14.   
15.         Console.WriteLine(StopWatch.ElapsedMilliseconds) '時間を止めずに出力  
16.   
17.         System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり  
18.   
19.         Console.WriteLine(StopWatch.ElapsedMilliseconds)  
20.   
21.   
22.         '■計測を止める & 初期状態に戻す  
23.         StopWatch.Reset()  
24.   
25.   
26.         '■処理ごとに時間を停止する  
27.         Console.WriteLine("■処理ごとに時間を停止する")  
28.   
29.         StopWatch.Start()  
30.   
31.         System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり  
32.   
33.         StopWatch.Stop()  
34.   
35.         System.Threading.Thread.Sleep(500) '時間のかかる処理の代わり  
36.   
37.         StopWatch.Start()  
38.   
39.         System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり  
40.   
41.         StopWatch.Stop()  
42.   
43.         Console.WriteLine(StopWatch.ElapsedMilliseconds)  
44.   
45.         '■処理ごとに時間をリスタートさせる  
46.         Console.WriteLine("■処理ごとに時間をリスタートさせる")  
47.   
48.         StopWatch.Start()  
49.   
50.         System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり  
51.   
52.         StopWatch.Stop()  
53.   
54.         System.Threading.Thread.Sleep(500) '時間のかかる処理の代わり  
55.   
56.         StopWatch.Restart() 'Reset() + Start()  
57.   
58.         System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり  
59.   
60.         StopWatch.Stop()  
61.   
62.         Console.WriteLine(StopWatch.ElapsedMilliseconds)  
63.   
64.     End Sub  
65.   
66. End Module  

Module Module1

    Sub Main()

        'オブジェクトの作成
        Dim StopWatch As New System.Diagnostics.Stopwatch()

        '■時間を止めずに計測時間を出力
        Console.WriteLine("■時間を止めずに計測時間を出力")

        StopWatch.Start()

        System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり

        Console.WriteLine(StopWatch.ElapsedMilliseconds) '時間を止めずに出力

        System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり

        Console.WriteLine(StopWatch.ElapsedMilliseconds)


        '■計測を止める & 初期状態に戻す
        StopWatch.Reset()


        '■処理ごとに時間を停止する
        Console.WriteLine("■処理ごとに時間を停止する")

        StopWatch.Start()

        System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり

        StopWatch.Stop()

        System.Threading.Thread.Sleep(500) '時間のかかる処理の代わり

        StopWatch.Start()

        System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり

        StopWatch.Stop()

        Console.WriteLine(StopWatch.ElapsedMilliseconds)

        '■処理ごとに時間をリスタートさせる
        Console.WriteLine("■処理ごとに時間をリスタートさせる")

        StopWatch.Start()

        System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり

        StopWatch.Stop()

        System.Threading.Thread.Sleep(500) '時間のかかる処理の代わり

        StopWatch.Restart() 'Reset() + Start()

        System.Threading.Thread.Sleep(250) '時間のかかる処理の代わり

        StopWatch.Stop()

        Console.WriteLine(StopWatch.ElapsedMilliseconds)

    End Sub

End Module

ElapsedMillisecondsは、整数値(ミリ秒)で返します
■時間を止めずに計測時間を出力
251
501
■処理ごとに時間を停止する
499
■処理ごとに時間をリスタートさせる
250

Elapsedは、時間間隔で返します
■時間を止めずに計測時間を出力
0:00:00.2510036
0:00:00.5010052
■処理ごとに時間を停止する
0:00:00.4995031
■処理ごとに時間をリスタートさせる
0:00:00.2500041

>Blog Top Page >[VB.NET] Top Page >[VB.NET] VB.NET ALL