Código fuente del sitio web de Mushroom
QBASIC es una variante del lenguaje BASIC (Código de instrucción simbólica común para principiantes), desarrollado por Microsoft Corporation de Estados Unidos y lanzado con MS-DOS 5.0 en 1991. No se puede compilar en un archivo ejecutable independiente. El código fuente primero se compila en código intermedio en un entorno de desarrollo integrado (IDE) y luego el código intermedio se interpreta y ejecuta en el IDE. Está diseñado para reemplazar GW-BASIC y está integrado en MS-DOS 5.0 y posteriores (incluido Windows 95). QBASIC se basa en QuickBASIC 4.5, que Microsoft lanzó anteriormente, pero ha eliminado las partes de compilación y vinculación de este último.
El lenguaje básico es un lenguaje informático de alto nivel que es fácil de aprender y usar, y es muy popular entre los usuarios de computadoras. Las expresiones en lenguaje básico son similares a las de matemáticas y las declaraciones son similares a las del lenguaje natural. Es muy fácil de dominar para los principiantes. El último desarrollo del lenguaje básico Visual Basic 6.0 y 7.0, con su interfaz de programación visual amigable, poderosas capacidades de programación orientada a objetos y funciones de publicación y consulta en línea, no solo permite a los usuarios escribir aplicaciones con cualquier función de manera cómoda y sencilla, sino que también También mejor adaptado al advenimiento de la era de Internet.
Microsoft ya no integra QBASIC en las nuevas versiones de Windows. Sin embargo, los usuarios de Windows 98 pueden encontrarlo en el directorio \TOOLS\OLDMSDOS del CD y está almacenado en el directorio \OTHER\OLDMSDOS del CD de Windows 95. El sitio web de Microsoft indica que su soporte técnico sólo está disponible para usuarios autorizados de MS-DOS.
QBASIC tiene un entorno de desarrollo integrado encomiable y un potente depurador integrado, que fueron refrescantes en su momento. Hasta el día de hoy, QBASIC sigue siendo el tema de muchos libros de programación para principiantes.
[Editar este párrafo] Sintaxis
Similar a Quick BASIC, pero diferente de otras versiones anteriores de Microsoft BASIC, QBASIC es un lenguaje de programación estructurado. En comparación con GW-BASIC, las principales mejoras de QBASIC son:
Tipos ampliados de variables y constantes.
Longitud del nombre de la variable: 40 caracteres
Se agregaron variables de caracteres de longitud fija y enteros largos.
Puede definir constantes numéricas y constantes de cadena
Se proporciona una nueva estructura de selección
Declaraciones condicionales
Si lt condición> entonces lt Declaración Grupo 1 > ELSE lt Declaración Grupo 2 >
Selección de declaración de múltiples ramas
Se ha mejorado la estructura de circulación.
Agregue las siguientes dos sentencias de bucle:
WHILE loop
WHILE lt condition>
lt ring body>
Fila
Do Loop
DO WHILE ltCondition>ltLoop Body>Loop
Los subprogramas y funciones se tratan como módulos independientes.
No se requieren números de línea.
Ejemplo de código (asignación, operación de suma y visualización de resultados)
Supongamos A=10
Establecer B=20
Establecer C=A B
Imprimir C
Para ahorrar tiempo al escribir un programa, no es necesario escribir LET; además, PRINT usa directamente "?" reemplazar. ¡Es muy importante que al participar en un concurso, la primera línea del programa sea CLS!
[Editar este párrafo] Tecla de acceso directo
F5: Ejecutar el programa (su función equivale a ejecutar) y continuar ejecutando el programa interrumpido;
Ctrl Break : interrumpe el programa en ejecución;
Mayús F5: vuelve a ejecutar el programa desde la primera instrucción;
F4: cuando el programa deja de ejecutarse, ve la pantalla de resultados de ejecución y presiona F4 nuevamente para volver a la pantalla de código;
F1: Obtener ayuda.
F2: Cambia de programa principal o subfunción.
[Editar este párrafo] Ejemplo
Ejemplo 1:
Las setas shiitake en el mercado cuestan 7,5 yuanes el kilogramo. Escriba un programa, ingrese el peso desde el teclado y la computadora calculará automáticamente el precio total.
Ingrese X
Suma = 7.5*X
Imprimir la suma
Fin
Ejemplo 2:
p>Para quienes venden sandía, el precio es de 1,4 yuanes por malicioso por menos de 10 maliciosos y de 0,7 yuanes por malicioso por más de 10 maliciosos. Ingresa cuántos kilogramos deseas comprar (debe ser un número natural) y cuánto te costará exportar.
Ingrese X
Si X lt gt, ¿arregla (X)? "No": Ir a 1
Si X gt10 entonces SUM = 10 * 1.4 (X-10)* 0.7 ELSE SUM = p>Fin
Ejemplo 3:
Ingrese 10 letras, compare los tamaños y genere la más grande.
DIM A$(10)
Para I=1 a 10
Ingrese un dólar (I)
Siguiente I
p>B$=A$(1)
Para I=2 a 10
Si B $ ltA$(I) entonces B$=A$(I )
A continuación
imprimo B$
Fin
El programa anterior es demasiado confuso, compilé uno muy simple aquí Dibujo largo programa:
Herramientas de dibujo. Detener
CLS
Orden de defensa
Pantalla 1
Pantalla 0
Imprimir página Cheque (16); "Herramientas de dibujo"
Imprimir cadena $(40, "*")
Imprimir "Ayuda:"
Imprimir "Presione para resaltar las letras mostradas.
”
Para I = 1 a 8
Lea S$, S
Vaya a PrintHLWord
PrintHLWordBack:
Siguiente
Restaurar
Datos "HorizontalBAR",1,"UprightBAR",1,"CrossBARs",1,"BiasBAR1",8
Datos "BiasBAR2", 8, "DiagonalBARs", 1, "DiffuseBARs", 2, "Salir", 1
Elseki:
K$ = entrada $( 1) p>
Seleccione caso UCASE$(K$)
Caso "H"
Ir a la barra horizontal
HorizontalBARBack:
p>Caso "U"
Ir a columna vertical
Regreso al asiento en posición vertical:
Caso "C"
Ir a Barra transversal
Parte posterior de la barra transversal:
Caso "1"
Ir a BiasBAR1
BiasBAR1Parte posterior:
Caso "2"
Ir a BiasBAR2
BiasBAR2Atrás:
Caso "D"
Ir a Diagonal
Ballena Diagonal:
Estuche "One"
Ir a tira difusora
Parte posterior de tira difusora:
Estuche "E" p>
Fin
Otros casos
Ir a El Seki
Finalizar selección
Timbre
Fin
ImprimirHLWord:
Si S = 1, entonces
Color 15
Imprimir izquierda $(nueva moneda, 1);
Color 7
Imprimir dólar medio (Moneda nueva, 2)
Otro
Color 7
Imprimir izquierda $(S$, S-1);
Color 15
Imprimir MID$(S$, S, 1);
Color 7
Imprimir MID$(S$,S 1)
Terminará si...
Ir a PrintHLWordBack
Columna horizontal:
Pantalla 1
Para I = 1 a 200
PSET (I, 100)
HACER: Bucle WHILE INKEY$ = " " p>
Siguiente yo
Pantalla 0
Ir a la barra de herramientas horizontal
Barra vertical:
Pantalla 1
Para I = 1 a 200
PSET (100, I)
HACER: bucle WHILE INKEY$ = " "
Siguiente yo
Pantalla 0
Subir a BARBack
Barra:
Pantalla 1
Para I = 1 a 200 p>
PSET (I, 100)
PSET (100, I)
HACER: Bucle WHILE INKEY$ = " "
Siguiente yo
Pantalla 0
Ir al retorno de barra transversal
BiasBAR1:
Pantalla 1
p>
Para I = 1 a 200
PSET(i,i)
DO: Bucle WHILE INKEY$ = " "
Siguiente i
Pantalla 0
Ir a
devuelve la barra de polarización 1
BiasBAR2:
Pantalla 1
Para I = 1 a 200
PSET (I, 200 - I)
DO: Bucle WHILE INKEY$ = " "
Siguiente yo
Pantalla 0
Ir a BiasBAR2Back
Diagonal:
Pantalla 1
Para I = 1 a 200
PSET(i,i)
PSET ( I, 200 - I)
HACER: Bucle WHILE INKEY$ = " "
Siguiente I
Pantalla 0
Ir a la parte trasera de Diagonal p>
Barra de difusión:
Pantalla 1
Para I = 1 a 200
PSET (I, 100)
PSET (100, I)
PSET (I, I)
PSET (I, 200 - I)
DO: Bucle WHILE INKEY$ = " "
Siguiente yo
Pantalla 0
Ir al difusor atrás
Hoja de ruta:
CLS
Entrada
Cálculo
Salida
Fin