BlitzCoder Essentials
•
Home Page
•
About BlitzCoder
•
Contributors
•
Terms of Use
•
Email Us
Main Areas
•
BlitzCoder Chat
•
Discussions
•
Articles/Tutorials
•
Code Database
•
Link Database
•
Showcase Area
•
Worklogs
•
Competitions
Special Areas
•
Undocumented
Other Blitz Sites
•
Blitz Basic Home
•
Blitz Showcase
•
BlitzPlay Library
Forum Login
Username:
Password:
•
Register Now!
BlitzCoder Code Archives Page
Main Codes Page
"Frames Per Second code"
, by spaceface
A small piece of code to show the Frames Per Second. You may want to add an Cls() if there isn't one already in the 'If MilliSecs() ...' statement.
Code
While Not KeyHit(1) ; START FPS system If bSettime = True iSecStart = MilliSecs(); iFrameStart = iFrameCount; bSettime = False; EndIf If MilliSecs() >= iSecStart + 1000 iFPS = iFrameCount - iFrameStart; bSettime = True; EndIf Text(0,0,"FPS: " + iFPS); iFrameCount = iFrameCount + 1 ; END FPS system Wend
Copyright(c) 2000-2004, BlitzCoder. All Rights Reserved.
Code software created by Krylar's Kreations
