sábado, 23 de febrero de 2013
Funciones incorporadas en Visual Basic 6.0
Funciones numéricas más comunes (Más ejemplos de uso)
1) Sintaxis: ABS(Variable)
Devuelve: Un valor del mismo tipo que el que se pasó como parámetros y que especifica el valor absoluto de Variable.
Comentario: El valor absoluto de un número es su magnitud sin signo. Por ejemplo, ABS(-1) y ABS(1) devuelven 1
Ejemplo
2 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Valor As Double
Valor = InputBox("Ingrese su numero favorito")
Label2 = Abs(Valor)
End Sub
2) Sintaxis: ATN(Variable)
Devuelve: Un tipo Double que especifica el arcotangente de Variable.
Comentario: Devuelve el ángulo correspondiente en radianes. (2)
Ejemplo
2 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Dim Valor As Double
Valor = InputBox("Arcotangente")
Label2 = Atn(Valor)
End Sub
3) Sintaxis: COS(Variable)
Devuelve: Un tipo Double que especifica el coseno del ángulo Variable.
Comentario: Variable indica un ángulo expresado en radianes (1)
Ejemplo
2 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Valor As Double
Valor = InputBox("Coseno")
Label2 = Cos(Valor)
End Sub
4) Sintaxis: EXP(Variable)
Devuelve: Un tipo Double que especifica e (La base de los logaritmos decimales) elevado a la potencia Variable.
Comentario: Si el valor de Variable es mayor que 709.782712893, se produce un error. El valor de la constante e es 2,718282 aproximadamente.
Ejemplo
2 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Valor As Double
Valor = InputBox("Exponencial")
Label2 = Exp(Valor)
End Sub
5) Sintaxis: FIX(Variable) y INT(Variable)
Devuelve: La parte entera de Variable.
Comentario: La diferencia entre INT y FIX es que si el número es negativo, INT devuelve el primer entero negativo menor o igual a número, mientras que FIX devuelve el primer entero negativo mayor o igual a número. Por ejemplo, INT convierte -8.4 en -9 y FIX convierte -8.4 a -8.
Ejemplo
4 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Valor As Double
Valor = InputBox("Ingrese su número")
Label2 = Fix(Valor)
Label4 = Int(Valor)
End Sub
NOTA: Prueba con el valor -8.4 y después puedes probar con cualquier valor que te convenga.
6) Sintaxis: LOG(Variable)
Devuelve: Un tipo Double que especifica el logaritmo natural de Variable.
Comentario: Para calcular logaritmos en base N para cualquier número X se divide el logaritmo natural de X por el logaritmo natural de N de la siguiente manera:
LOG_N_DE_X = LOG(X) / LOG(N)
Ejemplo
6 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim LOG_N_DE_X As Double
Dim N As Double
Dim X As Double
N = InputBox("Ingrese N 'Cualquier numero'")
X = InputBox("Ingrese X 'Cualquier numero'")
Label2 = Log(X)
Label4 = Log(N)
LOG_N_DE_X = Log(X) / Log(N)
Label6 = LOG_N_DE_X
End Sub
7) Sintaxis: ROUND(Redondeado, [Decimal])
Devuelve: Números redondeado en lugares decimales.
Comentario: El argumento "Decimal" es opcional. Es un número que indica cuantos lugares a la derecha del decimal se incluyen en el redondeo. Si se omite, la función ROUND devuelve sólo enteros.
Ejemplo
2 Label
1 CommandButton
Debe quedarte así:
Aquí esta el código (Darle doble clíck al CommandButton e introducir lo siguiente)
Private Sub Command1_Click()
Dim Redondeo As Double
Redondeo = InputBox("Ingrese su numero")
Label2 = Round(Redondeo)
End Sub
__________________________________________________________________________
Bueno, las demás funciones ya las entenderás, porque son similares a las anteriores, así que no habrá ejemplos.
8) Sintaxis: SGN(Variable)
Devuelve: 1 Si Variable es mayor que cero
0 Si Variable es cero
-1 Si Variable es menor que cero
Comentario: El signo del argumento Variable determina el valor devuelto por la función SGN.
9) Sintaxis: SIN(Variable)
Devuelve: Un tipo Double que especifica el seno del ángulo Variable.
Comentario: Variable indica un ángulo expresado en radianes (1)
10) Sintaxis: SQR(Variable)
Devuelve: Un tipo Double que especifica la raíz cuadrada de Variable.
Comentario: El argumento es un tipo Double o cualquier expresión numérica válida mayor o igual a cero.
11) Sintaxis: TAN(Variable)
Devuelve: Un tipo Double que especifica la tangente del ángulo Variable.
Comentario: Variable indica un ángulo expresado en radianes (1)
(1) Para convertir grados en radianes, multiplique los grados por PI / 180
(2) Para convertir radianes en grados, multiplique los radianes por 180 / PI
