Gambas France BETA


Pas de compte ? Incription

Exemple 20 :

créer une Calculatrice de Base :




À partir d'un exemple, téléchargeable sur la forge, nous allons réaliser une petite calculatrice en peu de lignes de code.



Le Code :



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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
' Gambas class file

' Private fValeur1 As Float
' Private fValeur2 As Float
PRIVATE fValeur AS NEW FLOAT[9]
PRIVATE signe AS STRING '<------------- signe des opérations
PRIVATE i AS INTEGER
PRIVATE j AS INTEGER

'<------------------------------------- création d'un Group pour les chiffres nommé Chiffres
'<------------------------------------- création d'un Group pour les opérations nommé Signes

PUBLIC SUB btnClose_Click()

ME.Close()

END

PUBLIC SUB Chiffres_Click() '<------- évènement _Click() pour le Group Chiffres

IF fValeur[0] = 0 THEN TextBox1.Clear'<-test pour effacer le textbox
TextBox1.Text &= LAST.text '<------- concaténation dans textbox1
fValeur[i] = Val(TextBox1.Text)'<----- récupération de la valeur affichée

END

PUBLIC SUB Signes_Click() '<---------- évènement _Click() pour le Group Signes

SELECT CASE LAST.Text '<---------- en fonction du dernier texte des signes
CASE ELSE
fValeur[j + 1] = fValeur[j] '<------- on récupère la deuxième valeur
END SELECT

signe = LAST.Text
TextBox1.Clear

END

PUBLIC SUB Form_Open()

i = 0
j = 0

fValeur.Add(0)

END

PUBLIC SUB btnEgal_Click() '<---------- évènement _Click() lors de l'appui sur "="

SELECT CASE signe '<---------------- les opérations à faire en fonction du signe cliqué
CASE "+"
fValeur[i + 1] += fValeur[i]
CASE "-"
fValeur[i + 1] -= fValeur[i]
CASE "/"
IF fValeur[i] <> 0 THEN fValeur[i + 1] /= fValeur[i] ELSE RETURN
CASE "*"
fValeur[i + 1] *= fValeur[i]
END SELECT

TextBox1.text = Str$(fValeur[i + 1]) '<------------------- localisation Europa

END

PUBLIC SUB Form_KeyPress()

DIM vText AS VARIANT
DIM cChiffres AS String[] = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ","]
DIM cSignes AS String[] = ["+", "-", "*", "/"]

vText = Key.Text

IF vText MATCH "." THEN vText = Replace(vText, ".", ",") '<----------------- localisation Europa

IF cChiffres.Exist(vText) THEN
LAST.text = vText
Chiffres_Click()
ENDIF

IF cSignes.Exist(vText) THEN
LAST.text = vText
Signes_Click()
ENDIF

ME.Text = "Calculatrice" '<------- pour ne pas afficher vText dans le titre du formulaire

IF key.Code = key.Return OR key.Code = key.Enter THEN btnEgal_Click()
IF key.code = Key.Esc THEN btnCancel_Click()

IF NOT cSignes.Exist(Key.Text) OR NOT cChiffres.Exist(Key.Text) THEN STOP EVENT '<-- Pas autre chose que chiffres ou signes

END

PUBLIC SUB btnCancel_Click()

TextBox1.Clear

END



====================

Navigation :



<-- Liens du Wiki : <--
<-- Accueil du WIKI : <--

====================

Documentation :



====================