Actividad 4

Public Class Form1
Dim cantidadPrestamo, interesAnual, interesMensual, cargoInteresMensual, abonoAlPrincipal, balanceProncipalTemporero, pagoMensual As Single
Dim meses, anos, x As IntegercantidadPrestamo=0
interesAnual=0
interesMensual=0
cargoInteresMensual=0
abonoAlPrincipal=0
balanceProncipalTemporero=0
pagoMensual=0
meses=0
anos=0
x=0
Private SubbtnCalcular_Click(sender As System.Object, e As System.EventArgs) Handles btnCalcular.Click

'Primero vamos a validar los datos
If (txtCantidad.Text = "" Or txtinteresAnual.Text = "" Or txtMeses.Text ="") Then
MessageBox.Show("No puedes dejar espacios en blanco.")

ElseIf (Not IsNumeric(txtCantidad.Text) Or Not IsNumeric(txtinteresAnual.Text) Or Not IsNumeric(txtMeses.Text))Then

MessageBox.Show("Debe entrar valores numericos")
ElseIf (CSng(txtCantidad.Text) < 0 Or CSng(txtinteresAnual.Text) < 0 Or CSng(txtMeses.Text) < 0) ThenMessageBox.Show("Debe entrar numeros positivos")

'Si son validos entoces hacemos calculos
Else
'Guardamos los valores que entro la personacantidadPrestamo = txtCantidad.Text
interesAnual = txtinteresAnual.Text
meses = txtMeses.Text
'Igualamos la cantidad del prestamo al principal
principal =cantidadPrestamo
'Calculamos el interes mensual
interesMensual = interesAnual / (12 * 100)

'Aqui calculo el pago mensual de la persona
pagoMensual =principal * ((interesMensual) / (1 - (1 + interesMensual) ^ -meses))

'Loop que calcula lo que la persona pago y el principal desde el primer mes hasta el numero total de meses entrado por lapersona
For x = 1 To meses
'Aqui hago los cuatro pasos para calcular el principal nuevo y abonar el pago
'Step 1
cargoInteresMensual...