Título: contador en segundos? timer? Publicado por: markx en 2 Septiembre 2007, 22:35 pm var tiempo tiempo = 0 mientras tiempo <= "10" { haceralgo() sino salir } bueno algo asi seria lo que quiero programar en vb.. utilizando un timer k vaya contando en segundos hasta 10 y que haga algo mientras el tiempo en segundos sea menor a 10, alguna idea? pistas? thanks! Título: Re: contador en segundos? timer? Publicado por: cobein en 2 Septiembre 2007, 23:19 pm Hay mil maneras de hacer eto, aca hay un ejemplo que creo es de lo mas facil
Option Explicit Private lTime As Long Private Sub Form_Load() lTime = Timer Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Timer1.Enabled = False If lTime + 10 < Timer Then Debug.Print "OK" lTime = Timer End If Timer1.Enabled = True End Sub Título: Re: contador en segundos? timer? Publicado por: HaDeS, - en 3 Septiembre 2007, 00:12 am Hay mil maneras de hacer eto, aca hay un ejemplo que creo es de lo mas facil Option Explicit Private lTime As Long Private Sub Form_Load() lTime = Timer Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Timer1.Enabled = False If lTime + 10 < Timer Then Debug.Print "OK" lTime = Timer End If Timer1.Enabled = True End Sub Lo que haces aca es ejecutar una funcion cada 1 segundo, y lo que markx pide es ejecutar una funcion mientras el tiempo sea mejor a eso: Voy arreglar tu codigo :P Código
Listo :P creo que puede funcionar asi, me dio pereza sacar el visual, asi que si hay algun error posteadlo. Saludos :) Título: Re: contador en segundos? timer? Publicado por: H4NG3R en 3 Septiembre 2007, 00:43 am Código: Private Sub Wait(ByVal nSec As Integer) Título: Re: contador en segundos? timer? Publicado por: cobein en 3 Septiembre 2007, 03:44 am HaDeS, el timer si se ejecuta cada 1 segundo pero la funcion no la funcion se ejecuta cada 10 si miras bien el codigo vas a ver que "Debug.Print "OK" se ejecuta cada 10 seg. Sino hacelo facil abri VB pega el code y probalo. Y si el lo que quiere es alreves lo unico que tiene que hacer y invertir el sigo , negar el if o usar un else, pero al final de cuentas es lo mismo.
Título: Re: contador en segundos? timer? Publicado por: HaDeS, - en 3 Septiembre 2007, 03:49 am see me equivoque :P, vi tu code por encima, pero tu tambien te equivocaste :P lee:
.. utilizando un timer k vaya contando en segundos hasta 10 y que haga algo mientras el tiempo en segundos sea menor a 10 ... Jeje, saludos :) Pdata. No modifiques los post :P Si hace eso, entonces si se ejecuta la funcion cada segundo. Título: Re: contador en segundos? timer? Publicado por: cobein en 3 Septiembre 2007, 03:59 am Solamente agregue mas texto no modifique nada del original
Título: Re: contador en segundos? timer? Publicado por: cobein en 3 Septiembre 2007, 04:33 am HaDeS mi intencion aca es cooperar y ayudar a los demas, si quiero competir me anoto en un concurso ok? si mi codigo esta mal o malinterprete una pregunta lo lamento soy humano.
Con respecto a las 3 soluciones que se presentaron te digo la tuya es literalmente lo que el dice, cosa que no tiene mucho sentido, para que utilizar un timer para verificar el tiempo cada 1 seg si la funcion que vas a ejecutar esta dentro de un loop? en todo caso es exactamente lo mismo que presento H4NG3R y la respuesta de el es mas simple y no depende de un timer. Con respecto a mi funcion "que si funciona" es mucho mas flexible, podes ejecutar tu codigo cana N millisecs o podes poner un intervalo de 1 millisec y vas a tener practicamente el el mismo efecto que en un loop y dependiendo de donde pongas tu funcion si en el if o en el else tambien podes ejecutar el codigo cada N segundos. Título: Re: contador en segundos? timer? Publicado por: markx en 3 Septiembre 2007, 04:56 am wenoo, se pelean por mi, me siento importante xDDDDDDDDDDD
nah, hablando enserio esta tdo bien, no es competencia, somos seres humanos todos y estamos para aprender y ayudarnos entre todos, no importa si cobein mal interpreto la pregunta, lo importante es la intencion, con esto no estoy criticando nada a hades tampoco.. lo k digo es no se piken! weno con respecto al code de hades aki lo dejo arreglado funcionando: Código: Dim Tiempo As Integer solo cambie lo de "Dim tiempo&" por "Dim tiempo as Integer", podria haber puesto as long la variable pero no trabajare con numeros muy grandes asi k seria solo para desperdiciar memoria, ah y tambien agregue un label para depurar :) ahora lo k no entiendo es para k es el "&", dim tiempo& ? otra kosa, el "Call" para k lo pusiste? y para k se utiliza ? Título: Re: contador en segundos? timer? Publicado por: HaDeS, - en 3 Septiembre 2007, 05:07 am Okas, mira podes declarar de varias formas las variables, ya te explico, mejor dicho te hago una tablita:
Tipo Equivalencia Integer % Long & Single ! Double # Currency @ String $ Asi que: Dim Tiempo& equivale a decir Dim Tiempo As Long Solo los que he mencionado tienen esa equivalencia, los otros tipos de datos no la tiene... Lo hago para ahorrarme el tener que copiar tanto. Por otro lado la instruccion call solo se usa para llamar una funcion. Es equivalente a decir Verificar "10" Es todo :P Saludos ;) |