[VB 2005] CLASSE DE CALCUL

Commentaire de damienpasqualinotto le 26/07/2007 21:18:51

Salut a toi...


J'ai trouvé 2 petits problèmes dans ta classe.
Les deux sont en rapport avec ta fonction "remplaceProduit" :


- Quand tu remplace par exemple "3cos" par "3*cos" tu met :

equ = equ.Replace("cos", "*cos")

sauf que si par exemple un "5+cos" traine ailleurs dans le calcul, il sera remplacé par "5+*cos" se qui créé un bug plus tard dans le code.
Je pense que tu devrais plutôt mètre quelque chose comme :

equ = equ.Substring(0, result.Index) & result.Value.Replace("cos", "*cos") & equ.Substring(result.Index + result.Length)

Cela ne pose pas de problème pour les ")(" car elles doivent toutes être changées en ")*(".
Donc par contre je pense que pour les ")(" un simple :

equ = equ.Replace(")(", ")*(")

suffirait sans utilisé d'expression régulières.


- Ensuite tu oubli de rajouter un "*" entre une parenthèse fermée et un chiffre ou |cos|sin|tan|sqr.
Donc par exemple quand le calcul : (2+3)2 est rentré. Le résultat retourné est 52 et non 10.
Je pense qu'avec un :

modèle = "\)(([\-|\+|]?\d+(\.\d*)?)|cos|sin|tan|sqr)"
reg = New Regex(modèle)
result = reg.Match(equ)
Do While result.Success = True            
              equ = equ.Substring(0, result.Index) & result.Value.Replace(")", ")*") & equ.Substring(result.Index + result.Length)
              result = reg.Match(equ)
Loop

le problème sera résolu.


Voila, si tu modifie ton code, n'oublie pas de le mètre à jour dans "Euler".
Si je trouve qu'autre problème je te lés indiquerais aussi.


Damien.

Commentaire de damienpasqualinotto le 27/07/2007 14:18:24

Pour le premier rentre par exemple :
5+cos(2)+4cos(3)

Et pour la deuxième je suis d'accord avec toi sur le fait qu'on écris plutot : k*(K) que (K)*k mais si dans un calcul tu a (2+X)cos(3) par exemple il faut quand même rajouterr un "*" aprés ")".
Voila bone journée.

Damien

Commentaire de Elxior le 31/07/2007 06:23:11

Petite remarque rien de méchant :
Ligne 160 :    If str <> "" Then => If Not str.IsNullOrEmpty Then

Bon code, 9/10