XProfan

Français

Julian
Schmidt

Salut,
suis justement dabei aus Just for Fun une calculette zuschreiben.
Häng allerdings encore à den Punkt comment on à besten cela Ergebnis ausrechnet.
Bräucht une gute Strategie comment on une dans un Editierbox eingebene Matheaufgabe, gelöst dans une variable speichert et ensuite dans qui besagten Editierbox ausgibt
sais maintenant pas comment je cela oui c'est ca anstellen soll.
Hoffe vous pouvez mir dire comment je cela anstelle

Kompilieren Marque Séparation

DEF GetSysColor(1)!"User32","GetSysColor"
declare Edit&,e%,eins&,zwei&,drei&,vier&,fünf&,sechs&,sieben&,acht&,neun&,null&
declare komma&,plus&,minus&,mal&,geteilt&,gleich&,clear&,off&,del&,info&,à l'$,ergebnis!
Fenêtre Style 24
Fenêtre 10,10-250,250
cls GetSysColor(15)
Titre de la fenêtre "Taschenrechner"
Edit& = Créer("Edit",%HWnd,»,20,20,200,20)
eins& = Créer("Button",%HWnd,"1",20,60,30,25)
zwei& = Créer("Button",%HWnd,"2",60,60,30,25)
drei& = Créer("Button",%HWnd,"3",100,60,30,25)
vier& = Créer("Button",%HWnd,"4",20,100,30,25)
fünf& = Créer("Button",%HWnd,"5",60,100,30,25)
sechs& = Créer("Button",%HWnd,"6",100,100,30,25)
sieben& = Créer("Button",%HWnd,"7",20,140,30,25)
acht& = Créer("Button",%HWnd,"8",60,140,30,25)
neun& = Créer("Button",%HWnd,"9",100,140,30,25)
null& = Créer("Button",%HWnd,"0",20,180,30,25)
komma& = Créer("Button",%HWnd,".",60,180,30,25)
plus& = Créer("Button",%HWnd,"+",140,60,30,25)
minus& = Créer("Button",%HWnd,"-",140,100,30,25)
mal& = Créer("Button",%HWnd,"*",140,140,30,25)
geteilt& = Créer("Button",%HWnd,»,140,180,30,25)
gleich& = Créer("Button",%HWnd,"=",100,180,30,25)
clear& = Créer("Button",%HWnd,"C",180,100,40,25)
del& = Créer("Button",%HWnd,"Del",180,140,40,25)
off& = Créer("Button",%HWnd,"Off",180,60,40,25)
info& = Créer("Button",%HWnd,"?",180,180,40,25)

