FreeBasic ScreenSaver!

[Rattrapmax6]

I been forgetting about this too long (made this yesterday)... anyway here is the link to my first screen saver coded in FreeBasic. Thanks to dumbledore and some code he shared on the topic. :wink:

http://members.aol.com/rattrapmax6/download/FBSVR.zip

Contents go in the Windows folder, the screen saver wizard in display properties will find it there.. :wink:

[MystikShadows]

Excellent Work...it's now my official screensaver ;-). Way to go Ratttrap ;-)..

[DrV]

Hey, pretty doggone neat. Source code? Or at least a guide to building a screensaver?

[dumbledore]

it's really easy, someone posted a while ago on how to do it, but here's the basics:
add something like

Code:

if left$( command$, 2 ) = "/c" then end
if left$( command$, 2 ) = "/p" then end

to the beginning of your program (so it doesn't kill the windoze screensaver dialog), make sure you can exit using the mouse, compile, and rename the exe to a .scr and you're done.

[Rattrapmax6]

lol,.. thanks.. :wink:

I got to expermenting with those parses, you can add this to them like I did so when ppl hit settings it will give them a message,.. or you can make actual settings..:

Code:

if left$( command$, 2 ) = "/c" then
    SCREEN 13
    PRINT "Sorry, No settings avaliable..."
    PRINT
    PRINT "Screen Saver Made by Kevin(Rattrapmax6)"
    PRINT
    PRINT "Press any key to end..."
    SLEEP
    end
END IF
if left$( command$, 2 ) = "/p" then END

:wink:

[Imortis]

Could someone host that on FileAnchor? I'm on a college network and downloads are blocked from your site.

[Rattrapmax6]

That's odd... but neway:

Download FBSVR.zip

:wink:

[red_Marvin]

So... to make a screensaver one would just have to
watch out for command$ and rename the exe to scr?

I saw some allegro example some time ago that included winapi
stuff, but maybe that was only to fetch the parameters and communicate
with the preview window...

I'll have to check this out!

[Sebastian]

Hi!

Very nice!

I've just one suggestion: Put a

Code:

SLEEP 1

into your loops because otherwise your program will cause 100% CPU operating rate on Windows 2000 and XP.

Sebastian

[Rattrapmax6]

Um.. I was under the impression SLEEP was a power robber,. or something to do with memory... not sure, but I knoe to avoid it as much as I can... I use:

Code:

DO
T! = TIMER

'Code

DO: LOOP UNTIL (TIMER - T!) >= 0.01
LOOP UNTIL INKEY$ <> ""

Much better delay... :wink:

Edit: :oops: I hit Submit by accedent.. code repiared... :roll: :wink: