Mostrar un contador en pantalla

Door txuko

Champion (301)

afbeelding van 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

Aangemeld of registreer om reacties te plaatsen

Van xgipe

Champion (397)

afbeelding van 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]

Van Guillian

Prophet (3234)

afbeelding van Guillian

07-07-2010, 15:15

Edito: Ya te han contestado antes que yo Tongue

Van txuko

Champion (301)

afbeelding van 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

Van e_sedes

Expert (112)

afbeelding van 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.

Van txuko

Champion (301)

afbeelding van txuko

09-07-2010, 07:39

e_sedes, vamos clavaoooo !!! Tongue

Gracias a todos por la ayuda Wink