UNIDAD 3: VISUAL BASIC NET ARREGLOS

TEMA 3: ARREGLO TIPO LISTA

En visua basic net un arreglo tipo lista se define como una variable que permite almacenar un conjunto de datos del mismo tipo organizados en una sola columna y uno o mas renglones.

Tambien reciben el nombre de vectores en algebra o arreglos unidimensionales en programacion.

Los procesos normales con una lista o con sus elementos, incluyen declarar toda la lista, capturar sus elementos, desplegarlos, realizar operaciones con ellos, desplegarlos, etc.

Para declarar una lista se usa el siguiente formato;

SHARED DIM NOMLISTA(CANT ELEMENTOS -1) AS TIPODATO

Shared(compartido), se usa cuando la lista se tenga que compartir entre varias subutinas, observar que cada boton de comando en un programa empieza con sub-end sub, si un programa tiene varias subrutinas que compartan la misma lista, dicha lista debera ser SHARED.

La cantidad de elementos-1, significa que si se quiere una lista de 5 ciudades por ejemplo su declaracion sera shared dim ciudad(4) as string, la razon de esto es que visual basic empieza una lista por el elemento o renglon cero(0), por tanto cuando se pide crear una lista de 4 ciudades, visual basic net le agrega el renglon o elemento 0, que en total darian 5 ciudade.

Es tambien importante recordar que un arreglo en visual basic net es realmente un objeto derivado de la clase SYSTEM.ARRAY.

Recordar tambien que como objeto arreglo, tambien puede usar una serie de metodos pertenecientes a dicha clase system.array, los metodos principales de dicha clase y por tanto de los arreglos derivados de la misma son:

Public Methods

BinarySearch Overloaded. Searches a one-dimensional sorted Array for a value, using a binary search algorithm.
Clear Sets a range of elements in the Array to zero, to false, or to a null reference (Nothing in Visual Basic), depending on the element type.
Clone Creates a shallow copy of the Array.
Copy Overloaded. Copies a section of one Array to another Array and performs type casting and boxing as required.
CopyTo Copies all the elements of the current one-dimensional Array to the specified one-dimensional Array starting at the specified destination Array index.
CreateInstance Overloaded. Initializes a new instance of the Array class.
Equals (inherited from Object) Overloaded. Determines whether two Object instances are equal.
GetEnumerator Returns an IEnumerator for the Array.
GetHashCode (inherited from Object) Serves as a hash function for a particular type, suitable for use in hashing algorithms and data structures like a hash table.
GetLength Gets the number of elements in the specified dimension of the Array.
GetLowerBound Gets the lower bound of the specified dimension in the Array.
GetType (inherited from Object) Gets the Type of the current instance.
GetUpperBound Gets the upper bound of the specified dimension in the Array.
GetValue Overloaded. Gets the value of the specified element in the current Array.
IndexOf Overloaded. Returns the index of the first occurrence of a value in a one-dimensional Array or in a portion of the Array.
Initialize Initializes every element of the value-type Array by calling the default constructor of the value type.
LastIndexOf Overloaded. Returns the index of the last occurrence of a value in a one-dimensional Array or in a portion of the Array.
Reverse Overloaded. Reverses the order of the elements in a one-dimensional Array or in a portion of the Array.
SetValue Overloaded. Sets the specified element in the current Array to the specified value.
Sort Overloaded. Sorts the elements in one-dimensional Array objects.
ToString (inherited from Object) Returns a String that represents the current Object.

notas:

En visual Basic Net recordar que la primera posicion o renglon en una lista es la posicion o renglon 0 (cero).

Prog16.aspx


<HTML>

<FORM RUNAT=SERVER>

DAME EDAD:<ASP:TEXTBOX ID=RENG TEXT=0 SIZE=2 RUNAT=SERVER/>

<ASP:TEXTBOX ID=EDAD SIZE=5 RUNAT=SERVER/>

<ASP:BUTTON TEXT=CARGAR ONCLICK=CARGAR RUNAT=SERVER/><BR>

