Exercice VB: Calculatrice Simplifié
Rédigé par GC Team, Publié le 04 Janvier 2012, Mise à jour le Jeudi, 15 Décembre 2022 23:05Participez au vote ☆☆☆☆☆★★★★★
Ecrire le programme qui permet de réaliser l'interface suivante:
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 |