PROPERTIES:
CODEING:
label1 | |
Text | Loan Ammount |
label2 | |
Text | Rate(Year) |
label3 | |
Text | Payment Periods(Year) |
Button1 | |
Text | Compute |
Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
If Not IsNumeric(TextBox1.Text) Then
TextBox1.Text = ""
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("Monthly Payment:" & Pmt((Val(TextBox2.Text) / 100) / 12, CInt(NumericUpDown1.Value) * 12, -CInt(TextBox1.Text)))
end sub
End Class
DESIGNING:Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
If Not IsNumeric(TextBox1.Text) Then
TextBox1.Text = ""
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("Monthly Payment:" & Pmt((Val(TextBox2.Text) / 100) / 12, CInt(NumericUpDown1.Value) * 12, -CInt(TextBox1.Text)))
end sub
End Class
Comments
Post a Comment