Créer une calculatrice

**franckylebo** · 21/12/2014, 15h06

Bonjour à tous,

Je poste ici, car il me semble que c'est le bon endroit.
J'essai d'utiliser Visual studio express2013, pour transposer une appli que j'ai faite sous excel, mais je n'y connais pas grand chose, et je rame.....
J'arrive a créer une fenêtre, mettre un bouton clic, et afficher une action.....vous voyez le niveau

Ce que je voudrais faire est à la base relativement simple (pas pour moi), c'est:

Dans une fenêtre, avoir deux cases input, et une case resultat et un bouton RESET pour mettre les cases a 0
Je rentre un chiffre dans la case A, un chiffre dans la case B, et en C j'ai la somme.
en quelque sorte une super calculatrice......

Si quelqu'un pouvait avoir la sympathie de m'aider pour avoir ce bout de code, ca serait merveilleux, après je pourrai avancer.

Merci d'avance.

**clementmarcotte** · 21/12/2014, 20h41

Bonjour

Envoyé par franckylebo

Bonjour à tous,

Je poste ici, car il me semble que c'est le bon endroit.
J'essai d'utiliser Sharpdevelop en VB, pour transposer une appli que j'ai faite sous excel, mais je n'y connais pas grand chose, et je rame.....
J'arrive a créer une fenêtre, mettre un bouton clic, et afficher une action.....vous voyez le niveau

Merci d'avance.

Je ne sais pas trop ce que cela peut donner avec Sharpdevelop, mais, il y a quand même ceci chez Microsoft. Au pire tu peux afficher le code dans le bloc-notes et faire du copier-coller:

https://code.msdn.microsoft.com/Calculator2-d2c10202

https://code.msdn.microsoft.com/VBNe...lator-08065b6b

**franckylebo** · 21/12/2014, 21h01

merci Clement,
Je suis entre temps passé sous Visual studio express 2013, qui est beaucoup plus documenté, j'ai donc modifié mon poste initiale.
Ok pour les liens, mais c'est trop hard pour moi pour l'instant, je vais essayé de decoder, mais mon plus gros soucis, c'est de ne pas savoir comment structurer ma démarche.....
@+

**clementmarcotte** · 21/12/2014, 22h09

Bonjour,

Envoyé par franckylebo

merci Clement,
Je suis entre temps passé sous Visual studio express 2013, qui est beaucoup plus documenté, j'ai donc modifié mon poste initiale.
Ok pour les liens, mais c'est trop hard pour moi pour l'instant, je vais essayé de decoder, mais mon plus gros soucis, c'est de ne pas savoir comment structurer ma démarche.....
@+

Il y a une bible gratuite juste-là (avec des liens de téléchargement au bas de la page) :

http://plasserre.developpez.com/cours/vb-net/

**franckylebo** · 22/12/2014, 07h21

oui je l'ai vu et j'ai commencé à mettre en pratique. Par contre j'ai du mal a mettre dans mon contexte class et objet et a structurer mon code.
merci en tout cas, je continue mes test, mais c'est cho!

**ekydeta** · 22/12/2014, 11h26

Bonjour Francky,

Alors pour cela, il te faut 2 contrôles NumericUpDown , une TextBox et 2 boutons :

Voici le code à associé à ta Windows Form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form1
 
    Private Sub Bt_Calcul_Click(sender As Object, e As EventArgs) Handles Bt_Calcul.Click
        TextBox1.Enabled = False ' Permet de ne pas pouvoir modifier le résultat
        TextBox1.Text = (NumericUpDown1.Value + NumericUpDown2.Value).ToString 'Type attendu de TextBox est un String donc on convertie les valeurs numériques en String
    End Sub
 
    Private Sub Bt_Reset_Click(sender As Object, e As EventArgs) Handles Bt_Reset.Click
        NumericUpDown1.Value = 0 'On remet à 0 
        NumericUpDown2.Value = 0 'On remet à 0 
    End Sub
End Class

En espérant que ça puisse t'aider,

Cordialement,

**E.M.Kham** · 22/12/2014, 16h03

Tu peux aussi faire avec trois textbox

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
 
  Private Sub calcul_Click(sender As Object, e As EventArgs) Handles calcul.Click
        If (TextBox1.Text <> "") And (IsNumeric(TextBox1.Text)) Then ' Vérifier que le textbox ne soit pas vide et que se soit bien des nombres
            If (TextBox2.Text <> "") And (IsNumeric(TextBox2.Text)) Then
                TextBox3.Text = Double.Parse(TextBox1.Text) + Double.Parse(TextBox2.Text) 'convertir string et nombre et faire la somme
            End If
        End If
    End Sub
 
    Private Sub reset_Click(sender As Object, e As EventArgs) Handles reset.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
 
    End Sub

