begin process at 2012 02 12 00:05:47
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

VBScript

 > PETITE CALCULETTE SOUS VBSCRIPT

PETITE CALCULETTE SOUS VBSCRIPT


 Information sur la source

Note :
Aucune note
Catégorie :VBScript Classé sous :Vbscript, petite calculette, Sous imputbox Niveau :Débutant Date de création :16/10/2007 Vu / téléchargé :5 292 / 235

Auteur : romi36

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo
Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip Source avec une capture [VBS] GOOGLE EASTER EGGS par hackoo
Source avec Zip Source avec une capture FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo
Source avec Zip Source avec une capture [VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [VBS] SPLASH SCREEN EN VBSCRIPT par hackoo
Source avec Zip [VBS] MODIFICATION D'UN FICHIER INI par VBsearch
Source avec Zip Source avec une capture CALCULATRICE VBSCRIPT par nathansecret
Source avec Zip SAUVEGARDE DES DONNÉES D'UN RÉSEAU EN VBSCRIPT par vsgn
Source avec Zip Source avec une capture INTERFACE WEB DYNAMIQUE PERMETTANT LA SELECTION DE DONNÉES D... par vsgn

Commentaires et avis

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

Commentaire de romi36 le 16/10/2007 21:31:41

Ok merci de tes conseils !

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é

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

Commentaire de romi36 le 17/10/2007 12:39:17

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

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

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

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 !

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

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,452 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales