Due domande per i vecchi programmatori

Question

Quindi ho usato QBASIC64 oggi ... per la vecchia scuola.

mi chiedevo:

a) Qual è il codice di QBASIC più complesso che abbia mai scritto era
e
b) Qual è il codice più utile che hai scritto

(esempi sarebbe bello ma non imperativo^_^- e questo è Community Wiki e solo per divertimento)

Answer 1

GOTO usato per essere così facile quei giorni :-)

Answer 2

Non sono mai arrivato così lontano con QBasic. Questo sarebbe perché non sono un vecchio programmatore. La maggior parte io abbia mai fatto, (raccordo sia A) e B)) era fare un programma di lettura un numero da tastiera, e quindi calcolato il 10% di esso, pringitng che a schermo.

Questo deve essere stato nel 2000, poiché il 10% è stato introdotto in Australia. Questo mi fa 9 anni. Ricordo di aver passato 6 mesi alla ricerca di un computer con QBasic.

Bei ricordi, dell ', non così, lontano passato

Answer 3

Anche se non mai usato QBasic (sono riuscito a saltare la generazione di macchine che avevano it) feci scrivere un assemblatore Z80 nel suo predecessore, GWBasic , insieme al codice di supporto per alcuni componenti hardware per trasferire il codice macchina risultante sulla mia piattaforma di test. Sicuramente si è qualificato come complesso, oltre ad essere molto caotico e lento, ma è perché non lo sapevo (non avendo preso alcuna classe di strutture dati e algoritmi a quel punto).

Answer 4

più utile, e probabilmente più complesso: ho scritto un programma quizzer in QBasic che ha avuto il supporto del mouse, pulsanti grafici è possibile fare clic, ecc E 'anche usato un formato di file generico in modo da poter scrivere nuove domande e caricarle se lo si desidera. Il codice è in linea, se siete interessati, anche se i file purtroppo l'immagine/dati/etc associato si perdono in tanto: http://code.google.com/p/justinethier/source/browse/trunk/qbasic_quizzer/project.bas

Answer 5

risposta per A e B: un programma in cui l'utente inserire il nome di stringa e agitarsi numero su una chitarra e il programma emetterebbe quale nota è il tasto. A proposito, adoro qbasic perché la sua semplicità lo rende divertente!

Answer 6

QBasic è stata la mia prima esperienza con la programmazione. Avevo nove anni (quarta elementare) e avevamo un 386DX con MS-DOS e Windows 3.1.

Mi ricordo che mi sono divertito a hackerare il codice per Nibbler e Gorilla cambiando colori e costanti e così via.

Quindi il programma più utile e complesso che ho creato era un'applicazione basata su menu che interrogava l'utente sui problemi matematici: c'erano livelli numerici ascendenti di difficoltà che l'utente poteva scegliere e mi ricordo letteralmente di 100 problemi aritmetici che controllano la risposta degli utenti e dicendo loro se hanno sbagliato o no.

Non so se ho ancora quel codice in giro, penso che potrei, controllerò stasera e posterò se lo trovo!

... bene! Ho trovato alcune cose. Questo frammento fa parte di un file denominato "TEST1.BAS" e sembra una versione anticipata del programma sopra descritto. Credo di avere una versione più completa ma è andata persa quando il nostro disco rigido si è bloccato e non siamo riusciti a recuperare tutti i file.

CLS 
PRINT 
PRINT "  menu" 
PRINT "--------------" 
PRINT "1. level 1" 
PRINT "2. level 2" 
PRINT "3. level 3" 
PRINT "4. level 4" 
PRINT "5. level 5" 
PRINT "6. level 6" 
PRINT "7. level 7" 
PRINT "8. level 8" 
PRINT "9. level 9" 
PRINT "10. level 10" 
PRINT "11. OTHER" 
PRINT 
INPUT "Your selection: ", choice% 
PRINT 

IF choice% = 1 THEN 
CLS 
DO 
    INPUT "what is 4 + 4 ? ", num 
LOOP UNTIL num = 8 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 8 - 6 ? ", num 
LOOP UNTIL num = 2 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 8 + 7 ? ", num 
LOOP UNTIL num = 15 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 9 - 4 ? ", num 
LOOP UNTIL num = 5 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 6 + 5 ? ", num 
LOOP UNTIL num = 11 
PRINT 
PRINT "correct" 
END IF 

IF choice% = 2 THEN 
CLS 
DO 
    INPUT "what is 11 + 6 ? ", num 
LOOP UNTIL num = 17 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 21 - 5 ? ", num 
LOOP UNTIL num = 16 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 2 * 2 ? ", num 
LOOP UNTIL num = 4 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 14 + 8 ? ", num 
LOOP UNTIL num = 22 
PRINT 
PRINT "correct" 

DO 
    INPUT "what is 17 - 5 ? ", num 
LOOP UNTIL num = 12 
PRINT 
PRINT "correct" 

END IF 

IF choice% = 3 THEN 

END IF 

IF choice% = 4 THEN 

END IF 

IF choice% = 5 THEN 

END IF 

IF choice% = 6 THEN 

END IF 

IF choice% = 7 THEN 

END IF 

IF choice% = 8 THEN 

END IF 

IF choice% = 9 THEN 

END IF 

IF choice% = 10 THEN 

END IF 

Answer 7

Più complesso: codificatore Huffman che utilizza una stringa per archiviare l'albero. Non penso di averlo funzionato.

Più utile: Editor/generatore di chat chat labirinto.