Ejemplo Con Dos Timers


Objetivo: Ejemplo Con Dos Timers
Si veis el funcionamiento de este ejemplo.

dos_timers

¿ Qué os recuerda ?. Es algo que usamos a veces mucho.

Código:

' gambas class file

Private x As Integer
Private y As Integer
Private cuentatotal As Integer
Const limite As Integer = 30

Public Sub Form_Open()

ProgressBar1.Value = 0
ProgressBar2.Value = 0

Timer1.Delay = 400
Timer2.Delay = 400

Timer1.Start

End

Public Sub Timer1_Timer()

x += 1
ProgressBar1.Value += 10 / limite
Timer1.stop
Timer2.Start
ProgressBar2.Value = 0

End

Public Sub Timer2_Timer()

If cuentatotal = limite Then
Timer1.Stop
Timer2.Stop
Else
y += 1
ProgressBar2.Value += 0.1
cuentatotal += 1
'Print "Timer1 = " & x, "Timer2 = " & y
If y Mod 10 = 0 Then
y = 0
Timer1.Start
Timer2.Stop
Else
Timer1.Stop
Endif
Endif

End


Ahora debe funcionar mejor.

Saludos

última edición por Shell el Lunes, 08 Febrero 2016, 11:05; editado 1 vez

DosTimers.tar.gz
Descripción:  
Descargar
Nombre del archivo: DosTimers.tar.gz
Tamaño: 12.26 KB
Descargado: 43 veces
DosTimers.tar.gz
Descripción:  
Descargar
Nombre del archivo: DosTimers.tar.gz
Tamaño: 12.26 KB
Descargado: 43 veces
DosTimers.tar.gz
Descripción:  
Descargar
Nombre del archivo: DosTimers.tar.gz
Tamaño: 12.26 KB
Descargado: 43 veces

Objetivo: Re: Ejemplo Con Dos Timers
Pues he cambiado un poco el código y he vuelto a subir el ejemplo.

Saludos

última edición por Shell el Lunes, 08 Febrero 2016, 11:06; editado 1 vez
Objetivo: Re: Ejemplo Con Dos Timers
Utilicé dos Timer en el mi programa "Console Midi":
http://foro.gambas-es.org/viewtopic.php?f=5&t=3586

Perfil MP  
Objetivo: Re: Ejemplo Con Dos Timers
Vuott:

A mi uno de los que más me gustó que subiste, fue el reproductor de archivos de sonido de Amiga. Mod, SM3 (creo)..

Bueno, como nadie ha dicho nada aun. (Fin de semana). Y supongo que tambien lo veis claro.
Los dos timers hacen la función de "un bucle anidado".
(Que no se por qué el uso de ambos timers me ha recordado en electrónica al uso de contactores, temporizadores, guardamotores... )

¿ Y por que la idea de un bucle anidado con dos timers?.

Pues por que quiero aplicarlo a mostrar una imagen. Quiero mostrarla parte a parte, por ejemplo una linea horizontal completa o pixel a pixel.
Hasta que se complete la imagen.

Pero aun no se me ha ocurrido bien el ejemplo.

¿ Sabias que está prohibido o no recomendado usar Wait en rellenos de figuras con Paint ?.

P.d en Cádiz estamos de lunes de resaca..es fiesta!..( para algunos ). 9fiesta

Saludos

Objetivo: Re: Ejemplo Con Dos Timers
Mu bonito. Pero es sólo un ejercicio abstracto de uso de los timer ¿no?. Personalmente no creo que sirva para casi nada mezclar timers con barras de progreso... al menos aún he visto un de la vida real que lo pida.

Bueno... vale, si haces un juego de "Quiere ser millonario" tendrías que poner una barra de progreso basada en un timer, pero fuera de eso...

Perfil MP  
Objetivo: Re: Ejemplo Con Dos Timers
Citar:

Bueno... vale, si haces un juego de "Quiere ser millonario" tendrías que poner una barra de progreso basada en un timer, pero fuera de eso.




Lo de mostrar las barras de progresos es solo como para ver visualmente el funcionamiento del bucle externo y el interno.
A ver si lo puedo adaptar para cargar de la imagen una linea de pixeles ,o pixel a pixel, cada x tiempo. Esa era la idea.
Es que soy un poco friki del Spectrum.

Este ejemplo se aplica a lo que quiero hacer con una imagen.

Saludos


Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.5513s (PHP: -81% SQL: 181%)
Consultas SQL: 49 - Debug off - GZIP Activado