begin process at 2012 02 11 21:52:50
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Maths

 > CALCULATRICE MULTIFONCTION

CALCULATRICE MULTIFONCTION


 Information sur la source

Note :
9 / 10 - par 4 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths Niveau :Débutant Date de création :18/01/2004 Vu / téléchargé :6 616 / 1 547

Auteur : dezossor

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

Cette calculatrice en est une de plus, elle fait calculatrice classique, convertisseur Fr-euros, et passe de ht a ttc avec le choix de la TVA 5,5% ou 19,6%.
J'ai essaiyé de travailler le code pour que si l'on se serve du clavier numèrique ca marche, et c operationnelle pour le chiffre mais pas encore pour les virgules, ni pour les operateur.
si quelqu'un a la solution merci de me la faire passer par mail ou en commentaire.



 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture PV : MESSAGERIE INSTANTANÉE POUR RESEAU PRIVÉ
Source avec Zip Source avec une capture SCRIPT DE CONNEXION WINDOWS A UN PDC

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5

Commentaires et avis

Commentaire de Saros le 19/01/2004 18:41:41

Au moins, ça a le mérite d'être simple, claire et précis, sans lacune...
Rien à ajouter... 9/10
Saros

Commentaire de michmuch2000 le 30/01/2004 02:25:41

Si ca t'interesse... ça récupère le clavier numérique et ca calcule.

une form, deux label : calcul et visu et un module.

Dim ch1 As Single
Dim ch2 As Single
Dim tot As Single
Dim Addition As Boolean
Dim Multiplication As Boolean
Dim Division As Boolean
Dim Soustraction As Boolean
Dim ope As Boolean
Private Sub Form_Load()
'calcul = calcul & Chr(KeyAscii)
calcul = "0"
End Sub

Private Sub form_KeyPress(KeyAscii As Integer)
calcul = calcul & Chr(KeyAscii)
visu = visu & Chr(KeyAscii)
If Left(calcul, 1) = "0" Then calcul = Right(calcul, Len(calcul) - 1)
If ope = True Then calcul = Right(calcul, 1): ope = False
If KeyAscii = 27 Then calcul = "0": visu = "": ch1 = 0: ch2 = 0: tot = 0

If KeyAscii = 43 Then
ch1 = virgule(Left(calcul, Len(calcul) - 1)): ope = True: calcul = Left(calcul, Len(calcul) - 1)
'calcul = "0"
Addition = True
End If
If KeyAscii = 45 Then
ch1 = virgule(Left(calcul, Len(calcul) - 1)): ope = True: calcul = Left(calcul, Len(calcul) - 1)
Soustraction = True
'calcul = "0"
End If
If KeyAscii = 47 Then
ch1 = virgule(Left(calcul, Len(calcul) - 1)): ope = True: calcul = Left(calcul, Len(calcul) - 1)
Division = True
'calcul = "0"
End If
If KeyAscii = 42 Then
ch1 = virgule(Left(calcul, Len(calcul) - 1)): ope = True: calcul = Left(calcul, Len(calcul) - 1)
Multiplication = True
'calcul = "0"
End If
If KeyAscii = 13 Then
If Multiplication = True Then
    ch2 = virgule(calcul)
    tot = ch1 * ch2
    calcul = tot
    visu = visu & "=(" & tot & ") "
End If
If Division = True Then
    ch2 = virgule(calcul)
    tot = ch1 / ch2
    calcul = tot
    visu = visu & "=(" & tot & ") "
End If
If Soustraction = True Then
    ch2 = virgule(calcul)
    tot = ch1 - ch2
    calcul = tot
    visu = visu & "=(" & tot & ") "
End If
If Addition = True Then
    ch2 = virgule(calcul)
    tot = ch1 + ch2
    calcul = tot
    visu = visu & "=(" & tot & ") "
End If
Addition = False
Multiplication = False
Division = False
Soustraction = False
End If

'text2 = KeyAscii
End Sub


'************************
'et ceci dans un module
'************************
Function virgule(entree As String) As Single
If InStr(1, entree, ".") Then virgule = Replace(entree, ".", ",") Else virgule = CSng(entree)
End Function

Commentaire de neamar le 16/03/2008 12:49:57

Salut
Le problème de ta calculette, c'est qu'elle ne permet pas de faire des gros calculs : par exemple, avec parenthèses et gestion des priorités...
Si tu veux l'améliorer, j'ai posté une source qui va dans ce sens : http://www.vbfrance.com/code.aspx?ID=46070

 Ajouter un commentaire




Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,669 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales