Calculatrice pour les debutant (pour les gens qui vienne juste de decouvrir le vbs)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 968 fois - Téléchargée 30 fois

Contenu du snippet

voila j'avai envi de faire un truc super simple et de bienj l'expliquer je connais le vbs depuis seulement 4 jour alor bon vous m'escuserai pour se qui trouve sa tros nul mais je toruve sa pas si mal pour debuter dans la programmation je pence qu'on fur est a mesure que j'aprendrai je la metrai a jour pour quelle devienne plus puissance et surtout plus interressente

Source / Exemple :


b = msgbox("si tu veux aller sur la multiplication appuis sur oui sinon pour la division apui sur non", vbYesNo, "calculette")
    'demande de cliquer sur oui ou sur non pour etre diriger sur l'operation a effecteur
    ' b est la variable ou sera enregistrer la reponse

If b =vbYes then
'interogation de la variable si la variable a pour reponce yes la suite est executer
Nombre1 = InputBox ("Quel est le premier nombre à multiplier?","Calculatrice")
'nombre1 et un variable qui enregistre le premier chifre taper
nombre2 = InputBox ("quel est le deuxieme nombre a multiplier?","calculatrice")
 'idem que pour nombre1 sauf que la c nombre 2
Resultat = Nombre1 * Nombre2
 'cree la variable de la multiplication des deux
MsgBox Nombre1&" * "&nombre2&"="&resultat,VbExclamation,"Calculatrice"
  'affiche dans une msgbox le resultat
End If
    'arrete le code ici

If B =vbNo Then
  'interroge la variable b si elle egale a NO la suite va etre executer
Nombre1 = InputBox ("Quel est le premier nombre à diviser?","Calculatrice")
   'cree la variable nombre1 avec le chiffre taper
Nombre2 = InputBox ("Quel est le second nombre à diviser?","Calculatrice")
If Nombre2 = 0 Then
MsgBox "on ne divise pas par zero"
End If
Resultat = Nombre1 / Nombre2
       'creation de la division des deux variable dans une autre variable
MsgBox Nombre1&" / "&nombre2&"="&resultat,VbExclamation,"Calculatrice"
    'affiche le resulta
End If
 'quitte le code

Conclusion :


explication du code : pour mieu le comprendre on cree une variable o debut B c'est ell qui va enregistrer la reponse de la personne qui aura cliquer sur oui ou sur non et a partir de la le script va aller sur la partit selectionner si oui il va aller sur la partit multiplication si non sur la partit soustraction.
par contre j'ai un pti probleme pour l'adition quan j'aplique c code a ladition quan je mais 23 + 23 il me di que sa fais 2323 alor bon lol si quelqun pouvait m'expliquer

A voir également

Ajouter un commentaire

Commentaires

Messages postés
2
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2005

merci baucoup !! sa marche
Messages postés
291
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
13 mars 2015

Ligne 23 tu écris
resultatc cDbl (a) + cDbl (b)
comme c = 0, "c" est différent de " cDbl (a) + cDbl (b)"
donc resultat = faux

au lieu de
resultat= cDbl (a) + cDbl (b)
Messages postés
2
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
7 mars 2005

voila ma calculatrice resemble a sa (je comence (4 jours) )

b = msgBox("multiplier=oui; diviser=non; aditionner ou soustraire=anuler ",3+vbQuestion,"calculatrice exterminateur")
if b=vbYes then
Nombre1 = InputBox ("Quel est le premier nombre à multiplier?","Calculatrice exterminateur")
nombre2 = InputBox ("quel est le deuxieme nombre a multiplier?","calculatrice exterminateur")
resultat= nombre1*nombre2
MsgBox Nombre1&" * "&nombre2&"="&resultat,vbExclamation,"Calculatrice exterminateur"
end if

If b=vbNo then
nombre1 = Inputbox ("quel est le premier nombre à diviser?","Calculatrice exterminateur")
nombre2 = inputbox ("quel est le deuxieme nombre à diviser?","Calculatrice exterminateur")
resultat= nombre1/nombre2
Msgbox nombre1&" / "&nombre2&"="&resultat,vbexclamation,"Calculatrice exterminateur"
end if

if b=vbcancel then
c = msgbox("oui=aditioner non=soustraire",4+vbquestion,"calculatrice exterminateur")
if c=vbyes then
a =cDbl(inputbox("quel est le premier nombre à aditionner?","calculatrice exterminateur"))
b =cDbl(inputbox ("quel est le deuxieme nombre à aditionner?","calculatrice exterminateur"))
resultatc cDbl (a) + cDbl (b)
Msgbox a&" + "&b&"="&resultat,vbexclamation,"calculatrice exterminateur"
end if

if c=vbNo then
nombre1 = Inputbox ("quel est le premier nombre à soustraire","calculatrice exterminateur")
nombre2 = Inputbox ("quel est le deuxieme nombre à soustraire","calculatrice exterminateur")
resultat= nombre1-nombre2
Msgbox nombre1&" - "&nombre2&"="&resultat,vbexclamation,"calculatrice exterminateur"
end if
end if

le probléme est toujour au niveau de l'adition je ne comprend pas !! plz help me
sinon le code est tré bien pour aprendre ( surtout les variables)
Messages postés
1
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 janvier 2004

g pense personnellemen ke c un bon code pour apprendre!
(grace a lui g appri de nouvelles commandes) :-D
Messages postés
291
Date d'inscription
vendredi 21 février 2003
Statut
Membre
Dernière intervention
13 mars 2015

Pour 23+23=2323 c'est normal.
Input box renvoi une chaine de caractere normalement, mais VBS ne gere que les variants. Donc quand on multiplie, VBS comprend que ce sont des numeriques, mais comme on peut additioner 2 chaines de caracteres: "to" + "godo" = "togodo", quand on fait
a =inputbox("nombre") 'et qu'on saisi 23
b =inputbox("nombre") 'et qu'on saisi 23
et que l'on fait c a + b, VBS comprend c "23" + "23" = "2323".
Il faudrait ecrire:
a = cDbl(inputbox("nombre")) 'on saisi 23
b =cDbl(inputbox("nombre")) 'on saisi 23
c = a + b
la fonction cDbl() va forcer le transtypage du resultat de inputBox() en double, donc en numerique et du coup 23+23=46.
On aurait pu aussi ecrire:
a = inputbox("nombre") 'on saisi 23
b = inputbox("nombre") 'on saisi 23
c = cDbl (a) + cDbl (b)
Du reste il serait mieux de le faire aussi pour les autres cas (multiplcation division et soustraction)
J'espere que j'ai ete clair !!!
Sinon pas trop mal pour une premiere, mais tu as quand meme encore du chemin a parcourir, bon courage !!
JJDai
Afficher les 9 commentaires

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.