Conversion d'unité

'programme créer par Mike au mois d'aout 2005
' il permet de convertir certaine unité.

[start]
cls
 ' je propose un choix de conversion d'unité
Print "Ce programme permet de passer d'une certaine"
Print "unité a une autre. Voici la liste :"
Print "A) Mille a l'heure en Kilomètre heure"
Print "B) Kilomètre heure en mille a l'heure"
Print "C) Noeud (kt) en kilomètre heure"
Print "D) Noeud en mille a l'heure"
Print "E) Kilomètre heure en noeud"
Print "F) Mille à l'heure en noeud"
Print "G) Celcius en Farenheit"
Print "H) Farenheit en Celcius"
Print "I) Livre en kilogramme"
Print "J) Kilogramme en Livre"
Print "K) Onces en grammes"
Print "L) Grammes en onces"
Print "M) Centimètre en pouce"
Print "N) Pouce en centimètre"
Print "O) Mètre en pied"
Print "P) Pied en mètre"
Print "Q) Mètre carré en pied carré"
Print "R) Pied carré en mètre carré"
print "S) Litre en gallon (us)"
print "T) Gallon (us) en Litre"
print "U) différence de prix entre les pompes canadienne et américaines"
' je propose un choix de conversion d'unité
print
Input "choisissez la lettre (A à U) "; letter$ ' je met en mémoire la lettre choisi
' je dirige chaque choix a la bonne étiquette.
if instr("Aa", letter$) then [A]
if instr("Bb", letter$) then [B]
if instr("Cc", letter$) then [C]
if instr("Dd", letter$) then [D]
if instr("Ee", letter$) then [E]
if instr("Ff", letter$) then [F]
if instr("Gg", letter$) then [G]
if instr("Hh", letter$) then [H]
if instr("Ii", letter$) then [I]
if instr("Jj", letter$) then [J]
if instr("Kk", letter$) then [K]
if instr("Ll", letter$) then [L]
if instr("Mm", letter$) then [M]
if instr("Nn", letter$) then [N]
if instr("Oo", letter$) then [O]
if instr("Pp", letter$) then [P]
if instr("Qq", letter$) then [O]
if instr("Rr", letter$) then [P]
if instr("Ss", letter$) then [S]
if instr("Tt", letter$) then [T]
if instr("Uu", letter$) then [U]
Print "vous avez appuyé sur "; letter$; ". C'est n'est pas une touche indiqué plus haut."
input "appuyer sur enter pour retourner au menu"; rien
goto [start]' je dirige chaque choix a la bonne étiquette.

[A]
cls
Print "A) Mille a l'heure en Kilomètre heure" 'j'affiche le choix choisi
Print "mille à l'heure = Ml/H "
print "kilomètre heure = Km/h"
Input "Entrer un nombre de Ml/h "; km ' je met en mémoire le nombre
MLH = 1.6 'je rentre en mémoire l'équivalence
print "Ml/H........."; using("########.####", km + 0.00)'J'affiche la première partie
print "muliplier par"; using("########.####", MLH + 0.00) ' puis la 2e
print "------------------------"
print "KM/h Total..."; using("########.####", km * 1.6 + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart$
if instr("YesYESyesYy", restart$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[B]
cls
Print "B) Kilomètre heure en mille a l'heure" 'j'affiche le choix choisi
Print "mille à l'heure = Ml/H "
print "kilomètre heure = Km/h"
Input "Entrer un nombre de Km/h"; Ml ' je met en mémoire le nombre
MLH = 1.6 'je rentre en mémoire l'équivalence
print "Km/h........";using("########.####", Ml + 0.00)'J'affiche la première partie
print "divisé par.."; using("########.####", MLH + 0.00) ' puis la 2e
print "------------------------"
print "Ml/h Total.."; using("########.####", Ml / MLH + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[C]
cls
Print "C) Noeud en kilomètre heure" 'j'affiche le choix choisi
Print "noeud = Kt" 'je rentre en mémoire l'équivalence
print "kilomètre heure = Km/h"
Input "Entrer un nombre de Kt "; kmKt ' je met en mémoire le nombre
KT = 1.852
print "Kt.........";using("########.####", kmKt + 0.00)'J'affiche la première partie
print "diviser par"; using("########.####", KT + 0.00) ' puis la 2e
print "------------------------"
print "Km/h Total."; using("########.####", kmKt / KT + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[D]
cls
Print "D) Noeud en mille a l'heure"
Print "noeud = Kt"
Print "mille à l'heure = Ml/H "
Input "Entrer un nombre de Kt "; MlKt ' je met en mémoire le nombre
KT = 1.252 'je rentre en mémoire l'équivalence
print "Kt........"; using("########.####", MlKt + 0.00)'J'affiche la première partie
print "divisé par"; using("########.####", KT + 0.00) ' puis la 2e
print "------------------------"
print "Ml/H Total"; using("########.####", MlKt / KT + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[E]
cls
Print "E) Kilomètre heure en noeud" 'j'affiche le choix choisi
Print "noeud = Kt"
print "kilomètre heure = Km/h"
Input "Entrer un nombre de Km/H "; kmKt ' je met en mémoire le nombre
KT = 1.852 'je rentre en mémoire l'équivalence
print "Km/H........"; using("########.####", kmKt + 0.00)'J'affiche la première partie
print "divisé par.."; using("########.####", KT + 0.00) ' puis la 2e
print "------------------------"
print "Kt Total...."; using("########.####", kmKt / KT + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[F]
cls
Print "F) Mille à l'heure en noeud" 'j'affiche le choix choisi
Print "noeud = Kt"
Print "mille à l'heure = Ml/H "
Input "Entrer un nombre de Ml/H "; MlKt ' je met en mémoire le nombre
KT = 1.252 'je rentre en mémoire l'équivalence
print "Ml/H...."; using("########.####", MlKt + 0.00)'J'affiche la première partie
print "fois...."; using("########.####", KT + 0.00) ' puis la 2e
print "------------------------"
print "Kt Total"; using("########.####", MlKt * KT + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[G]
cls
Print "G) Celcius en Farenheit" 'j'affiche le choix choisi
Print "Farenheit = F"
Print "Celsius = C"
Input "Entrer un nombre de C "; C ' je met en mémoire le nombre
F = C * 1.8 + 32 - C ' je rentre en mémoire la formule
print "C.........";using("########.####", C + 0.00) 'J'affiche la première partie
print "plus......"; using("########.####", F + 0.00)  ' puis la 2e
print "------------------------"
print "F Total..."; using("########.####", F + C + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[H]
cls
Print "H) Farenheit en Celcius" 'j'affiche le choix choisi
Print "Farenheit = F"
Print "Celsius = C"
Input "Entrer un nombre de F "; F ' je met en mémoire le nombre
F2 = (F - 32) / 1.8 'je met en mémoire la formule
let C = F - F2 ' je rentre a mémoire la deuxième partie de la formule
print "F.........";using("########.####", F + 0.00)'J'affiche la première partie
print "moins....."; using("########.####", C + 0.00) ' puis la 2e
print "------------------------"
print "C total..."; using("########.####", F - C + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[I]
cls
Print "I) Livre en kilogramme" 'j'affiche le choix choisi
Print "Livre = lb"
Print "kilogramme = kg"
Input "Entrer un nombre de lb "; lb ' je met en mémoire le nombre
kg = 2.20462 'je rentre en mémoire l'équivalence
print "lb........"; using("########.####", lb + 0.00)'J'affiche la première partie
print "divisé par"; using("########.####", kg + 0.00) ' puis la 2e
print "------------------------"
print "kg Total.."; using("########.####", lb / kg + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[J]
cls
Print "J) Kilogramme en Livre" 'j'affiche le choix choisi
Print "Livre = lb"
Print "kilogramme = kg"
Input "Entrer un nombre de Kg "; kg ' je met en mémoire le nombre
kg2 = 2.20462 'je rentre en mémoire l'équivalence
print "Kg......"; using("########.####", kg + 0.00)'J'affiche la première partie
print "fois...."; using("########.####", kg2 + 0.00) ' puis la 2e
print "------------------------"
print "lb total"; using("########.####", kg * kg2 + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[K]
cls
Print "K) Onces en grammes" 'j'affiche le choix choisi
Print "Once = Oz"
Print "Gramme = Gr"
Input "Entrer un nombre de Oz "; Oz ' je met en mémoire le nombre
Gr2 = 28.34952 'je rentre en mémoire l'équivalence
print "Oz......"; using("########.####", Oz + 0.00)'J'affiche la première partie
print "fois...."; using("########.####", Gr2 + 0.00) ' puis la 2e
print "------------------------"
print "Gr Total"; using("########.####", Oz * Gr2 + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[L]
cls
Print "L) Grammes en onces" 'j'affiche le choix choisi
Print "Once = Oz"
Print "Gramme = Gr"
Input "Entrer un nombre de Gr "; Gr ' je met en mémoire le nombre
Gr2 = 28.34952 'je rentre en mémoire l'équivalence
print "Gr........"; using("########.####", Gr + 0.00)'J'affiche la première partie
print "divisé par"; using("########.####", Gr2 + 0.00) ' puis la 2e
print "------------------------"
print "Oz Total.."; using("########.####", Gr / Gr2 + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[O]
cls
Print "O) Mètre en pied" 'j'affiche le choix choisi
Print "Mètre = M"
Print "Pied = Pi"
Input "Entrer un nombre de M "; M ' je met en mémoire le nombre
Pi = 3.2808398950131234 'je rentre en mémoire l'équivalence
print "M......."; using("########.####", M + 0.00)'J'affiche la première partie
print "fois...."; using("########.####", Pi + 0.00) ' puis la 2e
print "------------------------"
print "Pi Total"; using("########.####", M * Pi + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[P]
cls
Print "P) Pied en mètre" 'j'affiche le choix choisi
Print "Mètre = M"
Print "Pied = Pi"
Input "Entrer un nombre de Pi "; Pi2 ' je met en mémoire le nombre
Pi = 3.2808398950131234 'je rentre en mémoire l'équivalence
print "Pi........"; using("########.####", Pi2 + 0.00)'J'affiche la première partie
print "divisé par"; using("########.####", Pi + 0.00) ' puis la 2e
print "------------------------"
print "M Total..."; using("########.####", Pi2 / Pi + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[Q]
cls
Print "Q) Mètre carré en pied carré"
'1 mètre carré = 10.76 pied carré
print "mètre carré = m²"
print "pied carré = pi²"
print
Input "entré votre nombre de m²"; M2
pi2 = 10.76
PiTot = M2 * pi2
print "M².......";using("########.####", M2 + 0.00)'J'affiche la première partie
print "fois....."; using("########.####", pi2 + 0.00) ' puis la 2e
print "------------------------"
print "Pi² total"; using("########.####", PiTot + 0.00) ' J'effectue ensuite l'opération

[choix]

print
print "aimeriez vous connaître les valeurs qui ont donné le résultat suivant "; PiTot
Input "Oui (Y), non (N). Pour plus d'info appuyer sur enter "; YNH$
if instr("YesyesYESyY", YNH$) then [Y2]
if instr("NONNonnonn", YNH$) then [N2]

[Help]
cls
print
print "Rubrique d'aide pour la question suivante : aimeriez vous connaître les valeurs qui ont donné le résultat"; PiTot
Print "par cette question, j'entend d'avoir X par Y exemple :"
print "valeur fixe = 10. Pi² total = "; PiTot
Va = PiTot / 10
print "10"; " par "; Va
print "voici un autre exemple."
Print "Valeur fixe = 12.5 Pi² total = 130.23"
Va2 = 130.23 / 12.5
print "12.5 par "; Va2
input "appuyer sur enter pour retourner au choix"; rien
cls
goto [choix]
[Y2]
print
Input "Entrer votre valeur connu (valeur fixe) "; VFixe
VAlé = PiTot / VFixe
print "la surface avec "; VFixe; " est:"
print VFixe; " par "; VAlé
[N2]
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[R]
cls
Print "R) Pied carré en mètre carré"
'1 mètre carré = 10.76 pied carré
print "mètre carré = m²"
print "pied carré = pi²"
print
Input "entré votre nombre de pi²"; M2
pi2 = 10.76
MTot = M2 / pi2
print "Pi².......";using("########.####", M2 + 0.00)'J'affiche la première partie
print "divisé par"; using("########.####", pi2 + 0.00) ' puis la 2e
print "------------------------"
print "M² total.."; using("########.####", MTot + 0.00) ' J'effectue ensuite l'opération

[choix2]

print
print "aimeriez vous connaître les valeurs qui ont donné le résultat suivant "; MTot
Input "Oui (Y), non (N). Pour plus d'info appuyer sur enter "; YNH$
if instr("YesyesYESyY", YNH$) then [Y3]
if instr("NONNonnonn", YNH$) then [N3]

[Help2]
cls
print
print "Rubrique d'aide pour la question suivante : aimeriez vous connaître les valeurs qui ont donné le résultat "; MTot
Print "par cette question, j'entend d'avoir X par Y exemple :"
print "valeur fixe = 3. M² total = "; MTot
Va = MTot / 3
print "3"; " par "; Va
print "voici un autre exemple."
Print "Valeur fixe = 4.5 . M² total = 22.8"
Va2 = 22.8 / 4.5
print "4.5 par "; Va2
input "appuyer sur enter pour retourner au choix"; rien
cls
goto [choix]
[Y3]
print
Input "Entrer votre valeur connu (valeur fixe) "; VFixe
let VAle = MTot / VFixe

print "la surface avec "; VFixe; " est:"
print VFixe; " par "; VAle
[N3]
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[S]
cls
print "S) Litre en gallon (us)"
print "Li = Litre"
print "Gu = Gallon (US)"
print
Input "entré votre nombre de li "; Li
Gu2 = 3.79
print "Li........"; using("########.####", Li + 0.00)'J'affiche la première partie
print "divisé par"; using("########.####", Gu2 + 0.00) ' puis la 2e
print "------------------------"
print "Gu total."; using("########.####", Li / Gu2 + 0.00) ' J'effectue ensuite l'opération
print
Input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end
Print "Cet partie du programme peut être utilisé pour calculé la différence"
print "de prix entre l'essences des pompes canadienne et celle des États-Unis"

[T]
cls
print "T) Gallon (us) en Litre"
print "Li = Litre"
print "Gu = Gallon (US)"
print
Input "entré votre nombre de Gu "; Gu
Gu2 = 3.79
print "Li......"; using("########.####", Gu + 0.00)'J'affiche la première partie
print "fois...."; using("########.####", Gu2 + 0.00) ' puis la 2e
print "------------------------"
print "Gu total"; using("########.####", Gu * Gu2 + 0.00) ' J'effectue ensuite l'opération
print
input "voulez-vous recommencé (Y/N) "; restart1$
if instr("YesYESyesYy", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
end

[U]
cls
print "U) différence de prix entre les pompes canadienne et américaines"
print
print "cet partie du programme permet de calculer différence de prix"
print "d'essence entre le canada et les États-Unis."
[Américain]
cls
Input "Prix de l'essence au canada (pour un li) "; PEC
print
Input "prix de l'essence au États-Unis (pour un Gu) "; PEA
print
print "taux de conversion du dollar américain au dollar canadien"
input "(si vous ne connaisez pas cette valeur, mettez 1.20 "; CDADC
cls

PEAC = PEA * CDADC
print "    "; PEAC; "$ d'essences Américain pour un gallon US en dollar canadien"

PECG = PEC * 3.79
print "    vs"
print "    "; PECG; "$ d'essence Canadien pour un gallon US en dollar canadien"
print "---------------------------------------------------------------"

PEACL = PEAC / 3.79
print "    "; PEACL; "$ d'essences Américain pour un litre en dollar canadien"

print "    vs"
Print "    "; PEC; "$ d'essence Canadien pour un litre en dollar canadien"
print "---------------------------------------------------------------"

PECAL = PEA / 3.79
print "    "; PECAL; "$ d'essences Américain pour un litre en dollar américain"

PECA = PEC / CDADC
print "    vs"
print "    "; PECA; "$ d'essence Canadien pour un litre en dollar américain"
print "---------------------------------------------------------------"

print "    "; PEA; "$ d'essence Américain pour un gallon US en dollar américain"

PECAG = PECA * 3.79
print "    vs"
Print "    "; PECAG; "$ d'essence Canadien pour un gallon US en dollar américain"
print "---------------------------------------------------------------"
Tot = PECAG - PEA
TotPour = Tot / PECAG * 100
print "    "; TotPour; "% . Le pourcentage que sauve les américains par rapport au"
print "canadien."
[Choix]
print
input "voulez-vous recommencé (Y/N) "; restart1$
restart1$ = upper$(restart1$)
if instr("YES", restart1$) then [start] 'je demande s'il veulent recommencer et si oui je les renvoi au début
if instr("NO", restart1$) then end
print "vous avez appuyer sur une mauvaise touche."
input "appuyer sur enter pour rechoisir"; r : gosub [Cls] : goto [Choix]
[Cls]
cls
return