Problemas al calcular

18/03/2006 - 06:22 por jorge | Informe spam
Tengo problemas con este codigo del boton CALCULAR, el formulario se genera
muy bien pero no calcula, es un proyecto de VB 6, que estoy desarrollando en
VSTUDIO 2005, a qui les en envio el codigo del Boton CALCULAR a ver si me lo
corrigen y gracias por su ayuda:


Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles ButtonCalcular.Click
precio = Val(TextBoxSalida.Text)
cantidad = Val(TextBoxCantidad.Text)
subtotal = Codigo * cantidad
'Proceso
If (Codigo = "A") Then Monto = cantidad * 23.5
If (Codigo = "B") Then Monto = cantidad * 32.0
If (Codigo = "C") Then Monto = cantidad * 52.5
If (Monto > 500) Then
descuento = Monto * 0.1
Else
descuento = 0
End If
total = Monto - descuento

If (subtotal >= 1000) Then
descuento = (subtotal * 0.1) : igv = (subtotal - descuento) * 0.18
End If
If (subtotal < 1000) Then
descuento = (subtotal * 0.05) : igv = (subtotal - descuento) * 0.18
End If
total = (subtotal - descuento) + igv
TextBoxSalida.Text = "El Subtotal es :" + Str(subtotal) + vbCrLf &
"El descuento es :" + Str(descuento) + vbCrLf & "El I.G.V. es :" + Str(igv) +
vbCrLf & "El Total a pagar es:" + Str(total)

End Sub


ESTAS SON LAS DECLARACIONES:

Dim precio As Integer, cantidad As Integer
Dim subtotal As Integer, descuento As Integer
Dim igv As Integer, menor As Integer
Dim total As Double
Dim Monto As Double
Dim Codigo As String

GRACIAS

Preguntas similare

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
18/03/2006 - 06:57 | Informe spam
subtotal = Codigo * cantidad



¿CODIGO * cantidad?

Deberias usar Option Strict On para no cometer estos errores.

If (Codigo = "A") Then Monto = cantidad * 23.5
If (Codigo = "B") Then Monto = cantidad * 32.0
If (Codigo = "C") Then Monto = cantidad * 52.5



No es que esto cause errores pero un Select Case me parece mas apropiado.

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida