Foro de elhacker.net

Programaciůn => Programaciůn Visual Basic => Mensaje iniciado por: agus0 en 13 Octubre 2009, 20:20 pm



Título: [RESUELTO] [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: agus0 en 13 Octubre 2009, 20:20 pm
Que tal Foreros!

Tengo una duda... hay alguna funcion o alguna manera de retrasar la ejecucion de cada comando... es decir:

Yo aprieto por ejemplo el command 1 y quiero que valla cambiando el text1 cada no se 1 segundo pero sin usar un timer poner:

Código:
Private Sub Command1_Click()
Text1.Text = "hola"
Text1.Text = "Como andas?"
Text1.Text = "Bien y vos?"
End Sub

Y poder poner todo junto con alguna instruccion que haga que se demore por que si no el texto cambiaria tan rapido que yo solo verie el "Bien y vos?"

Bueno era eso solo

Gracias!


Título: Re: [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: BlackZeroX (Astaroth) en 13 Octubre 2009, 20:26 pm
Sleep()
Do while


Título: Re: [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: YST en 13 Octubre 2009, 20:28 pm
MirŠ esto

http://support.microsoft.com/kb/212667


Título: Re: [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: agus0 en 13 Octubre 2009, 21:05 pm
Gracias pero... Use Sleep

Código:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Sleep 1200
Text1.Text = "hola!"
Sleep 1233
Text1.Text = "jeje"
Sleep 1212
Text1.Text = "———"
End Sub

De esa forma

y cuando aprete el command1 se demoro un tiempo y puso "———"

:(

Ņque hice mal?


Título: Re: [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: Castg! en 13 Octubre 2009, 21:53 pm
En la misma pagina de el hacker se encuantra:

http://www.elhacker.net/trucosvisual.htm (http://www.elhacker.net/trucosvisual.htm)


Citar
Ejecuta pausas durante un determinado espacio de tiempo en segundos:


Llamada: Espera(5)
Código
  1. Sub Espera(Segundos As Single)
  2. Dim ComienzoSeg As Single
  3. Dim FinSeg As Single
  4. ComienzoSeg = Timer
  5. FinSeg = ComienzoSeg + Segundos
  6. Do While FinSeg > Timer
  7. DoEvents
  8. If ComienzoSeg > Timer Then
  9. FinSeg = FinSeg - 24 * 60 * 60
  10. End If
  11. Loop
  12. End Sub

Llamada: pause segundos

Sub Pause(interval)
Dim atime
atime = Timer
Do While Timer - atime < Val(interval)
DoEvents
Loop
End Sub


Título: Re: [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: agus0 en 14 Octubre 2009, 00:13 am
En la misma pagina de el hacker se encuantra:

http://www.elhacker.net/trucosvisual.htm (http://www.elhacker.net/trucosvisual.htm)


Citar
Ejecuta pausas durante un determinado espacio de tiempo en segundos:


Llamada: Espera(5)
Código
  1. Sub Espera(Segundos As Single)
  2. Dim ComienzoSeg As Single
  3. Dim FinSeg As Single
  4. ComienzoSeg = Timer
  5. FinSeg = ComienzoSeg + Segundos
  6. Do While FinSeg > Timer
  7. DoEvents
  8. If ComienzoSeg > Timer Then
  9. FinSeg = FinSeg - 24 * 60 * 60
  10. End If
  11. Loop
  12. End Sub

Llamada: pause segundos

Sub Pause(interval)
Dim atime
atime = Timer
Do While Timer - atime < Val(interval)
DoEvents
Loop
End Sub



Muchas Gracias!

P.D: No conocia eso de "/trucosvisual.htm"  :o


Título: Re: [RESUELTO] [Duda] Como puedo retrazar la ejecucion de un Comando???
Publicado por: BlackZeroX (Astaroth) en 14 Octubre 2009, 04:51 am
mira es

Código
  1. Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
  2.  
  3. Private Sub Command1_Click()
  4. DoEvents: Sleep 1200
  5. Text1.Text = "hola!"
  6. DoEvents: Sleep 1233
  7. Text1.Text = "jeje"
  8. DoEvents: Sleep 1212
  9. Text1.Text = "———"
  10. End Sub
  11.