SELECT CASE VISUAL BASIC CGI

UNIDAD 2: PROGRAMACION VISUAL BASIC INSTRUCCIONES DE CONTROL DE PROGRAMA

TEMA 8: INSTRUCCION SELECT CASE PROGRAMACION CGI

Tambien existen ocasiones o programas donde se exige evaluar muchas condiciones a la vez, en estos casos o se usa una condicion compuesta muy grande o se debe intentar convertir el problema a uno que se pueda resolver usando la instruccion SELECT CASE.

Esta instruccion es una instruccion de decision multiple donde el compilador prueba o busca el valor contenido en una variable ENTERA, CHARACTER, STRING contra una lista de constantes apropiadas, es decir enteras, character o strings, cuando el computador encuentra el valor de igualdad entre variable y constante entonces ejecuta el grupo de instrucciones asociados a dicha constante, si no encuentra el valor de igualdad entre variable y constante, entonces ejecuta un grupo de instrucciones asociados a un default, aunque este ultimo es opcional.

El formato de esta instruccion es el siguiente;

capturar o asignar variable de condicion

Select Case variableopcion

case const1 instruccion(es)

case const2 instruccion(es)

case const3 Instruccion(es)

…

Case Else instruccion(es)

End Select

Prog3.html


<HTML>

<H2>VBASIC-CGI</H2>

<FORM ACTION=/CGI-BIN/TUSITIO/PROG3.EXE METHOD=GET>

DAME UNA LETRA:<INPUT TYPE=TEXT NAME=LETRA><BR>

<INPUT TYPE=SUBMIT VALUE=OK>

</FORM></HTML>

prog3.vb


imports System

imports Microsoft.VisualBasic

PUBLIC CLASS prog3

PUBLIC SHARED SUB MAIN()

' declarando variables

DIM letra AS STRING

' creando un objeto de captura

DIM capturar AS lnet = new lnet()

'capturando,cargando y convirtiendo

'los datos de la forma a las variables

letra = capturar.getparametro("LETRA")

'construyendo y desplegando la pagina de salida

System.Console.WriteLine("Content-Type:text/html" & vbCrLf)

' select

SELECT CASE letra

CASE "A"

System.Console.WriteLine("aguila</HTML>")

CASE "B", "b"

System.Console.WriteLine("burro</HTML>")

CASE "C"

System.Console.WriteLine("conejo<BR>")

System.Console.WriteLine("caballo</HTML>")

CASE ELSE

System.Console.WriteLine("NO HAY</HTML>")

END SELECT

END SUB

END CLASS

La unica nota digna de tomar en cuenta es que se pueden usar mas de dos instrucciones en cada case.

Observar el caso “b”, observar como se pueden usar mas de dos constantes, sorry por lo de BACA pero el unico animalito que me acorde fue el BURRO y luego mis alumnos se sienten ofendidos.

Corrida prog3.html:

corrida prog3.vb

TAREAS PROGRAMACION VISUAL BASIC CGI

1.- Construir un programa que capture un deporte cualesquiera y despliegue dos implementos deportivos apropiados.

2.- Evaluar la funcion para cuando x = 3 ,-4, 5 2