Discussion :

[john59600]

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

[Jeannot45]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End If

[Jeannot45]

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

[john59600]

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