calculatrice VBARésolu

Question

voila, je dois r&#233;alis&#233;e une calculatrice sous vba est je gal&#232;re. j'ai reussi &#224; faire afficher les chiffres mais pour les op&#233;rateurs j'ai quelques soucis. En effet, si je veux faire 7+3 par exemple je clique sur 7 et lke 7 s'affiche dans ma textbox puis je clique sur + le plus s'affiche seul dans la textbox MAIS quand je clique sur  3 le "+" ne pars pas??????

programme pour op&#233;rateurs:
Private Sub plus_Click()
Dim nombre_saisi As String
nombre_saisi = "+"
TextBox1.Value = nombre_saisi
End Sub

programme pour nombres:

Private Sub sept_Click()
Dim nombre_saisi As String
nombre_saisi = TextBox1.Value
TextBox1.Value = nombre_saisi & 7
End Sub

merci de votre aide j'en ai vraiment besoin!!

ScSami · Accepted Answer

Ben c'est normal, tu concat&#232;ne des chaines de caract&#232;res !!!

Note : &#233;vite de mettre des "_" dans les noms de tes variables et autres proc&#233;dures!!! Tout comme il faut &#233;viter les caract&#232;res sp&#233;ciaux tel les accents. Contente-toi juste des lettres majuscules/minuscules et des chiffres. 

Mais repronons ton code si tu le veux bien :

Private Sub btnPlus_Click()  'Pense donc &#224; renomer tes boutons
 Dim varNombreSaisi As String
 varNombreSaisi = "+"
 TextBox1.Value = varNombreSaisi  'Ici on efface l'ancien contenu de la TextBox pour le remplacer par "+". Or, &#224; ce moment pr&#233;cis, il y a d&#233;j&#224; quelque chose dedans !!!
End Sub

Private Sub btnSept_Click()
 Dim varNombreSaisi As String
 varNombreSaisi = TextBox1.Value  'Attention, ici tu r&#233;cup&#232;res ce qu'il y a dans ta TextBox !!!
 TextBox1.Value = varNombreSaisi & 7  'Et l&#224;, tu concat&#232;nes un carct&#232;re "7" avec l'ancien contenu. Normal donc que ton "+" reste!!!
End Sub

Comprends-tu ?    1er temps :  Bouton 7 ; TextBox "" & "7"> "7"

2 &#232;me temps :  Bouton + ; TextBox = "+"
3 &#232;me temps :  Bouton 7 ; TextBox "+" & "7"> "+7"

Tout le probl&#232;me est de savoir ce que tu veux &#224; l'arriv&#233;e !!! Mais a mon avis, comme &#231;a, t'es mal partie !!!

En plus, l&#224; tu n'obtiendra que des caract&#232;res et non des chiffres!!!

Il faut raisonner en &#233;tapes utilisateur dans le cas des calculatrices (note quand m&#234;me que ce type de sources est r&#233;current sur VBFrance et que si tu te donnes la peinne de chercher un peu tu devrais trouver ton bonheur! Et ce, quitte &#224; utiliser Google avec le mot-clef "vbfrance" !!!

1 &#232;re &#233;tape :  L'utilisateur rentre des chiffres dans le TextBox, soit via les boutons, soit directement dedans via le clavier.
2 &#232;me &#233;tape : L'utilisateur choisit une op&#233;ration. On doit donc conserver l'acienne valeur et r&#233;initialiser l'affichage pour qu'il entre la seconde valeur. Sauf dans le cas de l'op&#233;ration "=".
3 &#232;me &#233;tape : idem que la premi&#232;re
4 &#232;me &#233;tape : L&#224;, soit l'utilisateur entre l'op&#233;ration "=", soit il entre une nouvelle op&#233;ration (en plus donc). Dans les deux cas, il faut ex&#233;cuter le calcul demand&#233;.

D&#233;j&#224;, pour la saisie directe dans le TextBox il faut utiliser la proc&#233;dure &#233;v&#233;nementielle _KeyUp et/ou _KeyPress afin de d&#233;terminer si l'utilisateur &#224; bien saisi un caract&#232;re valide (0123456789+-*/=) et sinon, annuler la frappe. Sinon, tu peux toujours bloquer ton TextBox &#224; la saisie! C'est plus simple pour les d&#233;butants.

Pour la saisie via les boutons 0 &#224; 9, il n'y a pas de myst&#232;res en effet : la concat&#233;nation de caract&#232;res !

Private Sub btnSept_Click()
 TextBox1.Value = TextBox1.Value & "7"
End Sub

Private Sub btnSix_Click()

 TextBox1.Value = TextBox1.Value & "6"

