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

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 128
11  Programación / Bases de Datos / [mySQL] ¿Simplificar esta consulta? en: 15 Febrero 2013, 01:58 am
Tengo la siguiente tabla y consulta: Ver en SqlFiddle.
Ahí extraigo todos los ids de los elementos que tienen cm_min y cm_max dentro del rango ingresado, en este caso 13 y 66.

¿Se os ocurre alguna forma de simplificar esta consulta?

Gracias.
DoEvents! :P
12  Sistemas Operativos / GNU/Linux / Problema con la velocidad de subida en Ubuntu 12.10 en: 7 Febrero 2013, 02:06 am
Tengo una velocidad de descarga normal, pero cuando intento subir archivos va como una tortuga (es casi nula).
Después fui a Windows y subo archivos a una velocidad normal.
Hice un test en:
Código:
http://www.speedtest.net/
Y me devolvió:
Código:
Upload test error
Iba a subir una captura... ¡pero no puedo! :-\ :xD
¿Qué pasa aquí? :-\

Aprovecho para preguntar otra duda:
Tengo el CPU al 35% de normal. Me puse a mirar los procesos y las webs con flash y el compiz consumen una autentica barbaridad.

Agradecería cualquier ayuda.
DoEvents! :P
13  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 4 en: 3 Febrero 2013, 02:39 am
Black, tu algoritmo está incompleto. Tu sacas el primer palíndromo que encuentra. Pero debe de ser el mayor posible.

PD: Mi ordenador echa humo de 6 en adelante. :xD

DoEvents! :P
14  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 4 en: 2 Febrero 2013, 20:45 pm
Tengo problemas de Overflow.  :-\

Mirad lo que hago:

Código
  1. Option Explicit
  2.  
  3. Private Sub Form_Load()
  4. Dim B As Double
  5.  
  6.     B = 998001 '999 * 999
  7.     B = 999 * 999
  8. End Sub

Me dice Overflow en la multiplicación, pero la variable B puede almacenar el resultado. :huh:

@karcrack: brillante deducción. ;)

DoEvents! :P
15  Programación / Programación Visual Basic / [RETO] Project Euler 4 en: 2 Febrero 2013, 17:22 pm
Un número palíndromo es aquel que se lee igual si lo damos la vuelta, ejemplos:
Código:
98789
121
345543

El palíndromo más grande de la multiplicación de dos números de dos cifras es:
Código:
9009 = 91 X 99

¿Cuál sería el palíndromo más grande de la multiplicación de dos números de TRES cifras?


Normas del reto:

1.-NO es válido precargar valores.

2.-Estructura de la función:
Código
  1. Public Function PE4_Psyke1(Optional Byval lCifras As Long = 3) As Double

3.-La función debe de ser válida para todas las cifras que se le pasen por el argumento.

4.-El resultado correcto es:
Código:
906609

Reto original:
Código:
http://projecteuler.net/problem=4

DoEvents! :P
16  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 3 en: 2 Febrero 2013, 15:08 pm
Bueno he hecho unos test, aquí está el código:

Código:
Option Explicit
Private ManagerPrime    As New clsPrime

Private Sub Form_Load()
Dim Q                   As Long
Dim t                   As New CTiming
Const LOOPS             As Long = 500

    If App.LogMode = 0 Then MsgBox "¡Compila!", vbCritical: End
    
    Me.AutoRedraw = True
    Me.Print "Con " & LOOPS & " vueltas"
    Me.Print
    
    t.Reset
    Call ManagerPrime.Clear
    ManagerPrime.BufferLimitIndex(7000) = &H7FFFFFFF
    
    For Q = 1 To LOOPS
        ProyectEuler3_ByBlack
    Next Q
    Me.Print "BlackZeroX -> ", t.sElapsed
    
    t.Reset
    For Q = 1 To LOOPS
        ProyectEuler3_ByDark
    Next Q
    Me.Print "DarkMatrix -> ", t.sElapsed
    
    t.Reset
    For Q = 1 To LOOPS
        PE3_DarkmodPsyke1
    Next Q
    Me.Print "DarkmodPsyke1 -> ", t.sElapsed
    
    t.Reset
    For Q = 1 To LOOPS
        PE3_Psyke1
    Next Q
    Me.Print "Psyke1 -> ", , t.sElapsed
    
    Set ManagerPrime = Nothing
End Sub
 
