1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 2
    Points : 3
    Points
    3

    Par défaut calculatrice simple access

    Bonsoir ,
    Voila je dois crée une calculatrice simple calcule + , - , * ,/
    mais après je suis bloqué sur comment dire a access d'afficher le résulta après mon premier essai avec plus.je rentre le premier nombre l’opérateur. le deuxième nombre mais il ne donne pas de résulta
    voila se que j'ai déjà tapé

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Private Sub Commande0_Click()
    Dim NB1, NB2, resulta As Integer
    Dim operateur As String
    NB1 = InputBox("entrez votre premier nombre")
    operateur = InputBox("entrez l'operateur")
    NB2 = InputBox("entrez votre deuxieme nombre")
    If "operateur" = "+" Then
    resulta = NB1 + NB2
    End If
    If "operateur" = "-" Then
    resulta = NB1 - NB2
    End If
    If "operateur" = "*" Then
    resulta = NB1 * NB2
    End If
    If "operateur" = "/" Then
    resulta = NB1 / NB2
    End If
     
    End Sub

  2. #2
    Rédacteur/Modérateur
    Avatar de Jeannot45
    Homme Profil pro
    Retraité
    Inscrit en
    octobre 2004
    Messages
    3 385
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2004
    Messages : 3 385
    Points : 7 092
    Points
    7 092

    Par défaut



    deux solutions possibles :

    1. Le résultat apparait dans une zone de texte du formulaire :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Me.[Nom de la zone de Texte] = Resulta
    2. Afficher un message qui affiche le résultat. Alors, il faut completer la procédure par :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Msgbox "Le resultat de l'opération : " & NB1 " & Operateur & " NB2 = " & Resulta
    Ligne à ajouter après le
    Jeannot

    Liens Office indispensables à visiter: Cours (Tutos), F.A.Q., Sources VBA

    Ne posez pas de questions par MP, je n'ai pas le temps d'y répondre

  3. #3
    Rédacteur/Modérateur
    Avatar de Jeannot45
    Homme Profil pro
    Retraité
    Inscrit en
    octobre 2004
    Messages
    3 385
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2004
    Messages : 3 385
    Points : 7 092
    Points
    7 092

    Par défaut



    Mille excuses , je me suis emmêlé les pinceaux avec les guillemets il faut lire :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
        MsgBox "Le resultat de l'opération : " & NB1 & operateur & NB2 & " = " & resulta
    D'autre part, les guillemets entourant la variable operateur sont en trop. Enfin deux petites remarques :
    1. Le type de la variable doit être défini pour chaque variable déclarée. Ainsi, il faut déclarer chaque nombre NB1 et NB2 comme Integer sinon, ils sont considérés comme étant de type Variant.
    2. Il est toujours préférable de bien documenter ton code afin de te faciliter la relecture pour un tiers ou pour toi si tu reviens sur celui-ci plus tard.


    Ci-dessous ta procédure corrigée :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    Private Sub Commande0_Click()
        ' Déclaration des variables
        Dim NB1 As Integer, NB2 As Integer
        Dim resulta As Double
        Dim operateur As String
     
        ' Initialisation des variables
        NB1 = InputBox("entrez votre premier nombre")
        operateur = InputBox("entrez l'operateur")
        NB2 = InputBox("entrez votre deuxieme nombre")
     
     
        ' Traitement des données
        If operateur = "+" Then
            resulta = NB1 + NB2
        End If
        If operateur = "-" Then
            resulta = NB1 - NB2
        End If
        If operateur = "*" Then
            resulta = NB1 * NB2
        End If
        If operateur = "/" Then
            resulta = NB1 / NB2
        End If
     
        ' Affichage des résultats
        MsgBox "Le resultat de l'opération : " & NB1 & operateur & NB2 & " = " & resulta
    End Sub
    A moins que tu ne sois obligé, pour une cascade de tests sur une même variable, tu peux utiliser SELECT CASE :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
     
        Select Case operateur
            Case Is = "+"
                resulta = NB1 + NB2
            Case Is = "-"
                resulta = NB1 - NB2
            Case Is = "*"
                resulta = NB1 * NB2
            Case Else
                resulta = NB1 / NB2
        End Select
    Jeannot

    Liens Office indispensables à visiter: Cours (Tutos), F.A.Q., Sources VBA

    Ne posez pas de questions par MP, je n'ai pas le temps d'y répondre

  4. #4
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : juin 2018
    Messages : 2
    Points : 3
    Points
    3

    Par défaut

    desole pour le temps que j'ai pris a répondre

    merci pour votre aide cela m'aura bien était utile

    je vais tente de rajouter un tant que pour que la calculette ne s’arrête pas de suite.
    je vous ferez signe de la progression

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Calculatrice simple- event button
    Par Luggy dans le forum Tkinter
    Réponses: 10
    Dernier message: 16/05/2015, 15h37
  2. Calculatrice simple et programmable?
    Par flyingman dans le forum Autres architectures
    Réponses: 5
    Dernier message: 09/06/2013, 16h18
  3. program calculatrice simple?
    Par delphino7 dans le forum Débutant
    Réponses: 15
    Dernier message: 15/06/2010, 16h19
  4. Problème calculatrice simple
    Par beber54 dans le forum VBA Access
    Réponses: 8
    Dernier message: 23/10/2008, 18h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo