UNIDAD 2: VISUAL BASIC INSTRUCCIONES DE CONTROL DE PROGRAMA

TEMA 8: INSTRUCCION SELECT CASE PDA

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.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>

DAME UNA LETRA<mobile:TEXTBOX ID=LETRA RUNAT=SERVER/><BR>

ANIMALITO<mobile:TEXTBOX ID=ANIMALITO BACKCOLOR=AZURE RUNAT=SERVER/><BR>

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

</mobile:Form>

' codigo basic

<SCRIPT RUNAT=SERVER>

SUB CON1(Sender as Object, E as EventArgs)

SELECT CASE LETRA.TEXT

CASE "A"

ANIMALITO.TEXT = "AGUILA"

CASE "B", "b"

ANIMALITO.TEXT = "BACA"

CASE "C"

DIM ALFA AS INTEGER

ALFA = 100 + 5

' observar como se encadenan strings usando simbolo &

ANIMALITO.TEXT = ALFA & " CABALLO"

CASE ELSE

ANIMALITO.TEXT="NO HAY"

END SELECT

END SUB

</SCRIPT>

Corrida:

TAREAS PROGRAMACION visual basic mobile

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