AppProfiler - Calculate Code Speed

sinner · **Joined:** Sat May 27, 2006 3:27 pm **Posts:** 480

Hello

Here is a simple example of a poor mans code profiler. This will help you to be able to determine the codes execution speed!

Hope this helps

1. Make 2 Methods in your App name them StartProfiler and StopProfiler
2. make 2 Date property's in your App name them StartSeconds and EndSeconds

App Methods

Sub App.StartProfiler()
  StartSeconds = New Date
End Sub

Sub App.StopProfiler()
  EndSeconds = New Date
  Msgbox("Total(" + Format( Val(Str( EndSeconds.Second - StartSeconds.Second ))  , "00" )  +") Seconds" )
End Sub

3. Call it like this

Call App.StartProfiler
'Code goes here
Call App.StopProfiler

Example Code:
===================================

Sub Buttons.Action()
  ListBox1.DeleteAllRows
  Call App.StartProfiler
  For i As Integer = 1 to 5000
    App.DoEvents(1)
    Window1.ListBox1.AddRow Str(i)
  Next
  Call App.StopProfiler
End Sub

simulanics · **Posted:** Sat Sep 29, 2012 1:27 pm

**app.doevents is for console based apps generally

Awesome :-)

charonn0 · **Posted:** Sat Sep 29, 2012 9:14 pm

You could also use Microseconds instead of a Date to measure periods shorter than 1 second.

	Real Software Forums The forum for Real Studio and other Real Software products.
[ REAL Software Website \| Board Index ]

Real Software Forums

AppProfiler - Calculate Code Speed