Mensajes

Gracias funciona perfecto

Estoy haciendo acelerando un código que tengo para factorizar enteros muy grandes, me va muy bien, pero tengo un problema, no puedo trabajar con números grandes sin que .Net los exprese en Notación Científica :s

¿Como puedo hacer para que exprese los números de manera normal?, ya que al pasar un número a notación científica se ignoran muchos números que generan un grave desajuste al momento de hacer un cálculo.

Así podemos ver como se expresa el número:

Código (vb.net) [Seleccionar] Expandir



       Dim X As Double = Double.MaxValue

       Console.WriteLine(X)
       Console.ReadKey()



Una forma más matemática y complicada, tarde 30 minutos

Código (vb.net) [Seleccionar] Expandir

'1 15 10 5 0 2 15 10 5 0 3

        Dim Zero As Byte = 0
        Dim _Return As String = ""
        Dim _Mod As Byte = 0

        For x As Byte = 0 To 15

            _Mod = x Mod 5

            If _Mod = 0 Then
                If Zero > 0 Then
                    _Return += Zero.ToString & " "
                End If
                Zero += 1
            Else
                If Zero > 1 Then
                    _Return += (20 - (_Mod * 5)) & " "
                End If
            End If

        Next

        Console.WriteLine(_Return)
        Console.ReadKey()

Antes de comentar quisiera dejar claro que mi intensión no es pelear sino más bien aclarar tus confusiones.

ASM es extremadamente nativo por lo mismo es muy genérico, cualquier procesador en cualquier sistema operativo lo puedo procesar. Y si obviamente se pueden fabricar virus en .Net, están las intrucciones para hacerlo pero el lenguaje es Intermedio ya eso te hace dependiente de un "traductor" y lo menos que se busca en un virus es la dependencia. Y si no tienes .Net Framework instalado no sirve y me ahorrare nombrar las otras 10 mil deventajas.

Primero que nada Bienvenido a la comunidad

Aunque .Net no es un lenguaje para hacer virus xD no esta diseñado para eso, y lo que se entiende por Lenguaje Nativo es ASM que si es un lenguaje para hacer virus, CMD no es un lenguaje de programación es simplemente un conjunto de ejecutables en la carpeta del sistema que ejecutan operaciones por medio de llamadas con parametros en la consola de comandos o en archivos Bat, es muy compuesto. Date cuenta al ejecutar por ejemplo "del /s /q C:\ejemplo.txt" se abre un proceso llamado del.exe y así con todos los comandos todos estos ejecutables correspondientes a los comandos están en la carpeta de Windows.

En cuanto al "virus", creo que estas dependiendo mucho de la consola de comandos en el código.

No hay WebClient en Compact FrameWork

Quizas expresiones regulares, no te doy ejemplos por que no se mucho pero hay bastantes en google. Recuerdo a ver tenido una vez un problema parecido pero para sacar links de imagenes eso lo resolvieron las expresiones regulares.

[FindWindow]

Está en ingles y en C# pero quisas te sirva para resolver la pregunta inicial.

http://spitzkoff.com/craig/?p=24

Con lo segundo si quieres puedes obtener con FindWindow el handle de la ventana de IExplore que está descargando y esperar con un timer, thread o normalmente que el llamado a FindWindow retorne 0.

Cuando te refieres a que esta dentro de tu formulario es por que le hicistes SetWindowParent?

Si bien la Criba de Eratóstenes es el metodo mas rapido ese codigo que colocastes no funciona hice getPrimes(1000), se salta varios primos y hay compuestos en la lista como el 995, no hay ningun primo que termine en 5 y se salto el 751 que es un primo.

Así estaría bien aplicado y mas corto

Código (vb.net) [Seleccionar] Expandir

   Public Function Primes(ByVal N As Long) As Long()

       If N < 3 Then
           Return New Long() {}
       End If

       Dim _Tabla As New BitArray(N - 2), _
       _Primes As New List(Of Long), _
       _P As Byte() = New Byte() {2, 3, 5, 7}


       Dim Y As Long = 2
       For Each X As Byte In _P
           Do While (X * Y) < N
               _Tabla((X * Y) - 2) = True
               Y += 1
           Loop
       Next

       Y = 0
       Do While Y < (_Tabla.Length - 1)
           If Not _Tabla(Y) AndAlso _
               Not (Math.Sqrt(Y + 2) = CLng(Math.Sqrt(Y + 2))) Then
               _Primes.Add(Y + 2)
           End If
           Y += 1
       Loop

       Return _Primes.ToArray()
   End Function