UNIDAD 3: PROGRAMACION VISUAL BASIC CGI ARREGLOS

TEMA 4: ARREGLOS TIPO TABLA PROGRAMACION CGI

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 tantos text's como elementos tenga el arreglo, 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.

Prog11.html

<HTML>
<form action=/cgi-bin/tusitio/prog11.exe method=get>
<B> CONCENTRADO CALIFICACIONES</B><br>
..........enero.......febrero....marzo<br>
juan...:<INPUT TYPE=text NAME="cerocero" size=5>
<INPUT TYPE=text NAME="cerouno" size=5>
<INPUT TYPE=text NAME="cerodos" size=5><br>
pedro:<INPUT TYPE=text NAME="unocero" size=5>
<INPUT TYPE=text NAME="unouno" size=5>
<INPUT TYPE=text NAME="unodos" size=5><br>
<input type=submit value="ok">
<input type=reset>
</form> </HTML>

corrida prog10.html

image371.jpg

prog11.vb

imports System
imports Microsoft.VisualBasic
PUBLIC CLASS prog10
' declarando arreglo como global
SHARED DIM calif(1,2) AS INTEGER
PUBLIC SHARED SUB MAIN()
DIM ren, col AS INTEGER
' creando un objeto de captura
DIM capturar AS lnet = new lnet()
'capturando,cargando y convirtiendo
'los datos de la forma a las variables
calif(0,0) = CINT(capturar.getparametro("cerocero") )
calif(0,1) = CINT(capturar.getparametro("cerouno") )
calif(0,2) = CINT(capturar.getparametro("cerodos") )
calif(1,0) = CINT(capturar.getparametro("unocero") )
calif(1,1) = CINT(capturar.getparametro("unouno") )
calif(1,1) = CINT(capturar.getparametro("unodos") )
'operaciones aumentando 10 puntos
FOR ren = 0 TO 1
FOR col = 0 TO 2
calif(ren,col) = calif(ren,col) + 10
NEXT col
NEXT ren
'construyendo y desplegando la pagina de salida
System.Console.WriteLine("Content-Type:text/html" & vbCrLf)
' DESPLEGANDO USANDO OBJETO TABLE DE HMTL FOR NORMAL
System.Console.WriteLine("<table border=2>")
FOR ren = 0 TO 1
System.Console.Writeline("<tr>")
FOR col = 0 TO 2
System.Console.WriteLine("<td>"&calif(ren,col).ToString()&"</td>")
NEXT col
System.Console.WriteLine("</tr>")
NEXT ren
END SUB
END CLASS

Observar el formato de declaracion y como se controlan los indices de captura reng, col.

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

Corrida prog11.vb

image372.jpg

TAREAS PROGRAMACION VISUAL BASIC CGI

1.- CONSTRUIR UN CUADRO QUE CONTENGA LOS COSTOS FIJOS DE CUATRO PRODUCTOS CUALESQUIERA, QUE SE PRODUCEN EN TRES PLANTAS DIFERENTES DE UNA EMPRESA MAQUILADORA.

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 AUTO REFACCIONES, 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.

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