PERLSCRIPT UNIDAD 2: CONTROL DE PROGRAMA

TEMA 8.1: Control Select

Existen muchas ocasiones en donde el usuario del programa tiene que proporcionar datos que provienen de un conjunto finito y muy pequeno de posibles respuestas esto significa que cada vez que se ejecute el programa el usuario estara proporcionando las mismas respuestas.

Ejemplo de esta clase de datos, son por ejemplos Municipio en BC las posibles respuestas solo son (Tecate, Tijuana, Mexicali, Ensenada, Rosarito), otro ejemplo es Sexo (Hombre, Mujer), etc.

Para situaciones como esta existen componentes html que permiten programar por adelantado las posibles respuestas y el usuario solo debe seleccionar la respuesta apropiada en lugar de tener que escribirla.

Este control SELECT nos permite definir en primera instancia un conjunto de datos o valores respuestas asociados a una caja de edicion cualesquiera asi ahora el usuario tendra la oportPERLSCRIPT UNIDAD de seleccionar un dato del conjunto de datos o respuestas ya predefinido.

Este componente SELECT DEBERA CONSTRUIRSE EN dos partes una parte de encabezado para poner el nombre del grupo de respuestas( por ejemplo municipios, sexo, etc.)

La segunda parte es la lista de opciones o respuestas que se debe cargar al tiempo de ejecucion de la forma html como lo muestra el siguiente programa:

Prog3.html

<HTML>
<FORM ACTION=HTTP://PROGRAMACIONFACIL.COM:4080/TUSITIO/PROG3.ASP METHOD=POST>
<B>MUNICIPIOS</B>
<SELECT NAME=MUNICIPIO>
<OPTION>ENSENADA
<OPTION>TECATE
<OPTION>TIJUANA
<OPTION>MEXICALI
</SELECT>
<INPUT TYPE=SUBMIT VALUE=OK>
</FORM></HTML>

CORRIDA HTML:

image141.jpg

Solo grabarlo como programa3.html y subirlo a tu sitio y ejecutarlo de manera normal http://programacionfacil.com/tusitio/prog3.html

programa.asp

<% @LANGUAGE = PerlScript %>
<HTML>
<H1>ASP CON PERLSCRIPT</H1>
<%
# declarando, capturando y comentando
$municipio = $Request->Form('MUNICIPIO')->item;
$Response->Write("$municipio".'<br>');
if ( $municipio eq "ENSENADA")
{$Response->Write("tibio");};
if ( $municipio eq "TIJUANA")
{$Response->Write("helado");};
if ( $municipio eq "MEXICALI")
{$Response->Write("$municipio = caliente");};
%>
</HTML>

Notas:

1.- Observar que el servidor de paginas devolvio el par MUNICIPIO=TIJUANA que estamos capturando en nuestra variable $municipio.

2.- En los ifs como ya se indico para comparar numeros se usan unos operadores relacionales y para comparar strings se ocupan los otros operadores relacionales.

Corrida asp:

image142.jpg

TAREAS PROGRAMACION PERLSCRIPT :

1.- Arreglar programas anteriores agregandole este control a los que se puedan.

Politica de Privacidad