INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 1

: Math (Miembros) Proporciona constantes y métodos estáticos para operaciones trigonométricas, logarítmicas y otras funciones matemáticas comunes. El tipo Math expone los siguientes miembros. Métodos

Nombre Descripción

Abs Devuelve el valor absoluto de un número especificado.

Acos Devuelve el ángulo cuyo coseno es el número especificado.

Asin Devuelve el ángulo cuyo seno es el número especificado.

Atan

Devuelve el ángulo cuya tangente corresponde al número especificado.

Atan2

Devuelve el ángulo cuya tangente es el cociente de dos números especificados.

BigMul Calcula el producto completo de dos números de 32 bits.

Ceiling

Devuelve el número entero más pequeño mayor o igual que el número especificado.

Cos Devuelve el coseno del ángulo especificado.

Cosh Devuelve el coseno hiperbólico del ángulo especificado.

DivRem

Calcula el cociente de dos números y devuelve también el resto de la división como parámetro de salida.

Exp Devuelve e elevado a la potencia especificada.

Floor

Devuelve el número entero más grande menor o igual que el número especificado.

IEEERemainder

Devuelve el resto de la división de dos números especificados.

Log Devuelve el logaritmo de un número especificado.

Log10 Devuelve el logaritmo en base 10 de un número especificado.

Max Devuelve el mayor de dos números especificados.

Min Devuelve el menor de dos números.

Pow

Devuelve un número especificado elevado a la potencia especificada.

Round

Redondea un valor al entero más próximo o al número especificado de posiciones decimales.

Sign Devuelve un valor que indica el signo de un número.

Sin Devuelve el seno del ángulo especificado.

Sinh Devuelve el seno hiperbólico del ángulo especificado.

Sqrt Devuelve la raíz cuadrada de un número especificado.

Tan Devuelve la tangente del ángulo especificado.

Tanh Devuelve la tangente hiperbólica del ángulo especificado.

Truncate Calcula la parte entera de un número.

SESIÓN Nº 05

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 2

Campos

Nombre Descripción

E Representa la base logarítmica natural, especificada por la constante, e.

PI

Representa la relación entre la longitud de la circunferencia de un círculo y su diámetro, especificada por la constante π.

Ejemplos: Para demostrar todos los métodos y campos de Math en VB 2008,creamos un

formulario con un Button1 y un ListBox1. Consideramos para ambos , las propiedades de Font : Tamaño 14 y Negrita. Haga doble clic en Button1 , y escriba el siguiente código

Hallemos : 5

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Abs(-5) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 5

Hallemos : 23

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Pow(2, 3) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 8

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 3

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.E ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 2.71828182845905

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.PI ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 3.14159265358979

Hallemos : e1 .

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Exp(1) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 2.71828182845905

Hallemos la parte entera del número : 2.8925 Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Floor(2.8925) ListBox1.Items.Add(x.ToString)

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 4

End Sub End Class

El resultado será 2 Divide 8 / 7 Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.IEEERemainder(8, 7) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 1

Hallemos : 2eLn

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Log(Math.E ^ 2) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 2

Hallemos : Log(1000) Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Log10(1000) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 3

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 5

¿Cuál es mayor o máximo : 3 ó 5? Altere el código anterior:

ublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Max(3, 5) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 5 ¿Cuál es menor o minimo : 3 ó 5? Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Min(3, 5) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 3

Redondea al centésimo : 2.4557 Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Round(2.4557, 2) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 2.46

Hallemos : 2 Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Sqrt(2) ListBox1.Items.Add(x.ToString)

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 6

End Sub End Class

El resultado será 1.4142135623731

Recordemos que pueden expresarse en grados sexagesimales y en radianes, mediante la relación:

2

R

360

So

Hallemos Sin(30) Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Sin(30 * (Math.PI) / 180) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 0.5 Nota: Observa que 30 (se expresa en grados sexagesimales) , y se tiene que aplicar la formula de conversión en radianes. Pero, cuando los ángulos se expresan en radianes, se reemplaza directamente en la ventana código.

Sigamos con el mismo ejemplo: Halla Sin(6

) , que es el mismo Sin(30)

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Sin(Math.PI / 6) ListBox1.Items.Add(x.ToString) End Sub End Class

El resultado será 0.5 Nota: De igual forma las otras funciones trigonométricas.

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 7

Ahora desarrollemos funciones matemáticas. Recurriremos a la estructura de control For – Next Altere el código anterior:

Tabula : xy con dominio 3x3

Escribe el código:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -3 To 3 y = Math.Abs(x) ListBox1.Items.Add(y.ToString) Next x End Sub End Class

Ejecute , y observará :

Nota: Observe que el incremento es 1. Podemos variar el incremento, escribiendo Step. Cuando no se escribe(como el caso anterior), VB 2008 lo trata como predeterminado el incremento 1. Por ejemplo , escribamos Step 0.5 , en el ejemplo anterior_

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -3 To 3 Step 0.5 y = Math.Abs(x) ListBox1.Items.Add(y.ToString) Next x End Sub End Class

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 8

Ejecute , y observará :

Tabula : y = 2x dominio 4x4

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -4 To 4 Step 1 y = Math.Pow(2, x) ListBox1.Items.Add(y.ToString) Next x End Sub End Class

Ejecute , y observará :

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 9

Nota: Si no desea utilizar el formato de la función potencia, utilice el formato como en Excel. Asi:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -10 To 10 Step 1 y = x ^ 2 ListBox1.Items.Add(y.ToString) Next x End Sub End Class

Ejecute , y observará :

Nota: Puede varia la función polinómica última:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -10 To 10 Step 1 y = 3 * x ^ 2 - 8 * x - 4 ListBox1.Items.Add(y.ToString) Next x End Sub End Class

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 10

Ejecute , y observará :

Tabula : y = Sin(x) Dominio 360x360 Escribe el código:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -360 To 360 Step 30 y = Math.Sin(x * (Math.PI / 180)) ListBox1.Items.Add(y.ToString) Next x End Sub End Class

Ejecute , y observará :

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 11

Nota: Cuando escriba en radianes, VB 2008, tabula directamente la función. Escriba el código, sobre el mismo ejemplo.

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y As Double For x = -2 * Math.PI To 2 * Math.PI Step Math.PI / 6 y = Math.Sin(x) ListBox1.Items.Add(y.ToString) Next x End Sub End Class

Ejecute , y observará :

INFORMATICA VISUAL BASIC 2008

FACULTAD DE EDUCACIÓN MATEMATICA, FISICA e INFORMATICA José Moreno Vega Página 12

Nota: Observa que los resultados muestran alguna diferencia. Esto sucede porque el valor de PI es un numero irracional.

Halla : Asin(2

1)

Escriba el código, y obtenga el ángulo en grados sexagesimales

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Asin(1 / 2) ListBox1.Items.Add((x * 180 / Math.PI).ToString) End Sub End Class

Ejecute , y observará que la respuesta es 30 Nota: Cuando ,nos preguntan en radianes, no es necesario la notación anterior.

Ejemplo : Halla : Asin(2

1), pero en radianes:

Altere el código anterior:

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Double x = Math.Asin(1 / 2) ListBox1.Items.Add(x.ToString) End Sub End Class

Ejecute , y observará que la respuesta es 0.523598775598299

Nota: Éste último resultado está en radianes, porque : 0.523598775598299 = 6