Dos preguntas para los programadores antiguos

Question

Así que he estado usando QBASIC64 hoy ... por el bien de la vieja escuela.

Me preguntaba:

a) ¿Cuál es el código QBASIC más compleja que jamás haya escrito fue
y
b) ¿Cuál es el código más útil que haya escrito

(los ejemplos serían buenos pero no imprescindibles^_^- y esto es Community Wiki y solo por diversión)

Answer 1

GOTO solía ser tan fácil estos días :-)

Answer 2

Nunca llegué tan lejos con QBasic. Esto sería porque no soy un programador viejo. La mayoría lo que he hecho, (el ajuste tanto de A) y B)) era hacer un programa al leer un número del teclado, y luego se calcula el 10% de la misma, que pringitng a la pantalla.

Esto debe haber sido en 2000, ya que 10% gst se estaba introduciendo en Australia. Eso me hace 9 años. Recuerdo haber gastado como 6 meses buscando una computadora con QBasic.

Buenos recuerdos, del, no tan, distante pasado

Answer 3

Aunque nunca he usado QBasic (logré saltar la generación de máquinas que lo tenían) lo hice escribir un ensamblador Z80 en su predecesor, GWBasic , junto con el código de soporte de algunos hardware para transferir el código de máquina resultante a mi plataforma de prueba. Definitivamente calificó como complejo, además de ser muy desordenado y lento, pero eso se debe a que no lo conocía mejor (no había tomado ninguna estructura de datos y clases de algoritmos en ese punto).

Answer 4

más útil, y probablemente el más complejo: Me escribió un programa en QBasic concursante que tuvo la ayuda del ratón, botones gráficos puede hacer clic, etc. También se usa un formato de archivo genérico para que pueda escribir nuevas preguntas y cargarlas si lo desea. El código está en línea si usted está interesado, aunque los archivos tristemente la imagen/datos/etc asociado se pierden en cuando: http://code.google.com/p/justinethier/source/browse/trunk/qbasic_quizzer/project.bas

Answer 5

respuesta para a y b: un programa donde el usuario podría introducir el nombre de cadena y número del traste en una guitarra y el programa mostraría qué nota es el traste. Por cierto, me encanta qbasic porque su simplicidad lo hace divertido!

Answer 6

QBasic fue mi primera experiencia con la programación. Tenía nueve años (cuarto grado) y teníamos un 386DX con MS-DOS y Windows 3.1.

Recuerdo divertirme pirateando el código para Nibbler y gorilas cambiando colores y constantes y cosas así. El programa más útil y complejo que hice fue una aplicación guiada por menú que interrogaba al usuario sobre problemas matemáticos: había niveles numéricos de dificultad ascendentes que el usuario podía elegir y recuerdo literalmente codificación rígida de 100 problemas aritméticos verificando la respuesta de los usuarios. y diciéndoles si lo entendieron mal o no.

No estoy seguro de si todavía tengo ese código por ahí, creo que sí, lo revisaré esta noche y lo publicaré si lo encuentro.

... ¡bien! Encontré algunas cosas. Este fragmento es parte de un archivo llamado "TEST1.BAS" y se parece a una versión anterior del programa descrito anteriormente. Creo que tenía una versión más completa, pero se perdió cuando nuestro disco duro se bloqueó y no pudimos recuperar todos los archivos.

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

Más complejo: Huffman codificador utilizando una cadena para almacenar el árbol. No creo que lo haya hecho funcionar.

Más útil: editor/generador de laberinto de chat Palace.