Comment convertir la température Celsius à Fahrenheit

Version imprimable

18/07/2014, 22h58
arara

Comment convertir la température Celsius à Fahrenheit

bonjour
pouvez vous m aider s.v.p

1. Écrire un programme pour convertir la température Celsius à Fahrenheit
C x 9/5 +32=F
(F-32)x5/9=C
1) le message doit proposer saisir des options:
Convertir C à F
Convertir F à C
(utiliser SelectCase)
2) Après le choix, proposez à l'utilisateur entrer le numéro.
3) Vérifier le numéro saisi (si c'est ne pas vide, si c'est le numéro).
4) Utilisez la fonction pour calculer et la procédure.
5) Après l'affichage le résultat, afficher le message et demander à l'utilisateur 'Voulez-vous faire autre calcule?' et répéter le processus jusqu'à l'utilisateur appuyer le bouton No

comment je px faire pour avoir le code vbs
merci
19/07/2014, 04h51
hackoofr

:salut:
Inspirez-vous de script de conversion °C en °F

Une solution à une seule fonction de conversion avec 2 paramètres :
Le premier c'est la température à convertir
Le second c'est la température vers laquelle se fait la conversion(en tapant C ou F)
Les 2 paramètres doivent être séparés par un point-virgule(; ) sans espace avant ou après :

Code:

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
Option Explicit
 
Dim F, C, Reponse, Result, arrTemp
 
Do
    Reponse = InputBox("Donner la valeur de la température source puis" & _
                   VbCrLf & "la température destination(C ou F) séparées par ;", "Conversion de température","60;F")
    If Reponse = "" Then WScript.Quit 0
    arrTemp = Split(Reponse,";")
    Result = Convertir(arrTemp(0),arrTemp(1))
    MsgBox Result
Loop Until Reponse = ""
 
Private Function Convertir(ByVal valeur, vers)
 
  If Valeur = "" Then Exit Function
  Select Case UCase(vers)
     Case "C"
         Convertir = FormatNumber((Valeur-32)*5/9,2) & " °C"
     Case "F"
         Convertir = FormatNumber(Valeur*9/5 +32,2) & " °F"
     Case Else 
         MsgBox "Données entrées non valides"     
  End Select
End Function