Convertisseur de temperature V1.00

Introduction

Ce programme a pour but de convertir les températures.
Son besoin et son champ d'application sont définies dans le cachier des charges
Il a été réalisé en Visual Basic

Cahier des charges

Ce programme a été créé pour faciliter le travail d'opérateurs d'origines différentes.
Il permettra aussi l'utilisation de documents techniques pour la fonderie (abaques de température) provenant d'auteurs français, anglais, etc.
Il devra donc, en un minimum de temps convertir les températures dans les différentes échelles internationales
De plus, sous forme de binaire executable, il pourra s'executer sur un parc de machines très hétérogène.

Analyse fonctionnelle

Diagramme pieuvre
FP: Convertir les température de formulaires techniques pour les différents utilisateurs
FC1 Afficher la température dans l'échelle préférée de l'utilisateur
FC2 S'adapter à toutes les échelles de températures de tous les documents de l'entreprise
FC3 S'Executer sur tous les systèmes de l'entreprise

Mode opératoire

Voir le mode opératoire

Algorithme

Voir l'algorithme

Téléchargement

Le logiciel est distribué sous forme d'un binaire executable pour environnement Windows (XP et supérieur) compilé pour une architecture PC (x86) standard.
Télécharger le logiciel

Le code source est disponible en téléchargement (sous forme d'un fichier .zip standard). La structure du projet a été realisée avec Microsoft Visual Studio.
Télécharger le projet

Début boucle
Lire valeur
Lire unité

Si unité = celsius Alors
  Afficher "celsius"+valeur
  fahrenheit = (valeur * 9) / 5 + 32
  Afficher "fahrenheit"+fahrenheit
  kelvin = valeur + 273.15
  Afficher "kelvin"+kelvin
  rankine = (valeur + 273.15) * (9 / 5)
  Afficher "Rankine"+rankine
  delisle = (100 - valeur) * (3 / 2)
  Afficher "delisle"+delisle
  newton = valeur * (33 / 100)
  Afficher "newton"+newton
  Réaumur = valeur * (5 / 4)
  Afficher "Réaumur"+Réaumur
  Romer = (valeur - 7.5) * (40 / 21)
  Afficher "Romer"+Romer
Fin de si

Si unité = Fahrenheight Alors
  celsius = (valeur + 32) * 5 / 9
  Afficher "celsius"+celsius
  Afficher "fahrenheit"+valeur
  kelvin = celsius + 273.15
  Afficher "kelvin"+kelvin
  rankine = valeur + 459.67
  Afficher "Rankine"+rankine
  delisle = (212 - valeur) * (5 / 6))
  Afficher "delisle"+delisle
  newton = (valeur - 32) * 11 / 60
  Afficher "newton"+newton
  Réaumur = valeur * (9 / 4) + 32)
  Afficher "Réaumur"+Réaumur
  Romer = (valeur - 7.5) * (24 / 7) + 32
  Afficher "Romer"+Romer
Fin de si

Si unité = kelvin Alors
  celsius = valeur - 273.15
  Afficher "celsius"+celsius
  farhenheit = (celsius * 9) / 5 + 32
  Afficher "fahrenheit"+fahrenheit
  Afficher "kelvin"+valeur
  rankine = (373.15 - valeur) * (3 / 2)
  Afficher "Rankine"+rankine
  delisle = (373.15 - valeur) * (3 / 2)
  Afficher "delisle"+delisle
  newton = (valeur - 273.15) * (33 / 100)
  Afficher "newton"+newton
  Réaumur = valeur * (5 / 4) + 273.15
  Afficher "Réaumur"+Réaumur
  Romer = (valeur - 7.5) * (40 / 21) + 273.15
  Afficher "Romer"+Romer
Fin de si

