Visual Basic - PARA CECILIA COLALONGO

Cecilia hace unos dias realice una consulta sobre devolucion de datos a traves de funciones (21/10/2003), puedes por favor ser mas explicita es decir, como envio los datos hacia la funcion desdes del form principal hacia la funcion y como retorna. un ejemplo por favor... desde ya muchas gracias

Para enviar los datos desde el form a una Function, debes primero capturar los datos y enviarlos a una variable. algo asi como:

' aquí se define la variable
Dim intVar as Integer

' aquí se recoge la variable de una caja de texto
intVar = txtIngVar.txt

Ahora con para enviarla a la función esta debe recibir un parametro así:

Function Funcion_ejemplo (Valorsolicitado as integer)
'aqui se realizan las operaciones necesarias para
End Function

ahora desde la forma debes llamar la funcion y si lo que necesitas es recoger el valor devuelto por la funcion este tambien debe ir a una variable, algo asi

Dim recogervalor as integer

recogervalor = Funcion_ejemplo(txtIngVar.txt)

Ahora para un ejemplo sencillo vamos a suponer que vamos a crear una función que te retorne el valor cuadrado de un número:

en la forma debe haber una caja de texto llamada txtCuadrado, otra caja de texto llamado txtValordevuelto y un boton cmdCuadrado:

Private Sub cmdCuadrado_Click

Dim IntCuadrado as Integer
intCuadrado = txtCuadrado.text

txtValordevuelto.text = cuadrado(intCuadrado)

End Sub

Function Cuadrado (Valor as Integer)
Cuadrado = Valor * Valor
End Function

Para enviar los datos desde el form a una Function, debes primero capturar los datos y enviarlos a una variable. algo asi como:

' aquí se define la variable
Dim intVar as Integer

' aquí se recoge la variable de una caja de texto
intVar = txtIngVar.txt

Ahora con para enviarla a la función esta debe recibir un parametro así:

Function Funcion_ejemplo (Valorsolicitado as integer)
'aqui se realizan las operaciones necesarias para
End Function

ahora desde la forma debes llamar la funcion y si lo que necesitas es recoger el valor devuelto por la funcion este tambien debe ir a una variable, algo asi

Dim recogervalor as integer

recogervalor = Funcion_ejemplo(txtIngVar.txt)

Ahora para un ejemplo sencillo vamos a suponer que vamos a crear una función que te retorne el valor cuadrado de un número:

en la forma debe haber una caja de texto llamada txtCuadrado, otra caja de texto llamado txtValordevuelto y un boton cmdCuadrado:

Private Sub cmdCuadrado_Click

Dim IntCuadrado as Integer
intCuadrado = txtCuadrado.text

txtValordevuelto.text = cuadrado(intCuadrado)

End Sub

Function Cuadrado (Valor as Integer)
Cuadrado = Valor * Valor
End Function

Ya te han contestado, en cuanto a la explicitud que solicitas en la MSDN tienes variados ejemplos.

gracias por la respuesta ISABELLA, eso lo he podido realizar, pero como lo hago para cuando se tenga que pasar y devolver varios datos desde la funcion como hago para que cada valor devuelto por la funcion se tomado en form. principal

ejemplo:

publica type cDatRet
valor1 as double
valor2 as double
valor3 as double
end type

PUBLIC FUNCTION DATOS (AA as integer, bb as double, cc as double) as cDatRet

intrucciones ...

dede devolver tres o cuatrol valores producto del calculo
como lo retorno al form.

END FUNCTION

y como debe recibirlo en formar especifico.

No veo donde tienes el problema

publica type cDatRet
valor1 as double
valor2 as double
valor3 as double
end type

PUBLIC FUNCTION DATOS (AA as integer, bb as double, cc as double) as cDatRet

Datos.valor1=AA
Datos.valor2=BB
Datos.valor3=CC

End Function

Desde el Form:

Dim x AS cDatRet

x=Datos(1,2,3)

MsgBox x.Valor1
MsgBox x.Valor2
MsgBox x.Valor3