End Sub

...



Donc, tout l'astuce de la calculatrice r&#233;side dans la gestion du r&#233;sultat qu'il faut pr&#233;voir im&#233;diatement d&#232;s le d&#233;but!

En effet, il faut, d&#232;s la premi&#232;re &#233;tape, avoir une variable "r&#233;sultat" mise &#224; 0.
Tu dois d&#233;clarer cette variable comme globale afin de pouvoir l'utiliser dans toutes tes proc&#233;dures &#233;v&#233;nementielles (btnX_Click, ...). Pour se faire, il te suffit de la d&#233;clarer tout en haut de ton code ou alors, dans un "module de code" &#224; ajouter &#224; tes "modules de feuille" (click droit dans la liste, ajouter, ...).

Tout le reste se jouera dans les proc&#233;dures des op&#233;rations :

'A mettre tout en haut donc
Public varResultat As Double  'Double par pure s&#233;curit&#233;! Sinon, tu ne mets pas "As Double" comme &#231;a le type de ta variable sera "Variant"!
 

Private Sub btnPlus_Click()
 varResultat = varResultat + Val(TextBox1.Value)
 TextBox1.Value = "0"
End Sub

Note que la fonction Val te permet de convertir automatiquement une chaine de caract&#232;re en nombre. Si la chaine n'est pas valide, elle renverra 0 je crois. Note que ici on a "+" car c'est le bouton "btnPlus" !!! Il suffit donc de changer le signe... tu auras compris!
Donc, ici, on ajoute au r&#233;sultat l'ancien r&#233;sultat additionn&#233; de la valeur contenu dans le textBox. Tu auras donc compris que ce type de syntaxe rend la prog fantastique! De plus, tu auras aussi remarqu&#233; que les deux syst&#232;mes (chiffres et op&#233;rations) sont nettement s&#233;par&#233;s! Il s'agit bien de deux syst&#232;mes qui ont bien deux buts diff&#233;rents! Le premier &#233;tant de concat&#233;ner du texte et le second &#233;tant de faire des calculs arithm&#233;tique !

