Como personalizar funciones con visual basic
Cerrado
anita1723
Mensajes enviados
1
Fecha de inscripción
jueves, 30 de abril de 2015
Estatus
Miembro
Última intervención
jueves, 30 de abril de 2015
-
30 abr 2015 a las 19:21
acgluis Mensajes enviados 4 Fecha de inscripción miércoles, 6 de mayo de 2015 Estatus Miembro Última intervención jueves, 7 de mayo de 2015 - 7 may 2015 a las 00:56
acgluis Mensajes enviados 4 Fecha de inscripción miércoles, 6 de mayo de 2015 Estatus Miembro Última intervención jueves, 7 de mayo de 2015 - 7 may 2015 a las 00:56
Consulta también:
- Como personalizar funciones con visual basic
- Como personalizar opera - Guide
- Error del sistema &h8000ffff visual basic - Guide
- Cheats pokemon rojo fuego visual boy advance - Guide
- Visual foxpro - Guide
- Pokemon rojo fuego visual boy advance - Programas - Rol
1 respuesta
acgluis
Mensajes enviados
4
Fecha de inscripción
miércoles, 6 de mayo de 2015
Estatus
Miembro
Última intervención
jueves, 7 de mayo de 2015
7 may 2015 a las 00:56
7 may 2015 a las 00:56
Anita:
haber si te puedo ayudar
1. En el formulario principal, crea la función de la siguiente manera:
Private function Promedio(ByVal Nota1 as Double, ByVal Nota2 as Double, ByVal Nota3 as Double) as Double
'Efectuar el Calculo y retorna el resultado
Return ((Nota1 + Nota2 + Nota3)/3)
End Function
2. Luego lo invocas desde un botón
Private Sub Boton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransporte.Click
'Suponiendo que el resultado lo quieres mostrar en un MessageBox
'Crear una variable que recibirá el resultado
Dim Resultado as Double = 0
'Llamamos la función y le damos los valores solicitados que supongo lo debes tener en unas cajas de texto
Resultado= Promedio(convert.toDouble(me.Text01.Text), convert.toDouble(me.Text02.Text), convert.toDouble(me.Text03.Text))
'Recuerda que la función devolverá el resultado
'Ahora mostramos el resultado en un MSG
MessageBox.Show(Resultado.ToString)
End Sub
Espero que te sirva este ejemplo
haber si te puedo ayudar
1. En el formulario principal, crea la función de la siguiente manera:
Private function Promedio(ByVal Nota1 as Double, ByVal Nota2 as Double, ByVal Nota3 as Double) as Double
'Efectuar el Calculo y retorna el resultado
Return ((Nota1 + Nota2 + Nota3)/3)
End Function
2. Luego lo invocas desde un botón
Private Sub Boton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTransporte.Click
'Suponiendo que el resultado lo quieres mostrar en un MessageBox
'Crear una variable que recibirá el resultado
Dim Resultado as Double = 0
'Llamamos la función y le damos los valores solicitados que supongo lo debes tener en unas cajas de texto
Resultado= Promedio(convert.toDouble(me.Text01.Text), convert.toDouble(me.Text02.Text), convert.toDouble(me.Text03.Text))
'Recuerda que la función devolverá el resultado
'Ahora mostramos el resultado en un MSG
MessageBox.Show(Resultado.ToString)
End Sub
Espero que te sirva este ejemplo