Conversion des températures

' ******************************************************************************
'          Conversion des températures
'                Temperature.bas
'                  par Papydall
'
' L’échelle de Fahrenheit est utilisée aux États-Unis et dans certains pays
' anglophones et l’échelle de Celsius est utilisée en europe.
'
' ATTENTION :
' La température extrême serait de -273,15°C (= 0 Kelvin = - 459.67°Farenheit)
' Cette température est appelée le "ZERO ABSOLU"

' Pour ce qui est des très hautes températures, il semble bien qu'il n'y ait pas
' de limite supérieure (pour l'instant).

' Le record naturel serait (mais ce n'est qu'une estimation toute théorique)
' de 10^32 Kelvins pour la température de l'espace, 10^^-43s après le Big-Bang.

' Pour des situations plus "classiques", 6000 K pour la surface du Soleil,
' 15 millions de Kelvins pour son centre, 100 millions de Kelvins au coeur d'une
' explosion de bombe thermonucléaire.
' Et dire qu'au-delà de 45°C (318 K), notre bain nous fait hurler !
' ******************************************************************************

 label choix, quit
 dim a$,temperature,result,i%,t$
 width 0,400 : top 0, 100 : left 0,200
 alpha 5 : top 5,30 : left 5,70 : color 5,0,0,0 : font_color 5,0,255,255
 font_size 5,12 : font_bold 5
 caption 5,"  Conversion de températures  "
 alpha 8 : top 8,300 : left 8,100 : color 8,0,0,0 : font_color 8,255,255,0
 font_size 8,12 : font_bold 8 : hide 8
 read a$ : i% = 10
 while upper$(a$) <> "FIN"
      option i% : top i%, 30*i%-220 : left i%, 100 : width i%,200
      caption i%, a$ :on_click i%,choix : i% = i% + 1 : read a$
 end_while
 button 100 : top 100,400 : left 100,100 : caption 100,"Quitter" : on_click 100,quit
 end
 ' *****************************************************************************
choix:
  inactive 100 : hide 8
' Celcius --> Farenheit
  if clicked(10) > 0
    repeat
      repeat
        t$ = message_input$("Température à convertir", "Celcius --> Farenheit"+chr$(13)+"La valeur doit être >= -273.15" , "0")
      until numeric(t$) = 1
    until val(t$) >=  0-273.15
      temperature = val(t$)
      Celcius_Farenheit(temperature)
  end_if
' Celcius --> Kelvin
  if clicked(11) > 0
      repeat
      repeat
        t$ = message_input$("Température à convertir", "Celcius --> Kelvin"+chr$(13)+"La valeur doit être >= -273.15" , "0")
      until numeric(t$) = 1
    until val(t$) >=  0-273.15
      temperature = val(t$)
      Celcius_Kelvin(temperature)
  end_if
' Farenheit --> Celcius
  if clicked(12) > 0
      repeat
        repeat
        t$ = message_input$("Température à convertir", "Farenheit --> Celcius"+chr$(13)+"La valeur doit être >= -459.67" , "0")
        until numeric(t$) = 1
      until val(t$) >=  0-459.67
      temperature = val(t$)
      Farenheit_Celcius(temperature)
  end_if
' Farenheit --> Kelvin
  if clicked(13) > 0
      repeat
        repeat
        t$ = message_input$("Température à convertir", "Farenheit --> Kelvin"+chr$(13)+"La valeur doit être >= -459.67" , "0")
        until numeric(t$) = 1
      until val(t$) >=  0-459.67
      temperature = val(t$)
      Farenheit_Kelvin(temperature)
  end_if
' Kelvin --> Celcius
  if clicked(14) > 0
      repeat
        repeat
        t$ = message_input$("Température à convertir", "Kelvin --> Celcius"+chr$(13)+"La valeur doit être >= 0" , "0")
        until numeric(t$) = 1
      until val(t$) >=  0
      temperature = val(t$)
      Kelvin_Celcius(temperature)
  end_if
' Kelvin --> Farenheit
  if clicked(15) > 0
      repeat
        repeat
        t$ = message_input$("Température à convertir", "Kelvin --> Farenheit"+chr$(13)+"La valeur doit être >= 0" , "0")
        until numeric(t$) = 1
      until val(t$) >=  0
      temperature = val(t$)
      Kelvin_Farenheit(temperature)
  end_if
  active 100 : show 8
 return
' ******************************************************************************
SUB Celcius_Farenheit(Temperature)
    result = ((9 * temperature) / 5) + 32
    caption 8,str$(temperature)+"°C = " +str$(result)+"°F"
END_SUB
' ******************************************************************************
SUB Celcius_Kelvin(Temperature)
    result = Temperature - 273.15
    caption 8,str$(temperature)+"°C = " +str$(result)+"°K"
END_SUB
' ******************************************************************************
SUB Farenheit_Celcius(Temperature)
    result = ((Temperature - 32) * 5) / 9
    caption 8,str$(temperature)+"°F = " +str$(result)+"°C"
END_SUB
' ******************************************************************************
SUB Farenheit_Kelvin(Temperature)
    result =  (Temperature + 459.67)*5/9
    caption 8,str$(temperature)+"°F = " +str$(result)+"°K"
END_SUB
' ******************************************************************************
SUB Kelvin_Celcius(Temperature)
    result = (Temperature + 273.15)
    caption 8,str$(temperature)+"°K = " +str$(result)+"°C"
END_SUB
' ******************************************************************************
SUB Kelvin_Farenheit(Temperature)
    result = ((temperature * 9 / 5) - 459.67)
    caption 8,str$(temperature)+"°K = " +str$(result)+"°F"
END_SUB
' ******************************************************************************
quit:
terminate
' ******************************************************************************
data " Celsius en Farenheit"
data " Celsius en Kelvin"
data " Farenheit en Celsius"
data " Farenheit en Kelvin"
data " Kelvin en Celsius"
data " Kelvin en Farenheit"
data "FIN"
' ******************************************************************************