Si unité = rankine Alors
  celsius = (valeur - 491.67) * (5 / 9)
  Afficher "celsius"+celsius
  farhenheit = valeur - 459.67
  Afficher "fahrenheit"+fahrenheit
  kelvin = valeur * (5 / 9)
  Afficher "kelvin"+kelvin
  Afficher "Rankine"+valeur
  delisle = (671.67 - valeur) * (5 / 6)
  Afficher "delisle"+delisle
  newton = (valeur - 491.67) * (11 / 60)
  Afficher "newton"+newton
  Réaumur = valeur * (9 / 4) * 491.67
  Afficher "Réaumur"+Réaumur
  Romer = (valeur - 7.5) * (24 / 7) + 491.67
  Afficher "Romer"+Romer
Fin de si

Si unité = delisle Alors
  celsius = (100 - valeur) * (2 / 3)
  Afficher "celsius"+celsius
  farhenheit = (212 - valeur) * (6 / 5)
  Afficher "fahrenheit"+fahrenheit
  kelvin = (373.15 - valeur) * (2 / 3)
  Afficher "kelvin"+kelvin
  rankine = (671.67 - valeur) * (6 / 5)
  Afficher "Rankine"+rankine
  Afficher "delisle"+valeur
  newton = (valeur - 491.67) * (11 / 60)
  Afficher "newton"+newton
  Réaumur = (80 - valeur) * (15 / 8)
  Afficher "Réaumur"+Réaumur
  Romer = (60 - valeur) * (20 / 7)
  Afficher "Romer"+Romer
Fin de si

Si unité = newton Alors
  celsius = valeur * (100 / 33)
  Afficher "celsius"+celsius
  farhenheit = valeur * (60 / 11) + 32
  Afficher "fahrenheit"+fahrenheit
  kelvin = valeur * (100 / 33) + 273.15
  Afficher "kelvin"+kelvin
  rankine = valeur * (60 / 11) + 491.67
  Afficher "Rankine"+rankine
  delisle = 33 - valeur * (50 / 11)
  Afficher "delisle"+delisle
  Afficher "newton"+valeur
  Réaumur = valeur * (33 / 100)
  Afficher "Réaumur"+Réaumur
  Romer = (valeur - 7.5) * (22 / 35)
  Afficher "Romer"+Romer
Fin de si

Si unité = réaumur Alors
  celsius = valeur * (4 / 5)
  Afficher "celsius"+celsius
  farhenheit = valeur - 32 * (4 / 9)
  Afficher "fahrenheit"+fahrenheit
  kelvin = valeur - 273.15 * (4 / 5)
  Afficher "kelvin"+kelvin
  rankine = valeur - 491.67 * (4 / 9)
  Afficher "Rankine"+rankine
  delisle = 80 - valeur * (8 / 15)
  Afficher "delisle"+delisle
  newton = valeur * (80 / 33)
  Afficher "newton"+newton
  Afficher "Réaumur"+valeur
  Romer = (valeur - 7.5) * (32 / 21)
  Afficher "Romer"+Romer
Fin de si

Si unité = romer Alors
  celsius = valeur * (21 / 40) + 7.5
  Afficher "celsius"+celsius
  farhenheit = (valeur - 32) * (7 / 24) + 7.5
  Afficher "fahrenheit"+fahrenheit
  kelvin = (valeur - 273.15) * (21 / 40) + 7.5
  Afficher "kelvin"+kelvin
  rankine = (valeur - 491.67) * (7 / 24) + 7.5
  Afficher "Rankine"+rankine
  delisle = (60 - valeur) * (7 / 20)
  Afficher "delisle"+delisle
  newton = valeur * (35 / 22) + 7.5
  Afficher "newton"+newton
  réaumur = valeur * (21 / 32) + 7.5
  Afficher "Réaumur"+réaumur
  Afficher "Romer"+valeur
Fin de si

boucler

Mode operatoire

Darmowy hosting zapewnia PRV.pl : radosnykacik, livefootball, dbmmo, 7000, gabriel158
Dziel sie multimediami na Patrz.pl