Conversión de Grados

Responder
Avatar de Usuario
Mago
VIP
Mensajes: 36
kuchnie na wymiar Ruda Śląska Rybnik Tychy
Registrado: Vie Abr 17, 2020 1:12 am

Conversión de Grados

Mensaje por Mago »

Programa para convertir grados Fahrenheit, Celsius y Kelvin

Imagen

Código: Seleccionar todo

Option Explicit

Private Sub Command1_Click()
    Dim valor, fahrenheit, celsius, rakion As Double
 
    valor = Val(Text1.Text)
 
    If Combo1.Text = "FAHRENHEIT" Then
     
        Label4.Caption = "ES " & (valor - 32) / 1.8 & " GRADOS CELSIUS"
     
        Label5.Caption = "ES " & (5 * (valor - 32) / 9) + 273.15 & " GRADOS KELVIN"
     
    End If
 
    If Combo1.Text = "CELSIUS" Then
     
        Label4.Caption = "ES " & ((9 * valor) / 5) + 32 & " GRADOS FAHRENHEIT"
     
        Label5.Caption = "ES " & valor + 273.15 & " GRADOS KELVIN"
     
    End If
 
    If Combo1.Text = "KELVIN" Then
     
        Label4.Caption = "ES " & (9 * (valor - 273.15) / 5) + 32 & " GRADOS FAHRENHEIT"
     
        Label5.Caption = "ES " & valor - 273.15 & " GRADOS CELSIUS"
     
    End If
 
End Sub

Private Sub Command2_Click()
    Text1.Text = "0"
    Text1.SetFocus
    Label4.Caption = ""
    Label5.Caption = ""
End Sub

Private Sub Command3_Click()
    Unload Me
    End
End Sub

Avatar de Usuario
Grendal
Administrador
Mensajes: 97
Registrado: Mié Abr 08, 2020 1:05 am

Re: Conversión de Grados

Mensaje por Grendal »

Excelente gracias por publicar el código

Responder