Code: Select all
' FreeBasic - CPU Speed Tester
' (C) 2006 i-TECH and Kristopher Windsor
Screenres 640, 480, 32,, 1
Dim t As Double, a As Double, sprite As Uinteger Ptr = imagecreate(100, 100), total As Double = 0
Sleep 1000
Print "Test 1...."
t = Timer: For a = 0 To 99999999: Next a: t = Timer - t
Print Int(750 * 1.7 / t); " mHz"
total += (750 * 1.7 / t)
Print "Test 2...."
t = Timer: For a = 0 To 99999: Circle (320, 240), a / 500, &HFFFFFFFF: Next a: t = Timer - t
Print Int(750 * 6.6 / t); " mHz"
total += (750 * 6.6 / t)
Print "Test 3....";
t = Timer: For a = 0 To 99999: Locate , 12: Print Time$;: Next a: t = Timer - t
Print: Print Int(750 * 3.2 / t); " mHz"
total += (750 * 3.2 / t)
Print "Test 4...."
Get (100, 100) - (199, 199), sprite
t = Timer: For a = 0 To 9999: Put (100, 100), sprite, alpha, 100: Next a: t = Timer - t
Print Int(750 * 1.8 / t); " mHz"
total += (750 * 1.8 / t)
Print
Print "Results..."
Print Int(total / 4); " mHz"
Sleep: System