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


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!!!

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.

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!!!