programacion

Codigo Fuente
Public Class Form1
Dim mesp As Double, cable As Double, internet As Double, cuotaTV As Double, otros As Double, minutosC As Double, minutosF As Double
Dim mora1 As Double,mora2 As Double, cuotama As Double, descuento As Double, total As Double
Dim nombre, fecha As String, nit As Integer
Private Sub Btnaceptar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnaceptar.Click
'Uso de Constantes para 4 datos fijos
Const mc = 1.75
Const mf = 0.8
Const mora = 0.03
Const desc = 0.1'Dandole valor a cada una de las variables declaradas
nombre = Val(txtnombre.Text)
fecha = Val(txtfecha.Text)
nit = Val(txtnit.Text)
minutosC = Val(txtcmc.Text) *mc
minutosF = Val(txtclf.Text) * mf
mesp = Val(txtsaldomp.Text)
cable = Val(txtscable.Text)
internet = Val(txtsinternet.Text)
cuotaTV = Val(txtmtv.Text)otros = Val(txtotros.Text)
'Empesando los calclos con el calcuo de la cuota parcial del mes a pagar
cuotama = minutosC + minutosF + cable + internet + cuotaTV + otrostxtcmesact.Text = cuotama
'Calculando la mora que se aplicara si se debe alguna cantidad de un mes atrasoado
mora1 = mesp * mora
mora2 = mesp + mora1txtmsaldoant.Text = mora2
'Calculando el total a pagar por el cliente
descuento = cuotama * desc
txtdesc.Text = descuento
total = cuotama + mesp - descuentolbltotal.Text = "TOTAL: " & total 'Mostrando uno de los datos en una etiqueta, en este caso el TOTAL

'Mostrando todos los datos en un ListoBox para das la sensacion de una facturalistbfactura.Items.Add("Nombre: " & txtnombre.Text)
listbfactura.Items.Add("NIT: " & txtnit.Text)
listbfactura.Items.Add("Fecha: " & txtfecha.Text)
listbfactura.Items.Add("")...