Qbasic




INSTRUCCIONES (Ejecuta línea a línea si no se ordena otra cosa)

BASICAS Y DE DATOS
CLS Limpia o borra la pantalla.
END Indica el final de un programa (no hace falta ponerlo)
PRINT Imprime en la pantalla: lo que esté entre “comillas” o variables.
INPUT (A, A%, A$) Para introducir o “preguntar, entre comillas” un dato (Lo guarda en Memoria)
VARIABLES (A, A%, A$) A= solo nº de todotipo; A%= nº enteros; A$= letras (1º) y nº

Ejemplo:
10 CLS (Limpia la pantalla cada vez que se ejecuta el programa)
20 INPUT “PON TU NOMBRE”; N$ (Imprime lo de entre comillas y pregunta N$ [letras y nº])
30 INPUT “CUAL ES TU EDAD”; E% (Imprime lo de comillas y pregunta E% [nº entero])
40 INPUT “CUÁNTO MIDES EN METROS”; M (Imprime lo de comillas y M [todo tipo de nº])
50 PRINT “TELLAMAS”;N$, “TIENES “;E%; “AÑOS Y MIDES”; M (Imprime “ “ y variables)
60 END (Indica el fin del programa, es opcional)

CONDICIONES
IF……………….THEN…………....…../ELSE……………..…..END IF
Si condición Entonces órdenes/más si no órdenes fin

Ejemplo:
10 INPUT “INTRODUCE UNA NOTA DE 1 A 10”; N
20 IF N < 5 THEN PRINT “SUSPENSO” (Condición: Si N menor a 5, imprime Suspenso)
30 ELSE (Más si no lo cumple, esdecir, N es mayor o igual a 5, ejecuta la siguiente línea)
40 PRINT “APROBADO”
50 END IF (Final de la condición, sea N lo que sea)

IF………….THEN GOTO ……….
Si condición Entonces Vete a….(si no cumple, ejecuta siguiente línea)

Ejemplo:
10 INPUT “INTRODUCE UNA NOTA DE 1 A 10”; N
20 IF N < 5 THEN GOTO 50 (Condición: Si N menor a 5, ir a la línea 50 / Si no cumple: línea 30)
30 PRINT “APROBADO”40 GOTO 60 (Ir a la línea 60, si no se pusiera esto iría a la línea siguiente)
50 PRINT “SUSPENSO”
60 END

BUCLES (Falta ejemplo de: GOSUB…RETURN( Va a subprograma y vuelve donde lo dejó)

GOTO Ir a ... (Va a un nº de línea: repite ciclo o ejecuta una orden)

Ejemplo:
10 INPUT “INTRODUCE UN NOMBRE”; N$
20 PRINT N$
30 GOTO 20 (Ir a la línea 20 / se forma un bucle infinito, que solo separa con “ctrl” + “pause”)

FOR…TO… / NEXT… Desde…a… /órdenes / siguiente (ciclo finito)

Ejemplo:
10 INPUT “INTRODUCE UN NNÚMERO DE 1 A 10”; N%
20 FOR i% = 0 TO N% (Coge valores de uno en uno [por defecto], desde 0 hasta N)
30 PRINT i% (Imprime el valor que ha tomado i, según las vueltas que haya dado el bucle)
40 NEXT i% (Coge el siguiente i% ) (Así que vuelve a la línea 20 y repite ciclohasta llegar a N)
50 END

DO... LOOP (UNTIL o WHILE) Hacer / las órdenes / repite las ordenes hasta que cumpla la condición o mientras cumpla algo

Ejemplo:
10 INPUT “DILE A ALGUIEN QUE INTRODUZCA UN Nº, SIN QUE TU MIRES”; N
20 CLS (Limpia la pantalla para que no se vea el número elegido)
30 DO (Haz lo siguiente)
40 INPUT “ACIERTA EL NÚMERO ELEGIDO DE 1 A 10”; A
50 LOOP UNTIL A = N(Repetirá el ciclo e irá a la línea 30 hasta cumplir la condición, A = N)
60 END



Nº ALEATORIOS
RANDOMIZE TIMER (establece comienzo de nº aleatorios entre 0 y 1)

RND (coge un nº aleatorio entre 0 y 0.99, una vez activado Randomize timer)

Ejemplo:
10 RANDOMIZE TIMER
20 DADO = 1 + INT (6 * RND) [Ej: 3 = 1 + INT (6 * 0.4)]
30 PRINT “EL NÚMERO DEL DADO ES”; DADO
40 END
SONIDO
BEEPHace un sonido agudo (varios sería: BEEP:BEEP:BEEP)

GRAFICOS
SCREEN 12 (Establece resolución de 16 colores de 600 x 800 pixeles)
LINE (X1, Y1)-(X2, Y2), Color, B o BF (B= cuadrado de diagonal LINE / BF= cuadrado relleno de la diagonal LINE)
CIRCLE ( centro: X, Y), Radio, Color del anillo
PAINT (X, Y), Color relleno, Color del límite [Rellena de color desde dentro = (X,Y) / hasta colorlimite]
PSET (X,Y) Color Dibuja un punto de un color.

OTRAS
LOCATE Y, X Posición en la que empieza un texto, por píxeles.
STEP Indica el nº de pasos [Ej: step 2 (de 2 en 2) /step -1 (atrás)]
INKEY$ Considera una letra ó nº, como una tecla
TIME$ Coge la hora del ordenador
DATE$ Coge la fecha del ordenador

SIGNOS  ACCIÓN

; Escribe a continuación
, Escribe a 5 espacios
: Otra...