UNIDAD 3: PROGRAMACION VISUAL Visual Basic ARREGLOS

TEMA 4: VISUAL WEB DEVELOPER 2005 Visual Basic ARREGLOS TIPO TABLA

Un arreglo tipo tabla se define como un conjunto de datos del mismo tipo organizados en dos o mas columnas y uno o mas renglones.

Para procesar (recordar solo operaciones y comparaciones) internamente todos los elementos de la tabla se ocupan dos ciclos for() uno externo para controlar renglon y uno interno para controlar columna.

Los elementos de la tabla se deberan simbolizar con el nombre de la tabla y 2 subindices, el primer subindice referencia al renglon y el siguiente subindice referencia la columna los dos dentro del mismo corchete.

La declaracion de una tabla sera de acuerdo al siguiente formato:

SHARED DIM NOMTABLA(RENG-1,COL-1) AS TIPODATO

Ej: SHARED DIM SUELDO(3,4) AS DOUBLE ← RECORDAR QUE VA A GENERAR UNA MATRIZ QUE TENDRA CUATRO RENGLONES Y CINCO COLUMNAS EMPIEZA EN SUELDO(0,0)

Para capturar sus elementos usaremos un textbox y un boton de captura, solo tener cuidado o mucho control sobre los indices ren y col como lo muestra el ejemplo.

Para efectuar otros procesos tales como operaciones, despliegue con todos los elementos de la tabla se deberan usar 2 ciclos, un for externo para controlar renglon y un for interno para controlar columna.

Programa

<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<script runat="server">
' DECLARANDO LISTA GLOBAL FUERA DEL SUB
Shared CALIF(1, 2) As Integer
' DECLARANDO RENG COMO GLOBAL
Shared R, C As Integer
Protected Sub CARGAR(ByVal sender As Object, ByVal e As System.EventArgs)
CALIF(R, C) = CALIF1.Text
C = C + 1
CALIF1.Text = " "
If C = 3 Then
' RECORDAR USAR : PARA COLOCAR 2 INSTRUCCIONES EN UN RENGLON
R = R + 1 : C = 0
End If
If R = 2 Then
CALIF1.Visible = False
R = 0 : C = 0
End If
End Sub
Protected Sub PROCESO(ByVal sender As Object, ByVal e As System.EventArgs)
' procesando y regalando 10 puntos a la calificacion
For R = 0 To 1
For C = 0 To 2
CALIF(R, C) = CALIF(R, C) + 10
Next C
Next R
' desplegando
For R = 0 To 1
' creando un renglon para despliegue
Dim TEMP As String
TEMP = CALIF(R, 0) & " " & CALIF(R, 1) & " " & CALIF(R, 2)
' cargando la lista
LISTA.Items.Add(TEMP)
' limpiando temporal antes de otro renglon
TEMP = " "
Next
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title>ARREGLOS</title>
</head>
<body>
<form id="form1" runat="server">
DAME CALIF<ASP:TEXTBOX ID=CALIF1 RUNAT=SERVER/>
<ASP:BUTTON ID=BUTTON1 TEXT=CARGAR ONCLICK=CARGAR RUNAT=SERVER/><BR>
<ASP:LISTBOX ID=LISTA ROWS=5 RUNAT=SERVER></ASP:LISTBOX>
<ASP:BUTTON ID=BUTTON2 TEXT=PROCESAR ONCLICK=PROCESO RUNAT=SERVER/><BR>
</form>
</body>
</html>

Notas:

Observar el formato de declaracion y como se controlan los indices de captura r, c.

Para procesar los elementos se usan dos ciclos for y el formato tabla (reng, col).

Recordar que un programa en visual web developer 2005 es un conjunto de objetos de diferente fuente interactuando entre si en este problema se uso el objeto LISTBOX para preesentar el resultado mas adelante se usara un objeto mas apropiado.

Corrida:

image469.jpg

Para inicializar tablas, se usa el siguiente formato:

Dim nomarreglo() As tipodato = {lista valores} EJ;

Dim ciudades() as String = {“tijuana', “tecate”, “ensenada”}

Recordar que no se pueden inicializar arreglos de tamano fijo, para inicializar tablas aqui esta el ejemplo:

Dim alfa(,) As Integer = {{1, 2}, {3, 4} {5,6} }

TAREAS PROGRAMACION VISUAL WEB DEVELOPER 2005 Visual Basic

1.- CONSTRUIR UN CUADRO QUE CONTENGA LOS COSTOS FIJOS DE CUATRO MERCANCIAS CUALESQUIERA, QUE SE PRODUCEN EN TRES PLANTAS DIFERENTES DE UNA EMPRESA MAQUILADORA(2 aspx uno capturado y otro inicializado).

2.- CONSTRUIR UN CUADRO QUE CONTENGA LOS INGRESOS MENSUALES POR VENTAS DURANTE LOS TRES PRIMEROS MESES DEL ANO DE CUATRO SUCURSALES DE UNA CADENA DE AUTOREFACCIONES, AGREGAR AL FINAL UNA LISTA QUE MUESTRE LOS INGRESOS MENSUALES TOTALES POR MESES Y UNA SEGUNDA LISTA QUE MUESTRE LOS INGRESOS MENSUALES TOTALES POR SUCURSAL(2 aspx uno capturado y otro inicializado).

3.-CONSTRUIR UN CUADRO QUE CONTENGA LAS COMISIONES GANADAS POR TRES VENDEDORES, DE LOS 5 TIPOS DE LINEA BLANCA DE CONOCIDA MUEBLERIA, ADEMAS LISTAS DE COMISIONES TOTALES Y PROMEDIOS GANADAS POR LOS VENDEDORES, ASI COMO LISTAS DE COMISIONES TOTALES Y PROMEDIOS POR TIPO DE LINEA BLANCA.

ANALIZAR ESTE CODIGO:

' PARA TOTALES Y PROMEDIOS POR RENGLON
FOR R = 0 TO 3
FOR C = 0 TO 2
TOTRENG(R) = TOTRENG(R) + TABLA(R,C)
NEXT C
PROMRENG(R) = TOTRENG(R)/3
NEXT R
'PARA TOTALES Y PROMEDIOS POR COLUMNA
FOR C = 0 TO 2
FOR R = 0 TO 3
TOTCOL(C)=TOTCOL(C) + TABLA(R,C)
NEXT R
PROMCOL(C) = TOTCOL(C) / 4
NEXT C

SUGERENCIA: CONSTRUIR PRIMERO LOS CUADROS EN PAPEL.

Politica de Privacidad