Mensajes

Código (vb) [Seleccionar] Expandir

Function IsLychrelNumber(numero As Double, ByRef numeroFinal As Double, Optional maxVueltas As Long = 20) As Boolean

Dim i As Long
numeroFinal = numero

For i = 0 To maxVueltas
numeroFinal = numeroFinal + CDbl(StrReverse(CStr(numeroFinal)))
If (numeroFinal = CDbl(StrReverse(CStr(numeroFinal)))) Then Exit Function
Next
IsLychrelNumber = True

End Function

Entendí que numeroFinal era el último generado, así que comienzo con ese, sino lo quito y no lo uso
De cualquier manera, esto sigue siendo funcional para números "pequeños", sino hay que hacer la suma mediante strings.

Saludos

Ya lo hice, ahora lo tengo que modificar
Dada la manera en que se calcula el número, probando incluso con 89 (es uno de los ejemplos de wikipedia) se desborda, no sirven los long

Saludos

Pues yo lo veo normal, quizás el problema este en otro lado, revisa las aplicaciones abiertas y su consumo con un administrador de tareas (el de Win o cualquier otro), pasa alguna tool de limpieza de temporales y registro y desfragmenta el disco

Saludos

Podrías estar infectado nuevamente, has revisado el/los pendrives que estas usando?

Saludos

[Tokes]

No jodas, yo hice ese mismo código que ha colgado Tokes (salvo que omití el valor OR) y no lo puse porque el de Karcrack era bastante más rápido, supongo que eso me pasa por no tener el VB6 y probarlo en VBA

Que alguien busque otro "reto" de estos, que a la próxima no me quedo quieto

Saludos

Quizás no es problema del ordenador, puede que te estes mareando al levantarte muy rápido de la silla y no tenga necesariamente que ver con la pc, puede ser incluso tema de circulación u otro (no soy médico, así que aquí la dejo xD)

Saludos

Realmente no, por eso si fuera algo grave deberías de plantearte el poner una denuncia.

Saludos

con la ip puedo conseguir su direccion no?

No, no puedes salvo salvo bajo denuncia y orden judicial.

Saludos

La verdad no tengo idea, y sería realmente raro que instalara todo eso menos los drivers, después de todo se supone que ahí esta la descarga

Saludos

Ya he visto también, no estan en la web de Acer (Acer aspire 7741G )
Mira lo que encontré!
:http://support.amd.com/us/kbarticles/Pages/ATI-Catalyst-driver-Radeon-HD5400.aspx

Saludos