OK; jeg har testet dette:
Public Sub Main()
Dim T As Double = 23 ' in degrees C
Dim RH As Double = 72 ' in %
Dim absolute_humidity As Double = Math.Round(6.112 * Math.E ^ ((17.67 * T) / (T + 243.5)) * RH * 2.1674 / (273.15 + T), 2)
Console.WriteLine("Absolute humidity: " & absolute_humidity & " g/m³")
Console.ReadKey()
End Sub
... som i et HS-script kan f.eks. se slik ut:
Public Sub Main(byval parms as Object)
Dim T As Double = hs.DeviceValueEx(REF_TO_TEMP_DEVICE) ' in degrees C
Dim RH As Double = hs.DeviceValueEx(REF_TO_RH_DEVICE) ' in %
Dim absolute_humidity As Double = Math.Round(6.112 * Math.E ^ ((17.67 * T) / (T + 243.5)) * RH * 2.1674 / (273.15 + T), 2)
hs.SetDeviceValueByRef(REF_TO_OUTPUT_DEVICE, absolute_humidity, True)
hs.SetDeviceString(REF_TO_OUTPUT_DEVICE, absolute_humidity & " g/m³", False)
End Sub
Merk at du må endre REF_TO_TEMP_DEVICE, REF_TO_RH_DEVICE og REF_TO_OUTPUT_DEVICE. Den siste linja (som begynner med hs.SetDeviceString....) kan du hoppe over hvis du heller vil sette opp Status Graphics istedenfor.
Jeg har ingen idé om scriptet regner rett, men det burde være rett basert på formelen i linken din.