declarar

Para el salto de carro tienes que usar vbCrLf

Salu2

-
Kevin Guisbert S.
Developer
DCE2003-3 DCE2005-2
guisbertkevin(arroba)gmail.com

"jorge" wrote in message
news:

estoy desarrollando una aplicacion en vb.net, me pide declarar "vbCrl"

total = (subtotal - descuento) + igv
TextBoxSalida.Text = "El subtotal es : " + Str(subtotal) + vbCrL & "El
descuento es : " + Str(descuento) + vbCrL & "El I.G.V es : " + Str(igv) +
vbCrL & "El total a pagar es : " + Str(total)

ME PODRIAN AYUDAR, gracias.

"Kev" escribió:

Para el salto de carro tienes que usar vbCrLf

Salu2

-
Kevin Guisbert S.
Developer
DCE2003-3 DCE2005-2
guisbertkevin(arroba)gmail.com

"jorge" wrote in message
news:
> estoy desarrollando una aplicacion en vb.net, me pide declarar "vbCrl"
>
> total = (subtotal - descuento) + igv
> TextBoxSalida.Text = "El subtotal es : " + Str(subtotal) + vbCrL & "El
> descuento es : " + Str(descuento) + vbCrL & "El I.G.V es : " + Str(igv) +
> vbCrL & "El total a pagar es : " + Str(total)
>
> ME PODRIAN AYUDAR, gracias.

Muchas gracias porla correccion,el programa se ejecuta como form muy bien,
pero cuando calcula en subtotal sale cero, en descuento sale cero y en IGV
tambien cero tendria que corregir algo en todo este codigo GRACIAS

Private Sub ButtonCalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCalcular.Click

codigo = Val(TextBoxCodigo.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
If (subtotal >= 1000) Then
descuento = (subtotal * 0.1) : igv = (subtotal - descuento) * 0.18
End If
If (subtotal < 100) 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



Inherits System.Windows.Forms.Form
Dim salida As Integer, cantidad As Integer
Dim subtotal As Integer, descuento As Integer
Dim igv As Integer, menor As Integer
Dim total As Double
Dim codigo As String
Dim monto As Double

codigo = Val(TextBoxCodigo.Text) <- Val de cualquier cadena es
0
subtotal = codigo * cantidad <-- Cadena * Numero ????????
'Proceso
If (codigo = "A") Then monto = cantidad * 23.5

Val ? eso no es .net :P aunque se lo trague y funcione.

"Eduardo Alvarado Meza" escribió:

codigo = Val(TextBoxCodigo.Text) <- Val de cualquier cadena es
0
subtotal = codigo * cantidad <-- Cadena * Numero ????????
'Proceso
If (codigo = "A") Then monto = cantidad * 23.5

codigo = Val(TextBoxCodigo.Text)
cantidad = Val(TextBoxCantidad.Text)
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)

Las 3 lineas modificalas por:

codigo = Decimal.Parse(TextBoxCodigo.Text) ' o integer o el tipo de
dato que sea codigo

cantidad = Decimal.Parse(TextBoxCantidad.Text) 'o integer o el tipo de
dato que sea cantidad

TextBoxSalida.Text = "El subtotal es : " & subtotal.ToString & vbCrLf &
"El descuento es : " & descuento.ToString & vbCrLf & "El I.G.V. es : "
& igv.ToString & vbCrLf & "El total a pagar es : " & total.ToString