Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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?
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.
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!