Mais il reste encore 3 cas particulier... Le bouton "=" et les deux boutons "Annuler la frappe" et "Annuler le calcul" [C et CE sur nos calculettes pour Clear{all} et Clear Enter.

ClearAll annulant tout, il suffit d'effacer le TextBox et de r&#233;initialis&#233; la variable R&#233;sultat &#224; 0. ClearEnter doit juste effacer le textBox (&#224; "0", pas &#224; "" attention !!!). La touche entr&#233;e elle, doit faire l'op&#233;ration pr&#233;c&#233;dente :


R&#233;sultat 0   ;  Entr&#233;e "12"  ;  Entr&#233;e = "+" ; R&#233;sultat = 0 + 12 = 12R&#233;sultat 12 ;  Entr&#233;e "13"  ;  Entr&#233;e = "-"  ; R&#233;sultat = 12 - 13 = -1 !!!

Comme tu dois t'en rendre compte, notre raisonnement est faux !!! Et donc, notre code pr&#233;c&#233;dent &#233;galement! Ben wai, ce serait trop simple !

Bon, je vais m'arr&#234;ter l&#224; parce que ce n'est pas mon job de te donner la solution. Mais je vais quand m&#234;me te mettre sur la piste...

Il faut m&#233;moriser l'op&#233;ration entr&#233;e lors de chaque op&#233;ration et faire le calcul non pas de l'op&#233;ration en cours mais de la pr&#233;c&#233;dente !!! h&#233; h&#233; 

Allez, tu vas y arriver va, c'est pas si compliqu&#233; que &#231;a!

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

jpleroisse · Answer

Bonsoir,

Suite &#224; ton post, j'en ai r&#233;alis&#233; une dans un classeur, si tu as une
adresse e_mail, je peux te l'envoyer comme pi&#232;ce jointe, cel&#224; te
permettra d'&#233;tudier le code.Tu peux me communiquer ton e_mail par MP.



jpleroisse

abyss7500 · Answer

merci pour ton aide je crois je vais regarder tous sa a t&#234;te repos&#233;e!!! Ce forum &#233;tais ma derni&#232;re solution car comme tu dis sur le net ya tous se kil fo faut il encore comprendre tous se kil y raconte, et la programmation n'est pas ma vocation loin de l&#224;!! g u &#224; peine 6h de cours sur sa et g rien compris. Ce n'est pas par manque de travail que je n'y arrive pas c parce ke je n'arrive pas &#224; traduire en language VBA se que je ve faire. Je ne comprend pas se ke signifie les termes comme intenger range etc...
merci

ScSami · Answer

C'est pas compliqu&#233; en r&#233;alit&#233; !

Tu peux avoir soit des variables (case m&#233;moire simple), soit des tableaux (comme les tableaux mais de 1 dimension &#224; plusieurs...). Or, ces cases m&#233;moires, pour &#234;tre r&#233;serv&#233;es en m&#233;moire justement, il faut conna&#238;tre leur taille (en Octet). Et oui, car si le Bit (0 ou 1) est l'unit&#233; primitive, l'unit&#233; r&#233;el est l'Octet (qui fait 8 bits soit, en d&#233;cimale, un nombre compris entre 0 et 255 soit 256 nombres! Prends une calculette scientifique et convertit "1111 1111" du binaire au d&#233;cimal et tu obtiendras le nombre d&#233;cimal 255.).

Donc, si tu as besoin d'une variable ne stockant qu'un nombre entier compris entre 0 et 255, tu n'as besoin que d'un octet en m&#233;moire. Mais si tu as besoin de plus...
Alors ce qu'il faut savoir en informatique c'est qu'on compte avec les multiples binaires.
Si on prendre 2 octets, on n'obtient pas 2 * 256 (soit 512) mais 256 * 256 (256 puissance 2) soit 65'536. Autrement dit, un nombre compris entre 0 et 65'535. Pourquoi ?
Parce qu'en fait, c'est comme si, au lieu de compter en base 10 (d&#233;cimal) on comptait en base 256. Autrement dit, c'est comme si, au lieux de n'avoir que 10 chiffres (0-9) on en avait 256!!!
En d&#233;cimale 9|9 donne 0-100
En base 256 :  255|255  donne 0-65'535

D'ailleurs, pour repr&#233;senter ces 256 octets de base, au lieu de les afficher toujours sous la forme de 8 bits (1010'1010) - ce qui serait impossible &#224; g&#233;rer pour l'&#234;tre humain - on a cr&#233;er, selon les pays, un table de caract&#232;res dite ASCII. Donc, chaque octet poss&#232;de son propre caract&#232;re ASCII de repr&#233;sentation!

Pour en revenir &#224; nos variables et notre m&#233;moire. On a cr&#233;er des types 
de variable 
pr&#233;d&#233;finits en fonction des besoins. Par exemple, il y a les chiffres, le texte et les formats autres comme la date. Dans chacune de ces cath&#233;gories il y a plusieurs types. Mais les cath&#233;gories n'existent pas r&#233;ellement.
Pour le texte, c'est simple, c'est le type String qui veut dire en anglais "Chaine" pour Chaine de caract&#232;re. Pense aux strings culottes qui sont des ficelles... des ficelles de mots passant entre les fesses des jolies filles ;-)

Pour les nombre, c'est plus nuanc&#233;. En effet, il y a deux types de nombre : les entier et les r&#233;els (niveau CM2 &#231;a!). Les entiers n'ont pas de virgules alors que les r&#233;els en ont (les d&#233;cimales).
Le premier type, le plus court, c'est : Byte. Oui, parce que Byte c'est le nom anglais de Octet (d'o&#249; d'ailleurs les Kilo Bytes [KB] qui ne sont pas des Kilos Bits !!!). Pour info d'ailleurs, BIT est issu de Binary dIgiT (les digites &#233;tant, dans notre langue &#233;galement, les symboles num&#233;riques... autrement dit, les chiffres, mais ici, les chiffres des ordinateurs {&#233;lectro-magn&#233;tiques et cie}).
Donc, tu peux mettre des nombres compris entre 0 et 255 dans une variable d&#233;clar&#233;e en type Byte.

Apr&#232;s il y a le type Integer cod&#233; sur 2 octets (0-65'536). Integer voulant dire Entier !
Ensuite il y a le type Long... En fait, Long Integer soit Entiers Longs cod&#233;s, si je ne m'abuse, sur 3 Bytes soit un nombre de 0 &#224; 16'777'215.

Viennent ensuite les r&#233;els. Les types sont Singles et Double.

Pour les dates et cie je te laisse te r&#233;f&#233;rer &#224; la MSDN qui est l'aide du VB!

Dim varAge As Byte  '0-255 ans c'est bien suffisant! Pi y'a pas de virgules &#224; un &#226;ge!
Dim varNom As String  'Taille ind&#233;termin&#233;e mais 1 byte par caract&#232;re, normal!

Mais si tu mets une valeur fausse (d&#233;passant le type ou &#233;tant d'un type diff&#233;rent [du texte dans une variable de type Single par exemple ou alors 256 dans une variable de type byte, ...] un erreur sera g&#233;n&#233;r&#233;e!

Mais si tu ne pr&#233;cise pas le type de ta variable ou de ton tableau, il/elle sera de type Variant et pourra &#234;tre utilis&#233; sans plus de complications (d'o&#249; tout l'avantage du VB/VBA face aux autres langages!!!). Fait &#233;galement attention car tu ne peux pas, sauf avec le type Variant ou avec des fonctions bien sp&#232;cifiques, passer une variable d'un type &#224; un autre !!!

Voil&#224;, c'&#233;tait juste pou la petite explication 
Mais si tu veux en savoir plus, je suis &#224; ta disposition !

Enjoy 

<hr size="2" width="100%">
( Si une r&#233;ponse vous convient, cliquez sur le bouton "R&#233;ponse accept&#233;e". )

kalobit · Answer

Salut, 

pour t'aider dans la gestion des boutons de la caltos, tu peux utiliser des classes d'objet.

le principe est de cr&#233;er une classe d'objet pour les boutons des chiffres (0 &#224; 9) et une pour les op&#233;rateurs (+-*/= )

ces classes gerrons les &#233;v&#232;nements click des deux types de boutons. Tu n'a ainsi qu'&#224; programmer que deux &#233;v&#232;nements click au lieu de 15.

A l'initialisation de la form, tu charges les boutons dans deux tableaux diff&#233;rents (1 pour chaque classe).

Voici un exemple pour une classe de bouton :

 Module de classe : (appelons le BtnNumClass )

Public WithEvents ButtonNum As CommandButton ' gestion de l'&#233;venement click pour l'objet ButtonNum de la classe BtnNumClass
'ButtonNum est l'objet commandButton de ta form sur lequel tu click

Private Sub ButtonNum_Click() 'Proc&#233;dure de l'&#233;v&#232;nement click
    Dim Msg As String

    Msg  = "Vous avez click&#233; sur le boutton" & ButtonNum.Caption
    MsgBox Msg, vbInformation, ButtonNum.Name
End Sub

Fin de la classe

Dans ta form :
Dim ButtonsNum() As New BtnNumClass

Private Sub UserForm_Initialize()
    Dim ButtonCount As Integer 'compteur pour la dimension du tableau ButtonsNum()
    Dim ctl As Control

'   Cr&#233;ation des objets BtnNum
    ButtonCount =  0
     For Each  ctl In UserForm1.Controls 'pour chaque control de la form
        If TypeName(ctl)  = "CommandButton" Then 'si c'est un commandbutton
            If ctl.Caption like (#) then 'si c'est un bouton de numero
                ButtonCount =  ButtonCount + 1 'on incr&#233;ment le compteur
                 ReDim Preserve  ButtonsNum(1 To ButtonCount)'on redimmensionne le tableau
                Set ButtonsNum(ButtonCount).ButtonNum  = ctl 'on d&#233;fini le bouton comme membre de la classe
            End If
        End If
    Next ctl
End Sub

Voil&#224;, &#231;a peut parra&#238;tre un peu compliqu&#233; comme &#231;a mais en fait, &#231;a simplifie boucoup la gstiondes action des commandbuttons.

je t'ai juste mis le code pour g&#233;rer les &#233;v&#232;nements click sur un ensemble de commandbuttons.

Pour compl&#233;ter ton projet, il faut comme le disait ScSami utiliser une variable publique pour gerer le r&#233;sultat, cr&#233;er la deuxi&#232;me classe de bouton et gerer l'ajout des boutons d'op&#233;rateurs. Pour &#231;a, inutile de tout r&#233;ecrire, d&#233;clare un deuxime tableau et un deuxi&#232;me compteur, dans la boucle if de userform_initialize, rajoute un test sur caption like"/*-+=""pour d&#233;finir les boutons comme mebre de la deuxi&#232;me classse.
Ensuite du code les &#233;v&#232;nements click des classes en faisant par exemple un select case sur ButtonNum.caption.

Bon, je crois que j'en ai fini pour cette petite contribution. Si quelqu'un veut en savoir plus sur ce type de code, n'h&#233;sitez pas. Moi j'ai boucoup gal&#233;r&#233; avec les classes au d&#233;but et encore plus avec les &#233;v&#232;nements. Maintenant, je suis un adepte des classes d'objets, et &#231;a me simplifie la vie.
J'en profite pour vous demander si quelqu'un &#224; d&#233;j&#224; r&#233;ussi &#224; utiliser New_Enum dans une classe collection en VBA Parceque l&#224; dessus je calle. Peut &#234;tre pas possible en vba ??? Snif
+++
K@lobit

Calculatrice VBA

5 réponses

Discussions similaires