TOP > カテゴリ > Visual Basic >

処理時間を計測する

処理時間を計測するサンプルです。

サンプルの実行画面

ソースコード

[timeGetTime.frm]

'timeGetTime =>システムが起動してからの時間を取得する
'<引数>
'なし

'@戻り値@
'ミリ秒

Private Declare Function timeGetTime Lib "winmm.dll" () As Long


Private Sub Command1_Click()


 MousePointer = 11


  nStart = timeGetTime()

  '空ループ
  For i = 0 To 10000000
  Next

  nEnd = timeGetTime

  '処理結果を出力する
  MsgBox (CDbl(nEnd) - CDbl(nStart)) / 1000 & "秒かかりました。"

 MousePointer = 0

End Sub

ソースコード一式のダウンロード

vbapi_timegettime.zip 842 バイト (842 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





掲示板

ソフトウェア、ハードウェアのプログラミング用の掲示板を作成しました。質問やわからない事は@掲示板でユーザー同士で情報を共有して下さい。

関連記事



公開日:2015年03月05日
記事NO:00410