Foro de elhacker.net

Bueno un ejercicio bien facilito para que practiquen a ver quien lo hace mejor, luego pasaremos a recorrer la matriz de manera espiralada, en zig zag, por anillos etc

A ver quien se anima, es bien facilongo ;D

Hacer un programa que, dada una matriz de 5x5 (5 filas x 5 columnas), la llene con numeros aleatorios al azar SIN repetición entre un rango de 1 a 30(deberán generarse al azar), ordene esos números de menor a mayor, y luego deberá mostrar la X traspuesta que se encuentra impresa en la matriz osea, por ej:

Ejemplo:

(http://r.i.elhacker.net/cache?url=http://img267.imageshack.us/img267/1612/matrices.jpg)

Tanto el proceso de CargarMatriz, como el de OrdenarMatriz y el de MostrarMatriz deberán ser realizados con 1 estructura de repetición

PD: Para que vean que no es para hacerme la tearea les dejaré el code al finalizar el ejercicio, a ver quien hace el code más corto y prolijo

Pueden imprimir la matriz con Print o en labels, eso queda a elección

A codear mis buenos programadores! :laugh:

entonces cargamos numeros al azar en la matrix (jeje me re cope) y despues borramos los que no esten en la X?
no entedi :S

Seria que cargo todo.
y despues borro las etiquetas(X)

O X X X O
X O X O X
X X O X X
X O X O X
O X X X O

Bueno vi que varios se pasaron y al final nadie se animó, salvo vos Elemental Code :-X


No, no tenés que borrar ningún elemento de los que no esté en la X, sino simplemente cargar toda la matriz con números aleatorios sin repetición y luego sólo mostrar la X traspuesta de la matriz como muestra la imagen (osea la matriz estará cargada por completo, pero solo mostrarás la X traspuesta de números que está en ella)

Se evaluará eficiencia aparte de eficacia ya que tanto les gusta medir los tiempos de ejecución como vi por ahí :D

Nota: Aparte de todo esto, un detalle no menor, y es que el código deberá ser bien legible y entendible

.
No entiendo mucho la logica de este reto, pero bueno... :silbar:
Porque tenermos que generar una matriz entera si solo vamos a mostrarlas diagonales?¿ :huh:

DoEvents¡! :P

La lógica es saber usar matrices y medir la eficacia de un programa de la mejor manera posible (como los retos por tiempo que hacen ahora)

Debes llenar la matriz completa porque así lo dice el ejercicio, luego con esa misma matriz la podrás recorrer de la manera que quieras (en este caso, por la X traspuesta)

Saludos!

PD: Lo importante es ser un programador el cual tenga mucha lógica y sabe programar, no un memorizador de funciones de x lenguaje, así sufren muchos después para migrar a otra plataforma completamente distinta, cuando lo único que cambia prácticamente es la sintaxis si sabes programar de verdad :D. Esto no es más que un ejercicio para practicar y poner a prueba sus conocimientos así mismos

Fijate *PsYkE1* ahora el agregado y verás por qué hay que llenar toda la matriz, aparte deberán ordenar esos números generados sin repetición de menor a mayor, que era la idea previa pero me había olvidado de agregarlo

A codear! :D

87 visitas y ni uno se anima a hacerlo?

Me hacen creer que sólo usan las funciones del lenguaje pero no saben los fundamentos de la programación que bien es lo más importante, el lenguaje es una herramienta nada más, la programación está adentro de uno

No me hagan pensar mal y que alguno se anime a hacerlo por lo menos..

Vamos que acordarse la sintaxis y las funciones de un lenguaje es muy fácil :laugh:

He tenido un ratito libre y he hecho mi code :D
No se si es exactamente lo que se pedia, pero algo es algo :laugh:

Option Explicit
Option Base 0
 
Dim bMatrix(4, 4)   As Byte
 
Public Sub FillAndSortMatrix()
    Dim bvTmp(24)   As Byte
    Dim i           As Long
 
    Call bURGN(bvTmp)
    Call GnomeSort(bvTmp)
    For i = 0 To 24
        bMatrix((i \ 5), (i Mod 5)) = bvTmp(i)
    Next i
End Sub
 
Public Sub bURGN(ByRef bvArray() As Byte)
    Dim x           As Integer
    Dim n           As Integer
    Dim colNumbers  As New Collection
    Dim Max         As Long
 
    Max = 255
 
    With colNumbers
        For x = 0 To 255
            .Add x
        Next x
        For x = 0 To UBound(bvArray)
            Call Randomize(Timer)
            n = Int(Max * Rnd)
            bvArray(x) = colNumbers(n + 1)
            colNumbers.Remove (n + 1)
            Max = Max - 1
        Next x
    End With
    Set colNumbers = Nothing
End Sub
 
Public Sub GnomeSort(ByRef bvArray() As Byte)
    On Error Resume Next
    Dim lPos        As Long
    Dim lUbound     As Long
 
    lUbound = UBound(bvArray) + 1
    While lPos < lUbound
        If (lPos = 0) Or (bvArray(lPos) >= bvArray(lPos - 1)) Then
            lPos = lPos + 1
        Else
            bvArray(lPos) = bvArray(lPos) Xor bvArray(lPos - 1)
            bvArray(lPos - 1) = bvArray(lPos - 1) Xor bvArray(lPos)
            bvArray(lPos) = bvArray(lPos) Xor bvArray(lPos - 1)
            lPos = lPos - 1
        End If
    Wend
End Sub
 
Sub Main()
    Dim i           As Long
    Dim w           As Long
 
    Call FillAndSortMatrix
    For i = 0 To 4
        For w = 0 To 4
            If (w = i) Or (4 - i = w) Then
                Debug.Print bMatrix(i, w),
            Else
                Debug.Print vbNullString,
            End If
        Next w
        Debug.Print ""
    Next i
End Sub
 

HOLA!!!

Creo que hice lo que pedis:

El form tiene un array de labels de 25 items (0-24) llamados LBL().

CODIGO DEL FORM :

Dim MATRIX() As Integer
Public N As Integer ' DIMENSION DE LA MATRIZ
Public PASA As Boolean ' VERIFICA LA REPETICION DE NUMEROS
Public ORDENADO As Boolean ' VERIFICA QUE ESTE ORDENADO
 
Private Sub Form_Load()
    Randomize
    Me.Caption = "Ejercicio de Matrices"
    'CREA LA MATRIZ
    N = 5
    ReDim MATRIX(N, N)
    'MATRIZ CREADA
    Call LLENAR_MATRIZ
    Call ORDENAR_MATRIZ
    Call MOSTRAR_MATRIZ
End Sub
 
Private Sub LLENAR_MATRIZ()
    For Y = 1 To N
        For X = 1 To N
            MATRIX(Y, X) = Int(Rnd() * 30)
            'VERIFICA SI ESTA REPETIDO Y LO CAMBIA
            PASA = False
            While PASA = False
                PASA = True
                For Y2 = 1 To N
                    For X2 = 1 To N
                        If MATRIX(Y, X) = MATRIX(Y2, X2) And Not (X2 = X And Y2 = Y) Then
                            PASA = False
                        End If
                    Next X2
                Next Y2
                If PASA = False Then
                    MATRIX(Y, X) = Int(Rnd() * 30)
                End If
            Wend
            'VERIFICA SI ESTA REPETIDO Y LO CAMBIA
        Next X
    Next Y
End Sub
 
Private Sub ORDENAR_MATRIZ()
    Dim AUX As Integer
    While ORDENADO = False
        ORDENADO = True
        For Y = 1 To N
            For X = 1 To N
                If Not (X = N And Y = N) Then
                    If X = N Then
                        If MATRIX(Y, X) > MATRIX(Y + 1, 1) Then
                            AUX = MATRIX(Y + 1, 1)
                            MATRIX(Y + 1, 1) = MATRIX(Y, X)
                            MATRIX(Y, X) = AUX
                            ORDENADO = False
                        End If
                    Else
                        If MATRIX(Y, X) > MATRIX(Y, X + 1) Then
                            AUX = MATRIX(Y, X + 1)
                            MATRIX(Y, X + 1) = MATRIX(Y, X)
                            MATRIX(Y, X) = AUX
                            ORDENADO = False
                        End If
                    End If
                End If
            Next X
        Next Y
    Wend
End Sub
 
Private Sub MOSTRAR_MATRIZ()
    For Y = 1 To N
        For X = 1 To N
            If X = Y Then
                LBL(CT).Caption = MATRIX(Y, X)
            End If
            If X + Y = N + 1 Then
                LBL(CT).Caption = MATRIX(Y, X)
            End If
            CT = CT + 1
        Next X
    Next Y
End Sub
 

GRACIAS POR LEER!!!

@79137913: La matriz ha de estar ordenada y sus valores no pueden estar repetidos.

Karcrack te has pasado...! Te quedo muy bueno el code...! Saludos...

@Karcrack

GRACIAS!!!

Ya arregle el codigo ;D y funciona perfecto. avisame si ves otro error.

GRACIAS POR LEER!!!

Me esta carcomiendo las ideas esa parte >.<
como verifico que no sean iguales sin repasarlos?

osea un for para cargar y un for para evitar repeticiones.
pero esto no anda, tengo que hacerlo con uno solo.
¿Existe una funcion que se me este escapando?

EDITO:
Encontre la funcion filter pero tengo un problema:
Porque esta linea me tira "Error 13, No coinciden los tipos" ????

        If Filter(Matrix, tmplng, True) <> vbNullString Then GoTo Again

es para evitar repeticiones y deberia devolver nada si no encuentra coincidencia.

---

Karcrack:

Llenas la matriz con números sin repetición pero manualmente, tienen que llenarse con números aleatorios sin repetición, osea siempre llenará con los mismos valores en tu for, debe llenar con un 20 por ejemplo en la posición 0 en la primera carga, un 2 en la segunda y así, de manera aleatoria en todos los elementos del vector, ya que cargará los mismos números por cada vez que apretes el botón y eso no era lo que pedía

A ver si puedes corregir eso ;)

