is it possible to get cpu name and speed

Author

Message

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 13th Nov 2010 18:31

Link

I know that it is possible to get name of the current graphics adapter and its memory, but is it possible to get name and speed and maybe number of cpu's of the computer?

Back to top

Profile PM Email

bergice

19

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 13th Nov 2010 18:42

Link

I know the Enhancement pack has some CPU commands: http://www.thegamecreators.com/?m=view_product&id=2083

51fa1db0ec7c4af52d93a6f5d0e86bc5

Back to top

Profile PM Email

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 13th Nov 2010 19:08 Edited at: 13th Nov 2010 19:20

Link

+ Code Snippet

Rem CPU Tests
get registry$("HARDWARE\DESCRIPTION\System\CentralProcessor\0","ProcessorNameString")
get registry$("HARDWARE\DESCRIPTION\System\CentralProcessor\0","VendorIdentifier")
str$(get registry("HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz"))+" Mhz"
get registry$("HARDWARE\DESCRIPTION\System\CentralProcessor\0","Identifier")

This is how I do it

Works with Win XP, Vista and 7

>Edit<
Not a complete snippet, I hacked it out of my Autoreporter function but it should give you the general idea.

>Edit 2<
How are you obtaining the display memory? I've been unable to get system dmem available() to work on Win 7, and Green Gandalf reported that the command was not working on his XP system either, possibly indicating that its Update 7.5 at fault.

Back to top

Profile PM Email Website

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 13th Nov 2010 22:04 Edited at: 13th Nov 2010 22:17

Link

Try this, but just so you know there will be major slowdown on your computer. My system is 32-bit XP and this works fine.

+ Code Snippet

TotalMemory$=str$(system tmem available())
VideoMemory$=str$(system dmem available())
SystemMemory$=str$(system smem available())

text 0,0,"Total memory available: "+TotalMemory$
text 0,10,"Video memory available: "+VideoMemory$
text 0,20,"System memory available: "+SystemMemory$

do
sync
loop
end

how can i print out second command in your code, and what should i do if someone has more then one processor (multi-core processor)

Back to top

Profile PM Email

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 13th Nov 2010 22:27 Edited at: 13th Nov 2010 22:28

Link

+ Code Snippet

text 0,0,get registry$("HARDWARE\DESCRIPTION\System\CentralProcessor\0","ProcessorNameString")
text 0,25,get registry$("HARDWARE\DESCRIPTION\System\CentralProcessor\0","VendorIdentifier")
text 0,50,str$(get registry("HARDWARE\DESCRIPTION\System\CentralProcessor\0","~MHz"))+" Mhz"
text 0,75,get registry$("HARDWARE\DESCRIPTION\System\CentralProcessor\0","Identifier")

wait key

This will print it all on the screen in a neat fashion for you. In my original code, it was saved out as a text file so I just cut out the bits which told you the information.

I'm not sure about multiple cpu's, but it works fine for multi core cpu's.

And your snippet crashed in the same way on both my PC's. Are you running the latest update of DBP? (Update 7.5)

Back to top

Profile PM Email Website

nruser

18

Years of Service

User Offline

Joined: 22nd Dec 2007

Location: Serbia

Posted: 13th Nov 2010 23:57

Link

yes i have latest update 7.5

Back to top