Conversor visual basic

[sergimbo]

Hola! Pues resulta que estoy haciendo un conversor de unidades el cual sigue este formato:

http://elticus.com/?contenido=56&allmsg#mensajes


El boton de "Unidad" lo tengo muy claro pero el problema lo tengo con calcular.

Resulta que ese conversor tu puedes pasar de metros a pulgadas etc. pero tambien de pulgadas a metros sin importar el orden. Asi pues tu en el label correspondiente a yardas, por ejemplo, pones un numero cualquiera y te saca la equivalencia en las demas.


La cosa es, como puedo hacer que el visual basic sepa que label de esas 6 tenga algun numero? Es decir, como le digo al programa "si la label de nombre "lblyardas" tiene un numero haz estas operaciones=?

Otra cosa, como puedo hacer para que solo se pueda escribir en una label de las 6 a la vez?

Gracias por su ayuda

[culd]

Para comenzar, no es LABEL, es TEXTBOX...

Para terminar, tenes que usar IF, CASE ELSE, etc.

A leer un poco de Algoritmos y Estructuras de Datos

[culd]

Lo tome como un ejercicio mental, asi que me tome el trabajo de hacerlo.

- Insertar 2 CommandButton
BUnidad
BCalcular

- Insertar una matris de TextBox (6 elementos)
txtNumero

Copiar el siguiente codigo en el Formulario:

Código vb:

Dim Medidas(0 To 5) As Double
 
 
Private Sub BCalcular_Click()
Dim Indice As Integer
Dim X As Integer
 
For X = 0 To 5
    If Trim(txtNumero(X)) <> "" Then
        Indice = X
        Exit For
    End If
Next X
 
For X = 0 To 5
    If X <> Indice Then
        txtNumero(X) = Round((CDbl(txtNumero(Indice)) * Medidas(X)) / Medidas(Indice), 5)
    End If
Next X
End Sub
 
Private Sub BUnidad_Click()
Dim X As Integer
For X = 0 To 5
    txtNumero(X).Text = Medidas(X)
Next X
End Sub
 
Private Sub Form_Load()
Medidas(0) = 1
Medidas(1) = 39.3701
Medidas(2) = 3.28084
Medidas(3) = 1.09361
Medidas(4) = 0.00062
Medidas(5) = 0.00055
End Sub
 
Private Sub txtNumero_GotFocus(Index As Integer)
Dim X As Integer
For X = 0 To 5
    txtNumero(X).Text = ""
Next X
End Sub
 

[sergimbo]

Muchas gfracias por tu interes y por tu ayuda! :D

Mañana lo pruebo y te comento crack