Public Function ProyectEuler3_ByBlack(Optional ByVal lNumber As Double = 600851475143#) As Double
'Dim ManagerPrime    As clsPrime
Dim auxn            As Double
Dim auxd            As Double
Dim i               As Long
    'Set ManagerPrime = New clsPrime
    While lNumber > 1
        'DoEvents
        auxd = lNumber / ManagerPrime.Prime(i)
        auxn = Fix(auxd)
        If (auxd = auxn) Then
            lNumber = auxn
        Else
            i = (i + 1)
        End If
    Wend
    ProyectEuler3_ByBlack = ManagerPrime.Prime(i)
    'Set ManagerPrime = Nothing
End Function



Public Function ProyectEuler3_ByDark(Optional ByVal lNumber As Double = 600851475143#) As Double
 
    Dim n As Double
    Dim A As Double
    Dim B As Double
 
    Do
 
        n = n + 1
 
        A = lNumber / n
        B = Fix(lNumber / n)
 
        If A - B = 0 Then
 
            lNumber = B
            ProyectEuler3_ByDark = n
            n = 1
 
        End If
 
    Loop Until lNumber = 1
 
End Function

Public Static Function PE3_DarkmodPsyke1(Optional ByVal dNumber As Double = 600851475143#) As Double
Dim lCount                              As Long
Dim dDiv                                As Double
 
    Do While dNumber > 1
        lCount = lCount + &H1
        dDiv = dNumber / lCount
 
        If dDiv = Fix(dDiv) Then
            dNumber = dDiv
            PE3_DarkmodPsyke1 = lCount
            lCount = &H1
        End If
    Loop
End Function

Public Static Function PE3_Psyke1(Optional ByVal dNumber As Double = 600851475143#) As Double
Dim lCount                              As Long
Dim dDiv                                As Double
 
    dDiv = dNumber / 2
 
    If dDiv = Fix(dDiv) Then
        dNumber = dDiv
    End If
 
    lCount = &H1
 
    Do
        lCount = lCount + &H2
        dDiv = dNumber / lCount
 
        If dDiv = Fix(dDiv) Then
            dNumber = dDiv
            dDiv = dNumber / 2
 
            If dDiv = Fix(dDiv) Then
                dNumber = dDiv
            End If
 
            PE3_Psyke1 = lCount
            lCount = &H1
        End If
    Loop Until dNumber = 1
End Function

Y aquí unos resultados:







Obviamente a la larga gana la función de BlackZeroX puesto que no tiene que calcular casi nada... :¬¬
Yo personalmente me quedaría con la mía. :silbar:

Voy posteando el siguiente. :)

DoEvents! :P
17  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 3 en: 1 Febrero 2013, 13:25 pm
@BlackZeroX  



:¬¬ :laugh:

La próxima vez aclararé que NO es válido precargar valores. Así pierde la gracia... :silbar:


Esta es mi forma de hacerlo (sé que se puede simplificar código, pero en esta ocasión no me interesa):

Código
  1. Public Static Function PE3_Psyke1(Optional ByVal dNumber As Double = 600851475143#) As Double
  2. Dim lCount                              As Long
  3. Dim dDiv                                As Double
  4.  
  5.     dDiv = dNumber / 2
  6.  
  7.     If dDiv = Fix(dDiv) Then
  8.         dNumber = dDiv
  9.     End If
  10.  
  11.     lCount = &H1
  12.  
  13.     Do
  14.         lCount = lCount + &H2
  15.         dDiv = dNumber / lCount
  16.  
  17.         If dDiv = Fix(dDiv) Then
  18.             dNumber = dDiv
  19.             dDiv = dNumber / 2
  20.  
  21.             If dDiv = Fix(dDiv) Then
  22.                 dNumber = dDiv
  23.             End If
  24.  
  25.             PE3_Psyke1 = lCount
  26.             lCount = &H1
  27.         End If
  28.     Loop Until dNumber = 1
  29. End Function

Ejemplo:
Código
  1.     Debug.Print PE3_Psyke1 ' 6857
  2.  

DoEvents! :P
18  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 3 en: 31 Enero 2013, 16:36 pm
Cita de: $Edu$ en 31 Enero 2013, 15:08 pm
No me gustan estos retos donde gana el que sabe buscar mejor en google jaja.

Si alguien es tan estúpido como para hacer eso adelante. No aprenderá nada y encima se estará engañando a sí mismo. :¬¬
Además, hay muchas formas de hacerlo. ;)

DoEvents! :P
19  Programación / Programación Visual Basic / [RETO] Project Euler 3 en: 31 Enero 2013, 13:12 pm
Los factores primos de 13195 son 5, 7, 13 and 29.
¿Cual es el factor primo más grande del numero 600851475143?

Debe devolver el número:
Código:
6857

Código:
http://projecteuler.net/problem=3

Estructura:
Código
  1. Public Function ProyectEuler3(Optional ByVal lNumber As Double = 600851475143) As Double

DoEvents! :P
20  Programación / Programación Visual Basic / Re: Duda con la Api, Pulsar en boton de una aplicacion externa en: 28 Enero 2013, 13:58 pm
Igual el botón no está en ese nivel. :rolleyes: Me explico:
FindWindowEx() te saca el hwnd de un objeto contenido en el primer nivel de Game Emulator V7.0.
Seguramente ese botón no se encuentre en exactamente ahí.
Yo creo que si sacas el hwnd del botón con el Spy++ haces un GetParent() no coincide con el hwnd de Game Emulator V7.0.
Posible solución: api EnumChildWindows().

¡Suerte! ;)

DoEvents! :P
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 128
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines