| ||||
|
|
|
|
|
|
| |||
|
| |||
| ||||
Home - ASP - Capítulo 2 - 1 - 2 - 3 - 4 - 5 - 6
Curso práctico de ASP (II). Subprogramas.
por Luciano Moreno, webmater de HTMLWeb.
Ejercicio resuelto 2
Como ejemplo de aplicación de lo estudiado en este capítulo, vamos a crear una página con una caja de texto (elemento de formulario) en la que el usuario tenga que introducir su edad y dos botones, uno con el texto "subrutina" y otro con el texto "función”.
Cuando el usuario pulse el primer botón vamos a llamar a una subrutina que escriba en la caja de texto el mensaje "Gracias por contestar", y cuando pulse el segundo llamaremos a una función que calcule las décadas de vida del usuario, mostrando el resultado en una ventana MsgBox del sistema.
Para ello, nos falta tan sólo saber que es posible acceder mediante código VBScript en cliente al contenido de una caja de texto de un formulario, mediante la sintaxis general:
document.forms.nombre_formulario.nombre_caja.value
Ya estudiaremos en próximos capítulos los objetos propios del documento y la forma de acceder a ellos.
El código de nuestro ejercicio queda:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
Transitional//EN">
<html>
<head>
<title>Curso práctico de ASP. Capítulo 2. Ejercicio
resuelto</title>
<script
language="VBScript">
Sub
demoSubrutina(numero)
document.forms.ejemplo.numero.value = "Gracias por
contestar"
End Sub
Function
demoFuncion(numero)
Dim decada,
resto
resto = numero Mod
10
decada =
(numero-resto)/10
Call MsgBox ("Tienes " &
decada & " décadas y " & resto & " años", VBOKONLY, "Ejercicio
resuelto 5.2")
End Function
</script>
</head>
<body>
<form
name="ejemplo">
<input type="text"
name="numero"><br><br>
<input type="button"
value="subrutina"
onclick="demoSubrutina(document.forms.ejemplo.numero.value)">
<input type="button" value="función"
onclick="demoFuncion(document.forms.ejemplo.numero.value)">
</form>
</body>
</html>
Que tenéis funcionando en esta ventana.
NOTA: Este tema forma parte del curso "Curso Práctico de Programación en ASP 3.0", cuyos temarios han sido desarrollados exclusivamente por HTMLWeb, que también se encarga de las tutorías del mismo. Un curso práctico, de calidad y económico, con un 10% de descuento para los usuarios de HTMLWeb.
 |
 |