2. Modifier les propriétés de chaque contrôle.
3. créer les fonctions suivantes : addition, soustraction, multiplication, division.
4. on cliquant sur le bouton calculer, on doit avoir le résultat approprié selon la case
option sélectionné.
5. programmer le bouton quitter.
6. testez votre application.
Solution :
Voici une proposition pour la création des fonctions :‘ On va passer deux arguments pour toutes les fonctions
puisque nous avons deux nombres qui vont être manipulé.
Private Function addition(ByVal a As Integer, ByVal b As
Integer)
Return a + b
‘ Dans une fonction le mot clé “RETURN” est obligatoire.
End Function
Private Function soustraction(ByVal a As Integer, ByVal b
As Integer)
Return a - b
End Function
Private Function multiplication(ByVal a As Integer, ByVal
b As Integer)
Return a * b
End Function
Private Function division(ByVal a As Integer, ByVal b As
Integer)
If b = 0 Then
MsgBox("division par ZERO impossible!!!", _
MsgBoxStyle.Information,"ZERO!!")
Else
Return a / b
End If
End Function
Private Sub cmdquitter_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdquitter.Click
Dim msg
msg = MsgBox("voulez vous vraiment quitter
l'application ? ", MsgBoxStyle.YesNo Or MsgBoxStyle.Question,
"abdel application")
If msg = vbYes Then
End
End If
End Sub
Private Sub cmdcalculer_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cmdcalculer.Click
If RAdd.Checked = True Then
Call addition(CInt(txtnum1.Text),
CInt(txtnum2.Text))
End If
If Rsous.Checked = True Then
Call soustraction(CInt(txtnum1.Text),
CInt(txtnum2.Text))
End If
If Rmulti.Checked = True Then
Call multiplication(CInt(txtnum1.Text),
CInt(txtnum2.Text))
End If
If Rdiv.Checked = True Then
Call division(CInt(txtnum1.Text),
CInt(txtnum2.Text))
End If
End Sub
Private Sub txtnum1_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
txtnum1.TextChanged
If (txtnum1.TextLength > 0) Then
If Not IsNumeric(txtnum1.Text) Then
txtnum1.ResetText()
MsgBox("veuillez entrez un nombre",
MsgBoxStyle.Information, "abdel & Aziz application")
End If
End If
End Sub
Private Sub txtnum2_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
txtnum2.TextChanged
If (txtnum2.TextLength > 0) Then
If Not IsNumeric(txtnum2.Text) Then
txtnum2.ResetText()
MsgBox("veuillez entrez un nombre",
MsgBoxStyle.Information,"abdel & Aziz")
End If
End If
End Sub
ConversionConversion EmoticonEmoticon
Remarque : Seul un membre de ce blog est autorisé à enregistrer un commentaire.