Codigos de programacion

Public Class FFATURACION

Dim CANTIDAD, CATEGORIA, TVENTA, F As Integer

Dim PRECIO, SUBTOTAL, ITBIS, DESCUENTO, NETO, TITBIS, TNETO As Double

Private Sub FFATURACION_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub ENTRADA()

Try

CANTIDAD = CInt(TexCANTIDAD.Text)

PRECIO = CDbl(TexPRECIO.Text)

CATEGORIA = CInt(TexCATEGORIA.Text)

F = 1

Catch

MessageBox.Show("NO PUEDE DEJAR CAMPO SIN VALOR, INTENTE DE NUEVO")

TexCANTIDAD.Focus()

End Try

End Sub

Private Sub CALCULO()

ENTRADA()

TexITIBIS.Text = CStr(ITBIS)

SUBTOTAL = CANTIDAD * PRECIO

TexSUBTOTAL.Text = CStr(SUBTOTAL)

ITBIS = SUBTOTAL * 0.18

TexITIBIS.Text = CStr(ITBIS)

DECISION()

End Sub

Private Sub DECISION()

If CATEGORIA = 1 Then

DESCUENTO = SUBTOTAL * 0.2

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

ElseIf CATEGORIA = 2 Then

DESCUENTO = SUBTOTAL * 0.15

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

ElseIf CATEGORIA = 3 Then

DESCUENTO = SUBTOTAL * 0.1

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

ElseIf CATEGORIA = 4 Then

DESCUENTO = SUBTOTAL * 0.05

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

ElseIf CATEGORIA = 5 Then

DESCUENTO = SUBTOTAL * 0.0

TexDESCUENTO.Text = CStr(DESCUENTO)

NETO = SUBTOTAL + ITBIS - DESCUENTO

TexNETO.Text = CStr(NETO)

End If

End Sub

Private Sub BCALCULAR_Click(sender As Object, e As EventArgs) Handles BCALCULAR.Click

CALCULO()

End Sub

Private Sub BLIMPIAR_Click(sender As Object, e As EventArgs) Handles BLIMPIAR.Click

TexCANTIDAD.Clear()

TexCATEGORIA.Clear()

TexPRECIO.Clear()

TexDESCUENTO.Clear()

TexNETO.Clear()

TexITIBIS.Clear()

...