Basic - Pintar figuras

   
Vista:

Pintar figuras

Publicado por Jose (1 intervención) el 27/01/2008 16:44:28
muy buenas,
pues eso que no me aclaro con lo de pintar figuras porque todas las veces que lo he probado o se pinta toda la pantalla o pasa cualquier otra cosa no deseada...
este es el codigo que tengo hasta ahora :

5 CLS
10 SCREEN 12
20 PRINT " PRACTICA 4 EJERCICIO 5 - Semaforo"
30 PRINT "********************************************************************************"
40 PRINT " "
45 REM -----------------------------Parte grafica---------------------------
50 CIRCLE (100, 100), 20, 15
60 CIRCLE (100, 175), 20, 15
70 CIRCLE (100, 250), 20, 15
80 CIRCLE (150, 375), 12, 15
90 CIRCLE (150, 410), 12, 15
100 LINE (70, 280)-(130, 280), 15
110 LINE (70, 280)-(70, 70), 15
120 LINE (70, 70)-(130, 70), 15
130 LINE (130, 70)-(130, 280), 15
140 LINE (90, 280)-(90, 640), 15
150 LINE (110, 280)-(110, 640), 15
160 LINE (110, 365)-(130, 365), 15
170 LINE (110, 370)-(130, 370), 15
180 LINE (110, 415)-(130, 415), 15
190 LINE (110, 420)-(130, 420), 15
200 LINE (130, 355)-(130, 430), 15
210 LINE (130, 355)-(170, 355), 15
220 LINE (170, 355)-(170, 430), 15
230 LINE (130, 430)-(170, 430), 15
235 REM ---------------------------Parte logica-----------------------------
240 DO
250 PAINT (100, 100), 0, 15: PAINT (170, 410), 2, 15
260 SLEEP 2
270 PAINT (100, 100), 0, 15: PAINT (170, 410), 0, 15
280 PAINT (100, 250), 2, 15: PAINT (150, 375), 4, 15
290 SLEEP 2
300 PAINT (100, 250), 0, 15
310 PAINT (100, 175), 14, 15
320 SLEEP 2
330 PAINT (100, 175), 0, 15: PAINT (150, 375), 0, 15
340 PAINT (100, 100), 4, 15: PAINT (150, 410), 2, 15
350 BEEP
360 SLEEP 3
370 PAINT (150, 410), 0, 15: PAINT (100, 100), 0, 15
380 a$ = INKEY$
390 LOOP UNTIL a$ <> ""

ahora lo que quiero es pintar las partes del semaforo, como aqui:
http://www.cuelgalo.com/viewer.php?id=1201429785_semaforo.JPG

espero que alguien me pueda ayudar ya que estoy totalmente desesperado...
gracias
salu2
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Pintar figuras

Publicado por Antoni Masana (35 intervenciones) el 29/01/2008 06:52:47
He probado el codigo con QBASIC y compilado con:

Microsoft (R) QuickBASIC Compiler Version 4.50

y funciona perfectamente. No entiendo cial es el problema.

El semaforo grande empieza en verde pasa al amarillo, despues al rojo y el pequeño cambia al verde. Y vuelta a empezar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar