Today's Posts Mark Forums Read Calendar
Go Back   NJFBOA - Home of New Jersey's Camaros and Firebirds > Community Forums > Lounge

Notices


Reply
 
Thread Tools
Old 12-13-2006, 03:20 PM   #1
ar0ck
Resident Camera Guy
 
ar0ck's Avatar
 
Join Date: Aug 2004
Location: North Jersey
Posts: 10,971
iTrader: (2)
Social Networks:

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?
__________________
ar0ck is offline   Reply With Quote
Old 12-13-2006, 03:25 PM   #2
jimmyboy8301
12 Second Club
 
jimmyboy8301's Avatar
 
Join Date: Jun 2005
Location: Burlington County
Posts: 1,850
iTrader: (0)
what the **** is it?
__________________
James

2008 Chevy Silverado LTZ Vortec Max
Superlift/BMF/Toyo/EFI Live/K&N/Cherry Bomb/Pioneer/Alpine/Bose/and more
2001 Chevy Camaro SS SOM build #487 12.44 @ 107.92 *SOLD*
jimmyboy8301 is offline   Reply With Quote
Old 12-13-2006, 03:43 PM   #3
misterjuice
 
misterjuice's Avatar
 
Join Date: Sep 2004
Location: Wayne, NJ
Posts: 2,131
iTrader: (0)
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 "-==--==--==--==--==--==--==--==--==-"
__________________
STROKIN' IT SINCE 09/03/06

2008 G8 GT Ignition Orange - New Era OTR intake, PM-FL Axle Back, SuperChips Cortex Tune
misterjuice is offline   Reply With Quote
Old 12-13-2006, 06:49 PM   #4
curt86iroc
 
curt86iroc's Avatar
 
Join Date: Sep 2004
Location: nj/pa
Posts: 273
iTrader: (0)
whoa, qbasic is like high school....man im old.......
__________________
1990 IROC-Z - L98 G92 and some go fast goodies
1999 Blazer - ZR2 and some off road goodies
curt86iroc is offline   Reply With Quote
Old 12-13-2006, 06:52 PM   #5
ar0ck
Resident Camera Guy
 
ar0ck's Avatar
 
Join Date: Aug 2004
Location: North Jersey
Posts: 10,971
iTrader: (2)
Social Networks:

Quote:
Originally Posted by jimmyboy8301 View Post
what the **** is it?
The most basic of all basic programing.

Its considered a math class for me. I figured it out though.
__________________
ar0ck is offline   Reply With Quote
Old 12-16-2006, 04:43 PM   #6
Brando56894
15 Second Club
 
Join Date: Jul 2005
Location: Vineland
Posts: 6,621
iTrader: (0)
actually the most basic would prolly be BASIC
__________________
- Founder of the bunny
- Pancake Bunny Club Member #3

OG!
Brando56894 is offline   Reply With Quote
Reply

  NJFBOA - Home of New Jersey's Camaros and Firebirds > Community Forums > Lounge


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

» Sponsor List














All times are GMT -5. The time now is 12:28 AM.


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