Esta lección es parte de un tutorial en curso. La primera parte está aquí: Crear tus propios subs en VB .NET
En la sección anterior, aprendiste a configurar una función simple. Vamos a establecer otra función, como un ejemplo más. Esta vez añadiremos algunos parámetros a nuestra función. Usas los parámetros exactamente de la misma manera que lo hiciste para un Sub.
- Así que añade otro botón a tu formulario
- Poner su propiedad Text a Get Function Answer
- Añade dos cuadros de texto a tu formulario
- Poner el Nombre Propiedad del primer Cuadro de Texto a txtNúmero1
- Poner el Nombre Propiedad del segundo Cuadro de texto a txtNúmero2
- Configure la siguiente función en su ventana de códigos (La primera línea podría …se extienda sobre dos líneas aquí. Puedes mantener la tuya en una línea).
Función Privada AgregarDosNúmeros(primero como Entero, segundo como entero) como entero
Respuesta tenue como entero
respuesta = primera + segunda
AddTwoNumbers = respuesta
Función final
Así que el nombre de esta función es AddTwoNumbers , y la hemos configurado para devuelve un valor entero . Los dos parámetros que estamos pasando también son Enteros. El código dentro de la Función simplemente suma lo que sea que esté dentro de la variables primero y segundo . El resultado se pasa a otra variable, responde . Luego pasamos lo que sea que esté dentro respuesta al nombre de nuestra función. Así que AddTwoNumbers será igual a lo que haya en la variable responde .
En lugar de decir AddTwoNumbers = respuesta puedes usar la palabra clave Return. Usted …lo usen así:
Respuesta de retorno
El resultado es el mismo: el valor dentro de la respuesta de la variable es ahora el valor de la función.
Abre el código del botón «Obtener respuesta» y añade lo siguiente código para ello:
Dim primero As Integer
Dim second As Integer
Resultado tenue como entero
first = Val(txtNumber1.Text)
segundo = Val(txtNúmero2.Texto)
resultado = AddTwoNumbers(first, second)
Si el resultado = 0 Entonces
MessageBox.Show(«Por favor, inténtelo de nuevo»)
Else
MessageBox.Show(«La respuesta es » & resultado)
Finalizar si
Así que le decimos a Visual Basic que ejecute nuestra función en esta línea:
result = AddTwoNumbers( first , second )
Estamos diciendo, «Ejecuta la función llamada AddTwoNumbers . Pásale el de las dos variables. Cuando termines de ejecutar la función, pasa cualquiera que sea el valor de AddTwoNumbers a la variable llamada resultado «.
Las siguientes líneas están probando lo que hay dentro del resultado de la variable. Recuerden: la variable resultado contendrá cualquier valor de AddTwoNumbers fue.
Cuando termines de escribir el código, ejecuta el programa y pruébalo. Escriba un número en el primer cuadro de texto, y uno en el otro. A continuación, haz clic en el botón «Obtener Botón «Función Respuesta». Intenta escribir dos ceros en los cuadros de texto y mira lo que sucede.
Configurar y usar las funciones puede ser bastante complicado al principio, pero está bien vale la pena perseverar: pueden mejorar enormemente tus habilidades de codificación.
En la siguiente sección, explicamos lo que es un Módulo Estándar, y cómo crear …el suyo propio.
Aprenda acerca de los módulos estándar en VB .NET –…
Espero que te haya sido de ayuda!
