TRABAJO COLABORATIVO 2 VISUAL BASIC

TRABAJO COLABORATIVO

MILLER MIGUEL HERNÁNDEZ

UNIVERSIDAD NACIONAL ABIERTA Y A DISTANCIA UNAD

CERES VALLE DEL GUAMUEZ

17 DE ABRIL DE 2012

1. Declarar por lo menos 4 variables de distinto tipo que puedan ser

utilizadas en Visual. Net

2. Explique para que se utiliza la función MID

3. Explique para que se utiliza la función INSTR

4. Explique para que se utiliza la función REPLACE

5. Explique para que se utiliza la función DateSerial

MID

Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena. Para determinar el número de caracteres de str, utilice la función Len.

Visual Basic tiene una función Mid y una instrucción Mid. Ambos elementos actúan en un número especificado de caracteres de una cadena, pero la función Mid devuelve los caracteres, en tanto que la instrucción Mid los reemplaza. Para obtener más información, vea Mid (Instrucción).

Ejemplo

En este ejemplo se utiliza la función Mid para devolver un número de caracteres especificado de una cadena.

' Creates text string.

Dim TestString As String = "Mid Function Demo"

' Returns "Mid".

Dim FirstWord As String = Mid(TestString, 1, 3)

' Returns "Demo".

Dim LastWord As String = Mid(TestString, 14, 4)

' Returns "Function Demo".

Dim MidWords As String = Mid(TestString, 5)

INSTR

Devuelve un entero que especifica la posición inicial de la primera aparición de una cadena dentro de otra. Generalmente, cuando se analizan cadenas se utiliza la función InStr.

Ejemplo

En este ejemplo se usa la función InStr para devolver la posición de la primera aparición de una cadena dentro de otra.

' String to search in.

Dim SearchString As String = "XXpXXpXXPXXP"

' Search for "P".

Dim SearchChar As String = "P"

Dim TestPos As Integer

' A textual comparison starting at position 4. Returns 6.

TestPos = InStr(4, SearchString, SearchChar, CompareMethod.Text)

' A binary comparison starting at position 1. Returns 9.

TestPos = InStr(1, SearchString, SearchChar, CompareMethod.Binary)

' If Option Compare is not set, or set to Binary, return 9.

' If Option Compare is set to Text, returns 3.

TestPos = InStr(SearchString, SearchChar)

' Returns 0.

TestPos = InStr(1, SearchString, "W")

REPLACE

Devuelve una cadena en la que la subcadena especificada se reemplaza determinado número de veces por otra subcadena.

El valor que devuelve la función Replace es una cadena que comienza en la posición especificada por Start y concluye al final de la cadena Expression, con las sustituciones efectuadas según especifican los valores de Find y Replace.

Ejemplo

En 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")

DATESERIAL

Devuelve un valor Date que representa un año, mes y día específicos, con la información de la hora establecida en medianoche (00:00:00).

En este ejemplo se utiliza la función DateSerial para devolver una fecha para el año, mes y día especificados.

Ejemplo

Dim MyDate As Date

' MyDate contains the date for February 12, 1969.

MyDate = DateSerial(1969, 2, 12) ' Return a date.

4. Se debe elaborar un documento en el cual presenten un ejemplo de seudocódigo aplicando los siguientes elementos:

Declaración de variables

Operadores matemáticos

Instrucciones básicas: with, if, Select case, for, do while, while.

WITH

Ejecuta una serie de instrucciones que hacen referencia repetidas veces a un único objeto o estructura. Si la ruta de acceso de calificación al objeto es larga, utilizar With...End With puede mejorar el rendimiento. Un bloque With también reduce la necesidad de escribir repetidamente la ruta de acceso de calificación y el riesgo de cometer errores al escribir alguno de sus elementos.

Por ejemplo, para cambiar un número de propiedades diferentes en un único objeto, coloque las instrucciones de asignación de las propiedades dentro de With...End With, haciendo referencia al objeto una vez, en lugar de hacerlo en cada una de las asignaciones de propiedades.

Ejemplo

With testObject

.Height

...