Cpu Y Sus Partes

Operadores y Funciones.

* Ejemplo 1
* Funciones
* Ejemplo 2
Los programas necesitarán efectuar cálculos matemáticos, de texto, trigonométricos, etc., según el trabajo que el programa realizará. Para ello Visual Basic tiene operadores matemáticos y funciones precreadas para programar. Los operadores matemáticos son los siguientes:
Tabla 5 - Operadores matemáticos. |
Signo |Concepto |
+ | Suma |
- | Resta (o signo negativo) |
* | Multiplicación |
/ | División |
\ | División entera |
^ | Potenciación |
& | Concatenación |
Mod | Resto de una división |
Ejemplo 1
Crea un nuevo proyecto estándar y coloca en el formulario los siguientes controles:
Control | Propiedad | Valor |
Form | Name | frmCalc |
Textbox | Name |txtVisor |
Commandbutton | Name | cmdOper |
" " | Index | 0 a 6 |
" " | Caption | +, -, *, /, \, ^, Mod |
Commandbutton | Name | cmdIgual |
" " | Caption | = |
Escribe el siguiente código en la ventana de código del formulario:
Option Explicit
Dim numer as Double, oper as Byte
Private Sub txtVisor_LostFocus()
If isnumeric(txtVisor.Text)=False Then
MsgBox("Introduzcaun valor numérico"):txtVisor.SetFocus
End Sub
Private Sub cmdIgual_Click()
Select Case oper
Case 0
numer=txtVisor.Text
Case 1
txtVisor.Text=numer+txtVisor.Text
numer=txtVisor.Text:oper=0
Case 2
txtVisor.Text=numer-txtVisor.Text
numer=txtVisor.Text:oper=0
Case 3
txtVisor.Text=numer*txtVisor.Text
numer=txtVisor.Text:oper=0
Case 4
txtVisor.Text=numer/txtVisor.Textnumer=txtVisor.Text:oper=0
Case 5
txtVisor.Text=numer\txtVisor.Text
numer=txtVisor.Text:oper=0
Case 6
txtVisor.Text=numer^txtVisor.Text
numer=txtVisor.Text:oper=0
Case 7
txtVisor.Text=numer Mod txtVisor.Text
numer=txtVisor.Text:oper=0
End Select
End Sub
Private Sub cmdOper_Click(index as Integer)
oper=1+index
End Sub
Private Sub txtVisor_KeyPress(Keyascii as Integer)
If Keyascii=13 Then
CallcmdIgual_Click
End If
End Sub
Pulse F5 para probar la aplicación.
Funciones.
En esta parte se brindarán funciones matemáticas, funciones de texto, etc., para utilizar.
Las siguientes son las funciones matemáticas y trigonométricas:
* Abs(numero): esta función devuelve el valor absoluto de un número; el valor absoluto de un número es ese número con signo positivo.
* Int(numero) oFix(numero): estas dos funciones devuelven la parte entera de un número.
* Round(numero,ndec): esta función permite redondear el argumento número con tantos lugares decimales como lo especifique el argumento ndec.
* Sgn(numero): devuelve el signo del argumento número. -1 si numero es menor que 0, 1 si es mayor que 0 y 0 si número es 0.
* Sqr(numero): devuelve la raíz cuadrada del argumentonúmero.
* Sin(angulo): devuelve el seno del argumento ángulo.
* Cos(angulo): devuelve el coseno del argumento ángulo.
* Tan(angulo): devuelve la tangente del argumento ángulo.
* Atan(angulo): devuelve el arco tangente del argumento ángulo.
* Log(numero): devuelve el logaritmo de un número.
* Exp(numero): devuelve el número e (2.71828...), elevada al argumento número[enumero].
* Randomize(numero): inicia el generador de números aleatorios.
* Rnd(numero): devuelve un número aleatorio entre 0 y 1, basado en el argumento numero (o en el generador de números aleatorios).
Aclaración: para las funciones trigonométricas el sistema de medición angular son radianes.
Las siguientes son las funciones de trabajo con texto:
* Lcase(texto): devuelve el textoen minúsculas.
* Ucase(texto): devuelve el texto en mayúsculas.
* Len(texto): devuelve el número de caracteres que conforman una cadena de texto.
* Left(texto,largo): toma del argumento texto los caracteres especificados en el argumento largo, contados desde la izquierda.
* Right(texto,largo): toma del argumento texto los caracteres especificados en el argumento largo,...