elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: 1 ... 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 [30] 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 ... 128
291  Programación / Programación Visual Basic / Re: [RETO] IsFibonacciNumber(N as long) en: 15 Febrero 2011, 13:48 pm
Mi función y la de 79137913 solo es valida hasta 46340... (estoy trabajando en ello) :rolleyes:

@79137913
Las varibles donde estan declaradas? :huh:

@BlackZer0x
Citar
Tu funcion tiene Horrores de logica básica ( Conversion de un Double a un Integer ).
Creo que te equivocas, lo que hago es comprobar si el resultado es un número exacto o no, de esta manera :

Si tengo el numero 234.365 seria :
Código
  1. 234.365 - 234 = 0 ' Falso (el número 234.365 NO es entero)
Pero si es el numero 456 :
Código
  1. 456 - 456 = 0 ' Verdadero (el número 456 es entero)

DoEvents! :P
292  Foros Generales / Foro Libre / Re: Feliz dia de la amistad y del amor. en: 15 Febrero 2011, 01:56 am

Feliz San Calentín! :-*

DoEvents! :P
293  Programación / Programación Visual Basic / Re: [RETO] Obtener nombre de archivo en: 14 Febrero 2011, 22:05 pm
Ya, pero bueno, con funciones, los resultados son más o menos coherentes... :rolleyes:
Será cosa del CallByNameEx() ! :-( :-( :-( :-(

DoEvents! :P
294  Programación / Programación Visual Basic / Re: [RETO] Obtener nombre de archivo en: 14 Febrero 2011, 21:54 pm
Caca!, si testeo con CTiming me gana... mi clase esta mal (?)
Quizas hacer una funcion que llame a la clase perdia tiempo asi??

DoEvents! :P
295  Programación / Programación Visual Basic / Re: [RETO] Obtener nombre de archivo en: 14 Febrero 2011, 21:35 pm
@Karcrack
Mismos resutlados...  :silbar:

DoEvents! :P
296  Programación / Programación Visual Basic / Re: [RETO] Obtener nombre de archivo en: 14 Febrero 2011, 21:25 pm
Lo pongo así:
Código
  1. Private c As New Class1
  2.  
  3. Public Function GetFilevbspeed(ByRef s As String) As String
  4.     GetFilevbspeed = c.GetFile05(s)
  5. End Function

Y estos son los resultados:
Código:
================================================================================
º Contest Name : ObtenerNombreArchivo
º Explanation  : Mas claro, hechale agua
º Arguments    : C:\Documents and Settings\Llamazares\Mis documentos\Downloads\SexoDeRanas.avi
º Loops        : 10000
º Date & Hour  : 02-14-2011 <-> 21:23:28
================================================================================
Results [compiled] :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.- MrFrogGetFileFast                                   -> 67,317405 msec
2.- SacarFilenameE_Cv2                                  -> 69,679881 msec
3.- SacarFilenameE_C                                    -> 76,798269 msec
4.- getFileNameIgnorante                                -> 78,093355 msec
5.- getFileNameIgnoranteMODSeba                         -> 85,564123 msec
6.- GetFilename123                                      -> 95,046462 msec
7.- GetFilevbspeed                                      -> 102,299685 msec
8.- Reto_GetPatchInfo                                   -> 117,060663 msec
9.- nombre_archivoGrester                               -> 129,081305 msec
10.- Fn7913                               -> 1818,863233 msec
================================================================================
º The following functions returns incorrect results :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.- StripPathSeba
================================================================================
>>> Test made by cFrogContest.cls <-> Visit foro.elhacker.net <<<
================================================================================
¿No debería ser más rápida? :huh:

DoEvents! :P
297  Programación / Programación Visual Basic / Re: [RETO] IsFibonacciNumber(N as long) en: 14 Febrero 2011, 21:14 pm
Aquí dejo la mía:

Código
  1. Public Static Function IsFibonacciMrFrog(ByVal lngNumber As Long) As Boolean
  2. Dim dblRaised                                       As Double
  3. Dim dblSum                                          As Double
  4. Dim dblSqr                                          As Double
  5.  
  6.     dblRaised = lngNumber * lngNumber
  7.     dblSum = dblRaised + dblRaised + dblRaised + dblRaised + dblRaised + &H4
  8.     dblSqr = Sqr(dblSum)
  9.     IsFibonacciMrFrog = (dblSqr - CLong(dblSqr) = &H0)
  10.     If IsFibonacciMrFrog Then Exit Function
  11.     dblSum = dblSum - &H8
  12.     dblSqr = Sqr(dblSum)
  13.     IsFibonacciMrFrog = (dblSqr - CLong(dblSqr) = &H0)
  14. End Function

Código
  1. Private Sub Form_Load()
  2. Dim x           As Long
  3. Dim s           As String
  4.  
  5.     For x = 0 To 100
  6.         If IsFibonacciMrFrog(x) Then
  7.             s = s & x & " "
  8.         End If
  9.     Next
  10.     Debug.Print s
  11. End Sub

Resultado:
Código:
0 1 2 3 5 8 13 21 34 55 89

DoEvents! :P
298  Programación / Programación Visual Basic / Re: [RETO] IsFibonacciNumber(N as long) en: 14 Febrero 2011, 20:29 pm
Que malos sois justo mañana tengo examen y me poneis retos! :(
No me podré resistir, asi que si no es hoy por mi noche o mañana posteo algo. ;)
Está interesante! :)

DoEvents! :P
299  Programación / Programación Visual Basic / Re: [RETO] Obtener nombre de archivo en: 14 Febrero 2011, 19:36 pm
@Elemental Code:
No hice nada raro, compilé, ejecute y eso salió. El resultado puede tener pequeñas variaciones. Lo puedes ver tambien en el test de Black.
Repetí el test y me sale mas rápida tu segunda.

Debes tener en cuenta que a mayor número de funciones utilizadas, generalmente emplearás más tiempo.

2ª función :
Código
  1. Right$(sPath, Len(sPath) - InStrRev(sPath, "\", Len(sPath), vbBinaryCompare))
Funciones utilizadas:
1 Right()
2 Len()
1 InstrRev()
Total : 4

1ª función :
Código
  1. StrReverse$(Left$(StrReverse$(sPath), InStr(1, StrReverse(sPath), "\", vbBinaryCompare) - 1))
Funciones utilizadas:
3 StrReverse()
1 Left()
1 Instr()
Total : 5

DoEvents! :P
300  Programación / Programación Visual Basic / Re: [RETO] Obtener nombre de archivo en: 14 Febrero 2011, 13:34 pm
@Black
Siento no haber puesto tu función, no me fije al no poner el codigo directo en el hilo... :rolleyes:
El inconveniente de mi clase es que todas las funciones deben tener los mismos argumentos. :-(
Únicamente añadí la mia al test de Elemental Code. :silbar:
Igual se me ocurre una version aún más rápida de hacerlo :D

DoEvents! :P
Páginas: 1 ... 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 [30] 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 ... 128
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines