02-04-2023, 10:06 PM
(02-04-2023, 06:17 PM)bplus Wrote: Windchill:
Wind Chill = 35.74 + 0.6215T – 35.75(V^0.16) + 0.4275T(V^0.16)
T is the air temperature in degrees Fahrenheit, and V is the wind speed in miles per hour.
The question is: how do you put the brackets?
(Calculation of WindChill - felt temperature)
Code: (Select All)
$Console:Only
Option _Explicit
Dim As Double windChillC, windChillF, temp, windV
Dim As Double fahrenheit, celsius
windChillC = 13.12
windChillF = 35.74
Locate 2, 3
Print "Berechnung des WindChill - gefuehlte Temperatur"
Locate 4, 3
Input "Temperatur : ", temp
Locate 5, 3
'Kilometer pro Stunde
Input "Windgeschwindigkeit (KM): ", windV
windChillC = windChillC + (0.6215 * temp) - (11.37 * (windV ^ 0.16)) + ((0.3965 * temp) * (windV ^ 0.16))
fahrenheit = (windChillC * 1.8) + 32
windChillF = windChillF + (0.6215 * temp) - (35.75 * (windV ^ 0.16)) + ((0.4275 * temp) * (windV ^ 0.16))
celsius = (windChillF - 32) * (5 / 9)
Locate 7, 3
Print Using "Gefuehlte Temperatur ###.## Celsius. --> ###.## Fahrenheit"; windChillC, fahrenheit
Locate 9, 3
Print "Berechnung nach Fahrenheit"
Locate 10, 3
Print Using "WindChill Temperatur ###.## Fahrenheit. --> ###.## Celsius"; windChillF, celsius
End