---

79137913:

Gastas memoria innecesariamente haciendo las variables públicas, sin mencionar que muchas ni las declaras

Había que llenar la matriz con una estructura de repetición, no 2 y más como veo

Código ineficiente (no es eficiente), aunque sí me doy cuenta del esfuerzo y eso se valora, fijate si le puedes modificar mientras tanto eso que te dije hasta que lo puedas optimizar por completo cuando ponga mi código y a medida que los demás vayan dejando los suyos

---

Elemental Code:

No es necesario que uses ninguna función rara ;)

---

Se están complicando demasiado para algo que es muy sencillo, el más aproximado es el de Karcrack (muy bien lo de i\5,i mod 5, ya sabés a lo que me refiero, asumo que vas a la univ) aunque también me pareció un poco rebuscado el código innecesariamente cuando se podría hacer mucho más simple

En unos días les dejo el code, no es necesario que usen ningún tipo de funciones raras del VB, lógica de programación nada más ;)

PD: Sólo 3 se animan a hacer el código? Me extraña y yo que pensaba que habían mejores programadores..

Acuerdense que hay que usar sólo 1 estructura de repetición para cada procedimiento. Luego corregiré el código de los demás, piensen si pueden mejorarlo y/o optimizarlo

No entiendo a que te refieres con lo de los numeros.. La matriz se rellena con valores aleatorios no repetidos ordenados numericamente cada vez que se ejecuta el code...

