XProfan

- Page 3 -

RGH

[quote:fefed84ff0=Dietmar horn]can You have the somehow until final attend of XProfan 10.0 so alter, that too these Kleinigkeit again so functions, How already since years?[/quote:fefed84ff0]
i think, the I get there ... though first after a tommorrow evening beginning week leave with the family in Antibes (Südfrankreich). means Please not wurdern, if I me The next days here zurückhalte.

Greeting
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 you well!

Salu Michael...

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

[quote:89be1ff2e1]i think, the I get there ... though first after a tommorrow evening beginning week leave with the family in Antibes (Südfrankreich). means Please not wurdern, if I me The next days here zurückhalte.
[/quote:89be1ff2e1]
Hello Roland
first once a lovely leave in Frongreisch - but who shooting whom Mist on the Profan-Site zwischenzeitlich ex ?

it'll namely always worse (rhyme you or I fress you)

@Dietmar: I have too so many Riesenprojekte with them these Message To Problemen led.

therefore Have I to a couple Meet these function into Babyklappe laid:
Compile Mark Separation

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

well then had I only still in whom Programs from Getstring$(Blb&,Getcursel(Blb&)) simply Lb_getselstring(blb&) make.

yet plainer would it sure been simply one getcursel_ substitute To write so had one only any Vorkommen of getcursel in getcursel_ supplant must. (what too in riesenprojekten very fix goes)

[quote:02b4b5210f=Horst horn][quote:02b4b5210f]i think, the I get there ... though first after a tommorrow evening beginning week leave with the family in Antibes (Südfrankreich). means Please not wurdern, if I me The next days here zurückhalte.
[/quote:02b4b5210f]
Hello Roland
first once a lovely leave in Frongreisch - but who shooting whom Mist on the Profan-Site zwischenzeitlich ex ?

it'll namely always worse (rhyme you or I fress you)

[/quote:02b4b5210f]
Perhaps position Roland again Forum so one the one only Post can if one registered and eingeloggt is.

RGH

[quote:26a829c94a=iF]Perhaps position Roland again Forum so one the one only Post can if one registered and eingeloggt is.[/quote:26a829c94a]
very the I will make! (and möglicherweise I will the then for the time being to maintain.)

Greeting
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

Schade. I get with Select no brat-reaches there.
straight with Aufzählungen can several such Zahlengruppen
to a Vereinfachung lead.

here time one small example, that through Select resolved
go ought to:
Compile Mark Separation

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

Yes its one very small area, but straight therefore
so überschaubar.

my Lösungsversuch:
Compile Mark Separation

!
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

If it then circa more brat-reaches goes, then is the Workaround
with the values write out not any more so favorable and one must additional
with IF-Statements works.

could Select such Zahlenbereiche beigebracht go?

Best wishes
Michael Wodrich

PS: i'm still a (unsaubere) Solution invaded:
Compile Mark Separation

!
Def InRange(3) If( (&(1) >= &(2)) and (&(1) <= &(3)),&(2),0)
1=worth, 2=mins, 3=Max
if in the area, then supply mins. otherwise supply 0
Declare worth1%, worth2%, worth3%, 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

    worth1% = &loop

    Select worth1%

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

        Sub worth1%, 1

        CaseOf 33, 36, 37, 39, 40

        Sub worth1%, 2

    EndSelect

    print &loop,"!",worth1%,"!",SubStr$(Visual$,&loop,",")

EndWhile

WaitKey
end

Programmieren, das spannendste Detektivspiel der Welt.

Timotheus

two things yet of me:

once, the if is a root a negativen number zieht, then stürtzt the program with a Anwendungsfehler ex, and secondly would there yet The thing with the commands, the one with The Unterfunktionen of/ one function directly Call can, means in a definierten area of Create bsw. directly .Button() Call can, or with db simply Go(), Seek() Call. Letztes time watts the simply ignoring.

Timo

Jac
de
Lad

XProfan can't with complex numbers bypass, therefore functions too The root the negativen number not. (but i think, the have you got already known and You wanted only on the crash aufmerskam make, whom one by a Error Message prevent can!) though is the Wurzelverhalten anyhow something strange: it functions with broken numbers under Umständen not (is with Delphi, too in the newest Version 2006, very 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

With the whom Unterfunktionen:
look it How Namensbereiche. If it several Seek gives is it rather if thereby standing where it hingehört.
and whether such a thing like a With...EndWith for functions so well is would like I bezweifeln.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

[quote:f4e49dc4ba=Michael Wodrich]and whether such a thing like a With...EndWith for functions so well is would like I bezweifeln.[/quote:f4e49dc4ba]Well there wären we well again with whom classes...

Einzeilige functions with DEF and the Parameterstack count as overtake, even if tappt im dunkeln in XProfan 10 yet supported go.

Greeting
Roland

RGH

[quote:9d2a28e7db=Michael Wodrich]PS: i'm still a (unsaubere) Solution invaded:
[/quote:9d2a28e7db]
so messy comes me these Solution of course not till, but tappt im dunkeln contains yet a small Error. The defined function must so looks:
Compile Mark Separation

!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>

The worth and not mins must with Übereinstimmung zurückgeliefert go.
with CaseOf becomes the worth behind the Select with the worth behind CaseOf compared. If this no Operator vorangestellt is, becomes with Gleicheit the code the CaseOf-Zweiges carryed out.

Also would I The function so write:
Compile Mark Separation

!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

09/10/06 ▲

Jac
de
Lad

@Roland: i know, You want nothing more in XProfan 10 install, but would it possible soon reaches in classes einzufügen? The Bezeichner with # in classes are loudly Help Strings, what about me having too Problems hereon How on a area access:
Compile Mark Separation

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

Klappt not and the others Bereichsfunktionen neither...the would but of my opinion to seeeehr useful!

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

09/10/06 ▲