SoloCodigo

No se a que os referis con el codigo.... no se,es un simple programa de visual basic,en el que tengo dos cajas de texto (una en la que escribo Celsius y otra fahrenheit...y con eso se me tiene que mover un scroll...a ver...os pongo lo que llevo hecho.Lo de "lblColor",esta mal tambien,es que se supone que cuando el termometro marca 100 grados celsius debe aparecer un label en rojo,cuando esta al minimo debe ser azul....pasando por todos los colores...y tp se me ocurre como hacerlo...asi que si me podeis ayudar a corregirlo os estaría muyyy agradecido!!


Private Sub cmdSalir_Click()
    Beep
    End
End Sub

Private Sub lblColor_Click()
    lblColor = vsbTemp.Value
        If vsbTemp.Value = 0 Then
            lblColor = RGB(255, 255, 255)
        End If
        If vsbTemp.Value = 100 Then
            lblColor = RGB(255, 0, 0)
        End If
        If vsbTemp.Value = -100 Then
            lblColor = RGB(0, 0, 255)
    Color = RGB(rojo, verde, azul)
    Color = azul * 256 ^ 2 + verde * 256 + rojo
End Sub

Private Sub mnuArchivoSalir_Click()
    End
End Sub

Private Sub txtCent_Change()
    txtCent.Text = Val(txtCent.Text)
    txtFahr.Text = 32 + 1.8 * Val(txtCent.Text)
    vsbTemp.Value = Val(txtCent.Text)
End Sub

Private Sub txtFahr_Change()
    txtFahr.Text = Val(txtFahr.Text)
    txtCent.Text = (Val(txtFahr.Text) - 32) * 5 / 9
End Sub

Private Sub vsbTemp_Change()
    txtCent.Text = vsbTemp.Value
    txtFahr.Text = 32 + 1.8 * vsbTemp.Value
End Sub

y para escribir lo de grados fahrenheit y que me los pase a grados centigrados?
Es que lo que tengo escrito funciona...pero hay veces que me da demasiados decimales y me sale el error ese que ya cité...





Muchisimas gracias por la ayuda y siento las molestias!!!!!!!!!!!

muchas gracias!!eso como lo tendría que introducir en el codigo???en que parte y como?por que hay muchos casos de decimales...entonces no se como utilizarlo.


Muchas gracias!

No he probado los códigos que han puesto pero me parece que cuando el usuario ingresa un valor en un campo, por ejemplo txtCent, por lógica se ejecuta el evento txtCent_Change(), esto va a cambiar el valor de txtFahr, lo que desencadenará el evento txtFahr_Change() y al estar redondeado el valor de txtFahr la conversión a celsius no va a dar el mismo valor que ingresó el usuario por lo que txtCent cambia su valor y vuelve el evento txtCent_Change(), luego txtFahr_Change() y sigue hasta desbordar la pila.

Mi consejo es que utilices un botón para cada conversión en vez de usar los eventos de los campos.

muchas gracias por todo...pero sigue saliendome el error ese y no puedo utilizar ningun tipo de boton...asi que ya veré como hacerlo!!gracias y lo siento por las molestias!

ya encontre la forma para que vaya de mas a menos el color!!!!!!!!!!!!os la dejo por is quereis saberlo....lo unico que no puedo hacer lo del cambio de "Fahr a Cent" por que me salen muchos errores,lo quería intentar sacar por que eso me pondría mas nota aun...asi que si sabeis sacarlo sin que salgan errores....os lo agradecería....si no,no hace falta,muchas gracias por todo!!!!!!!!!!!!!!!!!!!!!!!!!

Ahi va el codigo:


Private Sub vsbTemp_Change()
    txtCent.Text = vsbTemp.Value
    txtFahr.Text = 32 + 1.8 * vsbTemp.Value
   
    lblColor.BackColor = RGB(rojo, verde, azul)
    If vsbTemp.Value > 0 Then
        lblColor.BackColor = RGB(255, 255 - (vsbTemp.Value * 255) / 100, 255 - (vsbTemp.Value * 255) / 100)
    End If
    If vsbTemp.Value = 0 Then
        lblColor.BackColor = RGB(255, 255, 255)
    End If
    If vsbTemp.Value < 0 Then
        lblColor.BackColor = RGB(255 + (vsbTemp.Value * 255) / 100, 255 + (vsbTemp.Value * 255) / 100, 255)
    End If

End Sub