if you post results can you please include the full name of your CPU run CPUid if your not 101% sure
* speedtest 8 is the main test
*the multicore speedtest ( a few posts down ) only seems to work with winxp
CPUid Fritzbench & speedtest7.exe ( the exe is downloadable, so if granny or your gerbil want to run the test they can )
http://asimov1.wikispaces.com/Download+Benchmarks
Code: Select all
'speed test version 8
'#include "windows.bi"
'SetPriorityClass( GetCurrentProcess(), HIGH_PRIORITY_CLASS )
dim i as ULONGINT
dim mem as integer
dim st as double
dim fin as double
dim mips as double
dim q as integer
cls:color 7
?" paused here so you can mess with priority in windows task manager"
input "...hit enter to start";q
mem = FRE
?:?" Free memory:" ;mem \ (1024 * 1024); " megabytes"
?:?" starting Free Basic speed test......approx 10 seconds":?:sleep 100
st = TIMER :?" start "; st , timer
for i = 1 to 2500000000:next i
fin = TIMER :?" finish "; fin , timer
?: color 13: ?" time = " ;fin-st;" i = ";i;" how many loops done in total"
i=i/1000000
mips = i/ (fin-st)
?:?" mips = "; mips; " FreeBASIC for next loop instructions X 1 million"
color 15:?:
'?""
?" 500 Mhz Pent III = 68"
?" Celeron 2600 = 180"
?" Sepmron 2600+ = 305"
?" Athalon 2000+ = 330"
?""
?" Atom N450 2 core = 235 * task manager cpu usage was showing 50% "
?" Atom N450 2 core = 335 * running 2 progs at once cpu usage 100% "
?
?" hit enter to exit":
sleep: end
'DIM variable AS ULONGINT
'A 64-bit unsigned whole-number data type. Can hold values from 0 to 18 446 744 073 709 551 615
Original post
Simple speed Benchmark with comparisons
if you have a dual core or an i7 plz post your times, so i can add them
Code: Select all
'speed test version 3
dim i as ULONGINT
dim mem as integer
dim st as SINGLE
dim fin as SINGLE
dim mips as single
cls:color 7
mem = FRE
?:?" Free memory:" ;mem \ (1024 * 1024); " megabytes"
?:?:?:?" starting speed test.........approx 10 seconds":?:sleep 100
st = TIMER :?" start "; st , timer
for i = 1 to 1000000000 : next i
fin = TIMER :?" finish "; fin , timer
?: color 10: ?" time = " ;fin-st
i=i/1000000
mips = i/ (fin-st)
?:?:?:?" mips = "; mips; " million for next loop instructions"
color 7:?:
?" Celeron 2600 = 180"
?" Atom N450 = 235"
?" Sepmron 2600+ = 305"
?
?" hit enter to exit":
sleep: end
added thanks MichaelW
this code below can boost the performance of your progs by about 5% and prolly more importantly help ensure that your FB prog is the one that stays hogging the cpu
Code: Select all
#include "windows.bi"
SetPriorityClass( GetCurrentProcess(), HIGH_PRIORITY_CLASS )
added
thread " what pc have you got"
http://www.freebasic.net/forum/viewtopi ... 552#155552
speedtest7 is available for dload in exe form (stripped down version of 6)
should any who doesn't have FB installed want try it
http://freebasicportal.wikispaces.com/FB+app%27s