I ned to know how long some code need to execute... can you give me some hints on how to measure this in seconds..?

Thanks
 Crirus

Armin

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

microsec = millisec * 1000

Remember that TickCount has millisecond resolution and that it doesn't make
sense to convert the value to mucroseconds (no higher precision).

Regards,
Herfried K. Wagner

Armin

Dim s As Long

s = DateTime.Now.Ticks
'code
s = DateTime.Now.Ticks - s
MsgBox("Elapsed time: " & (s/10) & " microseconds)

--
If you don't like lunchmeat, please remove it from my e-mail address to
send me an e-mail

      Dim j, l, s As Long
      Dim i As Integer
      s = Date.Now.Ticks
      Do
         j = Date.Now.Ticks
         If l <> j Then
            i += 1
            l = j
         End If
      Loop Until j - s >= 10000000    'loop 1 second
      MsgBox(i)

Msgbox shows 100 or 101, i.e. 100 differnt values per second.

To get the best resolution, use pInvoke
(QueryPerformanceCounter/QueryPerformanceFrequency)

Armin

Have a running code on this issue, please?

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--
Daniel Okely
dbokely at yahoo.com.au

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Public Declare Auto Function QueryPerformanceCounter _
   Lib "kernel32.dll" (ByRef Counter As Long) As Integer
Public Declare Auto Function QueryPerformanceFrequency _
   Lib "kernel32.dll" (ByRef counter As Long) As Integer

This is my class for encapsulation:

   Public NotInheritable Class HPCounter

      Private Shared m_Frequency As Long

      Shared Sub New()
         Win32.QueryPerformanceFrequency(m_Frequency)
      End Sub

      Private Sub New()
      End Sub

      Public Shared ReadOnly Property Counter() As Long
         Get
            Dim Result As Long
            Win32.QueryPerformanceCounter(Result)
            Return Result
         End Get
      End Property

      Public Shared ReadOnly Property Frequency() As Long
         Get
            Return m_Frequency
         End Get
      End Property

      Public Shared ReadOnly Property Seconds() As Double
         Get
            Return Counter / m_Frequency
         End Get
      End Property

   End Class

Put the two API declarations into a class called Win32.

Armin