XProfan

- page 3 -

RGH

[quote-part:fefed84ff0=Dietmar Horn]peux Du le reste irgendwie jusqu'à zum final Erscheinen de XProfan 10.0 so abändern, qui aussi cet Kleinigkeit wieder so funktioniert, comment bereits depuis Jahren?[/quote-part:fefed84ff0]
je denke, cela bekomme je hin ... allerdings seulement pour einer demain soir beginnenden semaine Urlaub avec qui la famille dans Antibes (Südfrankreich). alors s'il te plaît pas wurdern, si je mich qui prochain Tage ici zurückhalte.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Michael
Dell

Erholt Euch bien!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

[quote-part:89être1ff2e1]je denke, cela bekomme je hin ... allerdings seulement pour einer demain soir beginnenden semaine Urlaub avec qui la famille dans Antibes (Südfrankreich). alors s'il te plaît pas wurdern, si je mich qui prochain Tage ici zurückhalte.
[/quote-part:89être1ff2e1]
allô Roland
d'abord einmal une schönen Urlaub dans Frongreisch - mais qui schiesst den Mist sur qui Profan-Site zwischenzeitlich ab ?

Es wird nämlich toujours schlimmer (reim toi ou bien je fress toi)

@Dietmar: j'ai aussi so manch Riesenprojekte chez denen cet annonce trop Problemen führte.

tout autor hab je avant un paire Tagen cet Funktion dans qui Babyklappe gelegt:
Kompilieren Marque Séparation

Proc Lb_getselstring

    verhindert eine fehlermeldung wenn cursel -1 ist.
    Parameters Lb&
    Declare P&
    P&:=Getcursel(Lb&)
    Case (P&==-1) : Return ""
    Return Getstring$(Lb&,P&)

E

et eh bien musste je seulement encore dans den Programmen aus Getstring$(Blb&,Getcursel(Blb&)) simple Lb_getselstring(blb&) faire.

encore einfacher wäre es sicherlich gewesen simple un getcursel_ Ersatz trop écrivons so hätte on seulement alle Vorkommen de getcursel dans getcursel_ ersetzen doit. (quoi aussi dans riesenprojekten très fix allez)

[quote-part:02b4b5210f=Horst Horn][quote-part:02b4b5210f]je denke, cela bekomme je hin ... allerdings seulement pour einer demain soir beginnenden semaine Urlaub avec qui la famille dans Antibes (Südfrankreich). alors s'il te plaît pas wurdern, si je mich qui prochain Tage ici zurückhalte.
[/quote-part:02b4b5210f]
allô Roland
d'abord einmal une schönen Urlaub dans Frongreisch - mais qui schiesst den Mist sur qui Profan-Site zwischenzeitlich ab ?

Es wird nämlich toujours schlimmer (reim toi ou bien je fress toi)

[/quote-part:02b4b5210f]
peut-être stellt Roland wieder cela Forum so un cela on seulement Poste peux si on registriert et eingeloggt ist.

RGH

[quote-part:26a829c94a=iF]peut-être stellt Roland wieder cela Forum so un cela on seulement Poste peux si on registriert et eingeloggt ist.[/quote-part:26a829c94a]
oui c'est ca cela werde je faire! (et möglicherweise werde je cela ensuite vorerst beibehalten.)

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

Michael
Wodrich

tant pis. je bekomme avec Select aucun la gamine-Bereiche hin.
justement chez Aufzählungen peut plusieurs solcher Zahlengruppen
trop einer simplification mener.

ici la fois un kleines Beispiel, qui mittels Select gelöst
volonté sollte:
Kompilieren Marque Séparation

!
Case 21, 24, 25,     27..32,     34, 35, 38
temp = temp - 1
Case 33, 36, 37, 39, 40
temp = temp - 2/pre>

oui c'est un très kleiner Bereich, mais justement c'est pourquoi
so überschaubar.

mon Lösungsversuch:
Kompilieren Marque Séparation

!
Declare Wert1%, Wert2%, Wert3%, Visual$
Visual$=".,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.," +
"=,=,21-1,=,=,24-1,25-1,=,27-1 R,28-1 R,29-1 R,30-1 R,31-1 R,32-1 R,33-2,34-1,35-1,36-2,37-2,38-1,39-2,40-2,=,=," +
".,.,.,.,.,.,."
cls

WhileLoop 19,42

    Wert1% = &loop
    Wert2% = &loop
    Wert3% = &loop

    Select Wert1%

        CaseOf 21, 24, 25, >= 27, <= 32, 34, 35, 38   1. Versuch

        Sub Wert1%, 1

        CaseOf 33, 36, 37, 39, 40

        Sub Wert1%, 2

    EndSelect

    Select Wert2%

        CaseOf 21, 24, 25, 34, 35, 38

        Sub Wert2%, 1

        CaseOf 33, 36, 37, 39, 40

        Sub Wert2%, 2

        CaseOf >= 27, <= 32    2. Versuch (separat)

        Sub Wert2%, 1

    EndSelect

    Select Wert3%

        CaseOf 21, 24, 25, 34, 35, 38

        Sub Wert3%, 1

        CaseOf 33, 36, 37, 39, 40

        Sub Wert3%, 2

        CaseOf 27, 28, 29, 30, 31, 32   Range aufgedröselt  :-<

        Sub Wert3%, 1

    EndSelect

    print &loop,"!",Wert1%,"!",Wert2%,"!",Wert3%,"!",SubStr$(Visual$,&loop,",")

