Discussion :

[beber54]

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 .

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

Merci de votre aide .

[Caro-Line]

Euh question bête il ne te manquerait pas des "RESULTAT=" partout dans tes Case (et aussi un + dans ton 1er case) ?

[Invité]

Bonjour

En plus de ce que te dis Caro-Line, regardes la syntaxe du Select Case, car il manque un End Select.

De plus tu déclares tes variables en Entier, et tu mets des données converties en double

Philippe

[beber54]

Euh question bête il ne te manquerait pas des "RESULTAT=" partout dans tes Case (et aussi un + dans ton 1er case) ?

J'arrive pas a mettre le + il s'enleve tout seul

[helas]

bon, et comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub btcalcul_Enter()
 Select Case Me!groptcodcli
 Case 1
  Me!TextRESULTAT = Me!TextVALUE1 + Me!TextVALUE2
 Case 2
  Me!TextRESULTAT = Me!TextVALUE1 - Me!TextVALUE2
 Case 3
  Me!TextRESULTAT = Me!TextVALUE1 * Me!TextVALUE2
 Case 4
  Me!TextRESULTAT = Me!TextVALUE1 / Me!TextVALUE2
 End Select
End Sub

[beber54]

Bonjour

En plus de ce que te dis Caro-Line, regardes la syntaxe du Select Case, car il manque un End Select.

De plus tu déclares tes variables en Entier, et tu mets des données converties en double

Philippe

Jte remercie mais c'est quoi qu'il faut ecrire quand c'est convertit en entier car je ne connais que Cbl .

bon, et comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub btcalcul_Enter()
 Select Case Me!groptcodcli
 Case 1
  Me!TextRESULTAT = Me!TextVALUE1 + Me!TextVALUE2
 Case 2
  Me!TextRESULTAT = Me!TextVALUE1 - Me!TextVALUE2
 Case 3
  Me!TextRESULTAT = Me!TextVALUE1 * Me!TextVALUE2
 Case 4
  Me!TextRESULTAT = Me!TextVALUE1 / Me!TextVALUE2
 End Select
End Sub

Merci , par contre je ne comprend pas les " me! "

[beber54]

ca a l'air d'étre bon mais j'ai un probléme avec les cases d'options je comprend pas trop comment ca amrche , si vous pouviez m'eclaircir .

merci