script de conversion °C en °F

**castou60** · 04/02/2012, 04h06

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*©

**Pasokoniidesuka** · 05/02/2012, 20h08

Il y a encore les degrés Kelvin qui se basent sur le 0 absolu à environ -272°C (et des poussières) si je me souviens bien et qui n'a donc pas de valeurs négatives... ^^

En français on ne dit pas press mais saisir par exemple... ^^

J'ai peut-être pas tout saisi, mais pour moi les variables Fahrenheit et Celsius devraient être initialisées dans les blocs if.

Pour les affichages au final tu peux tout afficher dans une seule boite de dialogue si ça n'est pas trop long.

exemple

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
Option Explicit
' Exemple d'affichage de message sur plr lignes
' en VBScript par Pasokoniidesuka
' pour réponse sur le forum developpez.net
 
Dim msg
 
msg = "Voici un message sur plusieurs lignes" & vbCrLf
msg = msg & "complété au fur-et-à-mesure du script" & vbCrLf
msg = msg & "Je peux ajouter combien de ligne je veux" & vbCrLf
msg = msg & "et ce quand je le veux."
 
AjoutLigne msg, "Je peux même créer une procédure dans ce but"
AjoutLigne msg, "si j'en ai envie"
AjoutLigne msg, ""
AjoutLigne msg, "A un moment que j'aurais choisi, je peux afficher"
AjoutLigne msg, "l'ensemble du message dans un dialogue."
 
MsgBox msg, vbInformation,"Alors ? C'est pas génial ?"
 
WScript.Quit
 
' On passe variable par référence (mot-clé ByRef) pour modifier celle-ci directement
Sub AjoutLigne (ByRef variable, ligne)
    variable = variable & vbCrLf & ligne
End Sub

C'est une astuce très répandue et bien plus agréable que de devoir cliquer 15 fois pour afficher 15 messages. ^^

**castou60** · 12/02/2012, 03h06

Bonjour,

Voici une petite modification apporter au script, j'ai rajouter dedans en plus des conversion celcius et quelvine maintenant il y a en plus le degrer kelvins, le script a entierment ete retravailler donc voici le nouveau code :

*a ceci maintenant je voudrais y ajouter une image mais je sais pas si c'est possible avec du vbs,

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
 
 
'Créer par ©Leclerc.emmanuel*Castou60*© le 22.09.2011 mis a jour le 11.02.2012
Dim Farenheit,Celcius,Kelvin,Choix,Response,sms,uniter,temp
 
Go()
Function Go()
Choix=null
Choix=inputbox("Conversion de °Celsius en °Farenheit taper   C " &vbCrLf& "" &vbCrLf& "Conversion de °Celsius en °Kelvin taper        CK " &vbCrLf& "" &vbCrLf& "Conversion de °Farenheit en °Celcius taper   F " &vbCrLf& "" &vbCrLf& "Conversion de °Farenheit en °Kelvin taper    Fk" &vbCrLf& "" &vbCrLf& "Conversion de °kelvin en °Celsius taper        KC " &vbCrLf& "" &vbCrLf& "Conversion de °Kelvin en °Farenheït taper   KF"&vbCrLf& "","Convertisseur de degrer by ©Castou60")&Choix : Response=null : Convertir()
'Convertir()
end function
Function Convertir()
 
smsz = "L'APPLICATION DOIT FERMER"&vbCrLf& "" &vbCrLf&"                  Quand on vous demande de RENTRER une information"&vbCrLf&"                  Vous ne le faite pas, alors."&vbCrLf& "                  Au revoir, à bientôt"&vbCrLf& "" &vbCrLf& "Créer par ©Castou60"
 
If Choix="c" Or Choix="C" Then DegCel=true : DegFar=false : uniter=" °C" :  C=InputBox("Veuillez entrer la température en degrés Celcius.","Conversion degrer ") : temp=C end if
if Choix="ck" Or Choix="CK" Then DegFarKel=true : DegCelKel=false : uniter =" °K" : FarK=Inputbox("Veuillez entrer la température en degrés Celcius.","Conversion degrer ") : temp=FarK end if
if Choix="kc" Or Choix="KC" Then DegKelCel=true : DegKelFar=false : uniter=" °C" : KelC=InputBox("Veuillez entrer la température en degrés Kelvin.","Conversion degrer ") : temp=KelC end if
if Choix="kf" Or Choix="KF" Then DegKelFar=true : DegKelCel=false : uniter=" °F" : KelF=InputBox("Veuillez entrer la température en degrés Kelvin.","Conversion degrer ") : temp=KelF end if
If Choix="f" Or Choix="F" Then DegFar=true : DegCel=false : uniter=" °F" : F=InputBox("Veuillez entrer la température en degrés Farenheit.","Conversion degrer ") : temp=F end if
if Choix="fk" Or Choix="FK" Then DegCelKel=true : DegFarKel=false : uniter =" K" : CelK=Inputbox("Veuillez entrer la température en degrés Farenheït.","Conversion degrer ") : temp=CelK end if
if Choix="" then Msgbox smsz, vbExclamation,"Erreur Fermeture du convertisseur de degrer" : Response=MsgBox("Voulez_vous continuer ?",vbQuestion + vbYesNo + vbApplicationModal + 0,"Convertisseur de degré")  ' wscript.quit 0
'--------------Rajout de l'uniter de conversion Kelvin le 11.02.2012----------
KelCel= KelC - 273.15     'Convertie °K en °C
KelFar= KelF * 1.8 -459.67  'Convertie °K en °F
CelKel= CelK + 273.15       'Convertie °C en °K
FarKel= FarK -273.15       'Convertie °F en °K
Farenheit=(F - 32) * 5 / 9
Celcius=(C + 32) / 5 * 9
 
