PROGRAMACION QBASIC

ROMBOS Y FORMAS BASICAS EN QBASIC

Para dibujar en QBASIC, se recomienda seguir una estrategia y/o secuencia lógica que  oriente NUESTRO diseño.

Esa estrategia es :
¿En donde?, ¿Que color?, ¿Que cosa, objeto, forma, simbolo? 

en ese orden.
AUNQUE A CUALQUIER PROGRAMADOR SE LE PUEDE OCURRIR UNA DISTINTA,
ESTA ES SUGERIDA.

¿En donde?  : POSICION EN Y y X
LOCATE (Y,X)  

¿Que color?
COLOR 14


¿Que cosa, objeto, forma, simbolo? normalmente ASCCII
PRINT "###"


Empecemos por dibujar una linea central e ir subiendo poco a poco hasta terminar en punta que es como termina un rombo.
la instruccion PRINT de la linea 40 imprime 8 cuadritos
PRINT "--------"

se va quitando de a dos cuadritos por cada fila PRINT "------", uno por cada LADO y se mueve 1 unidades a la derecha y uno hacia arriba, eso se representa en el LOCATE 4,6.

Notemos que la estrategia en cuanto a codigo es la misma, LOCATE, COLOR, PRINT .  En ese orden hacia abajo. 

Nuevamente, quitando de a dos cuadritos por cada fila 
PRINT "----", uno por cada LADO y se mueve 1 unidades a la derecha y uno hacia arriba, eso se representa en el LOCATE 3,7.

¡Si continuamos con la misma estrategia, finalmente obtenemos el codigo para dibujar la parte superior de un rombo!

Si además de esto, repetimos la misma informacion para hacer la parte abajo, obtendriamos el rombo completo, solo que en esta ocasión en LOCATE el prime numero debe aumentar, entonces iras hacia abajo.
apartir de 6!!!! recuerda que la linea central esta en LOCATE 5,5
entonces el LOCATE de la linea que sigue para hacer la parte inferior deria ir ubicado en LOCATE 6,6 

---------------------------------------------------------------------------------------------------------------
HASTA AQUI VA NUESTRA PRIMER FIGURA

--------------------------------------------------------------------------------------------------------------------------------------------------------

AHORA UN TRIÁNGULO 

Para dibujar un triangulo sencillo en QBASIC se requerirá de la misma estrategia, que consiste en repetir LOCATE, COLOR, PRINT .  En ese orden hacia abajo cada linea.
Iniciamos con CLS
El primer PRINT "xxxxxxxxxxxxxxx" imprimirá 15 cuadritos.

Vamos disminuyendo de a 1 cuadrito por cada linea en la instruccion PRINT "xxxxxxxxxxxxxx" por lo tanto el PRINT que sigue deberia imprimir 14 cuadritos.
Ademas, la instruccion LOCATE deberia dismunir 1 unidad, pues estamos dibujando hacia arriba y queremos que disminuya de tamaño a medida que sube y que ademas corra una unidad a la derecha.

 Continuamos disminiyendo en los comandos PRINT y LOCATE 
Notamos que la estrategia es la misma, LOCATE, COLOR Y PRINT

SI seguimos con la misma lógica tendriamos al final de nuestro código un triangulo realizado con rectangulos alargados uno encima del otro y cada vez mas pequeño.
Notemos que en LOCATE un numero aumenta en cada linea y el otro disminuye.
20 LOCATE 15, 5  
50 LOCATE 14, 6   
80 LOCATE 13, 7
110 LOCATE 12, 8 

... asi sucesivamente...

CONTINUANDO UNO A UNO LOGRAMOS EL OBJETIVO...

---------------------------------------------------------------------------------
ACÁ FINALIZAMOS EL TRIÁNGULO.
---------------------------------------------------------------------------------
 AGREGANDO COSAS A NUESTRO TRIÁNGULO





--------------------------------------------------------------------------------