Imprimir Página - problema con API sleep

Título: problema con API sleep
Publicado por: vivachapas en 26 Mayo 2007, 23:25 pm

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:

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

Título: Re: problema con API sleep
Publicado por: satan69 en 27 Mayo 2007, 12:44 pm

Cita de: vivachapas en 26 Mayo 2007, 23:25 pm

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:

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

Título: Re: problema con API sleep
Publicado por: <?BRoWLi?> en 27 Mayo 2007, 14:22 pm

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

Título: Re: problema con API sleep
Publicado por: Freeze. en 27 Mayo 2007, 19:32 pm

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

Código:

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 ^^!

Título: Re: problema con API sleep
Publicado por: vivachapas en 28 Mayo 2007, 03:11 am

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 :xD

Título: Re: problema con API sleep
Publicado por: Freeze. en 29 Mayo 2007, 20:55 pm

Cita de: vivachapas en 28 Mayo 2007, 03:11 am

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

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

Título: Re: problema con API sleep
Publicado por: vivachapas en 30 Mayo 2007, 02:12 am

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

Título: Re: problema con API sleep
Publicado por: Freeze. en 31 Mayo 2007, 01:04 am

ummmmmm ok :D

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: vivachapas en 26 Mayo 2007, 23:25 pm