Discussion :

[arara]

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

[hackoofr]

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

[l_autodidacte]

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 :

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