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:

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

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)

Seleccione caso UCASE$(K$)

Caso "H"

Ir a la barra horizontal

HorizontalBARBack:

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"

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$ = " "

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

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

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