OFFTOPIC: Aun no voy a la uni, aunquq me alaga tu comentario  :P

A lo que me refiero Karcrack, si por ejemplo tienes la matriz de 5x5 elementos y lo llenas así

For i=0 to 24
   Matriz(i\5,i mod 5)=i
Next i

Es obvio que los valores no se van a repetir, porque lo llena con los mismos valores en la misma posición, la gracia fijate sería (el rango de números a generar era de 0 a 30)

For i=0 to 24
   Matriz(i\5,i mod 5)=Int((30 - 1 + 1) * Rnd + 1)
Next i

Fijate que pasa en ese caso, la llena con valores al azar en distintas posiciones cada vez que apretas el commandbutton pero son valores repetidos, lo probaste? Bueno ahora sí, la gracia es que genere esos valores al azar pero sin repetición, y no al usar el Rnd a secas, espero que hayas entendido a lo que apuntaba ;)

Lo de la uni lo dije porque hay muy pocas personas que lleguen a ese razonamiento que mencioné, te lo mencionaron en algún lado o lo dedujiste vos sólo?

Admirable pues entonces ya que eso es lo que importa :D

PD: Ahora me doy cuenta porque casi nadie de los que participan en este foro de VB se anotó para hacer el reto, de ahora en más copiaran la lógica de los demás para hacerlo pero no interesa, acuérdense que lo que importa no es saberse de memoria las funciones de un lenguaje sino tener la lógica de como funciona la programación y con eso, en el lenguaje que sea, podrás pasarte al que más se te de la gana

