Anyone can edit my work!

If you have questions about any aspect of QBasic programming, or would like to help fellow programmers solve their problems, check out this board!

Moderators: Pete, Mods

Post Reply
vplazed
Newbie
Posts: 3
Joined: Tue May 12, 2009 5:46 pm

Anyone can edit my work!

Post by vplazed »

I need someone who can edit and animate my work. Just make my work look good. thx in advanced.

Diamond needs to be center and animated.

CLS
SCREEN 12

LINE (200, 20)-(400, 20), 14
LINE (400, 20)-(450, 100), 14
LINE (200, 20)-(150, 100), 14
LINE (150, 100)-(450, 100), 14
LINE (150, 100)-(300, 250), 14
LINE (300, 250)-(450, 100), 14
LINE (250, 20)-(200, 100), 14
LINE (400, 20)-(375, 100), 14

My Name needs to be center and it animated

CLS
SCREEN 13
LINE (1, 1)-(25, 40), 12
LINE (25, 40)-(45, 1), 12
COLOR 12
LINE (60, 1)-(100, 1), 12
LINE (80, 1)-(80, 40), 12
LINE (60, 40)-(100, 40), 12
LINE (120, 1)-(120, 40), 12

CIRCLE (120, 12), 15, 12, 270 * 3.14 / 180, 90 * 3.14 / 180


Lottery make it look nice and it animated

CLS
RANDOMIZE TIMER
PRINT TAB(25); "$$$$$$$$$$$$$$$$$$$$$$$"
PRINT TAB(25); "$"; "WINNING TICKETS STORE"; "$"
PRINT TAB(25); "$$$$$$$$$$$$$$$$$$$$$$$"
PRINT

20 INPUT "PICK3 OR PICK4:", A
IF NOT A = 3 AND NOT A = 4 THEN
PRINT "Press 3 for Pick 3 OR Press 4 for Pick 4"
END IF
PRINT

INPUT "How many times you want to play?", n

FOR b = 1 TO n

PRINT
PRINT "Your winning number is:";
FOR X = 1 TO A
PRINT INT(RND * 10);
NEXT X

NEXT b
PRINT
INPUT "Do you want to play agian?", X$
IF X$ = "y" THEN GOTO 20

PRINT
PRINT TAB(25); "Good Luck!"
END


Screen Saver Edit anything that u don't like

CLS
SCREEN 12
RANDOMIZE TIMER
DO
CLS
LET X = 15
LET Y = 10
LET DX = 2
LET DY = 2

C = INT(RND * 14) + 1
FOR L = 1 TO 100
210 LET XN = X + DX
LET YN = Y + DY

IF XN = 0 OR XN = 640 THEN LET DX = -DX: C = INT(RND * 15) + 1
IF YN = 0 OR YN = 480 THEN LET DY = -DY: C = INT(RND * 15) + 1

REM CIRCLE (X, Y), 100, 0
CIRCLE (XN, YN), 1, C
REM PSET (XN, YN), 3

LET X = XN: LET Y = YN
REM FOR I = 1 TO 600: NEXT I
IF INKEY$ <> "" THEN END
GOTO 210
NEXT L
LOOP

Tennis Field animate it and look like if it is a real tennis filed.

CLS
SCREEN 12
PAINT (500, 220), 2
LINE (50, 50)-(600, 50), 15
LINE (50, 50)-(50, 400), 15
LINE (600, 50)-(600, 400), 15
LINE (50, 400)-(600, 400), 15
LINE (50, 85)-(600, 85), 15
LINE (50, 370)-(600, 370), 15
LINE (500, 370)-(500, 85), 15
LINE (360, 370)-(360, 85), 15
LINE (300, 370)-(300, 85), 15
LINE (150, 370)-(150, 85), 15
LINE (150, 220)-(300, 220), 15
LINE (500, 220)-(360, 220), 15

PLZ. THX in advanced.
User avatar
floogle11
Veteran
Posts: 71
Joined: Sat May 02, 2009 7:08 pm
Location: Zorgon planet
Contact:

Dude

Post by floogle11 »

Why do we have to do it yourself! :evil:
Go to my Qbsite its: Trueqb.webs.com
Or if you play nazi zombies go to www.Nazizombys.com and register for cheats, hints, and strategys.
Post Reply