PETITE CALCULETTE SOUS VBSCRIPT
cs_windob
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008
-
16 oct. 2007 à 20:55
mitsh666 Messages postés 46 Date d'inscription dimanche 10 octobre 2004 Statut Membre Dernière intervention 13 juin 2008 - 24 oct. 2007 à 15:57
mitsh666 Messages postés 46 Date d'inscription dimanche 10 octobre 2004 Statut Membre Dernière intervention 13 juin 2008 - 24 oct. 2007 à 15:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/44409-petite-calculette-sous-vbscript
https://codes-sources.commentcamarche.net/source/44409-petite-calculette-sous-vbscript
24 oct. 2007 à 15:57
tu peux encore ajouter un petit truc sympa : détecter que la personne à cliquer sur annulé. Ce qui peut te permettre de quitter ta boucle en réalisant un EXIT DO lorsque la personne clique sur cancel.
TheValue= inputBox("mon texte : je vais devinez sur quel boutons vous appuyez","Titre fenêtre : illusion ou réalité?")
' To know the button of the inputBox pressed : Searh if there isEmpty
If isEmpty(strDateStart) Then ' Cancel button pressed
msgbox "vous avez appuyer sur Cancel"
Else ' OK button pressed
msgbox "vous avez appuyer sur OK"
End If
19 oct. 2007 à 17:19
18 oct. 2007 à 13:24
Pour de simples calculs, autant utiliser la fonction Eval.
var1 = 100
var2 = 2
var3 = "150*2"
var4 = "200/3"
op1 = "+"
op2 = "-"
op3 = "/"
op4 = "*"
MsgBox Eval(var1 & op1 & var2) &vbCrLf& _
Eval(var1 & op2 & var2) &vbCrLf& _
Eval(var1 & op3 & var2) &vbCrLf& _
Eval(var1 & op4 & var2) &vbCrLf& _
Eval(var3) &vbCrLf& Round(Eval(var4),2)
jean-marc
17 oct. 2007 à 23:03
En complément de la réponse de Drassef14, tu peux aussi mettre à la place de >> & chr(13) &, cela : & Vbcrlf & (si valable en Vbscript...A mon sens cela fait mieux(avis perso..lol...)
A+
Exploreur
17 oct. 2007 à 12:39
17 oct. 2007 à 11:12
Bon exemple de petit prog pour débuter mais pour le rendre un peu plus lisible, tu peux insérer " & chr(13) & " dans les lignes type Inputbox, Msgbox, ...
Exemple:
choix=inputbox("Merci de choisir le type de calcule que vous desirez :" & chr(13) & " 1) Addition" & chr(13) & " 2) soustraction" & chr(13) & " 3) multiplication" & chr(13) & " 4) Quitter","Bonjour :")
qui donnera le résultat suivant
----------------------------------------------------------
Merci de choisir le type de calcule que vous desirez :
1) Addition
2) soustraction
3) multiplication
4) Quitter"
----------------------------------------------------------
16 oct. 2007 à 22:09
16 oct. 2007 à 21:31
16 oct. 2007 à 20:55
-Il est conseillé (bien que pas obligatoire) de déclarer les variables avec un type données :
Dans ton cas, tu devrais faire : Dim n1 as currency, n2 as currency, ... Au lieu de laisser le type par défaut (Variant) et de convertir la variable en currency (avec CCur).
- Ensuite, pour réduire le nombre de ligne du code, tu pourrtais demander une fois pour toutes d'entrer 2 nombres puis ensuite selectionner l'opération a éffectuer avec tes conditions (if, ...)
- Sinon, pour la lisibilité du code, il faut prendre l'habitude d'indenter (cad décaler d'une tab certaines lignes inférieures da&ns la hierarchie du programme. Ex :
If condition Then
action1
action2
End If
est plus lisible que
If condition Then
action1
action2
End If