• Domingo 22 de Diciembre de 2024, 20:41
« anterior próximo »
Páginas: [1]

Autor Tema:  Ayuda Por Favor  (Leído 1325 veces)

comsuven

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Ayuda Por Favor
« en: Jueves 1 de Abril de 2004, 15:35 »
0
saludos amigos, quisiera que me ayudaran con un problemilla tengo un codigo el cual tengo que ingresar 7 valores de temperatura y luego me da comop resultado la media pero ahota tengo que hacer que pueda ingresar infinitas temperaturas y no se que hacer me comentaron que utilizara el comando redim pero no se como empezar es un proyecto para la univeridad y tengo que entregar pronto ayuda porfavor saludos...


bueno de todos modos aqui esta el projectico que se olvido postear
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Ayuda Por Favor
« Respuesta #1 en: Jueves 1 de Abril de 2004, 15:59 »
0
Hola consuvem.

Redim sirve para redimensionar una matriz declarada como dinámica (dimensionada con din pero sin especificar el número de elementos o utilizando una variable). Para conservar los posibles elementos existentes (siempre y cuando redimensiones haciendo más grande la matriz) deberás usarlo acompañado de la palabra Preserve. Fíjate en el ejemplo y saca tus propias conclusiones...

Código: Text
  1.  
  2. Public sub Ejemplo (Byval frase as string, ByRef Caracteres() As Byte )
  3.      Dim int1 As integer
  4.      For int1 = 1 To Len(frase)
  5.            If int1 > 1 Then
  6.                 Redim Preserve Caracteres(1 to int1)
  7.            Else
  8.                 Redim Caracteres(1 to 1)
  9.            End If  
  10.            Caracteres(int1)=asc(mid(frase,int1,1))
  11.      Next int1
  12. End Sub
  13.  
  14.  

Chau.

comsuven

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Ayuda Por Favor
« Respuesta #2 en: Jueves 1 de Abril de 2004, 16:05 »
0
pero sirve para el ejemplo que esta posteado gracias por tu respuesta

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Ayuda Por Favor
« Respuesta #3 en: Jueves 1 de Abril de 2004, 16:07 »
0
¿Tú que crees?

comsuven

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Ayuda Por Favor
« Respuesta #4 en: Jueves 1 de Abril de 2004, 16:11 »
0
bueno lo que pasa esd que soy nuevo en esto tengo que entregar el dichoso ejemplo en la tarde y no lopgro hacerlo funcionar

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Ayuda Por Favor
« Respuesta #5 en: Jueves 1 de Abril de 2004, 16:19 »
0
Ya, pero que alguien lo haga por ti realmente no te va a servir de mucho... El ejemplo que adjuntas ¿lo has hecho tú?. Si tu repuesta es afirmativa, supongo que la repuesta a mi anterior pregunta debería ser "claro que se puede aplicar al ejemplo" y no una excusa...

Abur.

comsuven

  • Nuevo Miembro
  • *
  • Mensajes: 21
    • Ver Perfil
Re: Ayuda Por Favor
« Respuesta #6 en: Jueves 1 de Abril de 2004, 16:22 »
0
si te entiendo brroz y gracias por tu cooperacion lo que pasa es que si lo hicimos en clase con ayuda del profesor y al terminar nos dejo lo que estoy planteando como projecto para entregarlo en la tarde por eso al menos necesito una ayuda que tengo que modificar en mi projecto para que funcione al menos dame un apista si no lo logroterminar no importa a la final agradecere su apoyo y que tomaron en cuenta mi pregunta chao gracias ..... :D
Páginas: [1]
« anterior próximo »