L'utilisation de textbox te permettre de pouvoir taper directement tes nombres et la transformation en double plutôt que integer d'utilisé les nombres à virgules

**ekydeta** · 22/12/2014, 16h38

Envoyé par E.M.Kham

L'utilisation de textbox te permettre de pouvoir taper directement tes nombres et la transformation en double plutôt que integer d'utilisé les nombres à virgules

Tu peux utiliser la propriété .DecimalPlaces (en la mettant à 1,2,3,4) d'un contrôle NumericUpDown afin d'utiliser des nombres à virgules.
De plus, dans ce contrôle tu n'as pas à vérifier si il s'agit déjà de nombre.
Enfin, il est possible de saisir des chiffres au clavier dans ce contrôle.

Lorsqu'il existe un contrôle destiné à l'utilisation des nombres, il vaut mieux l'utiliser.

Cordialement,

Armand

**franckylebo** · 22/12/2014, 22h19

merci Armand et Kham.
Bon c'est pas evident à tester, car je ne sais pas ou mettre votre code, mais j'essai de comprendre...et je butte ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Bt_Calcul_Click(sender As Object, e As EventArgs) Handles Bt_Calcul.Click

je ne comprends pas cette ligne, j'ai pas d'outils Calcul_clik??

**shayw** · 22/12/2014, 23h21

Salut

Bt_Calcul c'est le nom donné au control button
Bt_Calcul_Click est l'évenement click de ce bouton
place sur ta form un button et nomme le Bt_Calcul
va à la partie code (form1.vb)
dans l'intellisense de gauche cherche Bt_Calcul et avec l'intellisense de droite cherche l'évenement click
cela introduit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Bt_Calcul_Click(sender As Object, e As System.EventArgs) Handles Bt_Calcul.Click
 
    End Sub

après je pourrai avancer

c.a.d ajouter d'autre opérateur ?

**ekydeta** · 23/12/2014, 08h06

Il y a une bible gratuite juste-là (avec des liens de téléchargement au bas de la page) :

http://plasserre.developpez.com/cours/vb-net/

C'est vrai que à partir du moment où il ne connait pas les bases, ça va être très dur d'avancer.

Je plussoie Clément sur le fait que tu devrais lire la bible de Philippe Lasserre.

**E.M.Kham** · 23/12/2014, 09h19

Autant pour moi Ekideta je ne connaissais pas ces spécificités de numericupdown

**franckylebo** · 23/12/2014, 19h46

merci à tous.
La bible je l'ai lu, j'ai même récupéré les vidéo en support de cour, j'ai manipé, mais il y a des choses qui restent assez flou, et puis je veux peut être trop en absorber, donc ca déborde...

Mais c'est pas mal, vous m'avez donné l'impulsion, je vais bosser un peu, et reviendrai vers vous. Très très intéressant tout ca.
Passer de bonnes fêtes de Noel.

PS: je n'ai pas pu attendre.....shayw m'a bien eclairé sur la façon de faire, et j'ai pris le code de Kham, ca fonctionne....je me sens poussé des ailes

J'ai capté le code et la methode, par contre il y a des termes dans cette ligne que je ne comprends pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Bt_Calcul_Click(sender As Object, e As EventArgs) Handles Bt_Calcul.Click

sender As Object ??
e As EventArgs ??
Handles ??

Frank

**franckylebo** · 24/12/2014, 10h30

Bonjour,

J'ai voulu modifier le code pour supprimer le bouton calcul_clik, et faire en sorte que le calcul soit automatique dans la textbox3. Ca fonctionne mal, car pour avoir le resultat, je dois cliqué dans la textbox3, je n'ai pas le resultat direct.

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
Public Class Form1
 
    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged
        If (TextBox1.Text <> "") And (IsNumeric(TextBox1.Text)) Then ' Vérifier que le textbox ne soit pas vide et que se soit bien des nombres
            If (TextBox2.Text <> "") And (IsNumeric(TextBox2.Text)) Then
                TextBox3.Text = (Double.Parse(TextBox1.Text) + Double.Parse(TextBox2.Text)) 'convertir string et nombre et faire la somme
            End If
        End If
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Text = "" 'remet a 0 les zones de texte 1 2 3 
        TextBox2.Text = ""
        TextBox3.Text = ""
    End Sub
End Class

comment faire pour avoir le resultat directement dans textbox3 apres avoir saisi textbox1 et 2 ???

