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


 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 ... 9 10 11 12 13 14 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 ... 133
231  Programación / Programación Visual Basic / Re: [Source] Efectos para una bonita interfaz GUI en: 22 Febrero 2013, 14:50
HOLA!!!

Muy bueno Mad!

No probe el trainer, pero me gusta como armaste la interfaz esta muy practica!

GRACIAS POR LEER!!!
232  Programación / Programación Visual Basic / Re: [Ayuda]Me dieron el codigo de un sistema y necesito conocerlo en: 30 Enero 2013, 19:57
HOLA!!!

Mmm entonces tenes un VBG, yo te digo, me paso una sola vez eso y no te queda otra que ir viendo, de ultima apreta F5 y antes de clickear donde se abre el formulario de ventas apretas Ctrl+Pause luego apretas y seguis con F8 los pasos para ver como funciona y que hace cuando apretas ese boton, tarde o temprano te va  a llevar a el form que queres.

GRACIAS POR LEER!!!
233  Programación / Programación Visual Basic / Re: [Ayuda]Me dieron el codigo de un sistema y necesito conocerlo en: 30 Enero 2013, 17:40
HOLA!!!

Osea abris el IDE, luego cuando abris el vbp al costadito te aparecen los modulos y formularios.

No hay mas ciencia que eso.

GRACIAS POR LEER!!!
234  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 2 en: 25 Enero 2013, 13:30
HOLA!!!

Psyke1: Tenes razon, habia un error en mi procedimiento, al corregirlo me di cuenta que el procedimiento de todos estaba errado tambien, dejo mi funcion actualizada en el primer post.
Aclaro aca bien cual es el resultado correcto (que no es el que decis vos por que tiene que ser menor al limite.)

Generar algoritmo que devuelva la suma de los números de la serie de Fibonacci, y esa suma sea menor a 4000000.
PSYKE1 TRADUCI BIEN

RTA correcta:
 3524577


GRACIAS POR LEER!!!
235  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 2 en: 25 Enero 2013, 12:24
HOLA!!!

Aqui una respuesta simple, ando sin time para hacer algo mejor:
Código
  1. Private Function Fibbo7913(Optional Limit As Long = 4000000) As Long
  2. Dim aux  As Long
  3. Dim act  As Long
  4. Dim ant  As Long
  5. Dim suma As Long
  6.    ant = 1
  7.    act = 1
  8.    suma = 1
  9.    Do
  10.        If act And 1 Then suma = suma + act 'operacion binaria que me dice si es par o no
  11.        aux = act
  12.        act = act + ant
  13.        ant = aux
  14.    Loop While act < Limit
  15.    Fibbo7913 = suma
  16. End Function
  17.  

P.D: esto me hace recordar a: [RETO] IsFibonacciNumber(N as long)

GRACIAS POR LEER!!!
236  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 1 en: 23 Enero 2013, 17:09
HOLA!!!

Eso que me decis me deja atonito...

Hice los testeos y los acabe de realizar nuevamente, tu funcion es aprox 100% mas lenta que la mia ( y siendo generoso 100%), proba con este ejemplo que arme para medir el timing, acordate que se testea compilado.

(borre el codigo por que lo hizo E_C abajo.

GRACIAS POR LEER!!!
237  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 1 en: 23 Enero 2013, 16:29
HOLA!!!

Bueno, mejoraste el largo del codigo y un poco la velocidad esta bien, pero mira el mio y tu codigo.

Podras observar que en mi codigo funciona haciendo sumas de los casos positivos dentro de el campo muestral (1-999) y quitando al final las superposiciones mientras que el tuyo lo que hace es analizar una por una todas las probabilidades y extraer de ellas las que cumplen las condiciones. la cantidad de vueltas del primer bucle es de 200 , el segundo 133 y el tercero 66, dando un total de 399 vueltas muchas menos que en tu codigo de 999.

En definitiva tu codigo hace prueba y error, el mio une los 2 grupos de multiplos y quita los repetidos.

P.d: Eso que hago de ct + ct + ct es lo mismo que ct *3 pero es mas rapido para que lo tengas en cuenta.

GRACIAS POR LEER!!!
238  Programación / Programación Visual Basic / Re: [RETO] Proyect Euler 1 en: 23 Enero 2013, 14:17
HOLA!!!

Dany, yo que vos busco sobre optimizacion de codigo.

Código
  1. Private Function mul5and3below1000() As Long
  2.    Dim ct As Long
  3.    Dim aux As Long
  4.    Do
  5.        mul5and3below1000 = mul5and3below1000 + aux + aux2
  6.        ct = ct + 1
  7.        aux = ct + ct + ct
  8.        aux2 = ct + ct + ct + ct + ct
  9.    Loop While aux2 < 1000
  10.    Do
  11.        mul5and3below1000 = mul5and3below1000 + aux
  12.        ct = ct + 1
  13.        aux = ct + ct + ct
  14.    Loop While aux < 1000
  15.    ct = 0
  16.    aux = 0
  17.    Do
  18.        mul5and3below1000 = mul5and3below1000 - aux
  19.        ct = ct + 1
  20.        aux = ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct + ct
  21.    Loop While aux < 1000
  22. End Function

GRACIAS POR LEER!!!
239  Programación / Programación Visual Basic / Re: [RECOPILACION DE RETOS] VBClassic Por 79137913 en: 21 Enero 2013, 18:58
HOLA!!!

Update:
[RETO] Ruta más oculta
[Reto] UrlEncode y UrlDecode

GRACIAS POR LEER!!!
240  Programación / Programación Visual Basic / Re: Digan como usar este submain o funcion descifrar texto x en: 21 Enero 2013, 18:49
HOLA!!!

100% de razon @ElectroHacker.

Ultimamente estoy manteniendome fuera de los post solo leyendolos por que tendria que denigrar a muchos y no esta bueno eso gracias por contribuir con el foro poniendo a esta gente en evidencia, como dije antes no lo hago mas por que siempre soy el policia malo XD.

GRACIAS POR LEER!!!
Páginas: 1 ... 9 10 11 12 13 14 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 ... 133
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines