1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Maths
  5. Calculatrice

Calculatrice

Soyez le premier à donner votre avis sur cette source.

Vue 21 034 fois - Téléchargée 6 149 fois

Télécharger le projet
Commenter

Description

bonjour, c'est une calculatrice programmé par le langage vb.net
pour les débutants

Source / Exemple : 


voir le fichier .ZIP

Conclusion :


calculatrice débutant avec le langage vb.net
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
15541
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 février 2021
 512
Bonjour

j'ai posté un exemple de calculatrice appliquant les préceptes de la programmation objet https://codes-sources.commentcamarche.net/source/102400-bon-exemple-de-calculatrice
Signaler
Messages postés
15541
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 février 2021
 512
D'ailleurs Adn56, avait déjà relevé la duplication de code, en 2012, sans aucune réaction de l'auteur
Signaler
Messages postés
15541
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
11 février 2021
 512
BONJOUR Tendexe, si si un peu de politesse ça ne fait de mal à personne....

Pour obtenir le code source, il suffit de cliquer sur le lien qui même à la page du projet, puis de cliquer sur le bouton "Télécharger le projet".

Cependant je ne te le conseille pas.
Ce source est mal écrit.
Vb.net est un langage (tout) objet, et pas simplement orienté objet.
Ce code est écrit comme du VB6, ou du VBA.
Il n'y a pas d'objets métier, il y a de la duplication de code à outrance.

Et ce genre de bout de code (répétés 10 fois au chiffre près), me laisse pantois 

        If check = True Then
            TextBox1.Text = "" 'là il vide le textbox
            TextBox1.Text = TextBox1.Text + "1" 'puis ajoute "1" au contenu, qui est inexistant
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "1"
        End If


On pourrait faire ça 
        If check = True Then
            TextBox1.Text = ""
            check = False
        End If
       
       TextBox1.Text = TextBox1.Text + "1"

Juste pour le plaisir d'ajouter 1 à un contenu qu'on vient potentiellement de vider, ou plus simplement 
        If check = True Then
            TextBox1.Text = "1" 
            check = False
        Else
            TextBox1.Text = TextBox1.Text + "1"
        End If


Mais même écrit comme ça, c'est pas du bon VB.Net.
Signaler

j'ai besoin de voir le code source
Signaler
Messages postés
1172
Date d'inscription
jeudi 24 mai 2007
Statut
Membre
Dernière intervention
28 septembre 2013
 1
OMG une calculette ! chouette ^^
quelques remarques :
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
If check = True Then
TextBox1.Text = ""
TextBox1.Text = TextBox1.Text + "0"
check = False
Else
TextBox1.Text = TextBox1.Text + "0"
End If
End Sub
-Utilise le Handles et le sender au lieu de taper 20 fois le même code.
-Les premières lignes me laisse à penser que tu ne comprends pas ce que tu codes ! tu vide le texte de la textbox1 pour après lui dire de rajouter "0" à ce même texte que tu viens d'effacer Oo'
-Utilise & au lieu de +
-temp = TextBox1.Text temp est un single pas une string !
bref jarrette là et en conclusion :
1- Option strict et explicit à ON puis corrige les erreurs..
2- Nommes tes contrôles.
bonne continuation.
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 (m22001111)