Qbasicnews.com

Pages: 1 2

I made all these (black and white) screen savers in my spare time. all three create an optical effect. here they are!

Name: BoxySnake
Platform: QuickBasic
Progress : 100%
Description : Creates a really cool boxy looking snake that bounces around the screen.

Code:
QBASIC:

DIM x(35), y(35)

DIM xm(34), ym(34)

cnt = 1

FOR n = 5 TO 170 STEP 5

        cnt = cnt + 1

        x(cnt) = n

        y(cnt) = n

NEXT

FOR n = 1 TO 34

        xm(n) = -1

        ym(n) = -1

NEXT n

SCREEN 7, 0, 1, 0

DO

press$ = INKEY$

FOR n = 1 TO 34

        IF x(n) < 1 THEN xm(n) = -xm(n)

        IF y(n) < 1 THEN ym(n) = -ym(n)

        IF x(n) + 50 > 320 THEN xm(n) = -xm(n)

        IF y(n) + 30 > 200 THEN ym(n) = -ym(n)

NEXT n

FOR n = 1 TO 34

        x(n) = x(n) + xm(n)

        y(n) = y(n) + ym(n)

NEXT n

PCOPY 1, 0

CLS

FOR n = 2 TO 34

        RANDOMIZE TIMER

        r = INT(10 * RND) + 1

        LINE (x(n), y(n))-(x(n) + 50, y(n) + 30), 15, B

NEXT n

LOOP UNTIL press$ <> ""

Name: circles
Platform: QuickBasic
Progress : 100%
Description : staticy looking circles in a strait line bouncing around your screen.

Code:
QBASIC:

DIM x(35), y(35)

DIM xm(34), ym(34)

cnt = 1

FOR n = 5 TO 170 STEP 5

        cnt = cnt + 1

        x(cnt) = n

        y(cnt) = n

NEXT

FOR n = 1 TO 34

        xm(n) = -1

        ym(n) = -1

NEXT n

SCREEN 7, 0, 1, 0

DO

press$ = INKEY$

FOR n = 1 TO 34

        IF x(n) < 1 THEN xm(n) = -xm(n)

        IF y(n) < 1 THEN ym(n) = -ym(n)

        IF x(n) + 10 > 320 THEN xm(n) = -xm(n)

        IF y(n) + 10 > 200 THEN ym(n) = -ym(n)

NEXT n

FOR n = 1 TO 34

        x(n) = x(n) + xm(n)

        y(n) = y(n) + ym(n)

NEXT n

PCOPY 1, 0

CLS

FOR n = 2 TO 34

        RANDOMIZE TIMER

        r = INT(10 * RND) + 1

        CIRCLE (x(n), y(n)), r

NEXT n

LOOP UNTIL press$ <> ""

Name: Tunnel
Platform: QuickBasic
Progress : 100%
Description : Tunnel effect, really cool. i wish i could use it as my current screen saver.

Code:
QBASIC:

DIM x(35), y(35)

DIM xm(34), ym(34)

cnt = 1

FOR n = 5 TO 170 STEP 5

        cnt = cnt + 1

        x(cnt) = n

        y(cnt) = n

NEXT

FOR n = 1 TO 34

        xm(n) = -1

        ym(n) = -1

NEXT n

SCREEN 7, 0, 1, 0

DO

press$ = INKEY$

FOR n = 1 TO 34

        IF x(n) < 1 THEN xm(n) = -xm(n)

        IF y(n) < 1 THEN ym(n) = -ym(n)

        IF x(n) + 10 > 320 THEN xm(n) = -xm(n)

        IF y(n) + 10 > 200 THEN ym(n) = -ym(n)

NEXT n

FOR n = 1 TO 34

        x(n) = x(n) + xm(n)

        y(n) = y(n) + ym(n)

NEXT n

PCOPY 1, 0

CLS

FOR n = 2 TO 34

        RANDOMIZE TIMER

        r = INT(10 * RND) + 1

        CIRCLE (x(n), y(n)), n * n

NEXT n

LOOP UNTIL press$ <> ""

You can make all of it as your current screensaver by using DOSSAVER. PM DAV on the specifics. :*)

so if I put that Dossaver.pm.dav at the beginning or end of any program I make, it will become a screensaver?

Quote:so if I put that Dossaver.pm.dav at the beginning or end of any program I make, it will become a screensaver?

no. the person named dav has something called dossaver...
privite messaged him him for details

Quote:no. the person named dav has something called dossaver...
privite messaged him him for details

What he means to say is PM Dav(whose an admin over here) about his "DOS SAVER" program. That will help you make your screenie in DOS.

once again, another useless post from TBBQ. whitetiger said it fine, it didn't need re-interpruting...

anywho, my computer sucks now. so i couldn't really put it as a screen saver without my computer crashing

Quote:What he means to say is PM Dav(whose an admin over here) about his "DOS SAVER" program. That will help you make your screenie in DOS.

No I meant to said what I did say... Which acctually ends up begin the same thing what you said.

wow mech! good job. 'play around' a little more! Wink

well those are some pretty precious gems you have yourself there.

btw agamemnus- i got those books you were asking about. pm me

Quote:...privite messaged him him for details

IMO, that wasnt very clear =P

Quote:no. the person named dav has something called dossaver...
privite messaged him him for details

That's clear... (even if it's poorly spelled Tongue

)

Quote:[...]That will help you make your screenie in DOS.

That' wasn't very clear.

Here's what TBBQ meant:
PM Dav about his DOSSAVER program. That will help you make your screenie in DOS.

You see, you have to read the entire post a person made. BEFORE you quote a part of it saying it's not clear enough. I know, I know, why should YOU have to read the whole post. But really, it's a lot easier for you to understand if you do.

Stop the useless posts already. At first it didn't bother me but now, you're really taking it to extremes tbbq.

Quote:IMO, that wasnt very clear =P

IMO. That was just another useless post, I think we all understood that you didn't think it was clear when you explained a perfectly clear sentence, which the rest of us understood perfectly.

Pages: 1 2

Mech1031

relsoft

Liquid Snake

whitetiger0990

TheBigBasicQ

Mech1031

whitetiger0990

speedlemon

TheBigBasicQ

Z!re