smsa = (vbCrLF &"Uniter de conversion Choisi      = "&uniter) &vbCrLf  'Uniter
smsb = sms & vbCrLF &"------------------------------------------------------------------" &vbCrLf    'Retour a la ligne
smsc = sms & vbCrLF &"Temperature choisi                   = "&temp &uniter &vbCrLf    'Temperature
smsd = sms & vbCrLF &"Conversion en °C                     = "&Celcius &" °C" &vbCrLf
smse = sms & vbCrLF &"Conversion en °F                      = "&Farenheit &" °F" &vbCrLf
smsf = sms & vbCrLF &"Conversion de °K en °C            = "&KelCel &uniter &vbCrLf
smsg = sms & vbCrLF &"Conversion de °K en °F            = "&KelFar &uniter &vbCrLf
smsi = sms & vbCrLF &"Conversion de °C en °K            = "&CelKel &uniter &vbCrLf
smsj = sms & vbCrLF &"Conversion de °F en °K            = "&FarKel &uniter &vbCrLf
smsh = sms & vbCrLf & vbCrLf &"Créer par ©Castou60"
sms1 = (smsb + smsa + smsb + smsc + smsb + smse + smsb + smsh)
sms2 = (smsb + smsa + smsb + smsc + smsb + smsd + smsb + smsh)
sms3 = (smsb + smsa + smsb + smsc + smsb + smsf + smsb + smsh)
sms4 = (smsb + smsa + smsb + smsc + smsb + smsg + smsb + smsh)
sms5 = (smsb + smsa + smsb + smsc + smsb + smsj + smsb + smsh)
sms6 = (smsb + smsa + smsb + smsc + smsb + smsi + smsb + smsh)
if DegCel=true then MsgBox sms1, vbInformation,"Résultat de conversion de °C en °F"
if DegFar=true then MsgBox sms2, vbInformation,"Résultat de conversion de °F en °C"
if DegKelCel=true then MsgBox sms3, vbInformation,"Résultat de conversion de °K en °C"
if DegKelFar=true then MsgBox sms4, vbInformation,"Résultat de conversion de °K en °F"
if DegCelKel=true then Msgbox sms5, vbInformation,"Résultat de conversion de °F en °K"
if DegFarKel=true Then Msgbox sms6, vbInformation,"Résultat de conversion de °C en°K"
rego()
end function
 
Function Sortir()
Wscript.Quit 0
'Créer par ©Leclerc.emmanuel*Castou60*© le 22.09.2011 mis a jour le 11.02.2012
End Function
 
function rego()
smsa=null : smsb=null :smsc=null : smsd=null : smse=null : smsf=null : smsg=null : smsh=null : smsi=null : smsj=null
sms1=null : sms2=null : sms3=null : sms4=null : sms5=null : sms6=null
If Response = VbYes Then Go()
If Response = VbNo Then Sortir()
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*© le 22.09.2011 mis a jour le 11/02/2012

**ProgElecT** · 12/02/2012, 15h23

Salut

maintenant je voudrais y ajouter une image mais je sais pas si c'est possible avec du vbs

En VBS pas vraiment, mais tu peux faire du HTA en incluant ton code VBS.
Un tuto qui te seras utile Donner une interface à vos script VBS , HTA : Html Application merci à bbil
Le code HTA pourrait ressembler à ceci

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
<HTML>
	<HEAD lang="fr">
		<title> Conversion de °Celsius en °Farenheit et/ou °Kelvin </title>
		<HTA:APPLICATION
         ApplicationName = "Temperature"
         Id="Temperature"
		>
   </HEAD>
	<SCRIPT language="VBScript" type="text/VBScript" >
	Sub BtConvert_OnClick
		MsgBox "mettre ton code VBScript ici"
	End Sub
	</SCRIPT>
	<Body>
		<!-- mettre le fichier image dans le dossier ou est sauvegardé le fichier HTA -->
		<img Name="UneImage" id="UneImage" Src="Thermo.jpg">
		<BR> <!-- retour chariot et saut de ligne --> 
		Convertir
		<SELECT name="DeEn" title="Convertion de"> 
			<OPTION VALUE="de °Celsius" SELECTED>de °Celsius
			<OPTION VALUE="de °Farenheit">de °Farenheit
			<OPTION VALUE="de °Kelvin">de °Kelvin
		</SELECT>
		<SELECT name="En" title="Convertion en">
			<OPTION VALUE="en °Celsius">en °Celsius
			<OPTION VALUE="en °Farenheit" SELECTED>en °Farenheit
			<OPTION VALUE="en °Kelvin">en °Kelvin
		</SELECT>
		Votre entrée
		<INPUT type=text name="txEnter" id="txEnter" style="background-color: #DDFFA8"> </INPUT>
		<INPUT Type="button" name="BtConvert" id="BtConvert" value="Go"> </INPUT>
	</Body>
</HTML>

Je suis moi même débutant dans l'utilisation des HTAs.

**castou60** · 13/02/2012, 02h05

Bonjour,

merci pour ton info car je connaissait pas ce moyen, je vais donc essayer cette méthode et si sa me convient alors je reposte a nouveau le code, merci encore.

**castou60** · 17/02/2012, 03h26

bonsoir,

Merci pour l'idée du HTA mais j'y pige rien alors j'ai décider de le refaire avec visual basic 2010 express et la oui j'ai réussi ce que je voulais en trois fois rien de temp, par contre maintenant je sais pas comment publier l'application, donc si quelqu'un pouvait m'aider sa serrait sympa,

A+ salut.