<ASP:LISTBOX ID=LISTA ROWS=5 RUNAT=SERVER></ASP:LISTBOX>

<ASP:BUTTON TEXT=SUMAR ONCLICK=SUMAR RUNAT=SERVER/><BR>

</FORM></HTML>

<SCRIPT LANGUAGE=VB RUNAT=SERVER>

' DECLARANDO LISTA GLOBAL

SHARED DIM EDADARR(4) AS INTEGER

SUB CARGAR(Sender As Object, E As EventArgs)

IF RENG.TEXT <= 5 THEN

EDADARR(RENG.TEXT) = EDAD.TEXT

RENG.TEXT= RENG.TEXT + 1

EDAD.TEXT=""

END IF

IF RENG.TEXT >= 5 THEN

EDAD.TEXT="YAAAAAAAAAA"

END IF

END SUB

SUB SUMAR(Sender As Object, E As EventArgs)

' demostrando algunas propiedades de sistem.array

EDADARR.SORT(EDADARR)

DIM Z

Z=EDADARR.LENGTH

'reponse es un objeto del ado viejo y no se usa en este curso

RESPONSE.WRITE(Z)

DIM X

FOR X = 0 TO 4

LISTA.ITEMS.ADD(EDADARR(X) + 10 )

NEXT X

END SUB

</SCRIPT>

corrida prog16.aspx

image347.jpg

notas:

Se esta usando un webcontrol textbox (reng) como variable de control e indice del arreglo en la captura, reng empieza en cero y termina en 4, recordar que el arreglo es de 5 elementos, pero su captura y despliegue van del renglon 0 hasta el renglon cuatro.

Para el caso de operaciones y comparaciones con todos los elementos de la lista a la vez, se debera usar un ciclo for con una variable entera llamada renglon, misma que tambien se usa como indice de la lista.

Recordar que todos los datos internos de la lista estaran almacenados en la memoria ram del computador, para despliegues se usara un componente visual que permite manipular un conjunto de datos a la vez, el ListBox con sus metodos apropiados, pero se tiene que usar un ciclo for para ir anadiendo o agregando elemento por elemento como se observa en el problema ejemplo que se ha venido desarrollando, en este caso se quiere desplegar las cinco edades ordenas y sumandoles 10 a cada una.

Se estan usando metodos apropiados de conversion de enteros a strings y viceversa.

La ultima intruccion y muy importante es poner en cero las variables de control de ciclos o indice de arreglos, esto es porque el servidor mantiene el programa ejecutandose continuamente en memoria y si se vuelve a pedir la ejecucion del programa, en cuento se intente capturar un nuevo dato va a marcar el error arreglofueradelimite o arrayofbound, estan avisados.

Para inicializar una lista se debe usar el siguiente formato:

shared dim nomlista() as tipodato={lista de valores separados por comas}

ej;

shared dim edad() as integer = {15,16,17,18}

shared dim sueldo() as double = {40.85, 65.30, 33.33}

shared dim ciudad() as string = {“tecate”, “tijuana”, “mexicali”, “rosarito”, “ensnada”}

TAREA VISUAL BASIC NET

1.- Capturar y desplegar en visual basic net 5 precios de mercancia cualesquiera usando dos panel, uno para capturar y uno para desplegar(2 aspx uno capturado y otro inicializado, alguno de ellos ordenado).

2.- Capturar 4 sueldos en un panel desplegarlos aumentados en un 25% en otro panel (2 vbs uno capturado y otro inicializado).

3.- Capturar los datos de 5 mercancias comprados en una tienda, incluyendo nombre, precio y cantidad en sus 3 listas respectivas, despues calcular una cuarta lista con el gasto total por cada producto desplegarlo todo en un segundo panel e incluir tambien el gran total( aspx ).

4.- Capturar en una lista solamente 6 numeros multiplos de 5, se debe de estar capture y capture numeros hasta que se completen los 6 multiplos de 5( vb solo cuidar el contador de renglones)

 


 


Driven by DokuWiki

Politica de Privacidad