CALCULATRICE

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 - 25 juil. 2012 à 11:23
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 - 2 juin 2019 à 15:20

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/54448-calculatrice

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 656
2 juin 2019 à 15:20

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

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 656
31 mai 2019 à 19:29

D'ailleurs Adn56, avait déjà relevé la duplication de code, en 2012, sans aucune réaction de l'auteur

Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 656
31 mai 2019 à 19:21

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.

Tendexe
31 mai 2019 à 15:33

j'ai besoin de voir le code source

Adn56 Messages postés 1172 Date d'inscription jeudi 24 mai 2007 Statut Membre Dernière intervention 28 septembre 2013 1
25 juil. 2012 à 11:23

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.

Discussions similaires

un script pour le calcule d'un volume

calculatrice binaire

calcul de durée de temps de travail

calcul mathématique d'exposants

Racine cubique

Votre réponse

Discussions similaires