Discussion :

[Delbeke]

J'ai écrit un analyseur/resolveur d'expressions algébriques et l'ai incorporé dans un composant OCX

Ce source est intéresant car il montre comment font les compilateurs pour évaluer des expressions algebriques
On fourni au composant une chaine de caractères, celui-ci l'analyse en vue de la transformer en notation polonaise inversée dans fonction PostFixIt.
Cette partie fait appel massivement à la récurence (Une fonction appelle un fonction qui elle même , a un momment ou un autre va appeller la première).
Ensuite cette chaine est exécutée à l'aide d'une pile LIFO (Last In/First Out) dans la fonction DoCalcule


Le programme est capable d'analyser

un niveau de paranthèses quelquonque


OCX DiEval6.zip

les quatres opérations de base , Puissance

les fonctions
ABS(X) 'valeur absolue
AR0(X) / RD0(X) 'arrondi à l'entier
AR1(X) / RD1(X) 'arrondi à une decimale
AR2(X) / RD2(X) 'arrondi à deux decimales
AR3(X) / RD3(X) 'arrondi à trois decimales
AR4(X) / RD4(X) 'arrondi à quatre decimales
ATN(X) 'ArcTangente
COS(X) 'Cosinus
EXP(X) 'Exponentielle
FIX(X) 'tronquage de la partie entiere
INT(X) 'Partie Intiere
LOG(X) 'Logarithme
SIN(X) 'sinus
TAN(X) 'tangente


l'evalutation entre deux expressions , au quel cas le resultat sera un vrai/faux

NOT expression 'Negation
OR / OU 'Or
AND / ET 'And
> 'Superieur strictement
>= / => 'Superieur ou Egal
= 'egal
<= / =< 'Inferieur ou egal
< 'inferieur strictement

J'espere que ce sera utile à quelqu'un

[Delbeke]

Bon, j'ai l'impression que mon ocx genial n'est pas si genial que çà
Il n'a pas l'air d'interesser grand monde

Moi il me sert tout le temps. par exemple dans une application de facturation, je ne demande plus un simple nombre pour la quantié.
Si il s' agit de facturer 2 palettes de 45 colis , chaque colis contenant 16 items, l'operateur de saisie compose 2*45*16 directement dans la case quantité. moi ca me paraissait génial mais bof.

[AlainTech]

Ce n'est pas parce que personne ne réagit que ce n'est pas intéressant.

Beaucoup de gens viennent ici sans jamais poster. On ne sait donc pas quel est le nombre de personnes qu'une contribution quelconque peut intéresser.

[Delbeke]

Merci de me remonter le moral

[Yanos]

il n'y aurait pas le logarithme néperien par hazard?

[Delbeke]

Non, car la resolution des fonctions est prise en charge par les fonctions de VB. Mais il reste toujurs la possibilité de calculer le logarithme néperien avec les fonctions de Vb, donc on pourait l'implementer tres facilement

[Delbeke]

apres une rapide recherche sur l'aide de vb
voici comment calculer le log népérien

Code :

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

1
2
3
4
 
Public Function Log10(X)
   Log10 = Log(X) / Log(10#)
End Function