IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

calculatrice Visual Studio


Sujet :

VB.NET

  1. #1
    Membre à l'essai
    Femme Profil pro
    technicien réseau et programmation
    Inscrit en
    Mai 2020
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : technicien réseau et programmation
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2020
    Messages : 4
    Par défaut calculatrice Visual Studio
    J'essais de créer une calculatrice sur Visual Studio. J'ai deux textbox. Mes chiffres doivent partir du tb1 au tb2 pour se soustraire ensuite, mais ils ne se soustraient pas. Je n'arrive pas à voir mon erreur. Je travaille en C#.
    Voici mon code pour ma soustraction:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
            private void btMinus_Click(object sender, EventArgs e)
     
                {
                    if (A == 0)
                    {
                        A = double.Parse(tbCalculator.Text);
                    }
                    else
                    {
                        A = double.Parse(tbResult.Text);
                    }
                B = A + double.Parse(tbCalculator.Text);
     
                Total = (B - A);
     
                tbResult.Text = (Total).ToString();
     
                tbCalculator.Text = "";
                }
    J'espère vous pourrez m'aider!
    Merci!

  2. #2
    Membre à l'essai
    Femme Profil pro
    technicien réseau et programmation
    Inscrit en
    Mai 2020
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : technicien réseau et programmation
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2020
    Messages : 4
    Par défaut option numero 2
    J'ai aussi cette option mais la a chaque fois j'ai mon dernier chiffre que ce repete dans mon textbox quand je click sur mon minus donc je n ai pas de calcule qui se fait
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
      private void btMinus_Click(object sender, EventArgs e)
            {
     
            B = double.Parse(tbCalculator.Text);
     
                {
                    if (A == 0)
                    {
                        A = B - double.Parse(tbCalculator.Text);
                    }
                    else
                    {
                        A = double.Parse(tbResult.Text);
                    }
     
                Total = (B - A);
     
                tbResult.Text = (Total).ToString();
     
                tbCalculator.Text = "";

  3. #3
    Membre Expert Avatar de Phil Rob
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2013
    Messages
    1 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 613
    Par défaut
    Bonjour,

    Vu que tu présentes des codes en C#, tu devrais peut-être poser ta question sur le forum C# : https://www.developpez.net/forums/f4...ngages/csharp/

    Comme il y a peu de code, je l'ai traduit en VB et effectivement ça ne donne pas de résultat tangible. En fait, je ne comprends pas ce que tu veux réaliser comme algorithme ...

    Voici ton code en VB (tes 2 versions) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
     
    Public Class Form1
     
        Dim A As Double
        Dim B As Double
        Dim Total As Double
     
        'Private Sub btMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinus.Click
        '    B = Double.Parse(tbCalculator.Text)
        '    If (A = 0) Then
        '        A = B - Double.Parse(tbCalculator.Text)
        '    Else
        '        A = Double.Parse(tbResult.Text)
        '    End If
        '    Total = (B - A)
        '    tbResult.Text = (Total).ToString()
        '    tbCalculator.Text = ""
        'End Sub
     
        Private Sub btMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinus.Click
            If (A = 0) Then
                A = Double.Parse(tbCalculator.Text)
            Else
                A = Double.Parse(tbResult.Text)
            End If
            B = A + Double.Parse(tbCalculator.Text)
            Total = (B - A)
            tbResult.Text = (Total).ToString()
            tbCalculator.Text = ""
        End Sub
     
    End Class

  4. #4
    Membre à l'essai
    Femme Profil pro
    technicien réseau et programmation
    Inscrit en
    Mai 2020
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 41
    Localisation : Canada

    Informations professionnelles :
    Activité : technicien réseau et programmation
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2020
    Messages : 4
    Par défaut
    Bonjour,
    Mais ça ne fonctionne pas plus, en mon problème est que le chiffre se soustrait sur lui même, ce qui me donne un résultat nul, il n'attend pas que je j'inscrive mon deuxième résultat.Je vous inclus un exemple de la calculatrice, la personne clique sur les chiffres, ils s'inscrivent dans la partie blanche, lorsqu'il clique sur /*-+ le chiffre se déplace où le rectangle gris et devrait faire l'addition ou la soustraction après, mais il fait l'opération immédiatement. J'ai écris sur c#, mais je n'ai pas de réponse, c'est pour un travail d'école qui est pour demain et je n'y arrive pas
    Images attachées Images attachées  

  5. #5
    Membre Expert Avatar de Phil Rob
    Homme Profil pro
    Retraité
    Inscrit en
    Novembre 2013
    Messages
    1 613
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Novembre 2013
    Messages : 1 613
    Par défaut
    Bonjour,

    Pas facile avec le décalage horaire ... . Je vois seulement ton message ...

    Je n'ai pas le temps de refaire tout ton programme, mais voici quelques codes qui t'aideront peut-être.

    Le code complet en VB d'abord, et ensuite ce code traduit en C#.

    En VB :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
     
    Public Class Form1
     
        Private Sub btMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinus.Click
            Dim A As Double = 0
            Dim B As Double = 0
            Dim Total As Double
            If tbResult.Text <> "" Then
                B = Double.Parse(tbResult.Text)
            End If
            If tbCalculator.Text <> "" Then
                A = Double.Parse(tbCalculator.Text)
            End If
            Total = (B - A)
            tbResult.Text = (Total).ToString()
            tbCalculator.Text = ""
        End Sub
     
        Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click
            tbResult.Text = ""
            tbCalculator.Text = ""
        End Sub
     
        Private Sub btPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPlus.Click
            Dim A As Double = 0
            Dim B As Double = 0
            Dim Total As Double
            If tbResult.Text <> "" Then
                B = Double.Parse(tbResult.Text)
            End If
            If tbCalculator.Text <> "" Then
                A = Double.Parse(tbCalculator.Text)
            End If
            Total = (B + A)
            tbResult.Text = (Total).ToString()
            tbCalculator.Text = ""
        End Sub
     
        Private Sub btMulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMulti.Click
            Dim A As Double = 0
            Dim B As Double = 0
            Dim Total As Double
            If tbResult.Text <> "" Then
                B = Double.Parse(tbResult.Text)
            End If
            If tbCalculator.Text <> "" Then
                A = Double.Parse(tbCalculator.Text)
            End If
            Total = (B * A)
            tbResult.Text = (Total).ToString()
            tbCalculator.Text = ""
        End Sub
     
        Private Sub btDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDiv.Click
            Dim A As Double = 0
            Dim B As Double = 0
            Dim Total As Double
            If tbResult.Text <> "" Then
                B = Double.Parse(tbResult.Text)
            End If
            If tbCalculator.Text <> "" Then
                A = Double.Parse(tbCalculator.Text)
            End If
            If A <> 0 Then
                Total = (B / A)
                tbResult.Text = (Total).ToString()
            Else
                MessageBox.Show("Divide by zero !!!")
            End If
            tbCalculator.Text = ""
        End Sub
    End Class
    En C# (attention aux erreur de syntaxe, notamment Majusule/Minuscule) :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
     
    Private Sub btMinus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinus.Click
        {
        Double A = 0;
        Double B = 0;
        Double Total
        if (tbResult.Text != "") 
            {
            B = Double.Parse(tbResult.Text);
            }
        if (tbCalculator.Text != "") 
            {
            A = Double.Parse(tbCalculator.Text);
            }
                Total = (B - A);
                tbResult.Text = (Total).ToString();
                tbCalculator.Text = "";
    }
     
     
    Private Sub btClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btClear.Click
        tbResult.Text = ""
        tbCalculator.Text = ""
    End Sub
     
    Private Sub btPlus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPlus.Click
        {
        Double A = 0;
        Double B = 0;
        Double Total
        if (tbResult.Text != "") 
            {
            B = Double.Parse(tbResult.Text);
            }
        if (tbCalculator.Text != "") 
            {
            A = Double.Parse(tbCalculator.Text);
            }
                Total = (B + A);
                tbResult.Text = (Total).ToString();
                tbCalculator.Text = "";
    }
    End Sub
     
    Private Sub btMulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMulti.Click
        {
        Double A = 0;
        Double B = 0;
        Double Total
        if (tbResult.Text != "") 
            {
            B = Double.Parse(tbResult.Text);
            }
        if (tbCalculator.Text != "") 
            {
            A = Double.Parse(tbCalculator.Text);
            }
                Total = (B * A);
                tbResult.Text = (Total).ToString();
                tbCalculator.Text = "";
    }
     
    Private Sub btDiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDiv.Click
        {
        Double A = 0;
        Double B = 0;
        Double Total
        if (tbResult.Text != "") 
            {
            B = Double.Parse(tbResult.Text);
            }
        if (tbCalculator.Text != "") 
            {
            A = Double.Parse(tbCalculator.Text);
            }
        if (A != 0)
            {
                    Total = (B / A);
                    tbResult.Text = (Total).ToString();
            }
                Else
                    {
                    MessageBox.Show("Divide by zero !!!");
                    }
     
                    tbCalculator.Text = "";
    }
    Nom : Titia.jpg
Affichages : 373
Taille : 20,5 Ko

    Bonne journée,


Discussions similaires

  1. News Visual Studio
    Par farscape dans le forum Visual C++
    Réponses: 34
    Dernier message: 27/04/2010, 10h21
  2. [IDE] Visual Studio 2005 Express
    Par Louis-Guillaume Morand dans le forum Général Dotnet
    Réponses: 130
    Dernier message: 23/12/2006, 15h08
  3. Visual Studio .Net et template
    Par Sphax dans le forum Autres éditeurs
    Réponses: 5
    Dernier message: 17/07/2004, 16h33
  4. Probleme d'utilisation de directX 9 avec visual studio.net
    Par cranedoeuf dans le forum DirectX
    Réponses: 1
    Dernier message: 24/05/2004, 04h33
  5. Version de Windows dans Visual Studio !!!
    Par Jasmine dans le forum MFC
    Réponses: 3
    Dernier message: 18/03/2004, 17h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo