Mostrar un contador en pantalla

By txuko

Champion (302)

txuko's picture

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 or register to post comments

By xgipe

Champion (397)

xgipe's picture

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]

By Guillian

Prophet (3502)

Guillian's picture

07-07-2010, 15:15

Edito: Ya te han contestado antes que yo Tongue

By txuko

Champion (302)

txuko's picture

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

By e_sedes

Expert (112)

e_sedes's picture

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.

By txuko

Champion (302)

txuko's picture

09-07-2010, 07:39

e_sedes, vamos clavaoooo !!! Tongue

Gracias a todos por la ayuda Wink