シンプルなベンチマークアプリを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