[ A Simple] code execution speed test
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.