NJFBOA - Home of New Jersey's Camaros and Firebirds

NJFBOA - Home of New Jersey's Camaros and Firebirds (http://www.njfboa.org/forums/index.php)
-   Lounge (http://www.njfboa.org/forums/forumdisplay.php?f=26)
-   -   Who knows QBASIC? (http://www.njfboa.org/forums/showthread.php?t=22179)

ar0ck 12-13-2006 03:20 PM

Who knows QBASIC?
 
Does anyone have any basic knowledge of QBASIC. I have this really dumb project due and right now I am absolutely clue-less as what to do.

I have to make something animate across the screen using basic FOR & NEXT style commands in Screen 9. The teacher wrote a really basic program of a car driving across the monitor and I can't seem to imitate it with something else.

Does anyone have any old programs of something, or maybe help with some pointers or commands?

jimmyboy8301 12-13-2006 03:25 PM

what the **** is it?

misterjuice 12-13-2006 03:43 PM

READ s$
'CLS
'INPUT "Enter a string"; s$
CLS
i = 1
lft = 40 - LEN(s$) / 2'34
tp = 12
ln = LEN(s$) '20
j = 1

FOR z = 1 TO 23
LOCATE z, lft: PRINT s$
NEXT
DO

FOR i = 1 TO LEN(s$)
LOCATE tp, lft

PRINT MID$(s$, i, ln);
IF i + ln + 1 >= LEN(s$) THEN PRINT MID$(s$, 1, (i + ln) - ln - 1)

FOR k = 1 TO 1500
IF UCASE$(INKEY$) = "Q" THEN END
NEXT

NEXT i
LOOP
DATA "-==--==--==--==--==--==--==--==--==-"

curt86iroc 12-13-2006 06:49 PM

whoa, qbasic is like high school....man im old.......

ar0ck 12-13-2006 06:52 PM

Quote:

Originally Posted by jimmyboy8301 (Post 295127)
what the **** is it?

The most basic of all basic programing.

Its considered a math class for me. I figured it out though.

Brando56894 12-16-2006 04:43 PM

actually the most basic would prolly be BASIC :-P


All times are GMT -5. The time now is 04:42 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.