Visual Basic - RETORNO DATO EN FUNCIONES

Life is soft - evento anual de software empresarial
 
Vista:

RETORNO DATO EN FUNCIONES

Publicado por ARMANDO (5 intervenciones) el 21/10/2003 06:28:16
Hola a todos, la consulta es la siguiente, como lo hago para crear una funcion de tipo publica, que puede enviar cuatro valores, distintos, y que me retorne cuatro o mas datos despues de efectuado el calculo, Donde puedo encontrar ejemplos dichos valores devuentos son para retornar a la linea correspondiente dentro de la grilla.

SALUDO Y GRACIAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:RETORNO DATO EN FUNCIONES

Publicado por Cecilia Colalongo (3116 intervenciones) el 21/10/2003 11:48:10
Puedes devolver un Type o un Array:

Public Type MiTipo
Valor1 As Integer
Valor2 As String
Valor3 As Date
Valor4 As Boolean
End Type

Public Function MiFuncion(Param1,Param2,Param3,Param4) As MiTipo
MiFuncion.Valor1=Valor1
MiFuncion.Valor2=Valor2
MiFuncion.Valor3=Valor3
MiFuncion.Valor4=Valor4
End Function

Sino con un Array:

Public Function MiFuncion(Param1,Param2,Param3,Param4) As MiTipo
MiFuncion = Array(Valor1,Valor2,Valor3,Valor4)
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:RETORNO DATO EN FUNCIONES

Publicado por Alberto (1 intervención) el 24/10/2003 01:54:10
Public function Mifuncion(byref param1 as X, byref param2 as Y, ....)

y asi tantos parametros como quieras. Al poner Byref le dices que cuando cambie el dato en la función, al acabar esta, el valor esta cambiado en el procedimiento. Ejemplo
a=1
b=A
c=2
b=B
mifuncion(a, b, c, d)
Print a,b,c,d

Public function mifuncion(byref par1 as integer, byref par2 as string, byref par3 as integer, byref par4 as string)
par1 = par1 * 3
par2 = \"GG\"
par3 = 9
par4 = \"HOLA\"
end function

al hacer el print imprime
3 GG 9 HOLA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar