QBasic Tutorial 53 - Gorillas Nibbles OpenGL Games Other Program Examples QB64 Code Download

[@lnpattanaik5447]

This is the exact thing I've been doing for a few days, going around through all those hundreds of sample programs

[@sabitadas9535]

Sir, can you make a program on Q test??

[@cboyslim5490]

I remember this game from a QBasic class in jr high school. there was also one where you collect garbage and there were lady bugs or something? qbasic is super cool

[@PrabhaNawani007]

Thanks for sharing this wonderful trick with us !!!!!

[@yunus2801]

Nice, im still learning from ur pascal tutorial.... thank you

[@anitaraj4217]

inglis ded

[@daliborvujic1482]

Thank you , keep making qbasic videos.I wanted to ask you how to make a program that you enter how many numbers you want an array to have then you input the numbers into the array and after that you sort them from biggest to smallest.I need it for next Monday please help me.

[@gekotagirl]

Hi! I think I saw your comment once before, or someone had a comment similar. Here is what I came up with.
-----------------------------
' #DYNAMIC
DIM x AS STRING 'used for input by the user
DIM counter AS INTEGER 'the counter will be used to determine how many numbers the array needs
counter = 1 'must set the counter to 1
DIM num(1 TO counter) AS STRING 'this sets the first number in the array to be 1 instead of 0
DO
CLS
PRINT "Please Enter a Number. Press Q to quit."
PRINT
'Redim allows you to re-declare a variable in the middle of the program.
'_PRESERVE is used to keep the data from the previous varibales, without that it would set all variables to once they cycle through
REDIM _PRESERVE num(1 TO counter) AS STRING
PRINT "Please Enter a Number, Num("; LTRIM$(STR$(counter)); "): ";
INPUT "", x 'this is where the user inputs the number
num(counter) = x 'this sets the current array to equal x (the input number)
counter = counter + 1 'this counts up the number of arrays
LOOP UNTIL x = "Q" OR x = "q" 'using Q to quit break the loop
counter = counter - 2 'we need to subtract this by 2. 1) because we need to erase the "Q" and 2) we need to do this to print the array
DIM numTotal(counter) AS INTEGER 'will be to help sort numbers
FOR i = 1 TO counter
numTotal(i) = VAL(num(i)) 'converts all numbers to integers
NEXT i
PRINT
FOR OUTER = 1 TO counter 'first array
FOR INNER = OUTER + 1 TO counter 'array after first array
IF numTotal(OUTER)

[@Raj-xq5rb]

From where can we download these codes

[@purnimajaiswal7875]

does it work on windows 10

[@raginibichpuria9129]

You make this in which

[@Walid.Hammas]

awsome

[@SpikeThePorcupine23]

nice work

[@spritualchantsinspiredbymo9540]

this is good

[@sciencekafunda305]

oh this is so good

[@mad-lazyaligator6179]

😉👉ok

[@Lakhansingh-ml7vl]

unblevable

[@K4MR4N1UK123]

Why the hell are you using this in this day and age anyway?

[@hsw268]

Its fun.

[@roteschwert]

Ikr. This is kinda like learning COBOL or something. Beginners nowadays usually learn Python to do something useful.