como este ejemplo.
nosotros creamos la interfaz a presentarse al usuario:
luego abrimos el codigo del boton ejecutar y creamos el siguiente codigo:
Public Class frm_ecuacion
Private Sub btn_limpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_limpiar.Click
txt_n.Text = ""
txt_x.Text = ""
End Sub
Private Sub btn_cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cerrar.Click
Application.Exit()
End Sub
Private Sub btn_ejecutar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ejecutar.Click
Dim vl_serie As Double
vl_serie = sumar(Val(txt_x.Text), Val(txt_n.Text))
MsgBox("El resultado es: " + Str(vl_serie), MsgBoxStyle.Information, "Resultado")
End Sub
End Class
como podemos ver estamos trabajando con la funcion sumar esta funcion que esta en el siguiente modulo:
Module mdl_funciones
Function potencia(ByVal base As Integer, ByVal exp As Integer) As Integer
potencia = Math.Pow(base, exp)
End Function
Function factorial(ByVal num As Integer) As Integer
Dim vl_factorial As Integer = 1
For i As Integer = 1 To num
vl_factorial = vl_factorial * i
Next
factorial = vl_factorial
End Function
Function dividir(ByVal num As Integer, ByVal den As Integer) As Double
dividir = num / den
End Function
Function sumar(ByVal x As Integer, ByVal n As Integer) As Double
Dim vl_resul As Double = 0, pot As Integer, fac As Integer, div As Double
For i As Integer = 1 To n
pot = potencia(x, i)
fac = factorial(i)
div = dividir(pot, fac)
vl_resul = vl_resul + div
Next
sumar = vl_resul
End Function
End Module
Finalmente nos corre asi:
