Mensajes

HOLA!!!

Que bueno el primer codigo!
Y, no me extraña que viniendo de Lea me gane en velocidad  .

GRACIAS POR LEER!!!

HOLA!!!

Si no me equivoco el FileListBox muestra todos los archivos que estan en una carpeta (Suponiendo que no hay filtros) bueno la RUTA de la carpeta la tenes, sino el FileListBox no funcionaria. Lo que tenes que hacer es concatenar (Unir) la ruta de la carpeta con el nombre de cada archivo para poder obtener la RUTA_DEL_ARCHIVO (de cada uno).

GRACIAS POR LEER!!!

HOLA!!!

Mmm, yo lo haria con :

Código (vb) [Seleccionar] Expandir

FileLen("RUTA_DEL_ARCHIVO")

Osea, recorres todos los archivos del FileListBox y te fijas si su FileLen es Mayor o Menor que el numero del TextBox.

GRACIAS POR LEER!!!

[@Raul:]

HOLA!!!
Manana me conecto(perdon por la enie, estoy en el celular)
@Raul:
Que raro, los primeros 4 ejemplos son con verdadero y los ultimos 4 con falso fijate(ultimos 4):

Código [Seleccionar] Expandir

Cuenta_Circular7913(2, Matriz, Falso)   :
    7   1   9
    4   0   2
    1   3   3

Cuenta_Circular7913(4, Matriz, Falso)   :
    7   1   2   3   9
    15  7   4   9   5
    14  16  0   8   6
    13  1   12  3   7
    1   11  10  9   3

Cuenta_Circular7913(6, Matriz, Falso)   :
    7   1   2   3   4   5   9
    32  7   6   7   8   9   10
    31  35  7   9   9   15  11
    30  34  36  0   18  16  12
    29  33  1   27  3   17  13
    28  1   26  25  24  3   14
    1   23  22  21  20  19  3

Cuenta_Circular7913(8, Matriz, Falso)   :
    7   1   2   3   4   5   6   7   9
    55  7   8   9   10  11  12  9   17
    54  60  7   13  14  15  9   24  18
    53  59  63  7   16  9   29  25  19
    52  58  62  64  0   32  30  26  20
    51  57  61  1   48  3   31  27  21
    50  56  1   47  46  45  3   28  22
    49  1   44  43  42  41  40  3   23
    1   39  38  37  36  35  34  33  3


GRACIAS POR LEER!!!

[@Raul:]

HOLA!!!

@Raul:
Segun sea verdadero o falso el tipo lo que cambia es la manera de organizar los numeros.

Osea: Tipo = false seria Tipo1 y Tipo = true seria Tipo2

Para ver que tipo de organizacion tiene el tipo 1 y 2 estan los ejemplos.

P.D: Me voy a la playa, asi que recien mañana voy a poder responder si hay alguna duda, me quedo 10 minutos mas.

GRACIAS POR LEER!!!

HOLA!!!

Este es el primer Reto que creo, no es muy dificil, pero para pasar el rato va.

Bueno, el Reto consiste en:

Crear una funcion con esta estructura

Código (vb) [Seleccionar] Expandir

Private Function Cuenta_Circular7913(N&, M() As Integer, TIPO As Boolean)
En la variable N no aceptara numeros que no sean pares o mayores a 180 o menores a 2.

La funcion devuelva estas matrices:

Código [Seleccionar] Expandir

Cuenta_Circular7913(2, Matriz, Verdadero)   :
   7   1   9
   4   0   2
   1   3   3

Cuenta_Circular7913(4, Matriz, Verdadero)   :
   7   1   2   3   9
   12  7   13  9   4
   11  16  0   14  5
   10  1   15  3   6
   1   9   8   7   3

Cuenta_Circular7913(6, Matriz, Verdadero)   :
   7   1   2   3   4   5   9
   20  7   21  22  23  9   6
   19  32  7   33  9   24  7
   18  31  36  0   34  25  8
   17  30  1   35  3   26  9
   16  1   29  28  27  3   10
   1   15  14  13  12  11  3

Cuenta_Circular7913(8, Matriz, Verdadero)   :
   7   1   2   3   4   5   6   7   9
   28  7   29  30  31  32  33  9   8
   27  48  7   49  50  51  9   34  9
   26  47  60  7   61  9   52  35  10
   25  46  59  64  0   62  53  36  11
   24  45  58  1   63  3   54  37  12
   23  44  1   57  56  55  3   38  13
   22  1   43  42  41  40  39  3   14
   1   21  20  19  18  17  16  15  3

Cuenta_Circular7913(2, Matriz, Falso)   :
   7   1   9
   4   0   2
   1   3   3

Cuenta_Circular7913(4, Matriz, Falso)   :
   7   1   2   3   9
   15  7   4   9   5
   14  16  0   8   6
   13  1   12  3   7
   1   11  10  9   3

Cuenta_Circular7913(6, Matriz, Falso)   :
   7   1   2   3   4   5   9
   32  7   6   7   8   9   10
   31  35  7   9   9   15  11
   30  34  36  0   18  16  12
   29  33  1   27  3   17  13
   28  1   26  25  24  3   14
   1   23  22  21  20  19  3

Cuenta_Circular7913(8, Matriz, Falso)   :
   7   1   2   3   4   5   6   7   9
   55  7   8   9   10  11  12  9   17
   54  60  7   13  14  15  9   24  18
   53  59  63  7   16  9   29  25  19
   52  58  62  64  0   32  30  26  20
   51  57  61  1   48  3   31  27  21
   50  56  1   47  46  45  3   28  22
   49  1   44  43  42  41  40  3   23
   1   39  38  37  36  35  34  33  3






GRACIAS POR LEER:

HOLA!!!

PROYECTO CORREGIDO:

Descargar URL:
http://www.gigasize.com/get.php?d=494yh7j9npc

Mirror:
http://hotfile.com/dl/95023949/c5f50e6/retomatrizsinsentido.rar.html

Resultados con el Proyecto corregido y compilado:

Código [Seleccionar] Expandir

============ RETO ZigZag 07/01/2011 - 01:16:08 p.m. ============
Nº de vueltas: 100

============ VELOCIDAD ============
00 Leandro_ZipZag      00,272811
01 BlackZeroX_ZigZag   00,308291
02 79137913_ZZ         00,450767
03 MrFrog_ZigZag       00,539326

Test made by BlackZeroX.


============ RETO ZigZag 07/01/2011 - 01:16:36 p.m. ============
Nº de vueltas: 1000

============ VELOCIDAD ============
00 Leandro_ZipZag      19,583645
01 79137913_ZZ         25,995634
02 BlackZeroX_ZigZag   26,919773
03 MrFrog_ZigZag       28,994339

Test made by BlackZeroX.

============ RETO ZigZag 07/01/2011 - 01:15:40 p.m. ============
Nº de vueltas: 10000

============ VELOCIDAD ============
00 Leandro_ZipZag      1848,733389
01 79137913_ZZ         2048,408767
02 BlackZeroX_ZigZag   2713,579061
03 MrFrog_ZigZag       2722,850630

Test made by BlackZeroX.


GRACIAS POR LEER!!!

HOLA!!!

Muy gracioso Mr. Frog... Igual ya funciona con decimales, medio rustico pero funciona .

xD No habia compilado .

GRACIAS POR LEER!!!

HOLA!!!

A pedido de Mr. Frog quite las tablas...

Esperemos un rato .

GRACIAS POR LEER!!!

HOLA!!!

Listo, ahi mejore un poco la mia, igual seguro es muy lenta. Espero que alguien se ponga con el Test.

GRACIAS POR LEER!!!