Qbasicnews.com
May 26, 2018, 02:44:45 PM *
Welcome, Guest. Please login or register.

Login with username, password and session length
News: Back to Qbasicnews.com | QB Online Help | FAQ | Chat | All Basic Code | QB Knowledge Base
 
   Home   Help Search Login Register  
Pages: [1]
  Print  
Author Topic: 3D-ish Screen savers  (Read 4549 times)
Mech1031
Na_th_an
*****
Posts: 1536



WWW
« on: March 29, 2004, 09:07:06 PM »

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$ <> ""


Logged

the mind is a beautiful thing, use it and make the world a more beautiful place.
relsoft
*/-\*
*****
Posts: 3927



WWW
« Reply #1 on: April 01, 2004, 08:43:14 AM »

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

y smiley is 24 bit.


Genso's Junkyard:
http://rel.betterwebber.com/
Liquid Snake
Wandering Guru
***
Posts: 354



WWW
« Reply #2 on: April 04, 2004, 02:22:55 PM »

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

Not yet Snake! It's not over yet!
whitetiger0990
__/--\__
*****
Posts: 2964



WWW
« Reply #3 on: April 04, 2004, 02:36:51 PM »

Quote from: "Liquid Snake"
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
Logged


[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
TheBigBasicQ
*/-\*
*****
Posts: 4549



WWW
« Reply #4 on: April 04, 2004, 04:29:13 PM »

Quote from: "whitetiger0990"
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.
Logged
Mech1031
Na_th_an
*****
Posts: 1536



WWW
« Reply #5 on: April 04, 2004, 08:00:27 PM »

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
Logged

the mind is a beautiful thing, use it and make the world a more beautiful place.
whitetiger0990
__/--\__
*****
Posts: 2964



WWW
« Reply #6 on: April 04, 2004, 08:01:44 PM »

Quote from: "TheBigBasicQ"
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.
Logged


[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
speedlemon
I hold this place together
*****
Posts: 874



« Reply #7 on: April 04, 2004, 09:35:44 PM »

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
Logged
TheBigBasicQ
*/-\*
*****
Posts: 4549



WWW
« Reply #8 on: April 05, 2004, 07:34:13 AM »

Quote from: "whitetiger"
...privite messaged him him for details


IMO, that wasnt very clear =P
Logged
Z!re
*/-\*
*****
Posts: 4599


« Reply #9 on: April 05, 2004, 08:17:25 AM »

Quote from: "whitetiger"
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 from: "tbbq"
[...]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 from: "tbbq"
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.
Logged
whitetiger0990
__/--\__
*****
Posts: 2964



WWW
« Reply #10 on: April 05, 2004, 08:44:03 AM »

Quote from: "Z!re"
That's clear... (even if it's poorly spelled Tongue )

hehe... I was running late for dinner.
oh and too make this sentence not useless.
.
I like the boxy snake one. Becuase it's... boxy.... yea
Logged


[size=10]Back by popular demand!
I will byte and nibble you bit by bit until nothing remains but crumbs.[/size]
TheBigBasicQ
*/-\*
*****
Posts: 4549



WWW
« Reply #11 on: April 05, 2004, 10:14:52 AM »

Z!re stop mincing words =P. I had a lot of free time, after a long time :lol:
Logged
Mech1031
Na_th_an
*****
Posts: 1536



WWW
« Reply #12 on: April 05, 2004, 03:37:18 PM »

Quote
I had a lot of free time

Sounds like thats not an issue you need to bring upon this forum.  next time you post, try and make it useful.

Speedlemon.  if you want you can have some fun and change the code around.  come up with some really sweet results.
Logged

the mind is a beautiful thing, use it and make the world a more beautiful place.
TheBigBasicQ
*/-\*
*****
Posts: 4549



WWW
« Reply #13 on: April 05, 2004, 04:11:14 PM »

Hmph! Thats like the 4th or 5th post you have told me the same thing and I am not liking it very much.... :wink:
Logged
speedlemon
I hold this place together
*****
Posts: 874



« Reply #14 on: April 05, 2004, 08:07:55 PM »

well mech, im not that good of a coder.  so ill leave that up to you. im sure i could change some but wouldnt come up with any sweet results since i dont know what any of the code means.  but i could try to mess around a bit because i do have a lot of free time.  :wink:  if i do come up with anything, ill be sure to post it tho.    Cheesy  Smiley  Sad  Shocked  :-?  :Huh:  Cool  :lol:  :x  Tongue  :cry:  :evil:  :roll:  :wink:  :normal:  :rotfl:  :barf:  :king:  :bounce:  :humm:  :na_th_an:  :shifty:  :red_marvin:  :neo:


<off topic>aga... im still waiting for your pm....</off topic>
Logged
Pages: [1]
  Print  
 
Jump to:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!