Comment créer une application de calcul simple en Visual Basic .NET

'------------------------------------------------------------------
' Application : Calculatrice arithmétique de base
' Version     : Visual Basic 2026
' Description : Permet d'effectuer des opérations add, soustraction,
'               multiplication et division entre deux nombres
'------------------------------------------------------------------

Public Class FormCalculatrice

    ' Gestionnaire d'événement pour le bouton ADDITION
    ' Convertit les deux nombres, effectue l'addition et affiche le résultat
    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
        ' Déclaration et conversion des valeurs des zones de texte
        Dim num1 As Double = CDbl(txtNumber1.Text)
        Dim num2 As Double = CDbl(txtNumber2.Text)
        
        ' Calcul de l'addition
        Dim result As Double = num1 + num2
        
        ' Affichage du résultat dans le libellé
        lblResult.Text = result.ToString()
    End Sub

    ' Gestionnaire d'événement pour le bouton SOUSTRACTION
    Private Sub btnSubtract_Click(sender As Object, e As EventArgs) Handles btnSubtract.Click
        Dim num1 As Double = CDbl(txtNumber1.Text)
        Dim num2 As Double = CDbl(txtNumber2.Text)
        Dim result As Double = num1 - num2
        lblResult.Text = result.ToString()
    End Sub

    ' Gestionnaire d'événement pour le bouton MULTIPLICATION
    Private Sub btnMultiply_Click(sender As Object, e As EventArgs) Handles btnMultiply.Click
        Dim num1 As Double = CDbl(txtNumber1.Text)
        Dim num2 As Double = CDbl(txtNumber2.Text)
        Dim result As Double = num1 * num2
        lblResult.Text = result.ToString()
    End Sub

    ' Gestionnaire d'événement pour le bouton DIVISION
    ' Inclut une validation pour éviter la division par zéro
    Private Sub btnDivide_Click(sender As Object, e As EventArgs) Handles btnDivide.Click
        Dim num1 As Double = CDbl(txtNumber1.Text)
        Dim num2 As Double = CDbl(txtNumber2.Text)
        
        ' Vérification si le diviseur n'est pas nul
        If num2 <> 0 Then
            Dim result As Double = num1 / num2
            lblResult.Text = result.ToString()
        Else
            ' Message d'erreur si division par zéro
            MessageBox.Show("Division par zéro non autorisée", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

End Class