Curso Lenguaje GO

Ayuda con conversion de millas a kilometros

Colapsar
X
  • Filtrar
  • Tiempo
  • Mostrar
Limpiar todos
nuevos mensajes

  • Ayuda con conversion de millas a kilometros

    Hola amigos, estoy tratando de hacer una pequeña calculadora en tiempo real para transformar de millas a kilometros y de kilometros a millas con dos textbox
    Código:
      
         Public Sub KMAMILLAS() Handles TextBox5.TextChanged
            On Error Resume Next        
    
     TextBox6.Text = Math.Round(Convert.ToDouble(TextBox5.Text * 1.609), 2)    
    
     End Sub    
    
      Public Sub MILLASAKM() Handles TextBox6.TextChanged    
    
          On Error Resume Next            
    
    TextBox5.Text = Math.Round(Convert.ToDouble(TextBox6.Text / 1.609), 2)        
    
    End Sub
    Hice este codigo y me funciona hasta cierto punto, si coloco en el textbox5 un numero me hace la conversion bien, pero si escribo un numero en el textbox6 ejemplo 450 se me escribe como 504

    si escribo 40 se me escribe como 04,01
    si escribo 100 se me escribe como 010,01.

    Alguien me podria ayudar?


    solo quiero una calculadora como la de google https://www.google.com/search?client...de+millas+a+km
    Última edición por putiboss; 10-08-2019, 12:57 AM.

  • #2
    Yo no sé programar en .Net, pero creo que estás utilizando un evento incorrecto para hacer la conversión: Si en lugar de Changed usas KeyDown para obtener el resultado cuando pulses [Enter], estoy seguro de que funcionará Ok...

    Esta es la prueba en VB6.0:

    Código:
    Private Sub TextKm_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            TextKm.Text = Replace(TextKm.Text, ".", ",")
            TextMll.Text = Format(CDbl(TextKm.Text * 1.609), "#.00")
        End If
    End Sub
    
    Private Sub TextMll_KeyDown(KeyCode As Integer, Shift As Integer)
        If KeyCode = 13 Then
            TextMll.Text = Replace(TextMll.Text, ".", ",")
            TextKm.Text = Format(CDbl(TextMll.Text / 1.609), "#.00")
        End If
    End Sub
    José María Movilla Cuadrado
    ______________________
    Normas del foro
    www.foro.vb-mundo.com
    www.vb-mundo.com

    Comentario

    Trabajando...
    X