Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

PETITE CALCULETTE SOUS VBSCRIPT


Information sur la source

Description

Salut,
Je vous propose de telecharger une calculette fait de mes propres mains garantie aucun virus !!
Je debute juste alors soyez gentils !
Mais n'ésiste pas a faire des remarques constructives !!

Voilà !!

 

Source

  • dim n1,n2,fin,tour,result,choix,n5
  • fin=false
  • tour=0
  • do while not fin
  • if tour=0 then
  • Msgbox"Bonjour et d'abord bienvenue !",vbinformation,"Bonjour"
  • end if
  • if tour=>1 then
  • msgbox"Rebonjour !!! ",,"Rebonjour"
  • end if
  • choix=inputbox("Merci de choisir le type de calcule que vous desirez : 1) Addition 2) soustraction 3) multiplication 4) Quitter","Bonjour :")
  • '{
  • if choix=1 then
  • n1=inputbox("Entrez le premier nombre :","Premier nombre")
  • n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  • n1=ccur(n1)
  • n2=ccur(n2)
  • result=n1+n2
  • Msgbox"Le resultat de l'addtion est : "&result
  • tour=tour+1
  • end if
  • '}
  • '{
  • if choix=2 then
  • n1=inputbox("Entrez le premier nombre :","Premier nombre")
  • n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  • n1=ccur(n1)
  • n2=ccur(n2)
  • result=n1-n2
  • Msgbox"Le resultat de la soustraction est : "&result
  • tour=tour+1
  • end if
  • '}
  • '{
  • if choix=3 then
  • n1=inputbox("Entrez le premier nombre :","Premier nombre")
  • n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  • n1=ccur(n1)
  • n2=ccur(n2)
  • result=n1*n2
  • msgbox"Le resultat de la multiplication est : "&result
  • tour=tour+1
  • end if
  • '}
  • '{
  • if choix=4 then
  • choixmsg=msgbox("Souhaitez vous quittez l'application ??",VByesnocancel,"Souhaitez vous partir ??")
  • end if
  • if choixmsg=vbyes then
  • wscript.quit
  • end if
  • '}
  • loop
dim n1,n2,fin,tour,result,choix,n5
fin=false
tour=0
do while not fin
if tour=0 then
Msgbox"Bonjour et d'abord bienvenue !",vbinformation,"Bonjour"
end if
if tour=>1 then
msgbox"Rebonjour !!! ",,"Rebonjour"
end if
choix=inputbox("Merci de choisir le type de calcule que vous desirez :   1) Addition     2) soustraction        3) multiplication     4) Quitter","Bonjour :")

'{
  if choix=1 then 
  n1=inputbox("Entrez le premier nombre :","Premier nombre")
  n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  n1=ccur(n1)
  n2=ccur(n2)
  result=n1+n2
  Msgbox"Le resultat de l'addtion est : "&result
  tour=tour+1
  end if

'}

'{ 
  if choix=2 then 
  n1=inputbox("Entrez le premier nombre :","Premier nombre")
  n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  n1=ccur(n1)
  n2=ccur(n2)
  result=n1-n2
  Msgbox"Le resultat de la soustraction est : "&result
  tour=tour+1
  end if
'}
  
'{
  if choix=3 then 
  n1=inputbox("Entrez le premier nombre :","Premier nombre")
  n2=inputbox("Merci d'entrez le deuxieme nombre : "," Deuxieme nombre")
  n1=ccur(n1)
  n2=ccur(n2)
  result=n1*n2
  msgbox"Le resultat de la multiplication est : "&result
  tour=tour+1
  end if
'}

'{
 if choix=4 then
  choixmsg=msgbox("Souhaitez vous quittez l'application ??",VByesnocancel,"Souhaitez vous partir ??")                                             
  end if
  if choixmsg=vbyes then
  wscript.quit
  end if

'}

loop

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de windob le 16/10/2007 20:55:36

C'est un bon exercie de débutant pour aquerir les bases par contre, j'ai quelque remarques :

-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

signaler à un administrateur
Commentaire de romi36 le 16/10/2007 21:31:41

Ok merci de tes conseils !

signaler à un administrateur
Commentaire de Kristof_Koder le 16/10/2007 22:09:52

En VBScript, il n'existe pas de typage des variables. donc, même si le conseil de Windob est excellent, il ne s'applique pas au langage de programmation que tu as employé

signaler à un administrateur
Commentaire de drassef14 le 17/10/2007 11:12:22

Bonjour,

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

signaler à un administrateur
Commentaire de romi36 le 17/10/2007 12:39:17

Merci Je ne savez pas comment faire pour sauter des lignes .

signaler à un administrateur
Commentaire de Exploreur le 17/10/2007 23:03:22

Salut,

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

signaler à un administrateur
Commentaire de JMO le 18/10/2007 13:24:54

Bonjour,

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

signaler à un administrateur
Commentaire de windob le 19/10/2007 17:19:37

Autant pour moi, je n'avais pas remarqué que c'était du VBScript et non du VB6 !

signaler à un administrateur
Commentaire de mitsh666 le 24/10/2007 15:57:04

Salut,

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

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Récupérer un selection dans un textarea en VBScript [ par Dje ] Je cherche à savoir comment récupérer une sélection d'une partie d'un texte dans une balise TEXTAREA.En VBScript ou ASP ou autre ...Merci de l'aide. vbScript ou plutot .vbs [ par seb ] Est il possible de rechercher un fichier dans un répertoire d'un part, et d'autre part d'executer un .batobjectif crée un script qui execute des app a VBscript - Détection E-mail [ par CyberJS ] Bonjour,J'ai fait un formulaire sur mon site et j'aimerais que dans le champs "email" il y ait l'adresse email du client Est-possible ?? Si oui, merci A L'AIDEEE!!! CONVERSION VBScript >>> VB ( ~~c vital sioux plééé ~~) [ par pekinio ] Voila, hello a tlm.bon, en fait, c'est a propos du code "generateur de mots"(dans la categorie VB.NET!!!?), sur ce site.je trouve ce code interressant publication d'image en VBscript : J'ai vraiment besoin d'aide. Merci [ par cara ] Bonjour à tous, Je viens vous embêter pour la première fois et peut-être pas la dernière ;-).Je suis sur Sql server 7 et ultradev et j'utilise le lang Pb avec un formulaire en VBscript (menu deroulant) [ par warrax ] Bonjour,Je commence la programmation en asp et vbscript et je n'arrive pas a reccuperer la valeur de ma selection d'un menu deroulant dans une fonctio comment lancer des sessions telnet avec vbscript [ par tof ] j ai besoin de lancer des sessions telnet a partir d un code vbscript le tout ss console imprimer une page [ par mimi ] je voudrais imprimer une page ,je travaille en asp et en vbscript,quels sont les commandes que je dois utiliser en vbscript?si quelqu'un a une idée a VBscript [ par guillaume massart ] bonjourje dois recuperer une image dans une base sqll'image est stoke en binaire dans un champ "image "de sql server 7je dois recuperer cette image pa Vbscript [ par Le NeWbIe ] Je voudrais afficher l'IP du visiteur sur ma page web, y aurait t'il un code en VBScript ou Java?Merci A+


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,562 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.