Atención estudiantes de 3er año deben investigar la variable asignada y luego publicarla en el blog, Definición y ejemplo sigue este ejemplo:
FUNCIONES NUMÉRICAS
Las funciones numéricas nos permiten manipular cantidades numéricas, para modificarlas o ajustarlas mejor.
FUNCIÓN | DESCRIPCIÓN (PARA QUÉ SIRVE) | EJEMPLO DE CÓMO SE USA |
INT | Conversión de un número a tipo int (entero) | Resultado = INT (NUM) |
VAL | Conversión de un texto a un valor numérico | Resultado = VAL (STRING) |
RND | ||
SQR | ||
ABS | ||
MOD | ||
SGN | ||
ATN | ||
EXP | ||
FIX | ||
LOG | ||
ROUND | ||
SIN | ||
COS | ||
TAN |
FUNCIONES ALFANUMÉRICAS
Las funciones alfanuméricas permiten realizar operaciones con textos (denominados también cadenas de caracteres o STRINGS), así como modificarlos y manipularlos adecuadamente para su posterior tratamiento.
FUNCIÓN | DESCRIPCIÓN (PARA QUÉ SIRVE) | EJEMPLO DE CÓMO SE USA |
SPACE | ||
STRING | ||
MID | ||
LEFT | ||
RIGHT | ||
INSTR | ||
LCASE | ||
UCASE | ||
STRCOMP | ||
TRIM | ||
RTRIM | ||
LTRIM | ||
FORMAT | ||
SPLIT | ||
JOIN | ||
REPLACE | ||
LEN |
Devuelve un entero que contiene el número de caracteres de una cadena, o bien el número nominal de bytes necesarios para almacenar una variable.
ResponderEliminarCopiar
Public Shared Function Len( _
ByVal Expression As { Boolean | Byte | SByte | Char | Double |
Integer | UInteger | Long | ULong | Object | Short | UShort |
Single | String | DateTime | Decimal } _
) As Integer
Parámetros
Expression
Cualquier expresión String o nombre de variable válidos. Si Expression es del tipo Object, la función Len devuelve el tamaño en el que la función FilePut escribirá en el archivo.
Mediante la función split que devuelve un array, podemos obtener un arreglo con las lineas que contiene un TextBox Multilinea y en el ejemplo luego pasamos las líneas a un ListBox.
ResponderEliminarLos parámetros de Split son:
El primero la cadena que queremos separar o desglosar, en este caso es el TextBox. El segundo parámetro es el caracter delimitador que tomará en cuenta para separar los datos, en este caso es la constante de salto de carro VbCrlf o VbNewLine, cualquiera de las 2 es válida.
Luego de hacer esto podemos recorrer la matriz obtenida para rescatar los datos 1 por 1, y en este caso la agregamos al ListBox, para recorrerlos usamos Lbound y Ubound ( el límite inferior y superior del vector )
Text1 multilinea
'Array o vector dinámico para almacenar las lineas mediante Split
Dim Lineas() As String
Dim i As Integer
' borra el listbox
List1.Clear
' Le pasa el textobx (el dato ), y el caracter delimitador
Lineas = Split(Text1, vbNewLine)
'Recorremos el arreglo y vamos insertando _
los elementos del array en el ListBox
For i = LBound(Lineas) To UBound(Lineas)
List1.AddItem Lineas(i)
Next
Funcion FIX(Aritmética): Las funcion Fix quita la parte fraccionaria de un Numero y devuelven el valor entero resultante.
ResponderEliminarFix devuelve el primer entero negativo mayor o igual que el número.
Por Ejemplo
MiNúmero = FIX(-8,4)
Mauricio Barbarán
9no GRado
Fix convierte -8,4 en -8
Join es una variable que sirve para, devolver una cadena creada a partir de la combinación de varias subcadenas contenidas en una matriz.
ResponderEliminarEl ejemplo siguiente muestra cómo se utiliza la función Join para crear una lista a partir de varias cadenas en Visual Basic:
Dim TestItem() As String = {"Pickle", "Pineapple", "Papaya"}
' Returns "Pickle, Pineapple, Papaya"
Dim TestShoppingList As String = Join(TestItem, ", ")
Variable RND
ResponderEliminarLa variable sirve para generar números, colores, enlaces, imagenes, decimales, etc. de forma aleatoria (random).
Un ejemplo podría ser el generador de números aleatorios:
Option Explicit
'Función que devuelve el número aleatorio
''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize ' inicializar la semilla
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
Private Sub Command1_Click()
If Len(Text1) <> 0 And Len(Text2) <> 0 Then
'generar un número
MsgBox Aleatorio(CLng(Text1), CLng(Text2)), vbInformation
End If
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
Felicitamos a los siguientes alumnos por su dedicación y rápida entrega: Maximiliano, Christian, Barbaran, Guillermo y Pujol de 3er año, sigan así, de igual modo invitamos al resto de los compañeros a realizar la investigación.
ResponderEliminarRight
ResponderEliminarDevuelve una cadena que contiene un número especificado de caracteres desde el lado derecho de una cadena.
Copiar
Public Shared Function Right( _
ByVal str As String, _
ByVal Length As Integer _
) As String
Parámetros
str
Requerido. Expresión String de la que se devuelven los caracteres que están más a la derecha.
Length
Requerido. Integer. Expresión numérica que indica cuántos caracteres se van a devolver. Si es 0, se devuelve una cadena de longitud cero (""). Si es mayor o igual que el número de caracteres en str, se devuelve toda la cadena.
Ricardo Duque 3er año
Trim
ResponderEliminarVisual Basic .NET provee mecanismos para la eliminación de espacios en blanco contenidos en un string a través de las siguientes funciones:
Trim, regresa un string que contiene una copia de un string especifico al cual se eliminaron los espacios en blanco contenidos al inicio y al final del string.
Salvador Hernández 3año
FORMAT
ResponderEliminarEn Visual Basic 6.0, la función Format convierte las cadenas en números, si es necesario, antes de asignarles un formato. Format muestra un separador decimal final si no hay parte fraccionaria.
Ejemplo:
Format(DatePart(DateInterval.Weekday, Now))
... Format(DatePart(DateInterval.WeekOfYear, Now))
Format(DatePart(DateInterval.Quarter, Now))
Moises Muñiz 3ºaño
Variable StrComp
ResponderEliminarEn bisual basic StrCom devuelve un valor, -1, 0 ó 1, que indica el resultado de una comparación de cadena.
Ejemplo:
En este ejemplo se utiliza la función StrComp para devolver los resultados de una comparación de cadena. Si se omite el tercer argumento, se ejecutará el tipo de comparación definido en la instrucción Option Compare o en los valores predeterminados del proyecto
-Lcase:
ResponderEliminarEsta función utiliza la información de referencia cultural de la aplicación al manipular la cadena para que los cambios de mayúsculas y minúsculas sean los adecuados para la configuración regional en la que se usa la aplicación.
-Ejemplo:
' String to convert.
Dim UpperCase As String = "Hello World 1234"
' Returns "hello world 1234".
Dim LowerCase As String = LCase(UpperCase)
Carlos Luis Ferreira 3año
La función SQR devuelve la raíz cuadrada de cualquier número positivo.
ResponderEliminarEjemplos:
intVal1 = Sqr (4) '2
intVal2 = Sqr (64) '8
intVal3 = Sqr (4096) '16
Roberto Rojas M.
#35
9no. U
SGN PARTE I
ResponderEliminar(caso 1)
En lenguajes donde TRUE = -1 y FALSE = 0 En lenguajes de programación se aprovecha la mitad alta de la gama de datos para expresar números negativos cuando el tipo de datos elegido admite esa posibilidad.
Funcion Signo(N)
Devolver (N < 0) - (N > 0)
Fin Funcion
Examinado el código se observa que las expresiones de comparación devuelve TRUE= -1 o FALSE=0
• Caso N Mayor que 0: si un número es mayor que 0 luego éste resultado = -1, y por lo tanto no puede ser cierta la expresión (n<0), entonces al restar, se resta -1. Se verifica que: 0 -(-1) = 1
• Caso N igual a 0: Si N vale 0, ambas expresiones son falsas, dan por resultado 0, luego su resta también dará 0. Se verifica que: 0 - 0 = 0
• Caso N menor que 0: Si n<0 entonces esta expresión = TRUE = -1, por tanto la otra expresión no puede ser cierta, entonces se le resta 0, que es el resultado de la expresión final (n<0). Se verifica que: -1 - 0 = -1
Usando lógica y aritmética (caso 2)
En lenguajes donde TRUE = 1 y FALSE = 0 En lenguaje natural (y cálculo mental), nos resulta más evidente así)
Funcion Signo(N)
Devolver (N > 0) - (N < 0)
Fin Funcion
Examinado el código se observa que las expresiones de comparación devuelve TRUE = 1 ó FALSE = 0
• Caso N Mayor que 0: si un número es mayor que 0 luego el resultado de esta expresión = 1, y por lo tanto no puede ser cierta la expresión (n<0), entonces al restar, se resta 0. Se verifica que: 1 - 0 = 1
• Caso N igual a 0: Si N vale 0, ambas expresiones dan por su lado un resultado de 0, luego su resta también dará 0. Se verifica que: 0 - 0 = 0
• Caso N menor que 0: Si n<0 entonces devuelve TRUE = 1, y la expresión (n>0) da 0, por tanto se le resta 1 resultado de la expresión final (n<0). Se verifica que: 0 - 1 = -1
Space (Función Visual Basic)
ResponderEliminarDescripción:
La función Space es útil para dar formato a datos de salida y descartar información en cadenas de longitud fija.
Ejemplo:
Dim TestString As String
' Devuelve a una cadena con 10 espacios.
TestString = Space(10)
' Inserta 10 espacios entre 2 cadenas.
TestString = "Hello" & Space(10) & "World"
Hola yo soy Delgado en mi cuenta anonima para publicar la variable String.
ResponderEliminarString (*) Tiene como función devolver una cadena con el formato que especifiquen las instrucciones contenidas en una expresión String de formato.
-----------------------------------------------
Ejemplo:
Dim j As String = "Joe said ""Hello"" to me."
Dim h As String = "Hello"
' The following messages all display the same thing:
' "Joe said "Hello" to me."
MsgBox(j)
MsgBox("Joe said " & """" & h & """" & " to me.")
MsgBox("Joe said """ & h & """ to me.")
Fernando Antonioli.
ResponderEliminarAbs:
Descripción: Devuelve el valor absoluto de un número especificado.
Ejemplo:
-MyNumber = Abs(50.3) 'Devuelve 50.3
-MyNumber = Abs(-50.3) 'Devuelve 50.3
Función Sgn:
ResponderEliminarDevuelve un número entero que indica el signo de un número.
Sgn(número)
El argumento número puede ser cualquier expresión numérica válida.
Valores de retorno:
La función Sgn tiene los siguientes valores de retorno:
Si número es Sgn devuelve
Mayor que cero 1
Igual que cero 0
Menor que cero -1
Dim MiVar1, MiVar2, MiVar3, MiSigno
MiVar1 = 12: MiVar2 = -2.4: MiVar3 = 0
MiSigno = Sgn(MiVar1) ' Devuelve 1.
MiSigno = Sgn(MiVar2) ' Devuelve -1.
MiSigno = Sgn(MiVar3) ' Devuelve 0.
Carlos Carrasquero
ResponderEliminar3er año
La función Round nos sirve mas que todo para redondear Decimales.
Por ejemplo si tengo 11.99 y quiero que me lo haga 12 y no ,99 entonces uso Round
MsgBox Round(11.99, 1)
Le digo que tome 11.99 y busque el primer decimal para mostrar. ( el cual marque en negrita ) y luego el los siguiente números son evaluados.
Como 9 es mayor que 5 (la mitad es 5) entonces hace "carry" es decir. Le suma 1 al número que esté en Negrita y lo transforma en 12.
' String to convert.
ResponderEliminarDim LowerCase As String = "Hello World 1234"
' Returns "HELLO WORLD 1234".
Dim UpperCase As String = UCase(LowerCase)
Juan luis freitas 9no grado
VARIABLE ABS:
ResponderEliminarDevuelve el valor absoluto de un número especificado.
EJEMPLO:
En este ejemplo se utiliza el método Abs de la clase Math para calcular el valor absoluto de un número.
Copiar' Returns 50.3.
Dim MyNumber1 As Double = Math.Abs(50.3)
' Returns 50.3.
Dim MyNumber2 As Double = Math.Abs(-50.3)
FRANCISCO MUJICA Y FRANKLIN TORRES
exp se entiende por: EXP "vuelve a dirigir aquí, para otros usos, véase exp.
ResponderEliminarEn la teoría de complejidad computacional, la clase de complejidad EXPTIME (a veces llamada EXP) es el conjunto de todos los problemas de decisión resolubles por una máquina de Turing determinista en tiempo O (2p (n)), donde p (n) es una función polinómica de n.
En términos de DTIME,
Atn: Devuelve un valor Double que contiene el ángulo cuya tangente es el número especificado.
ResponderEliminarEj:
Public Function GetPi() As Double
' Calculate the value of pi.
Return 4.0 * Math.Atan(1.0)
End Function
Hechopor: Ivan zerpa 9no grado
La función Sqr devuelve el cuadrado del valor utilizado como parámetro.
ResponderEliminarSqrt regresa la raíz cuadrada del valor dado como parámetro, el resultado siempre es real aunque se utilice un número de tipo entero como argumento. Ejemplo:
PROGRAM Exponentes;
VAR
Dato, Cuadrado : Integer;
Raiz : Real;
BEGIN
Dato := 45;
Cuadrado := Sqr(Dato);
Raiz := Sqrt(Dato);
WriteLn(' El cuadrado de ',Dato, ' es: ',Cuadrado);
WriteLn('La raíz cuadrada de ',Dato,' es: ',Raiz);
END.
ojo enviado desde la direccion del profesor porque mi gmail no abre
Moises Amaya 9no
VARIABLE LTRIM
ResponderEliminarDevuelve una cadena que contiene una copia de una cadena dada sin espacios iniciales (LTrim), sin espacios finales (RTrim) o sin espacios iniciales ni finales (Trim).
Las funciones LTrim, RTrim y Trim quitan los espacios de los finales de las cadenas. Para quitar otras formas de espacio en blanco, como caracteres de tabulación, use el método System.String.Trim.
En este ejemplo se utiliza la función LTrim para suprimir los espacios iniciales y la función RTrim para suprimir los espacios finales en una variable de cadena. Se utiliza la función Trim para suprimir ambos tipos de espacios.
' Initializes string.
Dim TestString As String = " <-Trim-> "
Dim TrimString As String
' Returns "<-Trim-> ".
TrimString = LTrim(TestString)
' Returns " <-Trim->".
TrimString = RTrim(TestString)
' Returns "<-Trim->".
TrimString = LTrim(RTrim(TestString))
' Using the Trim function alone achieves the same result.
' Returns "<-Trim->".
TrimString = Trim(TestString)
FRANCISCO MUJICA, 9NO
Variable MOD
ResponderEliminarEl operador Mod se puede sobrecargar, lo que significa que una clase o estructura pueden volver a definir su comportamiento. Si su código aplica Mod a una instancia de una clase o estructura que incluye este tipo de sobrecarg.
En el ejemplo siguiente se usa el operador Mod para dividir dos números y devolver únicamente el resto. Si uno de ellos es un número con punto flotante, el resto resultante también será un número punto flotante.
Dim testResult As Double
testResult = 10 Mod 5
testResult = 10 Mod 3
testResult = 12 Mod 4.3
testResult = 12.6 Mod 5
testResult = 47.9 Mod 9.35
Variable STR
ResponderEliminarLa función Str sólo reconoce el punto (.) como separador decimal válido. Si se utilizan separadores decimales diferentes, como sucede en aplicaciones internacionales, debe utilizar las funciones CStr o Format para convertir un número en una cadena.
En este ejemplo se utiliza la función Str para devolver una representación String de un número. Cuando los números positivos se conviertan a cadenas, siempre se reservará un espacio inicial para su signo.
Dim TestString As String
' Returns " 459".
TestString = Str(459)
' Returns "-459.65".
TestString = Str(-459.65)
' Returns " 459.001".
TestString = Str(459.001)
Devuelve una cadena o un carácter que contiene la cadena especificada convertida en mayúsculas.
ResponderEliminarCopiar
Public Shared Function UCase(ByVal Value As Char) As Char
' -or-
Public Shared Function UCasEn este ejemplo se utiliza la función UCase para devolver la versión en mayúsculas de una cadena.
e(ByVal Value As String) As String
' String to convert.
Dim LowerCase As String = "Hello World 1234"
' Returns "HELLO WORLD 1234".
Dim UpperCase As String = UCase(LowerCase)
LA VARIABLE RTRIM
ResponderEliminarLas funciones LTrim, RTrim y Trim quitan los espacios de los finales de las cadenas. Para quitar otras formas de espacio en blanco, como caracteres de tabulación
En este ejemplo se utiliza la función LTrim para suprimir los espacios iniciales y la función RTrim para suprimir los espacios finales en una variable de cadena. Se utiliza la función Trim para suprimir ambos tipos de espacios.
' Initializes string.
Dim TestString As String = " <-Trim-> "
Dim TrimString As String
' Returns "<-Trim-> ".
TrimString = LTrim(TestString)
' Returns " <-Trim->".
TrimString = RTrim(TestString)
' Returns "<-Trim->".
TrimString = LTrim(RTrim(TestString))
' Using the Trim function alone achieves the same result.
' Returns "<-Trim->".
TrimString = Trim(TestString)
ATN
ResponderEliminarLa función Atn toma la relación de dos lados de un triángulo rectángulo (número) y devuelve el ángulo correspondiente en radianes. La relación es la longitud del lado opuesto del ángulo dividida por la longitud del lado adyacente al ángulo.
El intervalo del resultado es pi/2 a pi/2 radianes.
Para convertir grados a radianes, se multiplican los grados por pi/180. Para convertir radianes a grados, se multiplican los radianes por 180/pi.
NOTA Atn es la función trigonométrica inversa de Tan, que toma un ángulo como argumento y devuelve la relación de dos lados de un triángulo rectángulo. No hay que confundir Atn con la cotangente, que es la inversa simple de una tangente (1/tangente).
Alejandro Zumbo 9no
Replace
ResponderEliminarEn este ejemplo se muestra el uso de la función Replace.
Dim TestString As String = "Shopping List"
' Returns "Shipping List".
Dim aString As String = Replace(TestString, "o", "i")
Alejandro Zumbo 9no