Mensajes

HOLA!!!

Disculpen, no use el buscador...

por que quiero una respuesta nueva...

Tengo una pc W7 HomePremium ACER...

obviamente me vino el W7 de fabrica en el C.

quiero instalarle un Linux Lo tengo y se como instalarlo, pero
el problema es que no se si cuando parta la particion C en C y D voy a perder el W7 ...

Espero Respuestas.

GRACIAS POR LEER!!!

HOLA!!!

Si, ponele vos tenes 25 picturebox (ponelos en un array de controles):
entonces guardas en un hola.txt:
0101111111111111111111111

Ahi cuando tenes la cadena esa haces:
For x=1 to 25
   Picture(x-1).visible = mid(tustring,x,1)
next

Entonces con la cadena que te mostre antes van a quedar visibles todos menos el 0 y el 2.

GRACIAS POR LEER!!!

HOLA!!!

Hasta ahora:
0) SOLO TESTEADO CON NUMEROS POSITIVOS
1) A MI FUNCION EN EL TEST SE LE QUITO LA PARTE DE LOS NEGATIVOS
2) ACTUALIZADO CON MI ULTIMA FUNCION
3) RESULTADOS COMPILANDO

Código [Seleccionar] Expandir

"******TEST HECHO POR 79137913******"
**PRUEBA CON NUMEROS POSITIVOS HASTA EL MAX**
7913: 6,891 msec
BZro: 35,604 msec
E__C: 1,786 msec
Frog: 6,319 msec
Dark: 18,452 msec


Para ver el test: http://pastebin.com/LJm02bAw

GRACIAS POR LEER!!!

HOLA!!!

Me parece o estas pidiendo codigo armado...

REGLAS: http://foro.elhacker.net/programacion_visual_basic/reglas_del_foro_iexclleed_todos-t93618.0.html

GRACIAS POR LEER!!!

[NOV]

HOLA!!!

Gracias NOV!!!

GRACIAS POR LEER!!!

HOLA!!!

Aca va mi codigo, Casi identico al de Mr Frog :S igual Lo tenia armado desde antes.

Me falta agregar la comprobacion para los negativos.

Código (vb) [Seleccionar] Expandir

Private Function IsFibonacci7913(ByVal N As Long) As Boolean
   If N < &H0 Then
   If N = -1 Then IsFibonacci7913 = True: Exit Function
        Dim Neg0 As Double
        Dim Neg1 As Double
        Dim Neg2 As Double
       Neg0 = &H0
       Neg1 = &H1
       Do While Not (Neg1 < N)
           Neg2 = Neg0
           Neg0 = Neg1
           Neg1 = (Neg2 - Neg0)
       Loop
       If N = Neg2 Then IsFibonacci7913 = True
       Exit Function
   End If
   If N = &H0 Then IsFibonacci7913 = True: Exit Function
    Dim Aux0 As Double
    Dim Aux1 As Double
    Dim Aux2 As Double
   Aux2 = N * N
   Aux2 = Aux2 + Aux2 + Aux2 + Aux2 + Aux2
   Aux1 = Aux2 + &H4
   Aux1 = Sqr(Aux1)
   If Aux1 - (CLng(Aux1)) = &H0 Then IsFibonacci7913 = True: Exit Function
   Aux0 = Aux2 - &H4
   Aux0 = Sqr(Aux0)
   If Aux0 - (CLng(Aux0)) = &H0 Then IsFibonacci7913 = True
End Function


Nota:
1)Negafibonacci (ver fuente).
2)Comprobacion de Numeros enteros positivos sean de Fibbonacci (ver fuente).

Fuente1: http://www.worldlingo.com/ma/enwiki/es/Negafibonacci
Fuente2: http://gaussianos.com/algunas-curiosidades-sobre-los-numeros-de-fibonacci/

GRACIAS POR LEER!!!

HOLA!!!

Igual si siguen buscando van a ver que la secuencia empieza en el -infinito si se quieren fijar.

GRACIAS POR LEER!!!

HOLA!!!

Bueno, un reto facil, dada la funcion:

IsFibonacciNumber(N as long) as Boolean

Se le da un numero entero sea Positivo o Negativo la funcion devolvera True si efectivamente es un numero perteneciente a la serie y false si no pertenece.

N maximo =46340

Para informacion acerca de la Secuencia de Fibonacci:
http://tinyurl.com/4ar5pd4

Obviamente vamos a usar para testear:
http://foro.elhacker.net/programacion_visual_basic/src_cfrogcontestcls_by_mr_frog_copy-t318871.0.html

XD


GRACIAS POR LEER!!!

HOLA!!!

Si, pero me referia a una estadistica osea promedio de personas por dia, promedio de mensajes,  etc.

GRACIAS POR LEER!!!

HOLA!!!

Solo por curiosidad, no se si tienen activas las estadisticas del foro, podrian postear un informe con usuarios totales activos, activos por foro Etc.

Talves esto Entra en la privacidad de las personas, pero obviamente habria que quitar los nombres y listo.

Bueno, eso Si quieren XD.

GRACIAS POR LEER!!!