TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 14th Nov 2004 04:24

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This is a speed application measurement.

Full Description

Documentation Included.<br /> System information diagnostics included.<br /> Please feel free posting your tools / plug-ins.<br /> Thank you.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: Loop count

Rem Created: 13/11/2004 7:36:13 Î¼Î¼

Rem ***** Main Source File *****

global choice=0

global switch$="off"

Width=800

Height=600

Depth=32

set display mode Width, Height, Depth

hide mouse

print "Function selection: "

print "1.Loop count"

print "2.Loop count enhanced with 'Fastsync' and 'screen fps()' commands."

print " "

Input "Choice (1-2): ",choice

if (choice=1)then:Loop_count()

if (choice=2)then:Loop_count_enhanced()

end

function Loop_count_enhanced()

time=timer()

cls

sec=(timer()-time)/1000

if ( sec=same) then:number=number+1

if (sec<>same) then:same=sec :number=0

if (number>speed_loop) then:speed_loop=number

set cursor 0,0

print "Time elapsed: ",sec

set cursor 0,15

print "Looping per second :" ,speed_loop

set cursor 0,30

print "Fastsync status ('O'/'F'): ",switch$

set cursor 0,60

print "Press any 'enter' key for initialization."

if (KEYSTATE(28)) then:speed_loop=0

if (KEYSTATE(156)) then:speed_loop=0

if (KEYSTATE(24)) then:switch$="on":speed_loop=0

if (KEYSTATE(33)) then:switch$="off":speed_loop=0

text 20,screen height()-40,desc$

fps$="DBPro Fps: "+str$(screen fps())

text screen width()-20-text width(fps$),screen height()-40,fps$

if (switch$="off") then:sync off

if (switch$="on") then:fastsync

loop

endfunction

function Loop_count()