XProfan

Kompilieren Marque Séparation

- page 5 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 4 -

Peter
Max
Müller

DEF CTStr(2) si(len($(2))=0,0,(len($(1))-len(translate$($(1),$(2),»)))/len($(2)))'zählt comment souvent $2 dans $1 vorkommt
DEF InStrExt(3) int(instr($(2),mid$($(1),&(3),len($(1))))+&(3))'cherchez dans $1 ab &3 pour $2
DEF InStrLast(3) si(instrext($(1),$(2),&(3))>&(3),instrlast($(1),$(2),instrext($(1),$(2),&(3))),int(&(3)-1))'cherchez dans $1 ab &3 pour dem letzen vorkommen de $2, arbeitet Rekursiv.
'si on qui Operatorzeichen changement voudrais braucht on seulement qui entsprechenden marque changement dans den 2 folgenden Funktionen changement
DEF MathTabs(2) translate$(translate$(translate$(translate$($(1),"+",$(2)),"-",$(2)),"*",$(2)),"/",$(2))
DEF GetMath(1) si($(1)="+",1,si($(1)="-",2,si($(1)="*",3,si($(1)="/",4,0))))
'cela Kernstück, so petite et doch un ganzer calculette
'Funktioniert seulement alleine si le Variablen aus Math Global gesetzt wurden (Ergebnis toujours dans ma_v1& !)

proc mathcore

    parameters ma_cmd$
    ma_s2$="«Æ»"'MathTabs-marque = Beliebige Zeichenfolge qui pas im Ausdruck vorkommen sollte, sonst falsche Berechnung !
    ma_s4$=mathtabs(ma_cmd$,ma_s2$)'MathTabs mettons
    ma_s3$=»
    ma_v1&=0
    ma_v2&=1

    whileloop ctstr(ma_s4$,ma_s2$)+1

        ma_s3$=substr$(ma_s4$,&loop,ma_s2$)'Wert erfassen - ici pourrait on den Ausdruck zB. sur une certain Namen vérifier (pour Variablen dans Skriptsprachen).
        ma_v1&=si(ma_v2&=0,ma_v1&,si(ma_v2&=1,ma_v1&+val(ma_s3$),si(ma_v2&=2,ma_v1&-val(ma_s3$),si(ma_v2&=3,ma_v1&*val(ma_s3$),si(val(ma_s3$)<1,ma_v3&,ma_v1&/val(ma_s3$))))))
        ma_v2&=GetMath(mid$(ma_cmd$,len(ma_s3$)+1,1))
        ma_cmd$=del$(ma_cmd$,1,len(ma_s3$)+1)

    Wend

endproc

'Berechnung avec Klammern
'tête-Procédure qui automatisch seulement alle Klammern ausrechnet (si quelle vorkommen)

proc math

    parameters ma_prio$
    declare ma_s1$,ma_s2$,ma_s3$,ma_s4$,ma_v1&,ma_v2&,ma_v3&,ma_v4&'chez häufiger Benutztung Global mettons (Ergebnis toujours dans ma_v1& !)
    cas or(instr(")",ma_prio$)<instr("(",ma_prio$),neq(ctstr(ma_prio$,"("),ctstr(ma_prio$,")"))):ma_prio$="0"'ungültige Klammersetzung: Wert sur zéro mettons

    whilenot ctstr(ma_prio$,"(")=0

        ma_v3&=instr("(",ma_prio$)+1
        ma_v4&=instrext(ma_prio$,")",ma_v3&)-1
        ma_v3&=ma_v3&+instrlast(mid$(ma_prio$,ma_v3&,ma_v4&-ma_v3&),"(",1)'Klammern de dedans pour Außen auflösen
        mathcore mid$(ma_prio$,ma_v3&,ma_v4&-ma_v3&)
        ma_prio$=del$(ma_prio$,ma_v3&-1,ma_v4&-ma_v3&+2)
        ma_prio$=ins$(str$(ma_v1&),ma_prio$,ma_v3&-1)

    Wend

    mathcore ma_prio$
    return ma_v1&

endproc

declare ed1%,bt1%
window 20,20-420,150
drawtext 5,5,"Berechnung eingeben... (+ Ajouter ; - Sous ; / Div ; * Mul ; ( ) Prio)"
ed1%=create("edit",%hwnd,"5+(30*(4/2)+10)",5,25,400,21)'5+((10/2)*10)-30
bt1%=create("button",%hwnd,"Berechnen",5,50,400,40)