En faite je suis pas sur qu'il faille utiliser Textbox, j'ai vu qu'il existait aussi Messagbox, pas trop compris la différence.
merci

**E.M.Kham** · 24/12/2014, 13h38

les messagebox sont des fenêtres surgissantes (popup) donc pas tout a fait ce que tu cherches

Par contre pour le calcul auto ça dépend de ce que tu veux faire (tous ces exemples partent du principe que le textbox2 et le deuxième à être renseigné)

tu peux faire le calcul dès que le texte change

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        If (TextBox1.Text <> "") And (IsNumeric(TextBox1.Text)) Then ' Vérifier que le textbox ne soit pas vide et que se soit bien des nombres
            If (TextBox2.Text <> "") And (IsNumeric(TextBox2.Text)) Then
                TextBox3.Text = Double.Parse(TextBox1.Text) + Double.Parse(TextBox2.Text) 'convertir string et nombre et faire la somme
            End If
        End If
    End Sub

Dès que le textbox perd le focus (on quitte le textbox)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 Private Sub TextBox2_quit(sender As Object, e As EventArgs) Handles TextBox2.LostFocus
        If (TextBox1.Text <> "") And (IsNumeric(TextBox1.Text)) Then ' Vérifier que le textbox ne soit pas vide et que se soit bien des nombres
            If (TextBox2.Text <> "") And (IsNumeric(TextBox2.Text)) Then
                TextBox3.Text = Double.Parse(TextBox1.Text) + Double.Parse(TextBox2.Text) 'convertir string et nombre et faire la somme
            End If
        End If
End Sub

Ou lors d'un appui sur entrée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
   Private Sub touche_entree(ByVal sender As Object, ByVal e As KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyData = Keys.Enter Then
            If (TextBox1.Text <> "") And (IsNumeric(TextBox1.Text)) Then ' Vérifier que le textbox ne soit pas vide et que se soit bien des nombres
                If (TextBox2.Text <> "") And (IsNumeric(TextBox2.Text)) Then
                    TextBox3.Text = Double.Parse(TextBox1.Text) + Double.Parse(TextBox2.Text) 'convertir string et nombre et faire la somme
                End If
            End If
        End If
    End Sub

**shayw** · 24/12/2014, 13h56

Bonjour

Si on code en net il faut éviter d'utiliser les fonctions du vb6
ex isnumeric -> Integer.TryParse
décocher le namespace visualbasic du tableau des réferences

citation du cours Phillipe Lassere

Il faut rapidement ne pas utiliser du tout la classe de compatibilité VB 6 , éviter les instructions héritées de VB6, privilégier l'usage des classes du FrameWork.

**ACIVE_CS** · 24/12/2014, 14h02

Bonjour,

décocher le namespace visualbasic du tableau des réferences

A ajouter également tout en haut:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Option Explicit On
Option Strict On

Ce qui servira (entre autres) à éviter des erreurs de conversion de types.

**franckylebo** · 24/12/2014, 18h11

Tout compris HEKham, bravo pour ton tuto live.
Je comprends maintenant la syntaxe, et les subtilitées, j'ai validé les différents fonctionnements, tous est OK.
Pour les remarques de ACIV et Shayw:

decocher namespace visualbasic du tableau des références

c'est ou ce truc?
que faut il mettre alors à la place de Ismuneric en equivalent Framwork ?

**shayw** · 24/12/2014, 18h42

1 clique sur projet

Nom : project.png
Affichages : 4461
Taille : 12,2 Ko

2 clique sur proprieté
Nom : properties.png
Affichages : 4595
Taille : 16,6 Ko

ensuite
3 clique l'onglet compile
et change option strict et option explicit à On
4 clique l'onglet référence
et dans le tableau en bas décoche microsoft.visualbasic

isnumeric -> Integer.TryParse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  Dim str As String = "12334"
        Dim res As Integer
        'on verifie si str est numérique si oui le résultat est assigné à res
        If Integer.TryParse(str, res) Then
 
        End If

**franckylebo** · 25/12/2014, 11h29

ok pour l'info, je ne sais pas pourquoi il y a un manque de compatibilité entre VB et framwork (d'après ce que j'ai compris), mais bon, tant qu'a faire, vaut autant être carré des le début.
En tout cas, ta solution fonctionne , ca me permet de voir les différentes possibilités.

Dis moi, DIM c'est pour déclarer des variables ? et str , res sont les variables ?

Allez je décroche momentanément, joyeux Noel à tous, et merci encore pour votre aide précieuse et votre patience.

Créer une calculatrice

VB.NET

Discussions similaires

Partager

Partager