problema con API sleep

[vivachapas]

bueno queria probar esta api para no usar el timer q segun me dijeron utiliza muchos recursos XD

para "aprender a usarla" hice este pequeño programa:


requiere un text y un command

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Cont As Byte

Private Sub Command1_Click()
A:
Cont = Cont + 1
Text1.Text = Cont
If Cont = 20 Then
End
End If
Sleep 1000
GoTo A
End Sub


pero me tira error cuando lo hago.. en realidad se cuelga el programa... q puede ser?? q hago mal?

funciona pero no me muestra el resultado... jeje me acabo de dar cuenta de eso

[satan69]

bueno queria probar esta api para no usar el timer q segun me dijeron utiliza muchos recursos XD

para "aprender a usarla" hice este pequeño programa:


requiere un text y un command

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Cont As Byte

Private Sub Command1_Click()
A:
Cont = Cont + 1
Text1.Text = Cont
If Cont = 20 Then
End
End If
Sleep 1000
GoTo A
End Sub


pero me tira error cuando lo hago.. en realidad se cuelga el programa... q puede ser?? q hago mal?

funciona pero no me muestra el resultado... jeje me acabo de dar cuenta de eso

pues lo mismo me pasa a mi...

me sale error en el sleep

[<?BRoWLi?>]

Pues mira, en principio Cont = Cont + 1, esta mal, deberías declararla como global en integer, y en el evento load igualarla a 1, así si sería lógico declarar su aumento en uno.

Goto está ya bastante "desgastado" y es desaconsejao, asi k usa un bucle por ejemplo Do while text1 >= 20, esto es importante, siempre que entras en un bucle en el que por ejemplo un numero va en aumento, tienes que darle un margen de error, ya que el programa puede fallar y no darte el número exacto, pero si le dices mayor o igual, puede darle tiempo a coger el 21, 21 o 23, etc...

[Freeze.]

No se si ya respondieron a sus preguntas pero aqui les va un ejemplo:

Código [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    Me.Caption = "Apagando sistema en 5 segundos..."
    'Sleep en 5000 milisegundos
    Sleep 5000
    Me.Caption = ""
End Sub
Private Sub Form_Load()
    Me.Caption = ""
    Command1.Caption = "Este boton apagara el sistema..."
End Sub

'Bueno este codigo hara q tu PC se apague mucho cuidado ^^!

[vivachapas]

mmm bueno la verdad creo q entendi mas o menos xq no funcionaba... despues voy a probar la forma q me dice browli...

y freeze... ese ejemplo lo habia visot... lo tenia en el api guide... pero... ese codigo no apaga la computadora

[Freeze.]

y freeze... ese ejemplo lo habia visot... lo tenia en el api guide... pero... ese codigo no apaga la computadora

Nunca dije q el codigo lo habia creado yo -.-

[vivachapas]

yo solo dije q lo habia visto... ya q de ahi saque el ejemplo... pero no me funcionaba... y... q ese codigo asi como vos lo pusiste no apaga la pc

[Freeze.]

ummmmmm ok