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
webmaster[arroba]jaimemontoya.com
Santa Ana, 22 de febrero de 2008
El Salvador
 Página anterior | Volver al principio del trabajo | Página siguiente  |
Trabajos relacionados
Ver mas trabajos de Programacion |
|
Nota al lector: es posible que esta página no contenga todos los componentes del trabajo original (pies de página, avanzadas formulas matemáticas, esquemas o tablas complejas, etc.). Recuerde que para ver el trabajo en su versión original completa, puede descargarlo desde el menú superior.
Todos los documentos disponibles en este sitio expresan los puntos de vista de sus respectivos autores y no de Monografias.com. El objetivo de Monografias.com es poner el conocimiento a disposición de toda su comunidad. Queda bajo la responsabilidad de cada lector el eventual uso que se le de a esta información. Asimismo, es obligatoria la cita del autor del contenido y de Monografias.com como fuentes de información.