whilenot %clé=2

    waitinput
    'XProfan
    cas getfocus(bt1%):messagebox("Ergebnis: "+str$(math(gettext$(ed1%))),"Ergebnis:",0)
    ''Profan 7:
    'cas getfocus(bt1%):math gettext$(ed1%)
    'cas getfocus(bt1%):messagebox("Ergebnis: "+str$(&(0)),"Ergebnis:",0)

Wend

end

cela ganze ist dans 2 Module aufgeteilt: Mathcore berechnet une Ausdruck, Math rechnet zusätzlich d'abord alle Klammern aus.

qui Procédure Math appel !

paramètre: $ (Formel)
Rückgabe: & (Ergebnis)

XProfan X3, X4ß, Win 10.1

Julian
Schmidt

Salut,
Nochmal le Fragen
Frage 1.

1. comment findet on heraus à quel Position qui Operator(+,-./,*) liegt?

cela sollte avec op1%=instr("*",à l'$) aller. cela Ergebnis sollte dan qui Position vom Sternchen son
Frage 2

2. comment peux on cela faire cela il de dem Rechenoperator eh bien solange es Les chiffres sommes nachrechts allez et qui Position des marque avant dem Operator deux dans einer Variable Sauver?

cela devrait ensuite folglich avec
op2%=instr("*",à l'$,op1%) marcher

si ürgentetwas maintenant faux ist s'il te plaît posten

eh bien encore zur Frage 4

4. comment rechnet on Anschließend den ersten partie qui devoir aus, et Hängt den reste widerum tour et gibt cela Ergebnis aus?

pouvez euch oui déjà la fois quoi envahir laisser, je schreib erstmal partie 1-3 fertig

mfg

Julian57

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Julian
Schmidt

comment peux on avec instr plusieurs Argumente prendre?
Beispiel
op2%=instr("*,/,+,-",à l'$,op1%) //allez avec Komma pas
allez cela überhaupt?

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Rolf
Koch

comment meinst Du cela? op2% peux dir oui seulement une Position im String zurückliefern et pas plusieurs se mettre.
Mach plusieurs Variablen et frag cet ensuite avec cas ou bien si ab.

Julian
Schmidt

oui bien je voulais pas encore une gigantischen Block construire.Wird toujours schwerer avec dem parsen.voulais eigentlich seulement cela il gleichzeitig qui Argumente +,-,*,/ im String à l'$ ab qui Position op1% cherchez. et cela il mir qui Position vom ersten gefundene Argument dans qui Variable op2% écrit.
mais so comment sich cela anhöhrt muss je wohl doch encore une gewaltige Si-Prodzedur hinzufügen

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Julian
Schmidt

bof steigt avec maintenant übern tête werd maintenant doch wohl den calculette dans qui Aider paraphraser.

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Peter
Max
Müller

mon erstes Posting trop diesem Thema ist pas cela quoi du brauchst?

XProfan X3, X4ß, Win 10.1

Julian
Schmidt

nunja voulais chez Je ne debuggen aussi voulais je es pas trop compliqué venons laisser

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

Peter
Max
Müller

Gute nuit.

XProfan X3, X4ß, Win 10.1

@Peter: je sag seulement:

Julian57 (08.11.10)

Nunja sur cela quoi j'écris scheinst du(IF) oui nich sonderlich Wert zulegen

@Julian: avec ZIP packste cela simple.

comment komm je maintenant ici her???

E.T.

... cela scheind oui ici wieder la fois in's Sinnlose abzutrifften

[OFFTOPIC]
@IF: Irgendwie scheind cela avec den Smilies überhaupt nich hinzuhau'n:
S aus S-sélection eingefügt, mais im poste steht qui S-Code (*irgendwas*), cependant pas cela Smilie

Nachtrag: avec den S, quelle avec : anfangen, scheind es trop funzen, avec *-S mais pas...
[/OFFTOPIC]

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

09.11.2010 ▲

[OFFTOPIC]

Irgendwie scheind cela avec den Smilies überhaupt nich hinzuhau'n:

quel tritt seinen Dienst pas à?[/OFFTOPIC]

09.11.2010 ▲