Hola, antes que nada espero porfavor alguie me ayude con este problema que he venido teniendo desde ya casi 1 mes y no he encontradio quien me ayude :S el problema es el siguiente:
Estoy realizando un conversor de unidades de medición en Visual Studio 2010 ( no hay mucha diferencia con el 2008). Resulta que son 8 Forms, cada uno con una unidad diferente de medición (conversor diferente). Les cuento que el único que me ha salido es el de Unidades de capacidad, pero por alguna razón, los demas conversonres no me salen.
Les cuento que el conversor es el tiempo real, es decir, tengo 6 cajas de texto, y en cualquiera que ingrese el valor, me hará la conversion e imprimirá dicha conversión en cada caja de texto en tiempo real, aquí les dejo una cap del primer form que hize.
Este es su código fuente
Código:
Public Class ucapacidad
Dim vali As Double
Dim vali2 As Double
Dim vali3 As Double
Dim vali4 As Double
Dim vali5 As Double
Dim vali6 As Double
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
vali = Val(TextBox1.Text)
If vali <> 0 Then
TextBox2.Text = vali * 1000
TextBox3.Text = vali * 100
TextBox3.Text = vali * 100
TextBox4.Text = vali * 10
TextBox5.Text = vali / 10
TextBox6.Text = vali / 100
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
vali2 = Val(TextBox2.Text)
If vali2 <> 0 Then
TextBox1.Text = vali2 / 1000
TextBox3.Text = vali2 / 10
TextBox4.Text = vali2 / 100
TextBox5.Text = vali2 / 10000
TextBox6.Text = vali2 / 100000
End If
End Sub
Private Sub ucapacidad_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
vali3 = Val(TextBox3.Text)
If vali3 <> 0 Then
TextBox1.Text = vali3 / 100
TextBox2.Text = vali3 * 10
TextBox4.Text = vali3 / 10
TextBox5.Text = vali3 / 1000
TextBox6.Text = vali3 / 10000
End If
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
vali4 = Val(TextBox4.Text)
If vali4 <> 0 Then
TextBox1.Text = vali4 / 10
TextBox2.Text = vali4 * 100
TextBox3.Text = vali4 * 10
TextBox5.Text = vali4 / 100
TextBox6.Text = vali4 / 1000
End If
End Sub
Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
vali5 = Val(TextBox5.Text)
If vali5 <> 0 Then
TextBox1.Text = vali5 * 10
TextBox2.Text = vali5 * 10000
TextBox3.Text = vali5 * 1000
TextBox4.Text = vali5 * 100
TextBox6.Text = vali5 / 10
End If
End Sub
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
vali6 = Val(TextBox6.Text)
If vali6 <> 0 Then
TextBox1.Text = vali6 * 100
TextBox2.Text = vali6 * 100000
TextBox3.Text = vali6 * 10000
TextBox4.Text = vali6 * 1000
TextBox5.Text = vali6 * 10
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
End Sub
End Class
Si se dan cuenta, la lógica no es la gran cosa, lo que no me explico es porque para los otros conversores no me anda bien, seguramente es la declaración de variables ya que o son numeros decimales muy pequeños, o son numeros enteros muy grandes
He hospedado el .rar con la carpeta completa en mi pequeño host de archivos por si alguien lo quiere descargar, para que lo vea y porfavor me tire una mano, :( tengo que entregar esta cosa el martes.
Link: http://files.taitoadobabes.co.cc/99191
POrfavor, encerio necesito de ayuda de alguien que me tire una mano con esto.
de antemano muchas gracias por su atención.