ARREGLOS PARAMETROS VISUAL BASIC MOBILE

UNIDAD 4: VISUAL BASIC PROCEDIMIENTOS Y FUNCIONES

TEMA 5: ARREGLOS COMO PARAMETROS POCKET PDA

Para pasar un arreglo completo como parametro a un procedimiento a una funcion solo se manda el nombre del arreglo sin corchetes e indices, en el procedimiento o funcion que recibe solo se declara un arreglo del mismo tipo y se puede usar el mismo o diferente nombre del arreglo sin corchetes e indices.

Sin embargo es conveniente aclarar, que a diferencia de variables escalares normales, visual basic net no genera una nueva variable en memoria ni tampoco copia los datos al arreglo que recibe, en su lugar vbasic net sigue usando los datos que estan en el arreglo original, es por esta razon que cambios que se le hagan a los datos del arreglo que recibe realmente se esta haciendo al arreglo original como lo muestra el siguiente ejemplo:

Prog17.aspx


' inicializando objetos mobiles

' y definiendo lenguaje a usar por servidor

<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage"

Language=VB%>

<%@ Register TagPrefix="mobile"

Namespace="System.Web.UI.MobileControls"

Assembly="System.Web.Mobile"%>

' todos los controles ponerlos dentro de una forma

<mobile:Form runat=server>

<mobile:LIST ID=MILISTA RUNAT=SERVER></mobile:LIST>

<mobile:COMMAND TEXT=LISTAR ONCLICK=LISTAR RUNAT=SERVER/><BR>

</mobile:Form>

<SCRIPT RUNAT=SERVER>

DIM r AS INTEGER

SUB LISTAR(Sender As Object, E As EventArgs)

' creando y cargando una lista local con 5 elementos

DIM lista() AS INTEGER={1,2,3,4,5}

' pasandola a un procedimiento

' sin parentesis y observar que pasa con

' los datos originales

CALL PROC1(lista)

' desplegando lista original

FOR r = 0 TO 4

MILISTA.ITEMS.ADD(lista(r))

NEXT r

END SUB

SUB PROC1(vector)

' recibiendo en vectory sumando vector + 100

FOr r = 0 TO 4

vector(r)=vector(r) + 100

NEXT r

END SUB

</SCRIPT>

corrida prog17.aspx

Es de recordar que los cambios que le hagan al arreglo dentro de la funcion se reflejaran en el arreglo original es por esto que si se quiere modificar un arreglo en una funcion no hay necesidad de regresar ningun valor.

Se uso ahora el mobilcontrol:LIST en lugar de LISTBOX para recordar que existe este control tambien.

TAREAS PROGRAMACION VISUAL BASIC MOBILE POCKET PDA

Inicializar 10 edades en el principal mandar la lista a un procedimiento que la convierte a meses, desplegar en principal.

Capturar un arreglo de 7 ciudades en un primer procedimiento, sortear en un segundo y desplegar en un tercero la lista original y la lista ordenada.