Visual Basic.NET - redondeo de decimales

 
Vista:
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 30/08/2020 15:31:06
hola: estoy programadno en VB.NET 2010 y tengo el siguiente problema:
saco un valor de una tabla ej: 10.50 , lo paso a un label y me aparece como 10.00 , Que es lo que pasa?
solución Urgente por favor GRACIAS.............
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por Phil Rob (1546 intervenciones) el 30/08/2020 15:35:33
Hola,

Envia el código de los cálculos y mostrados que ponen problemas.
Sin este, no es posible de te ayudar.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 30/08/2020 16:11:32
hola gracias por contestar, pero es tan simple asi
tengo un valor en una tabla de access que me muestra 10.50 hago la consulta y cargo ese valor en un label (LblIva) y acá aparece 10.00, lo mismo me pasa con otro valor que lo paso de un textbox por ejemplo: 125.37 y lo paso a una tabla y pasa como 125.00

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim tabla As New DataTable
Dim sql As String = "Select * FROM clientes Where Numcli = " + ComboBox1.SelectedValue.ToString + ""
Dim adp As New OleDbDataAdapter(sql, conectar)
adp.Fill(tabla)
For Each row As DataRow In tabla.Rows
 
    LblCuit.Text = row("cuit").ToString
    LblIva.Text = row("iva").ToString
    TxtLista.Text = row("NumLis")
    VarCod = row("NumCli")
    TxtCorredor.Text = row("NumCor")
    ''''''''''''''''''''''''''
    BtCancel.Enabled = True
    BtGrabarGral.Enabled = True
 
Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por Phil Rob (1546 intervenciones) el 30/08/2020 17:53:37
Hola,

No me parece correcto el código pero no debería ser la fuente del error :

Creo que LblCuit.Text = row("cuit").ToString debe ser LblCuit.Text = row.Item("cuit").ToString.

Para el error, no veo nada. La DB es ACCESS. Envia el esquema de la tabla clientes y algunos valores. Quiero ver los tipos.
Puedes ya verificar que tu escritura en la tabla es correcta sobre el separador numérico : punto o coma ?

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 31/08/2020 17:50:31
Hola: la db en el campo específico tiene estos parámetros: Numero, simple,formato gral, 2 decimales separados con coma (,)
en el textbox (TxtPU) me aparece 125,27 y lo paso a la db y se pasa como 125,00

1
2
3
4
5
6
7
8
9
Dim CMDTRA As String = "insert into AuxFacturacion (Cadena, Descripcion, FCantidad, P_Unitario, Importe )  values (@Cad, @Descrip,
@Can, @PUn, @Imp)"
Dim CMD As New OleDb.OleDbCommand(CMDTRA, conectar)
CMD.Parameters.AddWithValue("@Cad", row("Cadena"))
CMD.Parameters.AddWithValue("@Descrip", TxtDescrip.Text)
CMD.Parameters.AddWithValue("@Can", row("Ccantidad"))
CMD.Parameters.AddWithValue("@PUn", Val(TxtPU.Text))
CMD.Parameters.AddWithValue("@Imp", Val(TxtPU.Text) * row("Ccantidad"))
If ((CMD.ExecuteNonQuery() > 0)) Then
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por Phil Rob (1546 intervenciones) el 31/08/2020 18:17:38
Hola,

Creo tener el problema ...

Reemplazas Val por CType :

1
2
CMD.Parameters.AddWithValue("@PUn", CType(TxtPU.Text, Double))
CMD.Parameters.AddWithValue("@Imp", CType(TxtPU.Text, Double) )

Atención, tienes que verificar que el separador en "Parámetros regionales" del sistema es la coma. En este caso, este es bien de escribir con la coma en los TextBox.


Para curso en VB2010, este existe en https://www.lawebdelprogramador.com. Tienes que buscar ...

Para tu facilitad, pongo dos pdf en DropBox (vienen de este sito) :
https://www.dropbox.com/s/vsid7g3vj2vpmuy/Visual%20Basic.pdf?dl=0
https://www.dropbox.com/s/9u6yf8gm76ti0fq/VB-2010%20v2.pdf?dl=0

Tambien, puedes siempre preguntar informaciones en el foro.

Dices me como este funciona con CType.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 31/08/2020 18:26:59
perfecto FUNCIONO , MIL GRACIAS GRACIAS, GRACIAS, GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 31/08/2020 17:51:53
y otra pregunta : Cnoces algun pdf muy completo para vb.net 2010 ?
desde ya muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 31/08/2020 18:15:28
y lo mismo me aparece asi:
me muestra en 3 textbox asi Textbox1.text= 120
textbox2.text=20.25
y el textbox3 es la suma de los anteriores con la instruccion:
1
textbox3.text = val(textbox1.text) + val(textbox2.text)
y me muestra en el textbox3 el valor 140, desaparecen los decimales
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por Phil Rob (1546 intervenciones) el 31/08/2020 18:33:43
Creo que el separador no es correcto. En tu mensaje anterior, dices que el separador es la coma y en este mensaje, muestras los numéricos con puntos.

Por favor, pruebas con :

1
2
Textbox1.text= 120
Textbox2.text=20.25   (con punto)

Y todavia :

1
2
Textbox1.text= 120
Textbox2.text=20,25   (con coma)

Si no funciona, ni uno ni otro, envias me tu proyecto completo con la DB y miraré. En la DB, puedes escribir datos ficticios.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de edgardo
Val: 54
Ha aumentado su posición en 3 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por edgardo (17 intervenciones) el 31/08/2020 20:39:26
no, ya esta solucionado gracias a TU AYUDA. Nuevamente fue invalorable tu aporte.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por Phil Rob (1546 intervenciones) el 01/09/2020 07:17:46
Felicitaciones !!!

Nuestros mensajes se cruzaron varias veces ..., difícil de responder al buen momento !

Que tenga un buen día.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Sam
Val: 37
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

redondeo de decimales

Publicado por Sam (18 intervenciones) el 01/09/2020 09:04:09
Hola Phil,

No tienes nigun problema si siempre respondes al ultimo mensaje.
Los problemas vienen cuando respondes a un mensaje anterior en la lista.

Saludos,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar