<%@ page language="vb" runat="server" %>
<script runat="server">
Sub Page_Load()
pi.text = Math.PI
exp.text = Math.E
End Sub
Sub Update(Sender As Object, E As EventArgs)
Dim dblInput As Double = CDbl(input.text)
sqrt_input.text = dblInput
sqrt_result.text = Math.Sqrt(dblInput)
abs_input.text = dblInput
abs_result.text = Math.Abs(dblInput)
log_input.text = dblInput
log_result.text = Math.Log10(dblInput)
End Sub
</script>
<html>
<body>
<hr />
Pi = <asp:label id="pi" runat="server" /><br />
Exponential Constant = <asp:label id="exp" runat="server" />
<hr />
<form runat="server">
Input = <asp:textbox id="input" runat="server" />
<asp:button text="Submit" runat="server" onclick="update" />
</form><hr />
Square root of <asp:label id="sqrt_input" runat="server"/>
= <asp:label id="sqrt_result" runat="server" /><br />
Absolute Value of <asp:label id="abs_input" runat="server"/>
= <asp:label id="abs_result" runat="server" /><br />
Logarithm of <asp:label id="log_input" runat="server"/>
= <asp:label id="log_result" runat="server" /><br />
</body>
</html>
|