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
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
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
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
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...
No se si ya respondieron a sus preguntas pero aqui les va un ejemplo:
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 ^^!
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
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 -.-
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
ummmmmm ok :D