1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Maths
  5. Une simple calculatrice

Une simple calculatrice

Soyez le premier à donner votre avis sur cette source.

Vue 20 610 fois - Téléchargée 2 229 fois


Télécharger le projet
Commenter

Description

Vous trouverez dans le zip le projet complet...

Sinon, faites un form avec :
- Une collection de boutons de Num(0) à Num(9)
- Un bouton appelé NumVirg
- Une collection de boutons de CmdOperation(0) à CmdOperation(4)
- Un bouton appelé CmdReset
- Un TextBox appelé TextChiffre

et mettez le code ci dessous dans votre form :

Source / Exemple : 


Public DernierChiffre As Double
Public Operation As Boolean
Public LeSigne As String
Public Virgule As Boolean

Private Sub CmdOperation_Click(Index As Integer)
If LeSigne <> "" Then Call Validation
    Select Case Index
        Case 0
            LeSigne = "+"
        Case 1
            LeSigne = "-"
        Case 2
            LeSigne = "x"
        Case 3
            LeSigne = "/"
        Case 4
            LeSigne = ""
            Exit Sub
        End Select
        DernierChiffre = TextChiffre.Text
        Operation = True
End Sub

Private Sub CmdReset_Click()
    DernierChiffre = 0
    Operation = False
    LeSigne = ""
    Virgule = False
    TextChiffre = "0"
End Sub
Private Sub Num_Click(Index As Integer)
    If Operation = True Then TextChiffre.Text = "0": Operation = False
    TextChiffre.Text = CDbl(TextChiffre.Text & Index)
End Sub

Private Sub NumVirg_Click()
    If Operation = True Then TextChiffre.Text = "0": Operation = False
    If Virgule <> True Then TextChiffre.Text = TextChiffre.Text & ",": Virgule = True
End Sub

Sub Validation()
        Select Case LeSigne
            Case "+"
                DernierChiffre = DernierChiffre + TextChiffre.Text
            Case "-"
                DernierChiffre = DernierChiffre - TextChiffre.Text
            Case "x"
                DernierChiffre = DernierChiffre * TextChiffre.Text
            Case "/"
                DernierChiffre = DernierChiffre / TextChiffre.Text
        End Select

    TextChiffre.Text = DernierChiffre
    Operation = True
    LeSigne = ""
    Virgule = False
End Sub

Conclusion :


Voila, vous avez votre calculatrice.
Elle est simple mais cela fonctionne, vous pouvez l'amélierer et pourquoi pas mettre vos versions améliorées sur le site. :)
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
ScSami Messages postés 1488 Date d'inscription mercredi 5 février 2003 Statut Membre Dernière intervention 3 décembre 2007 25
15 juin 2005 à 18:07
Hum... Je croyais qu'on devait pas faire de sources récurrentes comme, justement, les calculatrices ;-)

MDR
esoterik Messages postés 9 Date d'inscription vendredi 10 octobre 2003 Statut Membre Dernière intervention 11 février 2004
21 févr. 2004 à 00:47
Pas mal la source, juste petit probleme (tres petit), la text box accepte les lettres donc bug, je fait souvent des test bizarre avec les sources histoire de !!
cs_Lau Messages postés 26 Date d'inscription jeudi 17 janvier 2002 Statut Membre Dernière intervention 25 octobre 2002
23 janv. 2002 à 00:13
Si je fais une opération avec 2 décimaux (p.e., 33.6+58.5), ça marche pas; et si je soustrait 2 entiers de quantité égale (p.e., 36-36), ça marche pas.
cs_Lau Messages postés 26 Date d'inscription jeudi 17 janvier 2002 Statut Membre Dernière intervention 25 octobre 2002
22 janv. 2002 à 17:48
Ce site est carrément génial, on peut s'y exprimer librement. Il permet de progresser très vite... Bravo !!!
RYU
25 oct. 2001 à 14:30
Merci à pour le code,cela ma évité de perdre du Tps
Afficher les 6 commentaires
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 (Nix)