bonjour,

Et voici encore un petit script vbs qui se charge de convertir des degrés Celcius en Farenheit,par contre je ne sais pas si il y a d'autre unitée de conversion possible autre que °C et °F donc je poste le script et si vous avez des idée n'ésiter pas sa ferra toujours plaisir.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Dim Farenheit,Celcius,Choix,Response
wscript.echo("Conversion de °Celsius en °Farenheit taper C ou Conversion de °Farenheit en °Celcius taper F")
Go() ' Lancement script
 
Function Go()
Choix=null
'Créer par ©*Castou60*© le 22.09.2011
Choix=InputBox("Veuiller appuyer sur la touche C ou F ","Conversion degrer Cs/Fh ou Fh/Cs")&Choix : Response=null : Convertir()
End Function
 
Function Convertir()
If Choix="c" Or Choix="C" Then DegCel=true : DegFar=false : C=InputBox("Veuillez entrer la température en degrés Celcius.","Conversion degrer Cs/Fh ou Fh/Cs")End If
If Choix="f" Or Choix="F" Then DegFar=true : DegCel=false : F=InputBox("Veuillez entrer la température en degrés Farenheit.","Conversion degrer Cs/Fh ou Fh/Cs") End If
Farenheit=(F - 32) * 5 / 9
Celcius=(C + 32) / 5 * 9
'Créer par ©Leclerc.emmanuel*Castou60*© le 22.09.2011
If DegFar=true Then Wscript.Echo("La temperature initiale choisie est ")&F,("°F") '&Farenheit
If DegFar=true Then Wscript.Echo("La temperature convertie de ")&F,("°F en °C est de ")&Farenheit,("°C")
If DegCel=true Then Wscript.Echo("La temperature initiale choisie est ")&C,("°C") '&Celcius
If DegCel=true Then Wscript.Echo("La temperature convertie de ")&C,("°C en °F est  de ")&Celcius,("°F")
End Function
 
Function Sortir()
Wscript.Quit 0
'Créer par ©*Castou60*© le 22.09.2011
End Function
 
Function rego()
If Response = VbYes Then Go()
If Response = VbNo Then Sortir()
'Créer par ©*Castou60*©
End Function
 
Do Until Response = VbNo
Response=MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"Convertisseur de degré")
'Wscript.Echo("la variable Choix vaut ")&Choix,(" La variable DegFar vaut ")&DegFar, (" La variable DegCel vaut ")&DegCel,("la variable C vaut ")&C,(" La variable F vaut ")&F   '[test]
rego()
Loop
'Créer par ©*Castou60*©