Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Puntoinfinito

#361
Es mucho más fácil con timer...

timer1()_tick
'Comandos

start timer1()
#362
Noticias / Re: Grub Customizer 3.0
13 Septiembre 2012, 13:39 PM
Uoo era hora de sacar algo mejor que Super Grub Disk
#363
Noticias / Re: Google compra Virus Total
13 Septiembre 2012, 13:37 PM
Me pregunto cuanto le habrá pagado a VirusTotal para comprar el servicio...
#364
Noticias / Re: Así es el nuevo iPhone 5 con LTE
13 Septiembre 2012, 13:37 PM
Cita de: 0xDani en 13 Septiembre 2012, 13:05 PM
Apuesto por Microsoft.

No creas, con su Windows podrá ir chutando.
Lo qué si que creo es que Google, nunca caerá al revés, seguirá aumentando.
#365
Yo conozco personalmente al ganador;)
#366
GNU/Linux / Recuperar grub linkat
5 Septiembre 2012, 00:54 AM
Buenas a tod@s.

Vereís, tengo ya casi toda la grub recuperada, ahora solo me falta recuperar la de mi Linkat. Es la unica que me queda... Pero he tenido problemas, estoy siguendo los mismos pasos que las otras recuperaciónes, pero este me marca error.

Yo recupero la grub a través de ubuntu arrancando desde un Live USB. Abro la terminal y seteo :
find /boot/grub/stage1
root (hdX,Y)
setup (hdX)

Okay, la cosa esta en que no se encontrar las informaciónes correctas del dicho distro, aquí os dejo una foto con mi máquina virtual (se ve pequeño) de la partición con sus propiedades...

SALUDOS  ;-)
#367
Cita de: seba123neo en  1 Septiembre 2012, 00:12 AM
no se puede directamente, para simular una demora o pausa (tipo sleep pero sin que se trabe todo), debes hacer un bucle que ejecute el Application.DoEvents() y que termine cuando se cumpla una condicion, en este caso cuando se cumpla la cantidad de segundos que vos quieras, te haces una simple funcion y la llmas con los segundos como parametro, asi se hace tambien en visual basic 6,

aca te paso un ejemplo de pausa que no traba la aplicacion.

Código (vbnet) [Seleccionar]
Public Class Form1

   Private Sub Pausa(ByVal pSegundos As Integer)
       Dim vInicio As Integer = Environment.TickCount()
       While ((Environment.TickCount() - vInicio) <= pSegundos)
           Application.DoEvents()
       End While
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       For i As Integer = 1 To 30
           TextBox1.Text = i
           Call Pausa(1000)
       Next
   End Sub
End Class


al apretar el boton se va sumando 1 al valor del textbox y con una pausa de 1 segundo, esta no traba la pantalla y podes mover los controles y la pantalla. sin embargo dicen que el DoEvents ocupa mucho procesador, pero bueno no creo que sea tan drastico. la otra es usar Threads.

saludos.

Gran función!:D Funciona a la perfección, gracias.

Cita de: Stakewinner00 en  1 Septiembre 2012, 00:09 AM
personalmente utilizaria un timer

Eso he echo xDDD
#368
Cita de: seba123neo en 31 Agosto 2012, 20:39 PM
al usar Sleep ya que traba toda la aplicacion (en este caso es solo 1 segundo asi que casi ni lo notas), pero mejor es usar Application.DoEvents para generar un retraso, y en ese retraso vas a poder mover la pantalla sin que se trabe.

A este comando se le pueden añadir segundos?
#369
Tienes razón, añadí un label que cada vez que se repetía el ciclo for sumara +1 de propiedad y lo sumó... Va tan rápido que no se ve.

He pensado que igual añadiendo
System.Threading.Thread.Sleep(1000)
como pausa de un segundo justo abajo de "next", hará que los comandos se ejecuten más bien y se pueda apreciar el refresh().

Saludos y thnx.
#370
Buenas.

Mirad, tengo un proyecto, que consiste en hacer un visitador de pagina web masivo. Tengo todo el código echo, pero no me va. He probado dos tipos de funciones pero ninguna de las dos, he leído y reeleido pero nada, así que he publicado.

Mirad, esto sería probando con While:
Navegador.navigate(txt_direccion.text)
        Button1.Hide()
        Button2.Show()
        total.text = 1
        Dim counter As Integer = 0
        While counter < 20
            counter += 1
            ' Insert code to use current value of counter.
            If total.Text = 1 Then Navegador.Refresh()
        End While


Pero solo se abre la pagina que has indicado y nada, ni se molesta en refrescarse.
Luego con FOR:
Navegador.navigate(txt_direccion.text)
        Button1.Hide()
        Button2.Show()
        total.text = 1
        Dim i As Integer = 0
        For i = 1 to 20
        If total.Text = 1 Then Navegador.Refresh()