シンプルなベンチマークアプリをVisual Studio Community 2015で作りました。

シンプルなベンチマークアプリをVisual Studio Community 2015で作りました。

適当に計算するループを1万回やってから、経ったミリ秒を取得するシンプルなベンチマークソフトです。

ソースコードは：

Public Class Form1
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim millisec1 As Long
    Dim millisec2 As Long
    Dim timeElapsed As Long


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Value = 0
        a = 0
        b = 2
        c = 4

        millisec1 = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
        Do Until a = 10000

            a = a + 1
            b = a / (b + c)
            c = (a * b + c / a) + (b * c) + (b + a)


            ProgressBar1.Value = ProgressBar1.Value + 1

        Loop
        millisec2 = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
        timeElapsed = millisec2 - millisec1

        MsgBox(timeElapsed & "milli-seconds Elapsed!",, "Simple Bench")



    End Sub
End Class