[*]Profan

- Page 11 -

RGH

[quote:a42ef0fa07=Jacob Liebeck]but is not somehow verwirrend, that You PutChar verwendest circa a String, and not one single characters (Char) To write? Jac

[/quote:a42ef0fa07]
next to the from you named reason there yet a further: The Ähnlichkeit with the commands Char, or. the function Char$(), circa characters in a Memory-Variable To write, or. from this To reading: too there reads Char$() a defined amount of characters and even not up to one Stringende, or. writes The characters the Strings without abschließendes Nullbyte,

BTW: I had naturally supra yet a Error drin: The function is naturally GetChar$ (with Dollarzeichen), there the Result Yes a Zeichenkette is.

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

05/03/06 ▲

Jac
de
Lad

Hm, is correct again...!

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

05/04/06 ▲

GDL

Hello Roland

I always a great many Messdaten evaluate must, would I me The select case routine from Powerbasic in XProfan wish.

example from PowerBasic

select case messwert
case < 10
.........
..........
case 11,15,20,27,30,.......
........
.........
case 12,13,14,16,.....
..........
case > 100

caseelse

endselect

Perhaps is it possible.
Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

@George: here can I The Switch-Syntax recommend: [...]

i'd me wish if it with XProfan10 possible would one Scroll bar To explain How tall it his should. (PageSize)

RGH

[quote:ea08a5d93b=iF]@George: here can I The Switch-Syntax recommend: [...]

not integrally, because the Schlüsselwort Case there already.

Greeting Roland
(bastelt straight on 3D-Sprites for OpenGL)

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

Jac
de
Lad

Hello Roland!

yet power XProfan 10 already a prächtigen local! Have but yet a suggestion:

Kannste possible The WhileLoop-Loop with Floats strain and then properly with !Loop? the can itself of course too differently release, but would, of my opinion to, a sinnvolle expansion (ifs not too many circumstances power).

beautiful weekend all!
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

even if it in the reference on The Dateifunktionen insolent wirken likes

reset, rewrite and openrw müssten eigendlich too functions his

.

because:
Compile Mark Separation

f&=assign(file$)

if f&

    if reset(f&)

        whilenot eof(f&)<

otherwise bräuchts Yes still again NEN %ioresult

Gedöns or NEN fileexists

05/06/06 ▲

RGH

[quote:328077703a=RGH]Greeting Roland
(bastelt straight on 3D-Sprites for OpenGL)[/quote:328077703a]
... and now are you ready: [...]

any Subscription-Customers having circa midnight around bereitrs The 8. Subscriptionslieferung with the Sprites receive!

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

05/08/06 ▲

Michael
Wodrich

(wod)

I have time short a possible Switch-Kontrollstruktur gebastelt.
there Case (drop) already occupied is have I for Decide decided.

with einfachem Wertvergleich with the variables is it Yes yet simply,
too The replacement the variables against TRUE and then intern TRUE/FALSE
decisions is yet clear.

but how does that with komplizierteren terms (see: Balance!)?
Compile Mark Separation

!
Break verläßt die Switch-Kontrollstruktur
Switch month_name$
Decide "Jan"
Decide "Januar"
month% = 1
Break
...
EndSwitch
Switch i%
Decide 0
Print i%,"ist gleich 0"
Break
Decide 1
Print i%,"ist gleich 1"
Break
Decide 2
Print i%,"ist gleich 2"
Break

Else

Print i%,"ist weder 0, 1 noch 2"
EndSwitch
Switch i%
Decide 14
Decide 21
Decide 22
Print i%,"ist Teil der Menge [14,21,22]"
Break
Decide 7
Decide 9
Decide 11
Decide 12
Decide 99
Print i%,"ist Teil der Menge: [7,9,11,12,99]"
Break
Decide 13
Print i%,"ist gleich 13"
Break

Else

Print i%
EndSwitch
Switch Balance!
hier soll "~var" den Zugriff auf "Balance!" darstellen
Decide ~var <= 0
Print Balance!,"kleiner gleich Null"
Break
Decide (~var >= 1) and (~var <= 10)
Print Balance!,"zwischen 1 und 10"
Break

Else

Print Balance!
EndSwitch
Switch 1
hier sind es einfache TRUE/FALSE Entscheidungen
Decide InList(Albert, hUserList&)
HomeDir$ = "finanz_home"
break
Decide InList(Timo, hUserList&)
Supervisor% = 1
Decide InList(Carlo, hUserList&)
Decide InList(Erwin, hUserList&)
HomeDir$ = "progr_home"
break

Else

HomeDir$ = "gast_home"
EndSwitch
*****************************************************
** und das Ganze noch mal mit dem internen Ablauf: **
*****************************************************
Switch month_name$
Decide "Jan"
implizit: Goto "weiter000"
Decide "Januar"
implizit: weiter000:
month% = 1
Break
EndSwitch
Switch i%
Decide 0
Print i%,"ist gleich 0"
Break
implizit: Goto "weiter000"
Decide 1
implizit: weiter000:
Print i%,"ist gleich 1"
Break
implizit: Goto "weiter001"
Decide 2
implizit: weiter001:
Print i%,"ist gleich 2"
Break
implizit: Goto "weiter002"

