ASP .NET - Conversion des unités de mesures météorologique (Celsius, Rankine, Kelvin, Fahrenheit, Newton, Réaumur)

Gladir.com - ASP .NET - Conversion des unités de mesures météorologique

Les unités de mesure utilisé en météorologie pour mesurer le température qu'il fait (chaud ou froid) est très varié. Le schéma suivant permet de représenté en fonction d'un domaine ou d'une région les températures utilisés:

Unités de mesure Utilisation Date de création Origine du nom

Celsius Unité de mesure international utilisé par le grand publique 1948 Anders Celsius

Fahrenheit Unité de mesure surtout utilisé par les américains 1724 Daniel Gabriel Fahrenheit

Kelvin Unité de mesure surtout utilisé par les physiciens 1954 Lord Kelvin

Newton Unité de mesure utilisé en histoire Environ 1700 Isaac Newton

Rankine Unité de mesure surtout utilisé par les physiciens 1859 William John Macquorn Rankine

Réaumur Unité de mesure utilisé en histoire 1731 René-Antoine Ferchault de Réaumur

A l'aide du code source ASP .NET suivant, vous trouvez la réponse que vous souhaitez:

<%@ Page Language="VB" %>
<script runat="server">
Function FahrToCent(Fahr As Double) As Double
FahrToCent = (5.0/9.0)*(Fahr-32.0)
End Function

Function CentToFahr(Cent As Double) As Double
CentToFahr = 1.8*Cent+32.0
End Function

Function CentToKelvin(Cent As Double) As Double
CentToKelvin = Cent+273.16
End Function

Function KelvinToCent(Kelvin As Double) As Double
KelvinToCent = Kelvin-273.16
End Function

Function KelvinToFahr(Kelvin As Double) As Double
KelvinToFahr = 1.8*(Kelvin-273.16)+32.0
End Function

Function RankineToCent(Rankine As Double) As Double
RankineToCent = (5.0/9.0)*(Rankine-491.69)
End Function

Function CentToRankine(Celsius As Double) As Double
CentToRankine = (Celsius*1.8)+491.69
End Function

Function RankineToFahr(Rankine As Double) As Double
RankineToFahr = Rankine-459.69
End Function

Function ReaumurToCent(Reaumur As Double) As Double
ReaumurToCent = Reaumur*5/4
End Function

Function NewtonToCent(Newton As Double) As Double
NewtonToCent = Newton*100/33
End Function
</script>
<%
Response.Write("0 Fahrenheit en Celsius: " &CStr(FahrToCent(0)) &" ")
Response.Write("32 Fahrenheit en Celsius: " &CStr(FahrToCent(32)) &" ")
Response.Write("80 Fahrenheit en Celsius: " &CStr(FahrToCent(80)) &" ")
Response.Write(" ")
Response.Write("0 Celcius en Fahrenheit: " &CStr(CentToFahr(0)) &" ")
Response.Write("30 Celcius en Fahrenheit: " &CStr(CentToFahr(30)) &" ")
Response.Write("100 Celcius en Fahrenheit: " &CStr(CentToFahr(100)) &" ")
Response.Write(" ")
Response.Write("-273,16 Celsius en Kelvin: " &CStr(CentToKelvin(-273.16)) &" ")
Response.Write("0 Celsius en Kelvin: " &CStr(CentToKelvin(0)) &" ")
Response.Write("100 Celsius en Kelvin: " &CStr(CentToKelvin(100)) &" ")
Response.Write(" ")
Response.Write("0 Kelvin en Celsius: " &CStr(KelvinToCent(0)) &" ")
Response.Write("273,16 Kelvin en Celsius: " &CStr(KelvinToCent(273.16)) &" ")
Response.Write("373,16 Kelvin en Celsius: " &CStr(KelvinToCent(373.16)) &" ")
Response.Write(" ")
Response.Write("0 Kelvin en Fahrenheit: " &CStr(KelvinToFahr(0)) &" ")
Response.Write("273,16 Kelvin en Fahrenheit: " &CStr(KelvinToFahr(273.16)) &" ")
Response.Write("373,16 Kelvin en Fahrenheit: " &CStr(KelvinToFahr(373.16)) &" ")
Response.Write(" ")
Response.Write("0 Rankine en Celsius: " &CStr(RankineToCent(0)) &" ")
Response.Write("491,69 Rankine en Celsius: " &CStr(RankineToCent(491.69)) &" ")
Response.Write("671,69 Rankine en Celsius: " &CStr(RankineToCent(671.69)) &" ")
Response.Write(" ")
Response.Write("-273,16 Celsius en Rankine: " &CStr(CentToRankine(-273.16)) &" ")
Response.Write("0 Celcius en Rankine: " &CStr(CentToRankine(0)) &" ")
Response.Write("100 Celcius en Rankine: " &CStr(CentToRankine(100.0)) &" ")
Response.Write(" ")
Response.Write("0 Rankine en Fahrenheit: " &CStr(RankineToFahr(0)) &" ")
Response.Write("491,69 Rankine en Fahrenheit: " &CStr(RankineToFahr(491.69)) &" ")
Response.Write("671,69 Rankine en Fahrenheit: " &CStr(RankineToFahr(671.69)) &" ")
Response.Write(" ")
Response.Write("0 Réaumur en Celsius: " &CStr(ReaumurToCent(0)) &" ")
Response.Write("80 Réaumur en Celsius: " &CStr(ReaumurToCent(80)) &" ")
Response.Write("100 Réaumur en Celsius: " &CStr(ReaumurToCent(100)) &" ")
Response.Write(" ")
Response.Write("0 Newton en Celsius: " &CStr(NewtonToCent(0)) &" ")
Response.Write("100 Newton en Celsius: " &CStr(NewtonToCent(100)) &" ")
Response.Write("200 Newton en Celsius: " &CStr(NewtonToCent(200)) &" ")
%>

on obtiendra le résultat suivant:

0 Fahrenheit en Celsius: -17,7778
32 Fahrenheit en Celsius: 0
80 Fahrenheit en Celsius: 26,6667

0 Celcius en Fahrenheit: 32
30 Celcius en Fahrenheit: 86
100 Celcius en Fahrenheit: 212

-273.16 Celsius en Kelvin: 0
0 Celsius en Kelvin: 273,16
100 Celsius en Kelvin: 373,16

0 Kelvin en Celsius: -273,16
273,16 Kelvin en Celsius: 0
373,16 Kelvin en Celsius: 100

0 Kelvin en Fahrenheit: -459,688
273,16 Kelvin en Fahrenheit: 32
373,16 Kelvin en Fahrenheit: 212

0 Rankine en Celsius: -273,161
491,69 Rankine en Celsius: 0
671,69 Rankine en Celsius: 100

-273,16 Celsius en Rankine: 0,002
0 Celcius en Rankine: 491,69
100 Celcius en Rankine: 671,69

0 Rankine en Fahrenheit: -459,69
491,69 Rankine en Fahrenheit: 32
671,69 Rankine en Fahrenheit: 212

0 Réaumur en Celsius: 0
80 Réaumur en Celsius: 100
100 Réaumur en Celsius: 125

0 Newton en Celsius: 0
100 Newton en Celsius: 303,03
200 Newton en Celsius: 606,061

Dernière mise à jour: Mardi, le 7 février 2006