FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Conversion des températures

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5980
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Conversion des températures   Mer 6 Fév 2013 - 18:03

Salut tout le monde.

Voila de quoi enrichir vos bibliothèques des INUTILITAIRES.
Code:
' ******************************************************************************
'          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"
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 6 Fév 2013 - 18:46

Bravo !!!

Mais je laisse à d'autres le soin de mesurer ces températures extrèmes... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Conversion des températures
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Conversion des températures
» Nibitor 6.03 est là
» [Présentation] HWmonitor Contrôler vos températures.
» Conversion fichier MVK
» Conversion 25p/24p

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: