VB.NET - Como transforma farenheit em celsius, com Function.

[Juliana Oliveira 0]

2- Efetuar a leitura de uma temperatura medida

em graus Farenheit e apresentá - la em graus

Celsius.A fórmula para conversão de temperaturas é:

C = ((F -32)/ 1,8.Usar Function.

 

Public Class Form2


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim numero As Double, resultado As Double
        numero = TextBox1.Text
        resultado = Temperatura(numero)
        MsgBox("O resultado em ")


    End Sub
    Private Function Temperatura(ByVal a As Double) As Double
        Dim resultado As Integer


        resultado = (a -32)/ 1,8


        Temperatura = resultado
    End Function


End Class

 

Não sei o que esta acontecendo, mas não consigo obter o resultado correto.

vocês podem me ajudar?

[Elnata COsta 2]

Eu fazendo um projeto parecido com esse. Olha o que eu achei na internet, veja se ajuda:

 

 

 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim FTemp, Celsius As Single
        Dim strFTemp As String
        Dim Prompt As String = "Insira a temperatura em Fahrenheit."
        Do
            strFTemp = InputBox(Prompt, "Fahrenheit para Celsius")
            If strFTemp <> "" Then
                FTemp = CSng(strFTemp)
                Celsius = Int((FTemp + 40) * 5 / 9 - 40)
                MsgBox(Celsius, , "Temperatura em Celsius")
            End If
        Loop While strFTemp <> ""
        End
    End Sub

 

Ele converte Farenheit e apresenta em graus Celsius!! ;) Veja se te ajuda aee!

[KhaosDoctor 242]

Sua formula está errada, você está jogando a variável aonde você deveria estar tentando descobrí-la, lembre-se que no VB não existem virgulas para decimais e sim pontos, e também não é sempre que a função vai retornar integer.

 

A equação que te foi passada está no formato muito simplificado também, tente esta equação aqui: ((C/5)*9)+32 = F, logo a variável F será a variável que você quer descobrir e o C o que você tem: [inline]Dim tempF As Double= ((temp/5)*9)+32[/inline]:

 

Public Function ConvertToFarenheit(Byval temp as Double) As Double

Dim tempF As Double= ((temp/5)*9)+32
Return tempF

End Function

 

O mesmo vale para celsius, porém a equação é: C=((F-32)/9)*5 substitua o C pela variável do Dim e o F pela variável do parâmetro.