Giochi Semplici da Creare in QBasic

BASIC (Beginner's All-Purpose Symbolic Instruction Code) è ancora il linguaggio di programmazione più noto per principianti assoluti, e QBasic è un interprete semplice per scriverlo ed eseguirlo. C'è ancora una comunità di hobbisti QBasic, e imparare a fare giochi QBasic insegna i fondamenti della programmazione ed è divertente.

Iniziare con QBasic

Se non avete QBasic, scaricate la versione originale da Pete's QB Site (vedi Risorse), o QB64, versione più recente compatibile con l'originale. Aprendolo, vedrete uno schermo blu. Digitate:

CLS
PRINT "Hello, world!"
INPUT "What's your name?"; name$
PRINT "Hello, "; name$; "!"
END

Premete Shift+F5 per eseguire. Ecco cosa succede:

• CLS = "clear screen", inizia con schermo pulito.
• PRINT stampa testo a schermo. Per numeri, virgolette non necessarie.
• INPUT chiede input utente. "name$" è una variabile (testo finisce con $, numeri con %).
• Seconda PRINT stampa testo + input utente.
• END termina il programma.

Giochi "Indovina il Numero" in QBasic

Inserite questo codice:

CLS
chances% = 1
RANDOMIZE TIMER
number% = INT(RND * 10) + 1
PRINT "I'm thinking of a number from 1 to 10. You have three chances to get it right."

DO WHILE chances% < 4
PRINT
PRINT "You're on chance #"; chances%; "."
INPUT "Guess the number"; guess%
IF guess% = number% THEN GOTO youwin
ELSEIF guess% < number% THEN PRINT "Too low."
ELSEIF guess% > number% THEN PRINT "Too high."
ELSE PRINT "There's been an error. Try again."
END IF
chances% = chances% + 1
LOOP

PRINT "You ran out of chances! Sorry!"
END

youwin:
PRINT "You guessed the number! The number was"; number%; "!"
END

Il programma crea un numero casuale 1-10 e dà 3 tentativi con indizi. Include molti concetti di programmazione.

chances% = 1 crea variabile numerica = 1 (traccia tentativi). RANDOMIZE TIMER metodo QBasic per randomizzare. number% = INT(RND * 10) + 1 crea numero casuale 1-10. Il "+1" assicura 1-10 non 0-9.

DO WHILE chances% < 4 crea ciclo fino a chances% non più <4. Chiede guess con INPUT, salva in guess%, processa con IF...THEN...ELSE. GOTO "youwin" se corretto. chances% = chances% + 1 incrementa tentativi (max 3). Se ciclo finisce senza "youwin", perdete. Sezione "youwin:" dichiarata col nome e due punti.

Altre Idee per Giochi

Con PRINT, INPUT, IF...THEN...ELSE, GOTO avete tutto per un'avventura testuale semplice. Esempio:

house:
INPUT "You're standing in a house. What would you like to do"; choice$
IF choice$ = "go upstairs" THEN GOTO upstairs ELSE GOTO house

Rendetelo complesso quanto potete. Per ispirazione, il web offre download gratuiti di giochi QBasic. Giocateli ed esaminate il codice per imparare tecniche e avere idee.