En numerosas ocasiones, sobre todo si se han de realizar cálculos matemáticos, estadísticos o financieros, es preciso ejecutar operaciones distintas a las que gestionan expresiones en las que se utilizan exclusivamente operadoras matemáticos. Afortunadamente no es preciso acudir al diseño de laboriosos y complejos algoritmos para encontrar la raíz cuadrada de un número o el seno de un ángulo ya que Visual Basic dispone de funciones incorporadas que devuelven están cantidades. Estas funciones se denominan predefinidas, internas o estándar o también funciones de librería.
Ejemplo:
El formato de la función es el siguiente:
• ABS(expresión numérica) abs(3,5) = 3,5
• SQr(expresión numérica) spr(4) = 4
• InT( expresión numérica) int(3,84) = 3
CLASES DE FUNCIONES:
• Funciones aritméticas:
Las funciones aritméticas son aquellas que realizan las operaciones del calculo del signo, parte decimal o truncamiento de los números reales que afectan las operaciones básicas
• Funciones exponenciales:
Las funciones exponenciales se utilizan en numerosas aplicaciones de gestión científica para resolver problemas de todo tipo, desde crecimiento de población hasta cálculos de interés compuesto que implica funciones exponenciales.
• Funciones logarítmicas:
Los logaritmos son una de las funciones estándar utilizadas en matemáticas y aplicaciones científicas. La función logarítmica mas importante es LOG que obtiene el logaritmo natural de un argumento x .
Log10(x) = log(x)/log (10)
• Funciones trigonométricas: las funciones trigonométricas devuelven los valores del seno, coseno, tangente y arco tangente de un ángulo expresado en radianes. Un radian es el resultado de dividir 360º entre 2π.
Sin (expresión en radianes)
Cos (expresión en radianes)
Tan (expresión en radianes)
Atn (expresión numérica)
EJERCICIOS DE VISUAL BASIC
a continuacion un ejemplo de visual basic, que nos mostrara la hora y la fecha exacta:
se agregan 4 label y un timer.
en label2 se escribe lo siguiente:
Private Sub Label2_Click()
Label2.Caption = Time
End Sub
en label4 se escribe lo siguiente:
Private Sub Label4_Click()
Label4.Caption = Date
End Sub
quedaria asi:
ejercicio tablas de multiplicar:
se necesitan dos label y tres botones de comando.
los codigos son los sgtes:
Private Sub Command1_Click()
Dim resultado As Long, retorno
For f = 1 To 20
resultado = Text1 * f
retorno = Chr(13) & Chr(10)
Text2 = Text2 & Text1 & "x" & f & "=" & resultado & retorno
Next f
End Sub
Private Sub Command2_Click()
Text1 = " "
Text2 = " "
Text1.SetFocus
End Sub
Private Sub Command3_Click()
If MsgBox("por favor confirma si ya te quieres salir del programa", vbYesNo, "¿quieres salirte del programa?") = vbYes Then
End
Else
Cancel = 1
End If
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Form_Load()
End Sub
quedaria asi:
el modelo del formulario:
y al finalizar el proyecto quedaria asi:
