Easy calculette

0/5 (3 avis)

Snippet vu 2 499 fois - Téléchargée 276 fois

Contenu du snippet

Ne minsulter pas c mon premier prog donc si il est nul, ne le disait pas lol

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 Form_Load()

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

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

A voir également

Ajouter un commentaire

Commentaires

cs_NeoHacker
Messages postés
1
Date d'inscription
mardi 1 octobre 2002
Statut
Membre
Dernière intervention
1 octobre 2002
-
Merci les gard mais ca fais pas longtemps que g commencé alors faudrai etre plus souple sur vos critique merci ;-)
cs_mehdibou
Messages postés
365
Date d'inscription
vendredi 24 mai 2002
Statut
Membre
Dernière intervention
18 octobre 2004
-
Ca me rappelle la calculatrice JavaScript !

Pas mal ! Faudrait juste étendre les fonctions...
cs_DARKSIDIOUS
Messages postés
15815
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
83 -
Mouai, c'est un peu basique comme calculatrice, mais bon, ca fonctionne au moins

DARK SIDIOUS

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.