Ahora estoy desde el movil y no puedo volver a probar el code... Pero cuando lo probe en el PC cada vez que lo ejecutaba generaba nuevas matrices... No se si llego a entender lo que planteas... :-[

Respecto a lo de rellenar la matriz, se me ocurrio a mi solito  :)

@Dreamaker :
HOLAAAA!!!!

Lo que es ineficiente, lo entiendo y perfectamente, es mas me caracterizo por siempre llegar al objetivo pero de una manera muy enroscada y complicada, casi siempre ineficiente.

Lo de las variables, como me recomendas que las declare.

Y lo de los bucles, como queres que lo haga, ponele:

For x=1 to N+1
    if x=N+1 then
    x=1
    y=y+1
    if y=6 then exit for
    endif
    'CODIGO DEL FOR
Next X
 

??????


Esa es mi duda.

Entre a este foro especificamente para eso, para mejorar y hacer mas eficiente el codigo.


Espero ansiosamente la correccion ;D

GRACIAS POR LEER!!!

Me he dado cuenta que pedias un rango especifico :laugh: Lo he arreglado, y tambien eso que decias:
Es normal que algunos numeros repitan posicion.. por ejemplo el 1... siempre va ir el primero... y al ser tan pequeño el rango (1-30) es realmente probable que salga...

Se podria hacer sin las funciones de ordenamiento y la de generar numeros aleatorios... simplemente recorriendo la matriz dandole valores aleatorios cada vez mas grandes (hasta el 30)... asi se mantendria el orden y serian numeros aleatorios...

Hola a todos:

No sé si esto es lo que se pedía y como se pedía, pero de igual manera lo dejo:


Se necesita un arreglo de 25 labels en el Form.

          Saludos.

Me gusta tokes, me gusta, y sin nada rebuscado ni funciones inservibles del VB en este caso cuando se pedía exactamente eso

Lo que sí algunas correciones, está de más que las variables las declares como as long ya que como mucho serán as byte (hasta 255 es el máximo, y en este caso el máximo será de 30 así que alcanza y sobra)

Por otro lado si puedes tomarte la costumbre de usar Do-Loop en vez de While-Wend, mejor

Me gusta que esté comentarizado. Falta usar procedimientos y funciones para cada cosa, el llenado, ordenamiento y mostrado se debían hacer con procedimientos y para verificar que no se repite ningún elemento, una función. Lo mismo para intercambiar los valores, podrías usar un procedimientos Swap que los intercambie, el objetivo es hacer el código lo más simple y optimizado posible, y con la menor cantidad de líneas posible, haciendo uso de la programación en si, no del lenguaje

De todas formas fue el que más se aproximó, y si lo pueden comentarizar, mejor, no es mala costumbre, de todas maneras a ver quienes siguen, y una vez terminado se agregarán más y de mayor dificultad ;D siempre y cuando el tiempo lo haga posible :laugh:

Hola!! aqui les dejo mi code...
aclaro que soy principiante... me conformo solo con que funcione.

Option Explicit
 
Private Sub Command1_Click()
    Dim n               As Byte
    Dim Repetido        As Byte
    Dim Numero(24)      As Byte
    Dim i               As Byte
    Dim Ordenar         As Boolean
    Dim Aux             As Byte
 
'//Generar los numeros aleatorios no repetidos
    Randomize Timer
    For i = 0 To 24
        n = Rnd * 30
        If i = 0 Then
            Numero(i) = n
        Else
            Repetido = i
            Do
                Repetido = Repetido - 1
                If Numero(i) = Numero(Repetido) Then
                    n = Rnd * 30
                    Numero(i) = n
                    Repetido = i
                End If
            Loop Until Repetido = 0
        End If
    Next i
 
'//Ordenar de menor a mayor
    Ordenar = True
    Do While Ordenar = True
        Ordenar = False
        For i = 0 To 23
            If Numero(i + 1) < Numero(i) Then
                Aux = Numero(i)
                Numero(i) = Numero(i + 1)
                Numero(i + 1) = Aux
                Ordenar = True
            End If
        Next i
    Loop
 
'//Cargar la matriz
    For i = 0 To 24
        If i = 0 Or i = 4 Or i = 6 Or i = 8 Or i = 12 Or i = 16 Or i = 18 Or i = 20 Or i = 24 Then
            Label1(i).Caption = Numero(i)
        End If
    Next i
End Sub