"No responde" con For To

[doword]

Hola bueno nesesito un programa que haga muchas rutinas simultaneas muy pero muy rapido....


Pues lo primero que se me viene a la cabeza fue el Timer, pero el timer no es tan rapido, pues se que existe otra alternativa que es el "For To" y es exactamente lo que nesesito...

El problema es que al tener numeros muy altos como 100,000 el programa se traba y "No responde", he tratado con todo inclusive usando la libreria "kernel32" para usar "Sleep"

Iniciado por kernel32(Sleep)

Solo se tiene que poner...

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

y despues la llamas usando:

Sleep(TIEMPO EN MILISEGUNDOS)

Pero lametablemente el programa se me sigue trabando... /:

¿Como puedo solucionarlo?

[elarrieux]

Hola!

Si el programa se te traba, para que usas Sleep?

Podrias pegar parte del codigo para mirarlo?

Sds.

[doword]

Bueno.. aca un resumen del codigo...

Código vb:

Public Class Form1
 
    Private a As Double
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        For i = 0 To 100000000
            a += 1
            Me.Text = a
        Next
 
    End Sub
End Class
 

Eso seria como un pequeño resumen de la falla del For, creo que lo que pasa es que hace mas solicitudes que el soporte de la RAM y eso creo que es el error... posiblemente...

Pueden haber 2 posibles fallas dependiendo que tan extenso sea el codigo...
mayormente para este ocurre que se te hace imposible mover la pantalla y dentro de poco todo funciona con algunos segundos de intervalo... osea haces clic y recien la PC procesa el clic despues de unos segundos...

cuando hay mayor cantidad de lineas (en mi programa son 153 adentro del For) simplemente se congela el programa y te pide cerrarlo.

Puedo usar Timer y va perfecto, pero el Timer es muy lento inclusive poniendole 1 milisegundo...

Si hubiera alguna forma de hacer que el For no consuma tanto creo que seria la solucion...

Y lo peor de todo es que ni en google sale solucion :3

Te recomiendo que si vas a probar el codigo guardes todos tus archivos ya que posiblemente tengas que reinciar si se congela todo...

[elarrieux]

Lo que tenes que hacer es tirar la tarea en un nuevo Thread.

Va ejemplo, funciona ya lo probe:

Código:

Imports System.Threading

Public Class Form1

    Private demoThread As Thread
    Private a As Double

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        Me.demoThread = New Thread(New ThreadStart(AddressOf Me.ThreadProcUnsafe))

        Me.demoThread.Start()

    End Sub

    Private Sub ThreadProcUnsafe()
        For i = 0 To 100000000
            a += 1
            ActualizarBoton(Me.Button1, a.ToString)
        Next
    End Sub

    Sub ActualizarBoton(btn As Button, text As String)
        If btn.InvokeRequired Then
            btn.Invoke(New Action(Of Button, [String])(AddressOf ActualizarBoton), New Object() {btn, text})
        Else
            btn.Text = text
        End If
    End Sub
End Class

Espero te sirva.

Sds.

[doword]

Iniciado por elarrieux

Lo que tenes que hacer es tirar la tarea en un nuevo Thread.

Va ejemplo, funciona ya lo probe:

Código:

code...

Espero te sirva.

Sds.

Oh, wow!!

Eres un dios, la verdad que no conosia eso de los thread, gracias! (=