Discussion :

[Pensardin]

Bonjour,

Je voudrais remplir une table de Pythagore soit d'addition sous de multiplication par choix du signe de l'opération dans une Listbox, soit quelque chose comme :

a signe b où signe est choisi dans la Listbox .

Merci

[ProgElecT]

Sur un Form, 3 Label, 1 CommandButton et 1 ComboBox

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
30
31
32
33
34
35
36
37
38
39
Option Explicit
Private Sub Form_Load()
Label1.Move 120, 150, 180, 195: Label1.Caption = "10"
Label2.Move 990, 150, 90, 195: Label2.Caption = "4"
Label3.AutoSize = True
Label3.Move 1770, 150, 180, 195: Label3.Caption = ""
Combo1.Move 390, 90, 555
Combo1.Clear
Combo1.AddItem "+": Combo1.AddItem "-"
Combo1.AddItem "/": Combo1.AddItem "*"
Combo1.ListIndex = 0
Command1.Move 1140, 105, 555, 315: Command1.Caption = "="
End Sub
Private Sub Command1_Click()
'---------------------------------------------------------------------
'---------- reponse a ta question ------------------------------------
'---------------------------------------------------------------------
 
Select Case Combo1.ListIndex
 Case 0: Label3.Caption = CDbl(Label1.Caption) + CDbl(Label2.Caption)
 Case 1: Label3.Caption = CDbl(Label1.Caption) - CDbl(Label2.Caption)
 Case 2: Label3.Caption = CDbl(Label1.Caption) / CDbl(Label2.Caption)
 Case 3: Label3.Caption = CDbl(Label1.Caption) * CDbl(Label2.Caption)
End Select
'******* ou bien *************
'Select Case Combo1.List(Combo1.ListIndex)
' Case "+": Label3.Caption = CDbl(Label1.Caption) + CDbl(Label2.Caption)
' Case "-": Label3.Caption = CDbl(Label1.Caption) - CDbl(Label2.Caption)
' Case "/": Label3.Caption = CDbl(Label1.Caption) / CDbl(Label2.Caption)
' Case "*": Label3.Caption = CDbl(Label1.Caption) * CDbl(Label2.Caption)
'End Select
'******* ou encore *************
'Select Case Asc(Combo1.List(Combo1.ListIndex))
' Case 43: Label3.Caption = CDbl(Label1.Caption) + CDbl(Label2.Caption)
' Case 45: Label3.Caption = CDbl(Label1.Caption) - CDbl(Label2.Caption)
' Case 47: Label3.Caption = CDbl(Label1.Caption) / CDbl(Label2.Caption)
' Case 42: Label3.Caption = CDbl(Label1.Caption) * CDbl(Label2.Caption)
'End Select
End Sub