whilenot e%

    waitinput
    waitinput

    si getfocus(eins&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "1"

    elseif getfocus(zwei&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "2"

    elseif getfocus(drei&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "3"

    elseif getfocus(vier&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "4"

    elseif getfocus(fünf&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "5"

    elseif getfocus(sechs&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "6"

    elseif getfocus(sieben&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "7"

    elseif getfocus(acht&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "8"

    elseif getfocus(neun&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "9"

    elseif getfocus(null&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "0"

    elseif getfocus(plus&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "+"

    elseif getfocus(minus&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "-"

    elseif getfocus(mal&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "*"

    elseif getfocus(geteilt&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "/"

    elseif getfocus(komma&)

        à l'$ = Val(GetText $(Edit&))
        SetText Edit&,à l'$ + "."

    elseif getfocus(clear&)

        SetText Edit&,»

    elseIf Getfocus(off&)

        end

    elseif getfocus(info&)

        MessageBox("Title:\t\tTaschenrechner\t\nAutor:\t\tJulian Schmidt\nVersion:\t\t1.0\nErstellungsdatum:\t5.11.2010","I N F O",64)

    elseif getfocus(del&)

        SetText Edit&,à l'$

    elseif getfocus(gleich&)

        ergebnis! = Val(GetText $(Edit&))
        à l'$ = ergebnis!
        SetText Edit&,à l'$

    endif

endwhile

Aussi serait je volontiers qui Del-Funktion améliorer. peux bisher seulement un marque entfernen. on devrait alors aus einer Variable un marque couper
et la valeur ensuite récente transfert.
Pour autre Verbesserungsvorschläge suis naturellement offen
bof Hoffe son könnnt mir chez meinen deux anliegen einwenig aider

mfg

Julian57

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 4 -

Peter
Max
Müller

Kompilieren Marque Séparation

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

08.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

oui bien je veux oui cela dernier marque entfernen, et là qui devoir toujours une autre Longueur hat. Muss qui Befehl entweder de hinten anfangen trop zählen ou bien je muss qui Stringlänge auslesen et qui ensuite à den Del Befehl transfert.

là
@Del$(S,N1,N2[,D])
S : String
N1 : Wert - Position
N2 : Wert - Zeichenzahl
D : String - Trennzeichen (Delimiter)

Ab qui marque-Position N1 volonté N2 marque aus dem String entfernt.

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

So funzts aussi pas
Kompilieren Marque Séparation

Del$(ans$,Len(ans$),1)

et
Kompilieren Marque Séparation

Del$(ans$,-1,1)

malheureusement aussi pas

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Julian57 (07.11.10)

So funzts aussi pas
Kompilieren Marque Séparation

Del$(ans$,Len(ans$),1)

et
Kompilieren Marque Séparation

Del$(ans$,-1,1)

malheureusement aussi pas

alors chez mir einwandfrei:
Kompilieren Marque Séparation

declare ans$
cls
ans$="TestA"
print Del$(ans$,Len(ans$),1)
waitinput

/pre>

Allerdings wird à l'$ pas automatisch angepasst, musst à l'$ naturellement wieder zuordnen:
Kompilieren Marque Séparation

declare ans$
cls
ans$="TestA"
Del$(ans$,Len(ans$),1)
print ans$+" Falsch"
ans$=Del$(ans$,Len(ans$),1)
print ans$+" Richtig"
waitin

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

eh oui cela hab je wohl oublier qc.
mais encore une autre Frage, si je alle marque alors eh bien avec à l'$=Del$(à l'$,Len(à l'$),1) entferne, et dans den String, weil alle marque entfernt sommes rien plus steht, et il ensuite ensuite à l'$=Del$(à l'$,Len(à l'$),1) wieder ausführt, venez une unschöne Fehlermeldung. comment entferne je qui am geschicktesten?
Kompilieren Marque Séparation

DEF GetSysColor(1)!"USER32","GetSysColor"
declare Edit&,e%,eins&,zwei&,drei&,vier&,fünf&,sechs&,sieben&,acht&,neun&,null&
declare komma&,plus&,minus&,mal&,geteilt&,gleich&,clear&,off&,del&,info&,ans$,ergebnis!
WindowStyle 24
Window 10,10-250,250
cls GetSysColor(15)
WindowTitle "Taschenrechner"
Edit& = Create("Edit",%HWnd,"",20,20,200,20)
eins& = Create("Button",%HWnd,"1",20,60,30,25)
zwei& = Create("Button",%HWnd,"2",60,60,30,25)
drei& = Create("Button",%HWnd,"3",100,60,30,25)
vier& = Create("Button",%HWnd,"4",20,100,30,25)
fünf& = Create("Button",%HWnd,"5",60,100,30,25)
sechs& = Create("Button",%HWnd,"6",100,100,30,25)
sieben& = Create("Button",%HWnd,"7",20,140,30,25)
acht& = Create("Button",%HWnd,"8",60,140,30,25)
neun& = Create("Button",%HWnd,"9",100,140,30,25)
null& = Create("Button",%HWnd,"0",20,180,30,25)
komma& = Create("Button",%HWnd,".",60,180,30,25)
plus& = Create("Button",%HWnd,"+",140,60,30,25)
minus& = Create("Button",%HWnd,"-",140,100,30,25)
mal& = Create("Button",%HWnd,"*",140,140,30,25)
geteilt& = Create("Button",%HWnd,":",140,180,30,25)
gleich& = Create("Button",%HWnd,"=",100,180,30,25)
clear& = Create("Button",%HWnd,"C",180,100,40,25)
del& = Create("Button",%HWnd,"Del",180,140,40,25)
off& = Create("Button",%HWnd,"Off",180,60,40,25)
info& = Create("Button",%HWnd,"?",180,180,40,25)

whilenot e%

    waitinput
    waitinput

    if getfocus(eins&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "1"

    elseif getfocus(zwei&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "2"

    elseif getfocus(drei&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "3"

    elseif getfocus(vier&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "4"

    elseif getfocus(fünf&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "5"

    elseif getfocus(sechs&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "6"

    elseif getfocus(sieben&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "7"

    elseif getfocus(acht&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "8"

    elseif getfocus(neun&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "9"

    elseif getfocus(null&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "0"

    elseif getfocus(plus&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "+"

    elseif getfocus(minus&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "-"

    elseif getfocus(mal&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "*"

    elseif getfocus(geteilt&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "/"

    elseif getfocus(komma&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "."

    elseif getfocus(clear&)

        SetText Edit&,""

    elseIf Getfocus(off&)

        end

    elseif getfocus(info&)

        MessageBox("Title:\t\tTaschenrechner\t\nAutor:\t\tJulian Schmidt\nVersion:\t\t1.0\nErstellungsdatum:\t5.11.2010","I N F O",64)

    elseif getfocus(del&)

        ans$ = Val(GetText$(Edit&))
        ans$=Del$(ans$,Len(ans$),1)
        SetText Edit&,ans$

    elseif getfocus(gleich&)

        ergebnis! = Val(GetText$(Edit&))
        ans$ = ergebnis!
        SetText Edit&,ans$

    ./../funktionsreferenzen/XProfan/endif/'>endif

endwhile

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Zwingt toi oui niemand quelque chose aus einem String trop entfernen qui garkeine marque contient. ^ ^

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

oui déjà, mais je hätte déjà volontiers cela es dans den Programme aucun dubiosen Fehlermeldungen gibt

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Schonmal quoi de si est?

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

oui mais welchen Wert muss je zuweisen
Kompilieren Marque Séparation

ans$ = Val(GetText$(Edit&))

If ans$=?//Wie ist der Wert für eine leere Variable?

    ans$=1

EndIF

ans$=Del$(ans$,Len(ans$),1)
SetText E

ns$

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Rolf
Koch

Demandez à auparavant ab:
Kompilieren Marque Séparation

if ans$ > ""

    ......' wenn ans$ halt grösser als Leer

endi

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

merci, funzt super
Kompilieren Marque Séparation

DEF GetSysColor(1)!"USER32","GetSysColor"
declare Edit&,e%,eins&,zwei&,drei&,vier&,fünf&,sechs&,sieben&,acht&,neun&,null&
declare komma&,plus&,minus&,mal&,geteilt&,gleich&,clear&,off&,del&,info&,ans$,ergebnis!
WindowStyle 24
Window 10,10-250,250
cls GetSysColor(15)
WindowTitle "Taschenrechner"
Edit& = Create("Edit",%HWnd,"",20,20,200,20)
eins& = Create("Button",%HWnd,"1",20,60,30,25)
zwei& = Create("Button",%HWnd,"2",60,60,30,25)
drei& = Create("Button",%HWnd,"3",100,60,30,25)
vier& = Create("Button",%HWnd,"4",20,100,30,25)
fünf& = Create("Button",%HWnd,"5",60,100,30,25)
sechs& = Create("Button",%HWnd,"6",100,100,30,25)
sieben& = Create("Button",%HWnd,"7",20,140,30,25)
acht& = Create("Button",%HWnd,"8",60,140,30,25)
neun& = Create("Button",%HWnd,"9",100,140,30,25)
null& = Create("Button",%HWnd,"0",20,180,30,25)
komma& = Create("Button",%HWnd,".",60,180,30,25)
plus& = Create("Button",%HWnd,"+",140,60,30,25)
minus& = Create("Button",%HWnd,"-",140,100,30,25)
mal& = Create("Button",%HWnd,"*",140,140,30,25)
geteilt& = Create("Button",%HWnd,":",140,180,30,25)
gleich& = Create("Button",%HWnd,"=",100,180,30,25)
clear& = Create("Button",%HWnd,"C",180,100,40,25)
del& = Create("Button",%HWnd,"Del",180,140,40,25)
off& = Create("Button",%HWnd,"Off",180,60,40,25)
info& = Create("Button",%HWnd,"?",180,180,40,25)

whilenot e%

    waitinput
    waitinput

    if getfocus(eins&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "1"

    elseif getfocus(zwei&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "2"

    elseif getfocus(drei&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "3"

    elseif getfocus(vier&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "4"

    elseif getfocus(fünf&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "5"

    elseif getfocus(sechs&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "6"

    elseif getfocus(sieben&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "7"

    elseif getfocus(acht&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "8"

    elseif getfocus(neun&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "9"

    elseif getfocus(null&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "0"

    elseif getfocus(plus&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "+"

    elseif getfocus(minus&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "-"

    elseif getfocus(mal&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "*"

    elseif getfocus(geteilt&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "/"

    elseif getfocus(komma&)

        ans$ = Val(GetText$(Edit&))
        SetText Edit&,ans$ + "."

    elseif getfocus(clear&)

        SetText Edit&,""

    elseIf Getfocus(off&)

        end

    elseif getfocus(info&)

        MessageBox("Title:\t\tTaschenrechner\t\nAutor:\t\tJulian Schmidt\nVersion:\t\t1.0\nErstellungsdatum:\t5.11.2010","I N F O",64)

    elseif getfocus(del&)

        ans$ = Val(GetText$(Edit&))

        if ans$ > ""

            ans$=Del$(ans$,Len(ans$),1)
            SetText Edit&,ans$

        Endif

    elseif getfocus(gleich&)

        ergebnis! = Val(GetText$(Edit&))
        ans$ = ergebnis!
        SetText Edit&,ans$

    ='./../../funktionsreferenzen/XProfan/endif/'>endif

endwhile

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Julian
Schmidt

Salut,
bräuchte encore un petite wenig Aider avec dem Parsen
et zwar je ne sais pas oui c'est ca comment je dans einer Si überprüfen peux si eh bien un + or - or / or * dans qui String vorhanden ist
Hab mir cela dans etwa so gedacht
Kompilieren Marque Séparation

IF Instr(*,ans$)=Wert wenn erfolgreich or Instr(/,ans$)=Wert wenn erfolgreich or Instr(+,ans$)=Wert wenn erfolgreich or Instr(-,ans$)=Wert wenn erfolgreichre>

comment peux on dans qui si eh bien abfragen si cela marque dans qui String vorhanden ist ?

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

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

var s$="10*20"
case instr("*",s$) : ende>

InStr gibt qui Position des gesuchten Zeichens.

ou bien
Kompilieren Marque Séparation

var s$="10*20"

if instr("*",s$)

    ...

end

gleichzusetzen avec
Kompilieren Marque Séparation

var s$="10*20"

ifNot instr("*",s$)=0

    ...

endif

07.11.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

◄

123 4 5 6

►

répondre

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

34.088 Views

Untitled	vor 0 min.
Peter Max Müller	21.01.2024
iF	23.07.2015
Julian Schmidt	02.02.2013
Michaeal	18.10.2012
plus...

Themeninformationen

cet Thema hat 8 participant:

Julian Schmidt (29x)

iF (24x)

Rolf Koch (3x)

Peter Max Müller (3x)

XProfan

Problem - Selbst programmierter calculette

« cette Beitrag wurde comme Solution gekennzeichnet. »

répondre

Options du sujet

34.088 Views

Themeninformationen

protection des données