Le programme d'origine est de Romi36 (
http://www.vbfrance.com/codes/PETITE-CALCULETTE-SOUS-VBSCRIPT_44409.aspx). J'ai amélioré la programmation (répétitions, écriture, simplification,...), que Ghuysmans99 a recorrigé, et ajouté deux autres calculs : Division et Racine carré. Toutes les sources sont dans le zip.
Source / Exemple :
'Version de Ghuysmans99
Option Explicit
Dim Title, Choice, vbCrlf, Ops
Dim N1, N2, Result
Title = "Calculatrice"
vbCrlf = Chr(13)
Ops = Split("l'addition,la soustraction,la multiplication,la division,la racine carrée,",",")
Do
Choice = -1
Do
Choice = Inputbox("Veuillez choisir l'opération que vous désirez effectuer :" & vbCrlf & vbCrlf & "1) Addition" & vbCrlf & "2) Soustraction" & vbCrlf & "3) Multiplication" & vbCrlf & "4) Division" & vbCrlf & "5) Racine carrée" & vbCrlf & "0) Quitter", Title)
Loop While Choice<0 Or Choice>5
If Choice <> 0 Then
n1 = CCur(InputBox("Entrez le premier nombre :", Title)) : n2 = n1
If Choice <> 5 Then n2 = CCur(InputBox("Entrez le deuxième nombre : ", Title))
On Error Resume Next
Select Case Choice
Case 1 : Result = n1+n2
Case 2 : Result = n1-n2
Case 3 : Result = n1*n2
Case 4 : Result = n1/n2
Case 5 : Result = n2^0.5
End Select
On Error Goto 0
If (Choice > 3) And (N2 <= 0) Then Result = "[erreur]" Else MsgBox "Le résultat de " & Ops(Choice-1) & " est " & Result, vbInformation, "Résultat"
ElseIf MsgBox("Souhaitez vous quitter l'application ?", vbYesNo, Title) = vbYes Then
WScript.quit
End If
Loop
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.