Due domande per i vecchi programmatori [chiusa]

StackOverflow https://stackoverflow.com/questions/3727158

  •  03-10-2019
  •  | 
  •  

Domanda

Così ho usato QBASIC64 oggi ... in nome dei vecchi scuola.

Mi chiedevo:

a) Qual è il codice di QBASIC più complessa avete mai scritto è stato
e
b) Qual è il codice più utile che hai scritto

(esempi sarebbe bello, ma non indispensabile ^ _ ^ - e questo è Wiki italiano e solo per divertimento)

È stato utile?

Soluzione

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

Altri suggerimenti

Anche se non ho mai usato QBasic (sono riuscito a saltare la generazione di macchine che hanno avuto esso) ho fatto scrivere un assembler Z80 nel suo predecessore, GWBasic, insieme con il codice di supporto per alcuni componenti hardware per trasferire il codice macchina risultante alla mia piattaforma di test . E 'certamente qualificato come complesso, oltre ad essere molto disordinato e lento, ma è perché non sapevo meglio (non avendo adottato alcuna strutture di dati e le classi algoritmi a quel punto).

La maggior parte complessa: Huffman codificatore utilizzando una stringa per memorizzare l'albero. Non credo che ho capito di lavoro.

La maggior parte utile:. Palazzo Chat labirinto editore / generatore

Non ho mai avuto finora con QBasic. Questo sarebbe, perché io non sono un vecchio programmatore. La maggior parte che abbia mai fatto, (montaggio sia A) e B) ) era fare un programma di lettura un numero da tastiera, e poi calcolato il 10% di esso, pringitng che allo schermo.

Questo deve essere stato, nel 2000, il 10% di IVA è stata introdotta in Australia. Questo mi fa 9 anni. Mi ricordo di aver trascorso come 6 mesi alla ricerca di un computer con QBasic su di esso.

Bei ricordi, della, non così , lontano passato

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 si potrebbe scrivere nuove domande e caricarli in se volevo. Il codice è in linea, se siete interessati, anche se purtroppo i / dati / file di immagine associati, ecc sono persi in volta: http://code.google.com/p/ justinethier / source / browse / trunk / qbasic_quizzer / project.bas

risposta per A e B: un programma in cui l'utente inserire il nome di stringa e il numero tasto su una chitarra e il programma sarebbe uscita che notare che il tasto è. A proposito, mi piace qbasic perché la sua semplicità lo rende divertente!

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

Mi ricordo di divertirsi hacking del codice per Nibbler e gorilla che cambiano i colori e le costanti e così via.

Quindi, il programma più utile e complesso ho fatto è stato un menu guidato applicazione che interrogato l'utente su problemi di matematica: ci sono stati ascendente livelli numerici di difficoltà l'utente può scegliere e mi ricordo letteralmente hardcoding 100 problemi aritmetici controllando la risposta degli utenti e dicendo loro se sono sbagliati o no.

Non sono sicuro se ho ancora quel codice, che in giro, penso che potrei, io controllare stasera e post, se lo trovo!

... va bene! Ho trovato alcune cose. Questo frammento è parte di un file denominato "TEST1.BAS" e si presenta come una prima versione del programma sopra descritto. Credo che ho avuto una versione più completa, ma è stato perso quando il nostro hard disk è caduto e non siamo stati in grado di 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
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top