code source une calculatrice je veut preciser que se sont mes premier code pas tres compliquer mais qui peuvent aider les débutant merci.
Source / Exemple :
Private Sub cmdaddition_Click()
txtresultat.Text = Val(txtValeur1.Text) + Val(txtvaleur2.Text)
End Sub
Private Sub cmddivision_Click()
If txtvaleur2.Text = "0" Then
MsgBox "la division par zéro n'est pas possible", vbInformation, "division par zéro"
txtvaleur2.Text = ""
Exit Sub
End If
txtresultat.Text = Val(txtValeur1.Text) / Val(txtvaleur2.Text)
End Sub
Private Sub cmdeffacer_Click()
txtresultat.Text = ""
txtValeur1.Text = ""
txtvaleur2.Text = ""
End Sub
Private Sub cmdmultiplication_Click()
txtresultat.Text = Val(txtValeur1.Text) * Val(txtvaleur2.Text)
End Sub
Private Sub cmdquitter_Click()
MsgBox "merci d'avoir utilisé se programme a la prochaine", vbInformation, "A Bientot"
End
End Sub
Private Sub cmdsoustraction_Click()
txtresultat.Text = Val(txtValeur1.Text) - Val(txtvaleur2.Text)
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.