|
Ejemplo 6: Sumar dos números introducidos en un formulario
La página creada para explicar esta técnica solicita dos números al visitante. cuando se reenvía la pagina se suman estos numeros.La pagina incluye dos procedimientos definidos por el usuario a los que se llaman desde dos rutinas de tratamientos de eventos.Uno de los procedimientos es una Function (Función), dado que devuelve un valor. El otro procedimientos no devuelve ningún valor dado que es una subrutina (Sub)
Así es como se quedaría montada la estructura de la pagina una vez seguido los pasos y comprendiendo cada símbolo.
<%@ Page Language="VB" ContentType="text/html"
ResponseEncoding="iso-8859-1" %>
<script runat="server">
Sub MostrarInstrucciones (Mode as String)
If Mode ="Inicial" Then
alvi.Text = "introduza los dos numeros que" & "desee
sumar."
Else
alvi.Text = "El resultado se muestra" & "debajo"
End If
End Sub
Sub Page_Load(ByVal Sender as Object , Byval E as EventArgs)
If IsPostBack then
MostrarInstrucciones("Final")
else
MostrarInstrucciones("Inicial")
End If
End Sub
Function AddNums (Num1 as Single, Num2 as Single) as Single
AddNums=Num1+Num2
End Function
sub ApretarelBoton(Sender As Object, E As EventArgs)
alvi.text="Resultado: " & AddNumS (numeros1.Text, numeros2.Text)
End Sub
</script>
<html>
<head>
<title>Documento sin título</title>
</head>
<body>
<form runat="server">
<asp:label ID="alvi" runat="server"/>
<asp:textbox ID="numeros2" runat="server"/>
<asp:textbox ID="numeros1" runat="server" />
<asp:button ID="Botonok" Text="sumar" OnClick="ApretarelBoton"
runat="server"/>
</form>
</body>
</html>
