Exercice VB: Calculatrice Simplifié

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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

Public Class calculatrice
    Dim stock, result As Integer
    Dim op
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sept.Click
        sept.Text = "7"
        TextBox1.Text = TextBox1.Text & sept.Text
    End Sub
    Private Sub deux_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles deux.Click
        deux.Text = "2"
        TextBox1.Text = TextBox1.Text & deux.Text
    End Sub

    Private Sub trois_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trois.Click
        trois.Text = "3"
        TextBox1.Text = TextBox1.Text & trois.Text
    End Sub

    Private Sub ktr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ktr.Click
        ktr.Text = "4"
        TextBox1.Text = TextBox1.Text & ktr.Text
    End Sub

    Private Sub cinq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cinq.Click
        cinq.Text = "5"
        TextBox1.Text = TextBox1.Text & cinq.Text
    End Sub

    Private Sub six_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles six.Click
        six.Text = "6"
        TextBox1.Text = TextBox1.Text & six.Text
    End Sub

    Private Sub huit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles huit.Click
        huit.Text = "8"
        TextBox1.Text = TextBox1.Text & huit.Text
    End Sub

    Private Sub neuf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles neuf.Click
        neuf.Text = "9"
        TextBox1.Text = TextBox1.Text & neuf.Text
    End Sub

    Private Sub un_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un.Click
        un.Text = "1"
        TextBox1.Text = TextBox1.Text & un.Text
    End Sub

    Private Sub zero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles zero.Click
        zero.Text = "0"
        TextBox1.Text = TextBox1.Text & zero.Text
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        TextBox1.Text = ""
    End Sub

    Private Sub virgul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles virgul.Click
        virgul.Text = ","
        TextBox1.Text = TextBox1.Text & virgul.Text
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "+"
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles egal.Click
        If op = "+" Then
            TextBox1.Text = Trim(Val(TextBox1.Text)) + stock
        ElseIf op = "-" Then
            TextBox1.Text = stock - Trim(Val(TextBox1.Text))
        ElseIf op = "*" Then
            TextBox1.Text = Trim(Val(TextBox1.Text)) * stock
        ElseIf op = "/" Then
            TextBox1.Text = stock / Trim(Val(TextBox1.Text))
        End If
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "-"
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "*"
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        stock = TextBox1.Text
        TextBox1.Text = ""
        op = "/"
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles retourne.Click

        TextBox1.Text = Mid(TextBox1.Text, 1, (Len(TextBox1.Text) - 1))
        TextBox1.Text = Val(TextBox1.Text)

    End Sub

    Private Sub moinplus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles moinplus.Click
        If Val(TextBox1.Text) < 0 Then
            TextBox1.Text = Val(TextBox1.Text) * (-1)
        Else
            TextBox1.Text = Val(TextBox1.Text) * (-1)
        End If
    End Sub

    Private Sub racine_Click_2(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles racine.Click
        TextBox1.Text = Math.Sqrt(Val(TextBox1.Text))
    End Sub

    Private Sub por_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles por.Click
        TextBox1.Text = Val(TextBox1.Text) * 1 / 100
    End Sub

    Private Sub carré_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles carré.Click
        TextBox1.Text = Val(TextBox1.Text) * Val(TextBox1.Text)
    End Sub
End Class