webloanform.aspx.vb

Mastering VBNet Include Source Code

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents txtPayment As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtRate As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtDuration As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtAmount As System.Web.UI.WebControls.TextBox
    Protected WithEvents bttnShowPayment As System.Web.UI.WebControls.Button
    Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RequiredFieldValidator3 As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents ValidationSummary1 As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents RangeValidator1 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents RangeValidator2 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents RangeValidator3 As System.Web.UI.WebControls.RangeValidator
    Protected WithEvents chkPayEarly As System.Web.UI.WebControls.CheckBox

#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
    End Sub

    Private Sub bttnShowPayment_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnShowPayment.Click
        Dim Payment As Single
        Dim LoanIRate As Single
        Dim LoanDuration As Integer
        Dim LoanAmount As Integer

        If IsNumeric(txtAmount.Text) Then
            LoanAmount = txtAmount.Text
        Else
            MsgBox("Please enter a valid amount")
            Exit Sub
        End If
        If IsNumeric(txtRate.Text) Then
            LoanIRate = 0.01 * txtRate.Text / 12
        Else
            MsgBox("Invalid interest rate, please re-enter")
            Exit Sub
        End If
        If IsNumeric(txtDuration.Text) Then
            LoanDuration = txtDuration.Text
        Else
            MsgBox("Please specify the loan抯 duration " & _
                    "as a number of months")
            Exit Sub
        End If

        Dim payEarly As DueDate
        If chkPayEarly.Checked Then
            payEarly = DueDate.BegOfPeriod
        Else
            payEarly = DueDate.EndOfPeriod
        End If
        Payment = Pmt(0.01 * txtRate.Text / 12, txtDuration.Text, _
                  -txtAmount.Text, 0, payEarly)
        txtPayment.Text = Payment.ToString("#.00")

    End Sub
End Class