$tconv(température,cfk,cfk)

Commenter

Contenu du snippet

Snippet convertissant des degrés Celsius/Fahrenheit/Kelvin en degrés Celsius/Fahrenheit/Kelvin (c pour celsius, f pour fahrenheit et k pour kelvin)
Exemple: $tconv(10,c,f) donnera 50

Source / Exemple : 


; Ouverture de l'aliase
alias tconv {
  ; Vérification de routine
  if $3 == $null { halt }
  ; Si la température de base est en Fahrenheit
  if $2 == f {
    ; Nous mettons la température en Celsius
    var %a = $calc(($1 - 32) * 5 / 9) 
    ; Si elle devra être en Kelvin
    if $3 == k { var %a = $calc(%a + 274) }
  }
  ; Si la température de base est en Celsius
  if $2 == c {
    ; Si le température finale est en Fahrenheit
    var %a = $calc($1 * 9 / 5 + 32) 
    ; Si le température finale est en Kelvin
    if $3 == k { var %a = $calc($1 + 274) }
  }
  ; Si la température de base est en Kelvin
  if $2 == k {
    ; Si le température finale est en Celsius
    var %a = $calc($1 - 274) 
    ; Si le température finale est en  Fahrenheit
    if $3 == f { var %a = $calc(%a * 9 / 5 + 32) }
  }
  ; Nous retournons le tout
  return %a
}

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (WarDoWn)