allar promedio de "N" notas

Iniciado por llAudioslavell, 28 Agosto 2011, 07:51 AM

0 Miembros y 1 Visitante están viendo este tema.

llAudioslavell

olas bueno tengo una duda.. recien estoy empezandome con vb.net

quisiera allar el promedio de "N" notas ....  hize de una manera pero me salta un error y mi formulario se cuelga xD

Module Module1
    Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Dim acumulador As Integer
        Dim promedio As Integer
        acumulador = 0

        For indice = 0 To notas.Length
            acumulador = acumulador + notas.Length
            promedio = acumulador / notas(indice)
        Next

        Return promedio

    End Function
End Module

y esta funcion la ejecuto en un boton


MsgBox(ejemplo(1, 1))

me dice " no se encontro indexOutOfRange.... bla bla.... " Alguien me podria ayudar? o alguna otra manera de hacerlo ??? grax !!

adan-2994

Mira estas comenzando a trabajar con matrizes (arreglos) y deberas tener mucho cuidado con sus limites (debes empezar a practikar)
Todo array comienza desde 0 (su primer indice), eso significa que el indice del ultimo elemento , no sera igual ala cantidad de elementos (notas.Length)
Si comienza desde 0, entonces obviamente el ultimo indice sera igual a el numero de elementos - 1    (notas.Length-1).

Entonces en tu codigo, en la funcion ejemplo, mas especificamente en el el bucle FOR, cuando determinas el limite del for, cometiste el error q te explike.

Código (vbnet) [Seleccionar]
Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Dim acumulador As Integer
        Dim promedio As Integer
        acumulador = 0

        For indice = 0 To notas.Length - 1
            acumulador = acumulador + notas.Length
            promedio = acumulador / notas(indice)
        Next

        Return promedio

    End Function


Observa como quedo el FOR
con este codigo al pasarle ala funcion ejemplo los valores ejemplo(1,1)  me devuelve 4
...ella tiene flow, tremendo ranqueo, tu la vez pasar con su nebuleo (Blam Blam blin blin)

Keyen Night

Aprovecha las funciones que te brinda .Net. La función Average está presente en todas las listas o array númericas:

Código (vb.net) [Seleccionar]
    Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Return notas.Average
    End Function
La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...

llAudioslavell

Cita de: adan-2994 en 28 Agosto 2011, 16:39 PM
Mira estas comenzando a trabajar con matrizes (arreglos) y deberas tener mucho cuidado con sus limites (debes empezar a practikar)
Todo array comienza desde 0 (su primer indice), eso significa que el indice del ultimo elemento , no sera igual ala cantidad de elementos (notas.Length)
Si comienza desde 0, entonces obviamente el ultimo indice sera igual a el numero de elementos - 1    (notas.Length-1).

Entonces en tu codigo, en la funcion ejemplo, mas especificamente en el el bucle FOR, cuando determinas el limite del for, cometiste el error q te explike.

Código (vbnet) [Seleccionar]
Public Function ejemplo(ByVal ParamArray notas() As Integer) As Integer
        Dim acumulador As Integer
        Dim promedio As Integer
        acumulador = 0

        For indice = 0 To notas.Length - 1
            acumulador = acumulador + notas.Length
            promedio = acumulador / notas(indice)
        Next

        Return promedio

    End Function


Observa como quedo el FOR
con este codigo al pasarle ala funcion ejemplo los valores ejemplo(1,1)  me devuelve 4



creo que nesecito practicar mas a manejar los arreglos (arrays) ........ de todos modos gracias por su ayuda ^^ !! s grax !! ;-)

llAudioslavell

aunque no entendi la parte de -1  :-\

$Edu$

Al tener un array nota(5) le estas indicando la longitud, es decir los elementos que podra tener, entonces en ese caso nota.lenght sera igual a 5, pero que pasa.. acuerdate que el primer elemento de un array es 0, entonces para ver los 5 elemenos serian estos:

nota(0)
nota(1)
nota(2)
nota(3)
nota(4)

Ahi son los 5 no? entonces en un bucle, le indicas al bucle que vaya desde 0 hasta 4, proque sino daria error ya que nota(5) no existe, y como haces para que llegue hasta 4? pues es uno menos que la longitud, por eso se pone desde 0 to nota.lenght - 1


llAudioslavell

Cita de: $Edu$ en 28 Agosto 2011, 21:17 PM
Al tener un array nota(5) le estas indicando la longitud, es decir los elementos que podra tener, entonces en ese caso nota.lenght sera igual a 5, pero que pasa.. acuerdate que el primer elemento de un array es 0, entonces para ver los 5 elemenos serian estos:

nota(0)
nota(1)
nota(2)
nota(3)
nota(4)

Ahi son los 5 no? entonces en un bucle, le indicas al bucle que vaya desde 0 hasta 4, proque sino daria error ya que nota(5) no existe, y como haces para que llegue hasta 4? pues es uno menos que la longitud, por eso se pone desde 0 to nota.lenght - 1





aaaaaaaaaaaaa ahora si ya entendi por que se me colgaba mi formulario  ..... GRACIAS !!!  pero aki tngo otra duda

        Dim mensaje As String
        Dim arreglo(4) As String

        arreglo(0) = "primero"
        arreglo(1) = "segundo"
        arreglo(2) = "tercero"
        arreglo(3) = "cuarto"


        For index As Integer = 0 To arreglo.Length - 1
            mensaje = arreglo(index)
            MsgBox(mensaje)

        Next
al ejecutarlo me muestra bien los arreglos dsde el indice 0 al 3 pero despues me muestra otra ventana mas.. y vacia....  tiene alguna explicacion ?

adan-2994

Asi a vista rapida te digo que tu codigo esta bien, te deben salir solo 4 mensajes (MSGBOX)
Talvez el ultimo mensaje en blanko q te sale esta abajo de ese bucle, o en alguna otra parte del codigo
Para que vayyas viendo intenta esto, una vez abierto el codigo en VB NET presiona F8  Yel formulario cargara, pero ademas veras que en la ventana de codigo aparecera subrayado en amarillo
de esta manera iras viendo como ejecuta el codigo
Recuerda volver a presionar F8 para seguir corriendo el programa
...ella tiene flow, tremendo ranqueo, tu la vez pasar con su nebuleo (Blam Blam blin blin)