[ A Simple] code execution speed test

Posted: 2003-06-01
By: ArchiveBot
Viewed: 80

Filed Under:

VB6 Code Cache

No attachments for this post

Paste this into your VB code to test how long a portion of your code takes to execute. The number of milliseconds is appended to C:TimeTest.txt

Original Author: lonetron

API Declarations

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Code

'---------------------------------------
'[Simple] code execution time tests for VB
'---------------------------------------
'Paste this into your VB code to test how long a portion of your
'code takes to execute. The number of milliseconds is appended to C:TimeTest.txt
' __________________________
'|This simple solution was
'|brought to you by the P2B Consortium.
'|“Create your very own artificial
'|intelligence chat-bot now!”
'|http://www.p2bconsortium.com/sss/CreateBot.aspx
'|__________________________
'Start Copying Here
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
'Stop Copying Here
Private Sub Form_Load()
'Start Copying Here
Dim tm As Long
tm = timeGetTime
'Stop Copying Here
Call Sleep(5000)
'Start Copying Here
Dim tma As Long
tma = timeGetTime
Open "C:TimeTest.txt" For Append As #1
Print #1, tma - tm
Close #1
'Stop Copying Here
End Sub


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.