VBNET Corrigé TP01-02 Application de calculatrice simple v1

Démarche à suive pour créer une application de calculatrice simple en utilisant les contrôles de bouton et de zone de texte en Visual Basic DotNet:

Ouvrez Visual Studio et créez un nouveau projet « Windows Forms Application ».
Dans la fenêtre de l’interface utilisateur, ajoutez une zone de texte pour l’affichage de la réponse et des boutons pour les chiffres et les opérations.
Double-cliquez sur chaque bouton pour ajouter un événement de clic correspondant.
Dans chaque événement de clic, ajoutez le code pour effectuer l’opération mathématique correspondante et afficher la réponse dans la zone de texte.

Exemple de code pour les événements de clic pour chaque bouton des chiffres:

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
    txtResult.Text &= "1"
End Sub

Conception (design) :

Votre code final devrait ressembler à ceci :

Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.Click
    txtResult.Text &= "1"
End Sub

Private Sub btn2_Click(sender As Object, e As EventArgs) Handles btn2.Click
    txtResult.Text &= "2"
End Sub

' Ajoutez des événements de clic pour tous les chiffres et les opérations...

Private Sub btnPlus_Click(sender As Object, e As EventArgs) Handles btnPlus.Click
    ' Récupère la valeur actuelle dans la zone de texte et la stocke dans une variable.
    Dim currentValue As Double = CDbl(txtResult.Text)

    ' Ajoute la valeur actuelle à la valeur précédente stockée dans la variable "previousValue".
    ' Si c'est la première opération, la valeur précédente est 0.
    Dim newValue As Double = previousValue + currentValue

    ' Stocke la nouvelle valeur dans la variable "previousValue".
    previousValue = newValue

    ' Affiche la réponse dans la zone de texte.
    txtResult.Text = CStr(newValue)

    ' Met à jour la variable "lastOperation" pour indiquer que la dernière opération était l'addition.
    lastOperation = "+"
End Sub

Private Sub btnEquals_Click(sender As Object, e As EventArgs) Handles btnEquals.Click
    ' Récupère la valeur actuelle dans la zone de texte et la stocke dans une variable.
    Dim currentValue As Double = CDbl(txtResult.Text)

    ' Effectue l'opération mathématique correspondante en fonction de la dernière opération effectuée.
    If lastOperation = "+" Then
        currentValue = previousValue + currentValue
    ElseIf lastOperation = "-" Then
        currentValue = previousValue - currentValue
    ElseIf lastOperation = "*" Then
        currentValue = previousValue * currentValue
    ElseIf lastOperation = "/" Then
        currentValue = previousValue / currentValue
    End If

    ' Stocke la nouvelle valeur dans la variable "previousValue".
    previousValue = currentValue

    ' Affiche la réponse dans la zone de texte.
    txtResult.Text = CStr(currentValue)

    ' Réinitialise les variables "previousValue" et "lastOperation".
    previousValue = 0
    lastOperation = ""
End Sub

Dans cet exemple, les variables « previousValue » et « lastOperation » sont utilisées pour stocker la valeur précédente et la dernière opération effectuée, respectivement.

Notez que ce code est juste un exemple et qu’il peut être amélioré pour prendre en compte des erreurs de l’utilisateur et d’autres fonctionnalités avancées.