Cómo calcular pagos mensuales en Visual Basic

Cómo calcular pagos mensuales en Visual Basic.
Por robert karr

Paso 1

Selecciona la plantilla "Standar EXE" luego de cargar el programa Visual Basic. Busca el ícono "Etiqueta" en la barra de herramientas en la parte izquierda de la pantalla. Este ícono luce como una letra mayúscula "A". Haz clic y arrástralo a la parte superior del formulario en el centro de la pantalla. Cuando sueltes el ratón, aparecerá una cruz. Haz clic sobre ella y usa los pequeños cuadrados -asas de arrastre- para ensanchar la etiqueta. Repite esta acción tres veces, colocando cada etiqueta por debajo de la precedente y haciéndolas más anchas. Agrega una quinta etiqueta a la derecha de la cuarta y también ensánchala.


Paso 2

Haz clic en el control "Cuadro de texto" en la barra de herramientas, un cuadrado pequeño que contiene las letras "ab", y arrástralo al formulario a la derecha de la etiqueta superior. Suelta el ratón y usa las asas de arrastre para ensanchar el cuadro de texto. Repite esta acción dos veces más, colocando cada caja por debajo de la precedente. Haz clic en la opción "CommandButton", un cuadrado pequeño en la barra de herramientas, que se encuentra por debajo del ícono de "Cuadro de texto", y arrástralo al formulario, ensanchándolo también.


Paso 3

Haz clic en una "Etiqueta" a la vez comenzando desde arriba. Localiza "Título" en la columna de "Propiedades" en el panel derecho. Para cada etiqueta, haz doble clic en la línea "Título" y haz estos cambios desde el texto por defecto que ves:

Etiqueta superior: Llámala "Importe del préstamo:" Segunda etiqueta: Llámala "Tasa de interés mensual:" Tercera etiqueta: Llámala "Número de meses:" Cuarta etiqueta: Llámala "Pago mensual:" Quinta etiqueta: Elimina el nombre del título.


Paso 4

Haz clic en cada "Cuadro de texto" a su vez y elimina el nombre de la propiedad "Texto" en la sección "Propiedades". Cambia el título "CommandButton" para que se lea "Calcular".


Paso 5

Haz doble clic en el control con nuevo nombre "Calcular" que abrirá la ventana para ver el Código. Encontrarás dos líneas ya ingresadas, "Private Sub Command1_Click()" y "End Sub." Introduce las siguientes líneas de código entre estas dos líneas:

Dim AmtBorrow, NumMonths As Integer Dim Rate, MonthPay As Double Rate = Text2.Text NumMonths = Text3.Text MonthPay = Text1.Text * (1 + Rate) ^ NumMonths * Rate / ((1 + Rate) ^ NumMonths - 1) Label5.Caption = Format(MonthPay, "$##.##")

Presiona "F5" para ejecutar el programa y cargar las cantidades en la pantalla, presionando "Calcular" para finalizar.