Mostrar un contador en pantalla

Par txuko

Champion (302)

Portrait de 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 ou Inscrivez-vous pour poster

Par xgipe

Champion (397)

Portrait de 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]

Par Guillian

Prophet (3456)

Portrait de Guillian

07-07-2010, 15:15

Edito: Ya te han contestado antes que yo Tongue

Par txuko

Champion (302)

Portrait de 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

Par e_sedes

Expert (112)

Portrait de 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.

Par txuko

Champion (302)

Portrait de txuko

09-07-2010, 07:39

e_sedes, vamos clavaoooo !!! Tongue

Gracias a todos por la ayuda Wink