Visual Basic 6.0 - Tecnun

More documents

Recommendations

Info

ESIISS: Aprenda Visual Basic 6.0 como si estuviera en Primero página 46AnyString = "Hello World"MyStr = Right(AnyString, 6)MyStr = Left(AnyString, 7)MyStr = Right(AnyString, 20)’ Se define el string.’ Devuelve " World".’ Devuelve "Hello W".’ Devuelve "Hello World".i = StrComp("casa", "caña") ' Devuelve –1 por defecto y 1 con OptionCompare TextMyString = "Mid Function Demo" ' Se crea un nuevo string.LastWord = Mid(MyString, 14, 4) ' Devuelve "Demo".MidWords = Mid(MyString, 5) ' Devuelve "Function Demo".El operador Like permite comparar dos cadenas de caracteres. Si son iguales devuelve Truey si no lo son, False. Téngase en cuenta que Like es un operador, no una función.Existe además el operador de concatenación & que puede ser utilizado con cadenas decaracteres. Se utiliza para poner una cadena a continuación de otra. Por ejemplo:str1 = "My first string" ’Se inicializan los stringsstr2 = "My second string"TextoFinal = str1 & str2 ’TextoFinal vale "My first stringMy second string"El operador "+" opera de forma análoga, pero su uso se desaconseja pues en ciertasocasiones convierte las cadenas en números y realiza la suma.Para obtener más información sobre cada una de las funciones buscar Strings en el Help deVisual Basic 6.0.3.12 FUNCIONES MATEMÁTICASAl igual que las funciones vistas para el manejo de cadenas de caracteres, existe una serie defunciones matemáticas las cuales permiten realizar cálculos dentro de un programa de Visual Basic.Dichas funciones se muestran en la Tabla 3.5:FunciónmatemáticaFunción enVisual BasicFunciónmatemáticaValor absoluto Abs(x) Nº aleatorio RndFunción enVisual BasicArco tangente Atn(x) Seno y coseno Sin(x), Cos(x)Exponencial Exp(x) Tangente Tan(x)Parte entera Int(x), Fix(x) Raíz cuadrada Sqr(x)Logaritmo Log(x) Signo (1, 0, -1) Sgn(x)RedondeoEjemplos:Round(x, ndec)Tabla 3.5. Funciones matemáticas en Visual Basic 6.0.MyNumber = Abs(50.3) ’ Devuelve 50.3.MyNumber = Abs(-50.3) ’ Devuelve 50.3.MyAngle = 1.3' El ángulo debe estar en radianes.MySecant = 1 / Cos(MyAngle) ' Calcula la secante.MySqr = Sqr(4) ' Devuelve 2.MySqr = Sqr(23) ' Devuelve 4.79583152331272.MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0 'Declaración de las variablesMySign = Sgn(MyVar1) ' Devuelve 1.MySign = Sgn(MyVar2) ' Devuelve -1.MySign = Sgn(MyVar3) ' Devuelve 0.
Capítulo 3: Lenguaje BASIC página 47Las funciones trigonométricas de Visual Basic utilizan radianes para medir los ángulos.Con el fin de completar estas funciones, se ofrece a continuación una relación de funcionesque son derivadas de las anteriores. El alumno podría programar dichas funciones en un fichero*.bas y así poderlas utilizar posteriormente en cualquier programa. Dichas funciones se muestran enla Tabla 3.6:SecanteFunción matemáticaCosecanteCotangenteSec(X) = 1 / Cos(X)Cosec(X) = 1 / Sin(X)Cotan(X) = 1 / Tan(X)Expresión equivalenteArcoseno Arcsin(X) = Atn(X / Sqr(-X * X + 1))ArcocosenoArcosecanteArcocosecanteArcocotangenteArccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) -1) * (2 * Atn(1))Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) - 1) * (2 * Atn(1))Arccotan(X) = Atn(X) + 2 * Atn(1)Seno Hiperbólico HSin(X) = (Exp(X) - Exp(-X)) / 2Coseno Hiperbólico Hcos(X) = (Exp(X) + Exp(-X)) / 2Tangente HiperbólicaSecante HiperbólicaCosecante HiperbólicaCotangente HiperbólicaHtan(X) = (Exp(X) - Exp(-X)) / (Exp(X) + Exp(-X))HSec(X) = 2 / (Exp(X) + Exp(-X))Hcosec(X) = 2 / (Exp(X) - Exp(-X))Hcotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) - Exp(-X))Arcoseno Hiperbólico Harcsin(X) = Log(X + Sqr(X * X + 1))Arcocoseno Hiperbólico Harccos(X) = Log(X + Sqr(X * X - 1))Arcotangente Hiperbólica Harctan(X) = Log((1 + X) / (1 - X)) / 2Arcosecante Hiperbólica Harcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)Arcocosecante Hiperbólica Harccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) +1) / X)Arcocotangente Hiperbólica Harccotan(X) = Log((X + 1) / (X – 1)) / 2Logaritmo en base NLogN(X) = Log(X) / Log(N)Tabla 3.6. Funciones auxiliares matemáticas (no las tiene Visual Basic 6.0).
Page 1 and 2: Escuela Superior de Ingenieros Indu
Page 3 and 4: Índicepágina iÍNDICE1. Introducc
Page 5: Índicepágina iii6.1.3 Función RG
Page 8 and 9: ESIISS: Aprenda Visual Basic 6.0 co
Page 102 and 103:
ESIISS: Aprenda Visual Basic 6.0 co
Page 104 and 105:
ESIISS: Aprenda Visual Basic 6.0 co
show all

Visual Basic 6.0 - Tecnun

Create successful ePaper yourself

Delete template?

Save as template?