Ms Subrutinas y Funciones Leonel Morales Daz Ingeniera

Más Subrutinas y Funciones Leonel Morales Díaz Ingeniería Simple leonel@ingenieriasimple. com Copyright 2008 by Leonel Morales Díaz – Ingeniería Simple. Derechos reservados Disponible en: http: //www. ingenieriasimple. com/introprogra

Problemas Obtener el número mayor de una lista Aumentar el tamaño de una imagen O reducirlo. . . Poner centrado un párrafo O a la izquierda o a la derecha Revisar la ortografía de un documento Averiguar la fecha de creación de un archivo

El mayor de una lista Página web para ingreso de datos Procedimiento: click de Procesar Función que devuelve el mayor Procedimiento: click de Salir

Página web <HTML> <Head><Title>Obtiene el mayor de una lista</Title></Head> <Body> <H 1>Esta página obtiene una lista de números y la procesa para obtener el mayor</H 1> <Form Name=Lista. Numeros> <P Align=Center>Ingrese la lista de números: <Input Type=Text Name=La. Lista Size=50><BR> <I>Separe los números por coma. </I> </P> <P Align=Center> <Input Type=Button Name=Procesar Value=Procesar> <Input Type=Button Name=Salir Value=Salir> </P> </Form> </Body> </HTML> ej 054. html

Click de Procesar <Input Type=Button Name=Procesar Value=Procesar On. Click="Click. Procesar"> <Script Language="VBScript"> Option Explicit Sub Click. Procesar 'Para atender el click de Procesar Dim Lista = Document. Lista. Numeros. La. Lista. Value If Lista = "" Then Msg. Box "No ha ingresado ningún valor. " Document. Lista. Numeros. La. Lista. Focus Else Msg. Box "El valor mayor es: " & Obtiene. Mayor(Lista) Document. Lista. Numeros. La. Lista. Value = "" Document. Lista. Numeros. La. Lista. Focus End If End Sub </Script> ej 055. html

Función Obtiene. Mayor(De. Lista) Function Obtiene. Mayor(De. Lista) 'Asume que la lista - De. Lista no viene vacía Dim El. Mayor, Nuevo, Pos 'Toma primer elemento Pos = In. Str(De. Lista, ", ") If Pos > 0 Then Nuevo = Left(De. Lista, Pos - 1) Else Nuevo = De. Lista End If El. Mayor = CInt(Nuevo) 'Procesa el resto de la lista Do While Pos > 0 Nuevo = Left(De. Lista, Pos - 1) De. Lista = Right(De. Lista, Len(De. Lista) - Pos) Pos = In. Str(De. Lista, ", ") El. Mayor Then CInt(Nuevo) If CInt(Nuevo) > El. Mayor = End If Loop Nuevo = De. Lista If CInt(Nuevo) > El. Mayor Then El. Mayor = CInt(Nuevo) End If Obtiene. Mayor = El. Mayor ej 056. html

Click de Salir Sub Click. Salir Msg. Box "Hasta Luego !!!" Window. Close End Sub ej 057. html

Ejercicio Hacer un formulario que cargue la página que dibuja tablas de Fils x Cols Para ej 039. html (Javascript) <Form Name=Para. Tabla Action="ej 039. html"> <Center> <P>Número de filas: <Input Type=Text Name=fils Size=5><BR> Número de columnas: <Input Type=Text Name=cols Size=5></P> <P><Input Type=Submit Value=Dibujar></P> </Center> </Form> ej 058. html

Problema ej 038. html (VBScript) Requiere Fils y Cols con mayúsculas ¿Cómo hacer para : Mayúsculas para ej 038. html? Minúsculas para ej 039. html?