Mostrar un contador en pantalla

Por txuko

Champion (302)

Imagen del txuko

07-07-2010, 13:36

Buenas a todos,

Tengo un problemilla al mostrar un contador, el caso es que los numeros se muestran unos encima de otros y no se porque ocurre esto, os muetro el codigo :

5 COLOR 15,1,1:SCREEN 2
10 OPEN"grp:"AS#1
15 FOR I=0 TO 100
20 PRESET(100,100): PRINT#1,I
25 NEXT I
30 END

Si alguien me lo puede aclarar gracias por adelantado.

Un saludo Tongue

Login sesión o register para postear comentarios

Por xgipe

Champion (397)

Imagen del xgipe

07-07-2010, 15:10

Fácil:
Estás en Screen2, y los caracteres se imprimen encima de los anteriores porque no se trata de una pantalla de texto.
Incluye esta línea:
22 CLS

Ya me contarás...Tongue

Aunque una "mejora" en el código te permitirá apreciar mejor el resultado:

5 COLOR 15,1,1:SCREEN 2
10 OPEN"grp:"AS#1
15 FOR I=0 TO 100
20 PRESET(100,100): PRINT#1,I : FOR R=1 TO 50 : NEXT R
22 CLS
25 NEXT I
30 END

[edito: creo que me equivoqué al postear el primer post]

Por Guillian

Prophet (3477)

Imagen del Guillian

07-07-2010, 15:15

Edito: Ya te han contestado antes que yo Tongue

Por txuko

Champion (302)

Imagen del txuko

08-07-2010, 13:45

Upsss.. Gracias pero me parece que eso no me sirve, os explico mi intencion es hacer un tipo barra de carga, vamos lo tipico que se ve cuando descargas algo por intet "la barra mas el tanto por cien del proceso completado" de ahi el contador, entonces si hago eso sale todo parpadeando.

5 COLOR 15,1,1:SCREEN 2
6 A$="CARGANDO PROGRAMA"
7 B$="%"
10 OPEN"grp:"AS#1
11 PRESET(90,90): PRINT#1,A$
15 FOR I=0 TO 100
16 LINE(77,102)-(I,99),5,BF
20 PRESET(100,100): PRINT#1,I
21 PRESET(120,120): PRINT#1,B$
25 NEXT I
30 END

Los valores del PRESET son simbolicos Crying

Saludos Murdoch

Por e_sedes

Expert (112)

Imagen del e_sedes

08-07-2010, 18:27

Prueba así, a ver si te vale.

5 COLOR 15,1,1:SCREEN 2
6 A$="CARGANDO PROGRAMA"
7 B$="%"
10 OPEN"grp:"AS#1
11 PRESET(90,90): PRINT#1,A$
15 FOR I=0 TO 100
16 LINE(0,102)-(I,99),5,BF
20 line (100,100)-(131,107),1,bf
21 PRESET(100,100): PRINT#1,I;B$
25 NEXT I
30 END

Un saludo.

Por txuko

Champion (302)

Imagen del txuko

09-07-2010, 07:39

e_sedes, vamos clavaoooo !!! Tongue

Gracias a todos por la ayuda Wink