Programación de las Funciones cos(x), senh(x) y cosh(x) utilizando Series de Taylor e Inducción Matemática (página 2)
Código del
Programa
Módulo de
Funciones
Imports System.Math
'Para que funcione la función
Abs() para sacar el valor
absoluto.
Module Module1
Public Function coseno1(ByVal x As Double) As Double
Dim tm As Double =
1
coseno1 = tm
Dim k As Integer =
1
While Abs(tm) >
0.00001
tm = -tm * ((x * x) / ((k) * (k + 1)))
coseno1 = coseno1 + tm
k = k + 2
End While
End Function
Public Function senoh1(ByVal x As Double) As Double
Dim tm As Double =
x
senoh1 = tm
Dim k As Integer =
1
While Abs(tm) >
0.00001
tm = tm * ((x * x) / ((k + 1) * (k + 2)))
senoh1 = senoh1 + tm
k = k + 2
End While
End Function
Public Function cosenoh1(ByVal x As Double) As Double
Dim tm As Double =
1
cosenoh1 = tm
Dim k As Integer =
1
While Abs(tm) >
0.00001
tm = tm * ((x * x) / ((k) * (k + 1)))
cosenoh1 = cosenoh1 + tm
k = k + 2
End While
End Function
End Module
Código
del Formulario del Programa
Public Class Form1
Private Sub ex_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles
TextBoxxcosh.KeyPress
If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Or
(Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46)
Then 'Los
únicos caracteres que se permitirá introducir en el
TextBox serán los números del 0 al 9 (ASCII del 48 al
57) así como también la tecla backspace, el signo
menos y el punto.
'No se hace nada porque el caracter
presionado es válido.
Else
e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.
End If
End Sub
Private Sub xn_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs)
If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Then 'Los únicos
caracteres que se permitirá introducir en el TextBox
serán los números del 0 al 9 (ASCII del 48 al 57)
así como también la tecla backspace.
'No se hace nada porque el caracter
presionado es válido.
Else
e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.
End If
End Sub
Private Sub xx_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxsenh.KeyPress
If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Or
(Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46)
Then 'Los
únicos caracteres que se permitirá introducir en el
TextBox serán los números del 0 al 9 (ASCII del 48
al 57) así como también la tecla backspace, el
signo menos y el punto.
'No se hace nada porque el caracter
presionado es válido.
Else
e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.
End If
End Sub
Private Sub senox_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxcos.KeyPress
If (Asc(e.KeyChar) >=
48 And Asc(e.KeyChar)
<= 57) Or
(Asc(e.KeyChar) = 8) Or
(Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46)
Then 'Los
únicos caracteres que se permitirá introducir en el
TextBox serán los números del 0 al 9 (ASCII del 48
al 57) así como también la tecla backspace, el
punto y el signo menos.
'No se hace nada porque el caracter
presionado es válido.
Else
e.KeyChar = ""
'Reemplaza la tecla digitada con el valor
de nada para que no se puedan introducir caracteres
inválidos.
End If
End Sub
Private Sub Buttoncosh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncosh.Click
TextBoxrespuestacosh.Text =
cosenoh1(Val(TextBoxxcosh.Text))
End Sub
Private Sub Buttonsenh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsenh.Click
TextBoxrespuestasenh.Text =
senoh1(Val(TextBoxxsenh.Text))
End Sub
Private Sub Buttoncos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncos.Click
TextBoxrespuestacos.Text =
coseno1(Val(TextBoxxcos.Text))
End Sub
Private Sub
Buttonlimpiar_Click(ByVal
sender As
System.Object, ByVal
e As
System.EventArgs) Handles Buttonlimpiar.Click
'Limpiar todos los TextBox.
TextBoxxcosh.Text = ""
TextBoxrespuestacosh.Text = ""
TextBoxxsenh.Text = ""
TextBoxrespuestasenh.Text = ""
TextBoxxcos.Text = ""
TextBoxrespuestacos.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBoxxcos.Focus() 'Para
que al cargar el formulario aparezca ya el cursor en el
TextBoxxcos.
End Sub
End Class
Jaime Montoya
Santa Ana, 22 de febrero de 2008
El Salvador
Página anterior | Volver al principio del trabajo | Página siguiente |