CPU Speed

BackupUser · Post by **BackupUser** » Thu Sep 12, 2002 1:15 am

Restored from previous forum. Originally posted by Hi-Toro.

Hi all,

This should return the CPU speed (might not work on 486 or lesser CPUs though). It takes 1 second to measure the speed...

Code: Select all

Structure bit64
  LowPart.l
  HighPart.l
EndStructure

Procedure CPUSpeed ()

  DefType.bit64 ulEAX_EDX, ulFreq, ulTicks, ulValue, ulStartCounter, ulResult

  QueryPerformanceFrequency_ (ulFreq)
  QueryPerformanceCounter_ (ulTicks)
   
  ulValue\LowPart = ulTicks\LowPart + ulFreq\LowPart

  ! RDTSC
  
  MOV ulEAX_EDX\LowPart, eax
  MOV ulEAX_EDX\HighPart, edx

  ulStartCounter\LowPart = ulEAX_EDX\LowPart

  While (ulTicks\LowPart <= ulValue\LowPart)
    QueryPerformanceCounter_ (ulTicks)
  Wend

  ! RDTSC

  MOV ulEAX_EDX\LowPart, eax
  MOV ulEAX_EDX\HighPart, edx

  ulResult\LowPart = ulEAX_EDX\LowPart - ulStartCounter\LowPart

  ProcedureReturn ulResult\LowPart / 1000000

EndProcedure

; Takes 1 second to calculate...

mhz = CPUSpeed ()
MessageRequester ("CPU Speed", "CPU speed: " + Str (mhz) + " MHz", #MB_ICONINFORMATION)

--
See ya,
James L Boyd.
http://www.hi-toro.com/
--

BackupUser · Post by **BackupUser** » Thu Sep 12, 2002 2:30 am

Restored from previous forum. Originally posted by blueb.

James,
Good one!
I placed the structure "inside" the procedure and
placed the snippet in my UTILITY include file!

Is this going to cause a problem?

Better question is:

"Can structures be placed in procedures and be called from any program, or must
they remain in the top section of the code area?"

Regards,
--blueb

BackupUser · Post by **BackupUser** » Thu Sep 12, 2002 7:06 am

Restored from previous forum. Originally posted by Hi-Toro.

Hi Blue,

It seems to work fine in another program I have, but I haven't checked whether the structure is accessible in other parts of a program...

BTW The code above is a port from C++ -- it's not really my work!

--
See ya,
James L Boyd.
http://www.hi-toro.com/
--

BackupUser · Post by **BackupUser** » Thu Sep 12, 2002 7:39 am

Restored from previous forum. Originally posted by fred.

Structures can be declared anywhere (just before the use)

Fred - AlphaSND

BackupUser · Post by **BackupUser** » Thu Sep 12, 2002 1:20 pm

Restored from previous forum. Originally posted by blueb.

Thanks for the answer Fred.

Some languages do not allow this type of
declaration. It must be in the main procedure block.

PB is like a fine wine. It doesn't jump out at
you but you appreciate it more every day. :>D

Regards,
--Bob

TerryHough · Post by **TerryHough** » Mon Sep 22, 2003 9:50 pm

This snippet looks just like something I needed, but I can't get it to
compile using Vs 3.72.

Maybe I formatted the code wrong.

Does this still work Hi-Toro?

Thanks,
Terry

DominiqueB · Post by **DominiqueB** » Mon Sep 22, 2003 9:56 pm

This code works well for me, didn't you forget to allow assembly in the prefs ?

If yes, what is the error exactly ?

Dominique.

TerryHough · Post by **TerryHough** » Mon Sep 22, 2003 10:05 pm

Had assembly allowed, but just messed up formatting the code
from the unformated post above and couldn't see my goof. Thanks.

I insert the code formatted here for future viewers:

Code: Select all

; from PB forums by Hi-Toro
; post http://jconserv.net/purebasic/viewtopic.php?t=3811&highlight=utility

Structure bit64
  LowPart.l
  HighPart.l
EndStructure 

Procedure CPUSpeed()
  DefType.bit64 ulEAX_EDX, ulFreq, ulTicks, ulValue, ulStartCounter, ulResult
  QueryPerformanceFrequency_(ulFreq)
  QueryPerformanceCounter_(ulTicks)
  ulValue\LowPart = ulTicks\LowPart + ulFreq\LowPart
  
  ! RDTSC
  MOV ulEAX_EDX\LowPart, eax
  MOV ulEAX_EDX\HighPart, edx
  
  ulStartCounter\LowPart = ulEAX_EDX\LowPart
  While (ulTicks\LowPart <= ulValue\LowPart)
    QueryPerformanceCounter_(ulTicks)
  Wend
    
  ! RDTSC
  MOV ulEAX_EDX\LowPart, eax
  MOV ulEAX_EDX\HighPart, edx
  
  ulResult\LowPart = ulEAX_EDX\LowPart - ulStartCounter\LowPart
  ProcedureReturn ulResult\LowPart / 1000000
EndProcedure; Takes 1 second to calculate...
mhz = CPUSpeed()
MessageRequester("CPU Speed", "CPU speed: " + Str (mhz) + " MHz", #MB_ICONINFORMATION)

Thanks to Hi-Toro for this!

Terry

Hi-Toro · Post by **Hi-Toro** » Wed Sep 24, 2003 10:34 am

How did this get dragged up again?

It's really just a simple port of some publicly posted code. Aha! Here's where I got it from:

http://www.codeproject.com/csharp/unmanage.asp

Tranquil · Post by **Tranquil** » Wed Sep 24, 2003 8:30 pm

Does not work on both of my PCs.
Testes on Windows 2000 Latest Servicepack with Pentium IV 2.4 Ghz Notebook and Windows XP Latest Servicepack Pentium IV 2.6GhZ HyperThreaded. Hm, possible I'm to silly to use it.

Cheers
Mike

Dreglor · Post by **Dreglor** » Wed Sep 24, 2003 8:35 pm

it returned with -1702mhz hmm

Post by **freak** » Wed Sep 24, 2003 8:39 pm

here, too: -1862 Mhz... damn, that's slow.

Or maybe somebody invented something similar to the little-endian thingy:
we don't just write backwards in memory... we calculate backwards

Timo

jack · Post by **jack** » Wed Sep 24, 2003 11:48 pm

works perfect on my Athon XP 1800 (real mhz 1600)
with Windows XP Pro

Doobrey · Post by **Doobrey** » Thu Sep 25, 2003 12:45 am

Has anyone here tried the DnCPUSpeed() command from my DnMisc library on fast processors?
btw. lib available at
http://www.doobreynet.co.uk/winpb.html

Hi-Toro · Post by **Hi-Toro** » Thu Sep 25, 2003 10:10 am

Yes, I remember now that there were problems with negative values (probably an unsigned/signed thing?). Someone smarter than me will have to fix it though!

PureBasic Forums - English

CPU Speed

hello.

Eek!

Ah...