Bonsoir ,
Je doit réaliser une calculette simple pour l'ecole ( + , - , / , * ) j'ai deja realiser la maquette qui est ci dessous , est une partie du code que je vous joint aussi mais j'arrive pas a écrire les calculs , j'éspére que vous pourrez m'aider .
Merci de votre aide .
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 Option Explicit Private Sub btcalcul_Enter() Dim VALEUR1 As Integer Dim VALEUR2 As Integer Dim RESULTAT As Integer 'recuperation des données VALEUR1 = CDbl(TextVALEUR1.Value) VALEUR = CDbl(TextVALEUR2.Value) 'traitement Select Case groptcodcli.Value Case 1 VALEUR1 VALEUR2 Case 2 VALEUR1 -VALEUR2 Case 3 VALEUR1*VALEUR2 Case 4 VALEUR1 / VALEUR2 'restitution du resultat TextRESULTAT.Value = CStr(RESULTAT) End Sub
Partager