Else

implizit: weiter002:
Print i%,"ist weder 0, 1 noch 2"
EndSwitch
Switch i%
Decide 14
implizit: Goto "weiter000"
Decide 21
implizit: weiter000:
implizit: Goto "weiter001"
Decide 22
implizit: weiter001:
Print i%,"ist Teil der Menge [14,21,22]"
Break
implizit: Goto "weiter002"
Decide 7
implizit: weiter002:
implizit: Goto "weiter003"
Decide 9
implizit: weiter003:
implizit: Goto "weiter004"
Decide 11
implizit: weiter004:
implizit: Goto "weiter005"
Decide 12
implizit: weiter005:
implizit: Goto "weiter006"
Decide 99
implizit: weiter006:
Print i%,"ist Teil der Menge: [7,9,11,12,99]"
Break
implizit: Goto "weiter007"
Decide 13
implizit: weiter007:
Print i%,"ist gleich 13"
Break
implizit: Goto "weiter008"

Else

implizit: weiter008:
Print i%
EndSwitch
Switch Balance!
hier soll "~var" den Zugriff auf "Balance!" darstellen
Decide ~var <= 0
Print Balance!,"kleiner gleich Null"
Break
implizit: Goto "weiter000"
Decide (~var >= 1) and (~var <= 10)
implizit: weiter000:
Print Balance!,"zwischen 1 und 10"
Break
implizit: Goto "weiter001"

Else

implizit: weiter001:
Print Balance!
EndSwitch
Switch 1
hier sind es einfache TRUE/FALSE Entscheidungen
Decide InList(Albert, hUserList&)
HomeDir$ = "finanz_home"
break
implizit: Goto "weiter000"
Decide InList(Timo, hUserList&)
implizit: weiter000:
Supervisor% = 1
implizit: Goto "weiter001"
Decide InList(Carlo, hUserList&)
implizit: weiter001:
implizit: Goto "weiter002"
Decide InList(Erwin, hUserList&)
implizit: weiter002:
HomeDir$ = "progr_home"
break
implizit: Goto "weiter003"

Else

implizit: moreover003:
HomeDir$ = "gast_home"
EndSwitch

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

05/08/06 ▲

RGH

how'bout with following Syntax:
Compile Mark Separation

!
Break wird nicht gebraucht

Select month_name$

    CaseOf "Jan", "Januar"

    month% = 1

    CaseOf "Feb", "Februar"

    month% = 2
    ...

EndSelect

Select i%

    CaseOf 0

    Print i%,"ist gleich 0"

    CaseOf 1

    Print i%,"ist gleich 1"

    CaseOf 2

    Print i%,"ist gleich 2"
    Otherwise
    Print i%,"ist weder 0, 1 noch 2"

EndSelect

Select i%

    CaseOf 14, 21, 22

    Print i%,"ist Teil der Menge [14,21,22]"

    CaseOf 7, 9, 11,12, 99

    Print i%,"ist Teil der Menge: [7,9,11,12,99]"

    CaseOf 13

    Print i%,"ist gleich 13"
    Otherwise
    Print i%

EndSelect

Das mit Balance geht nicht mit Select,
ist mit traditionellem ElseIf aber auch nicht länger

If  Balance! <= 0

    Print Balance!,"kleiner gleich Null"

ElseIf (Balance! >= 1) and (Balance! <= 10)

    Print Balance!,"zwischen 1 und 10"

Else

    Print Balance!

4 href='./../../Function-References/XProfan/endif/'>EndIf

Greeting
Roland
(These Syntax functions with with namely already!)

Nachtrag I have me in lieu of the TEST now for CASEOF decided. the reminds removes on The Delphi-Syntax and ought to too for english sprechende Profaner no sprachliches trouble present.

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

05/08/06 ▲

GDL

Hello Roland,

would Real super,there my derzeitiges proposition ca. 9000 8byte Datentelegramme per zyklus ausfiltern and zuordnen must.

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

05/09/06 ▲

RGH

[quote:35ec1f9b95=GDL]Hello Roland,

would Real super,there my derzeitiges proposition ca. 9000 8byte Datentelegramme per zyklus ausfiltern and zuordnen must.

Hello
Georg[/quote:35ec1f9b95]
Hello Georg,

drin his becomes the SELECT sure. only over The Syntax be I me not yet 100%ig in the Klaren. with the Keyword TEST can I me not yet so right make friends. Also hover me two Testmodi to:
once so as now (and whom most BASIC- and PASCAL-mutants), that to one erfolgreichen TEST No further More follow and a zweiter mode, with the (How about in C) to one erfolreichen cut offed nevertheless moreover tested becomes. then bräuchte I instead of the TEST means two suitable Befehlswörter, about TRY and RETRY: One TRY becomes only then carryed out, if yet no vorhergehendes TRY or RETRY successful was, one RETRY becomes always carryed out. i'll time drüber cogitate ...

i think but, that the SELECT-story in the next Subscriptionsversion in the a or others shape drin is.

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

05/09/06 ▲