Lenguaje de Programacin I
Gua Prctica N 6: Funciones Matemticas Funciones de Texto.
OBJETIVO DE LA GUA
1. Realizar ejercicios prcticos que permitan poner en prctica los conceptos que aprenderemos en esta Unidad. 2. Proponer una solucin alterna a la solucin resuelta presentada por el docente 3. Resolver a las preguntas que se preguntan por cada sesin.
SESION 1: Funciones Matemticas
Objetivo: Que el alumno pueda aplicar las funciones matematicas, de la
clase System.Math
PROBLEMA 1: Implementar un Windows Form donde hara uso de las
Funciones Matematicas de Visual Basic 2005.
Etapa 1: Disee el Formulario, tal como se muestra en la figura.
Paso1: Disear un Windows Form.
TextBox Propiedades Name = txtNumero Button Propiedades Name = btnFunciones TextBox Propiedades Name = txtSqrt
Etapa 2: Definiendo las Funciones Matematicas
FUNCI N Abs Atn Cos Exp DESCRIPCIN Devuelve el valor absoluto de un nmero Devuelve el arco tangente de un nmero Devuelve el coseno de un nmero Devuelve el exponencial de un nmero en base e
1
Lenguaje de Programacin I
Fix Hex Int Log Oct Rnd Sign Sin SqrT Tan Val
Devuelve la parte entera de un nmero, redondeando los valores al Siguiente valor superior Devuelve una cadena que representa el valor hexadecimal de un nmero Devuelve la parte entera de un nmero Devuelve el logaritmo natural de un nmero (en base e) Convierte un numero al valor octal Devuelve un nmero aleatorio menor que 1 y mayor o igual que 0 Devuelve el signo de un nmero (-1 si es negativo, 0 si es nulo y 1 si es positivo) Devuelve el seno de un nmero Devuelve la raz cuadrada de un nmero Devuelve la tangente de un nmero Devuelve el nmero representado por una cadena de caracteres
Etapa 3: Programar la solucin en la ventana de cdigo del
formulario
Importando la Clase: Paso 1: Haga doble clic en el botn de comando btnFunciones System.Math
Imports System.Math Public Class Form1 Private Sub btnFunciones_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunciones.Click Dim n As Double n = txtNumero.Text txtAbs.Text = Abs(n) txtAtan.Text = Atan(n) txtCos.Text = Cos(n) txtExp.Text = Exp(n) txtLog.Text = Log(n) txtInt.Text = Int(n) txtSign.Text = Sign(n) txtSin.Text = Sin(n) txtSqrt.Text = Sqrt(n) txtRnd.Text = Rnd(n) End Sub End Class
Lenguaje de Programacin I
SESION 2: Funciones de Cadena
Objetivo: Que el alumno pueda aplicar las funciones de Cadena, de la
clase: Microsoft.VisualBasic
PROBLEMA 2: Implementar un Windows Form donde hara uso de las
funciones de Cadena de Visual Basic 2005.
Etapa 1: Disee el Formulario, tal como se muestra en la figura.
Paso1: Disea el Formulario, tal como se muestra en la figura
Etapa 2: Definiendo las Funciones de Cadena
Funcin Asc Chr Format InStr Lcase Ucase Descripcion Devuelve el cdigo ASCII del primer carcter de una cadena Devuelve el carcter asociado al cdigo ASCII de un nmero Formatea una expresin segn una formato pasado como parmetro Devuelve la posicin de la primera ocurrencia de una cadena dentro de otra Instr(dondesebusca,loquesebusca) Devuelve una cadena con sus caracteres convertidos a minsculas Devuelve una cadena con sus caracteres Ejemplo Sintaxis: Asc(A) Res: 65 Sintaxis: chr(65) Res: A Sintaxis: format(122,###.00) Res: 122.00 Sintaxis: instr(ABCD,C) Res: 3 devuelve la posicin que ocupa C en la cadena ABCD Sintaxis: Lcase(A) Res: a Sintaxis: Ucase(a)
Lenguaje de Programacin I
Left Right Len Ltrim Rtrim Trim Mid
convertidos a maysculas Devuelve un nmero especificado de caracteres desde la izquierda de una cadena Left(cadena,cantidad) Devuelve un nmero especificado de caracteres desde la derecha de una cadena Right(cadena,cantidad) Devuelve el nmero de caracteres de una cadena Devuelve una cadena, eliminando los espacios en blanco a la Izq. Devuelve una cadena, eliminando los espacios en blanco a la derecha Devuelve una cadena, eliminando los espacios en blanco a izquierda y derecha Devuelve la subcadena de tamao y posicin especificada dentro de otra cadena MID(cadena,posicin,cantidad) Devuelve una cadena formada por un nmero especificado de espacios en blanco Compara 2 cadenas Strcomp(cad1,cad2) devuelve: 1 : Si cad1< cad2 0 : Si cad1=cad2 1 : Si cad1>cad2 Reemplaza una cadena Replace(cad,buscar,reemplazar)
Res: A Sintaxis: Left(ABCD,2) Res: AB Sintaxis: Right(ABCD,2) Res: CD Sintaxis: Len(ABCD) Res: 4
Sintaxis: Mid(ABCD,3,2) Res: CD Sintaxis: Hola & space(2) Res: hola Sintaxis: strcomp(A,A) Res: 0
Space StrComp
Replace
Sintaxis: Replace(ABCD,C,X) Res: ABXD Busca la C y la cambia por la X Str Devuelve la representacin de un nmero Sintaxis: str(122) en forma de cadena Res: 122 Etapa 3: Programar la solucin en la ventana de cdigo del Importando la Clase: formulario Paso1: Haga doble clic en el objeto btnMostrar y defina el siguiente cdigo.
Imports vb = Microsoft.VisualBasic
Microsoft.VisualBasic
Private Sub btnMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMostrar.Click txt1erCaracter.Text = vb.Left(txtTexto.Text, 1) txtUltimo.Text = vb.Right(txtTexto.Text, 1) txtPenultimo.Text = vb.Left(vb.Right(txtTexto.Text, 2), 1) txtAntepenultimo.Text = vb.Left(vb.Right(txtTexto.Text, 3), 1)
Lenguaje de Programacin I
txt5toCaracter.Text = vb.Mid(txtTexto.Text, 5, 1) 'Texto Invertido txtTextoInvertido.Text = vb.StrReverse(txtTexto.Text) 'Longitud txtLongitud.Text = Len(txtTexto.Text) End Sub