EndWhile

WaitKey
href='./../../funzione-riferimenti/XProfan/end/'>end

si es ensuite um größere la gamine-Bereiche allez, ensuite ist qui Workaround
avec dem Werte ausschreiben pas plus so favorable et il faut zusätzlich
avec IF-Statements travailler.

Könnten Select solche Zahlenbereiche beigebracht volonté?

belle Grüße
Michael Wodrich

PS: Mir mais est une (unsaubere) Solution eingefallen:
Kompilieren Marque Séparation

!
Def InRange(3) Si( (&(1) >= &(2)) and (&(1) <= &(3)),&(2),0)
1=Wert, 2=Min, 3=Max
si im Bereich, ensuite liefere Min. sonst liefere 0
Déclarer Wert1%, Wert2%, Wert3%, Visual$
Visual$=".,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.,.," +
"=,=,21-1,=,=,24-1,25-1,=,27-1 R,28-1 R,29-1 R,30-1 R,31-1 R,32-1 R,33-2,34-1,35-1,36-2,37-2,38-1,39-2,40-2,=,=," +
".,.,.,.,.,.,."
cls

WhileLoop 19,42

    Wert1% = &loop

    Select Wert1%

        CaseOf 21, 24, 25, InRange(Wert1%,27,32), 34, 35, 38

        Sous Wert1%, 1

        CaseOf 33, 36, 37, 39, 40

        Sous Wert1%, 2

    EndSelect

    imprimer &loop,"!",Wert1%,"!",$ Substr(Visual$,&loop,»)

Endwhile

WaitKey
end

Programmieren, das spannendste Detektivspiel der Welt.

Timotheus

deux Sachen encore de mir:

Einmal, cela si on une Wurzel aus einer negativen numéro zieht, ensuite stürtzt cela Programme avec einem Anwendungsfehler ab, et zweitens wäre là encore qui l'affaire avec dem Befehl, avec dem on qui Unterfunktionen einer Funktion direct appel peux, alors dans einem definierten Bereich de Créer bsw. direct .Button() appel peut, ou bien chez db simple Go(), Seek() appel. Letztes la fois wurde cela simple ignoriert.

Timo

Jac
de
Lad

XProfan peux pas avec komplexen payons tourner autour de, c'est pourquoi funktioniert aussi qui Wurzel qui negativen numéro pas. (mais je denke, cela la hâte du déjà gewusst et du wolltest seulement sur den Absturz aufmerskam faire, den on par une Fehlermeldung verhindern peux!) Allerdings ist cela Wurzelverhalten sowieso quelque chose merkwürdig: Es funktioniert chez gebrochenen payons sous Umständen pas (ist chez Delphi, aussi dans qui neusten Version 2006, oui c'est ca so).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Michael
Wodrich

Avec l' den Unterfunktionen:
Sieh es comment Namensbereiche. si es plusieurs Seek gibt ist es besser si dabei steht wohin es hingehört.
et si so quelque chose comment un With...EndWith pour Funktionen si bien ist voudrais je bezweifeln.

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

[quote-part:f4e49dc4ba=Michael Wodrich]et si so quelque chose comment un With...EndWith pour Funktionen si bien ist voudrais je bezweifeln.[/quote-part:f4e49dc4ba]bof là wären wir wohl wieder chez den Klassen...

Einzeilige Funktionen avec DEF et qui Parameterstack gelten comme überholt, aussi si vous dans XProfan 10 encore soutenu volonté.

Salut
Roland

RGH

[quote-part:9d2a28e7db=Michael Wodrich]PS: Mir mais est une (unsaubere) Solution eingefallen:
[/quote-part:9d2a28e7db]
So unsauber venez mir cet Solution zwar pas avant, mais vous contient encore une kleinen faute. qui definierte Funktion doit so air:
Kompilieren Marque Séparation

!Def InRange(3) If( (&(1) >= &(2)) and (&(1) <= &(3)),&(1),0)
1=Wert, 2=Min, 3=Max
wenn im Bereich, dann liefere Wert sonst liefere 0re>

qui Wert et pas Min doit chez Übereinstimmung zurückgeliefert volonté.
chez CaseOf wird qui Wert derrière dem Select avec dem Wert derrière CaseOf verglichen. si diesem ne...aucune Operator vorangestellt ist, wird chez Gleicheit qui Code des CaseOf-Zweiges fonctionnement.

Aussi serait je qui Funktion so écrivons:
Kompilieren Marque Séparation

!Proc InRange
Parameters Wert&, Min&, Max&
Return If( (Wert& >= Min&) and (Wert& <= Max&),Wert&,0)

EndProc

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10.09.2006 ▲

Jac
de
Lad

@Roland: je sais, tu veux rien plus dans XProfan 10 einbauen, mais wäre es possible bientôt Bereiche dans Klassen einzufügen? qui Bezeichner avec # dans Klassen sommes le son Aider Cordes, et je hatte aussi Probleme puis comment sur une Bereich zuzugreifen:
Kompilieren Marque Séparation

Class Klasse=Schmarrn#(24)
Declare Hilfsschmarrn#
Dim Hilfsschmarrn#,Klasse
Long Hilfsschmarrn#.Schmarrn#,0=$0815pre>

Klappt pas et qui anderen Bereichsfunktionen aussi pas...cela wäre mais meiner attitude pour seeeehr pratique!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

10.09.2006 ▲