Calculatrice

Commenter

Contenu du snippet

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

A voir également

S'inscrire maintenant

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.

Du même auteur (icemanBruno)