Accueil > > > ENCADREMENTS ET APPROXIMATIONS
ENCADREMENTS ET APPROXIMATIONS
Information sur la source
Description
Ce code donne plusieurs fonctions semblables à Round de VB6. Plus précisément 4 fonctions sont disponibles: -Une fonction équivalente à Round -Une fonction donnant une valeur approchée par défaut -Une fonction donnant une valeur approchée par exès -Une fonction d'encadrement
Source
-
- '----------------------REMARQUES PRELIMINAIRES---------------------
-
- 'DANS TOUTES CES FONCTIONS
-
- '- n représente le nombre que l'on veut approcher
- '- e représente le nombre de chiffres après la virgule, la précision
-
- '------Définition de la partie entière ( Int ou Fix )------
- 'Quel que soit le réel x, il existe un unique p tel que
- 'p<=x<p+1 cet entier est appelé partie entière
-
- 'L'existence et l'unicité ne sont pas prouvées ici mais si un doute
- 'persiste sur ces deux propriétés contactez moi sur le réseau codes source.
-
-
-
- Public Function Roundinf(n As Double, e As Long) As Double
-
- Roundinf = Fix((10 ^ e) * n) / (10 ^ e)
-
-
- 'La fonction Roundinf renvoie une valeure toujours inférieure à n,
- 'Ceci se démontre grâce à la définition de la partie entière donnée ci dessus
- 'en effet, il est évident qu quel que soit x, fix(x*10^n)<x*10^n
- 'On obtient ce qu'on veut prouver en divisant par 10^n
-
- End Function
-
-
-
- Public Function Roundsup(n As Double, e As Long) As Double
-
- Roundsup = Roundinf(n, e) + (1 / (10 ^ e))
-
- 'On montre de la même manière que la fonction Roundsup renvoi un
- 'nombre toujours supérieur à celui qui est donné
-
- End Function
-
-
- Public Function Roundapp(n As Double, e As Long) As Double
- 'Cette fonction est équivalente à la fonction Round sous VB6
-
- If n = Fix(n) Then
- Roundapp = n
- Else
-
-
- n = n + "0"
- 'Evite les erreur de comparaison de 5 avec ""
-
- ent = Fix(n)
- Rang = Len(ent) + 2 + e
- 'Rang nous donne le rang de la valeure située en e+1 position apres la virgule
-
- valeure = Mid$(n, Rang, 1)
-
- If valeure >= 5 Then
- Roundapp = Roundsup(n, e)
-
- Else: Roundapp = Roundinf(n, e)
-
- End If
- 'Conventions d'arrondissement identique à Round()
-
- End If
-
- End Function
-
- Public Function Encadrement(n As Double, e As Long) As Double
-
- Encadrement = Roundinf(n, e) + " < " + n + " < " + Roundsup(n, e)
-
- End Function
'----------------------REMARQUES PRELIMINAIRES---------------------
'DANS TOUTES CES FONCTIONS
'- n représente le nombre que l'on veut approcher
'- e représente le nombre de chiffres après la virgule, la précision
'------Définition de la partie entière ( Int ou Fix )------
'Quel que soit le réel x, il existe un unique p tel que
'p<=x<p+1 cet entier est appelé partie entière
'L'existence et l'unicité ne sont pas prouvées ici mais si un doute
'persiste sur ces deux propriétés contactez moi sur le réseau codes source.
Public Function Roundinf(n As Double, e As Long) As Double
Roundinf = Fix((10 ^ e) * n) / (10 ^ e)
'La fonction Roundinf renvoie une valeure toujours inférieure à n,
'Ceci se démontre grâce à la définition de la partie entière donnée ci dessus
'en effet, il est évident qu quel que soit x, fix(x*10^n)<x*10^n
'On obtient ce qu'on veut prouver en divisant par 10^n
End Function
Public Function Roundsup(n As Double, e As Long) As Double
Roundsup = Roundinf(n, e) + (1 / (10 ^ e))
'On montre de la même manière que la fonction Roundsup renvoi un
'nombre toujours supérieur à celui qui est donné
End Function
Public Function Roundapp(n As Double, e As Long) As Double
'Cette fonction est équivalente à la fonction Round sous VB6
If n = Fix(n) Then
Roundapp = n
Else
n = n + "0"
'Evite les erreur de comparaison de 5 avec ""
ent = Fix(n)
Rang = Len(ent) + 2 + e
'Rang nous donne le rang de la valeure située en e+1 position apres la virgule
valeure = Mid$(n, Rang, 1)
If valeure >= 5 Then
Roundapp = Roundsup(n, e)
Else: Roundapp = Roundinf(n, e)
End If
'Conventions d'arrondissement identique à Round()
End If
End Function
Public Function Encadrement(n As Double, e As Long) As Double
Encadrement = Roundinf(n, e) + " < " + n + " < " + Roundsup(n, e)
End Function
Conclusion
Bravo à Gobillot pour sa patience. et allez voir http://www.vbfrance.com/forum.v2.aspx?ID=671735&po st=ok
Historique
- 22 décembre 2005 22:30:14 :
- Oubli d'une fonction
- 23 décembre 2005 09:10:03 :
- Plusieurs corections suite aux 2 premiers commentaires
- 23 décembre 2005 09:23:01 :
- Idem, correction de Roundapp en ajoutant un 0 apres la virgule
- 24 février 2006 17:06:40 :
- variables
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
ARRONDIR DECIMAL VB.NET [ par spike62300 ]
Bonjour ,voila j'ai besoin pour mon developpement d'arrondir certains chiffres apres la virgul. Pour l'instant ca serait l'arrondi le plus basique15.2
arrondir à l entier [ par spike62300 ]
Bonjour a tous, je suis sous vb.net et je chercher une solution pour arrondir certains calculs que j'execute.Je souhaite arrondir à l'entier 0, j
arrondir un nombre [ par titidegre ]
bonjour à toutes et à tous(y a aussi des filles qui code) apres un cacul ma variable me donne un resultat, par exemple de 2.4978, j'aimerai
SMS text--->PDU (delphi-->vb) [ par bilalstar ]
salut,quelqu'un peut m'aider en me transformant cette fonction de Delphi vers VB.Car je connais pas le Language Delphi.c'est d'ailleurs un entrainemen
SMS test-->PDU [ par bilalstar ]
salut,quelqu'un peut m'aider en me transformant une portion de cette fonction de Delphi vers VB.Car je connais pas le Language Delphi.c'est d'ailleurs
Arrondir à l'entier supérieur [ par pcvesoul ]
Bonjour.Existe-t-il une formule permettant d'arrondir un nombre non entier à l'entier supérieur : 12 reste 12 mais 12.1 devient 13 ?Mon but
Approximation par la methode de moindre carrés [ par ust3000 ]
Salut à tous et à toutes. Dans le cadre d'un projet étudiant, je cherche à mettre en oeuvre une méthode d'approximation style
Arrondir un nombre entier [ par gbegnonghislain ]
Salut à tous, ce que je veux en fait, c'est arrondir un montant au millier de franc prêt pour ensuite faire d'autres opération a
Arrondir [ par darxvirus ]
Bonjour,j'aimerai savoir comment arrondir l'argent a 5 ou a 0 a la fin exemple: 23.33 --> 23.35 &nbs
Arrondir un nombre [ par bichoncanada ]
Bonjour,Je voudrais savoir la fonction permettant d'arrondir un nombre. J'ai une ProgressBar et elle me met des nombres avec des chiffres aprés l
|
Derniers Blogs
SIMULER FACILEMENT L'ENVOI DE MAILSIMULER FACILEMENT L'ENVOI DE MAIL par JeremyJeanson
il m'a été demandé, à plusieurs reprises, comment je faisais pour simuler l'envoi de mail lors de mes démos de Workflow Foundation. Ma solution est plutôt simple : j'utilise la configuration par défaut du SmtpClient et j'oriente les mails vers un dossier ...
Cliquez pour lire la suite de l'article par JeremyJeanson VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES !VOTEZ POUR LE TOP 10 DES INFLUENCEURS SHAREPOINT FRANCOPHONES ! par Patrick Guimonet
Si ce n'est déjà fait (comme plus de 600 personnes déjà), il est encore temps de voter pour le concours TOP 10 des influenceurs SharePoint francophones ! Il est organisé par harmon.ie et accessible ici : http://harmon.ie/top-...
Cliquez pour lire la suite de l'article par Patrick Guimonet [CONF'SHAREPOINT] DERNIER RAPPEL ! :-)[CONF'SHAREPOINT] DERNIER RAPPEL ! :-) par Patrick Guimonet
La Conf'SharePoint en chiffres c'est : 3 jours de SharePoint ! 4 parcours et 60 sessions 17 partenaires représentant toutes les fac...
Cliquez pour lire la suite de l'article par Patrick Guimonet [ #SHAREPOINT 2013 ] LES MODèLES DE SITES STANDARDS.[ #SHAREPOINT 2013 ] LES MODèLES DE SITES STANDARDS. par Patrick Guimonet
C'est un point peu mis en avant mais SharePoint 2013 a été l'occasion de remettre de l'ordre dans les modèles de sites. Tout d'abord, un certain nombre de modèles ont été tout simplement rendus obsolètes (cf. Fonctionnalités déco...
Cliquez pour lire la suite de l'article par Patrick Guimonet
Forum
RE : DEAMANDE RE : DEAMANDE par bassomarosa
Cliquez pour lire la suite par bassomarosa
Logiciels
Easy-Planning (4.5.0.11)EASY-PLANNING (4.5.0.11)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté a... Cliquez pour télécharger Easy-Planning CVEasy (3.1.0.51)CVEASY (3.1.0.51)PHMSD-CVEasy est un logiciel d'aide à la rédaction de CV d'une simplicité déconcertante.
PHMSD-C... Cliquez pour télécharger CVEasy LettresFaciles 2011 (8.6.0.31)LETTRESFACILES 2011 (8.6.0.31)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011 sDEVIS-FACTURES vlPRO (8.4.2.62)SDEVIS-FACTURES VLPRO (8.4.2.62)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO Devis-Factures PHMSD (2.1.0.11)DEVIS-FACTURES PHMSD (2.1.0.11)Configuration minimale
Nécessite Windows™ 2000, XP, Windows 7, 8, Vista (Service Pack à... Cliquez pour télécharger Devis-Factures PHMSD
|