mortgage.aspx.vb

Programming Web and Desktop Applications in ADO .NET and ASP .NET

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents txtPrincipal As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents txtInterestRate As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents txtYears As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents btnSubmit As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents divResult As System.Web.UI.HtmlControls.HtmlGenericControl

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        If Not Page.IsPostBack Then
            divResult.Visible = False
        Else
            Dim sngPrincipal, sngInterest, sngPayment As Single
            Dim intYears As Integer

            sngPrincipal = CSng(txtPrincipal.Value)
            sngInterest = CSng(txtInterestRate.Value) / 1200
            intYears = CInt(txtYears.Value) * 12

            sngPayment = sngPrincipal * (sngInterest / (1 - (1 + sngInterest) ^ -intYears))

            divResult.Visible = True
            divResult.InnerHtml = "Monthly Payment = " & FormatCurrency(sngPayment)
        End If
    End Sub

End Class