[*]Profan

- Página 11 -

RGH

[quote:a42ef0fa07=Jacob Liebeck]Aber es no irgendwie verwirrend, dass du PutChar verwendest en una String, y no una einzelnes Signo (Char) a escribir? Jac

[/quote:a42ef0fa07]
Neben el de Usted genannten Grund hay todavía una Weiteren: El Ähnlichkeit con el Befehl Char, o. el Función Char$(), en Signo en un Bereichsvariable a escribir, o. de dieser a lesen: Auch como liest Char$() una cierto Anzahl de Signo y eben no a a una Stringende, o. schreibt el Signo des Cuerdas sin abschließendes Nullbyte,

BTW: Tuve natürlich oben todavía una Fehler drin: El Función heißt natürlich GetChar$ (con Dollarzeichen), como el Ergebnis sí una Zeichenkette es.

Saludo
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

03.05.2006 ▲

Jac
de
Lad

Hm, stimmt auch otra vez...!

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

04.05.2006 ▲

GDL

Hola Roland

como Yo siempre muy viele Messdaten auswerten muss, sería Yo el seleccionar caso Rutina de Powerbasic en Xprofan wünschen.

Ejemplo de PowerBasic

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

caseelse

endselect

Tal vez lo posible.
Servus
Georg

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

[...]

@Georgs: Hier kann Yo el Switch-Syntax empfehlen: [...]

Yo sería me wünschen si con XProfan10 posible wäre una Scrollbalken a erklären como gross él ser se. (PageSize)

RGH

[quote:ea08a5d93b=iF]@Georgs: Hier kann Yo el Switch-Syntax empfehlen: [...]

No bastante, porque el Schlüsselwort Case hay sí ya.

Saludo Roland
(bastelt gerade a 3D-Sprites para 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

Hola Roland!

Bis ahora macht XProfan 10 sí ya una prächtigen Eindruck! Hab aber todavía una Vorschlag:

Kannste eventuell el WhileLoop-Bucle con Floats erweitern y luego entsprechend con !Loop? Das lässt se zwar auch anders realisieren, aber wäre, meiner Meinung después de, una sinnvolle Erweiterung (wenns no allzu viele Umstände macht).

Schönes Wochenende a todos!
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

Auch si en el Bezug en el Dateifunktionen unverschämt wirken mag

reset, rewrite y openrw müssten eigendlich auch Características ser

.

Weil:
Kompilieren Marca Separación

f&=assign(file$)

if f&

    if reset(f&)

        whilenot eof(f&)<

sonst bräuchts sí doch otra vez nen %ioresult

Gedöns oder nen fileexists

06.05.2006 ▲

RGH

[quote:328077703a=RGH]Saludo Roland
(bastelt gerade a 3D-Sprites para OpenGL)[/quote:328077703a]
... y ahora son ellos fertig: [...]

Alle Subscriptionskunden haben en Mitternacht herum bereitrs el 8. Subscriptionslieferung con el Sprites obtener!

Saludo
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

08.05.2006 ▲

Michael
Wodrich

(wod)

Yo habe veces kurz una mögliche Switch-Kontrollstruktur gebastelt.
Como Case (Fall) ya belegt es Yo mich para Decide entschieden.

En einfachem Wertvergleich con el Variables es sí todavía simplemente,
auch el Ersetzung el Variables gegen TRUE y luego intern TRUE/FALSE
Entscheidungen es todavía klar.

Aber como va el con komplizierteren Bedingungen (siehe: Balance!)?
Kompilieren Marca Separación

!
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: más003:
HomeDir$ = "gast_home"
EndSwitch

Schöne Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

08.05.2006 ▲

RGH

Como wäre lo con folgender Syntax:
Kompilieren Marca Separación

!
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='./../../funktionsreferenzen/XProfan/endif/'>EndIf

Saludo
Roland
(Diese Syntax funktioniert en con nämlich ya!)

Apéndice Yo habe mich anstelle des TEST ahora para CASEOF entschieden. Das erinnert lejos a el Delphi-Syntax y debería auch para Inglés sprechende Profaner kein sprachliches Problema darstellen.

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

08.05.2006 ▲

GDL

Hola Roland,

wäre echt super,como mein derzeitiges Projekt ca. 9000 8byte Datentelegramme pro zyklus ausfiltern y zuordnen muss.

Servus
Georg

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

[...]

09.05.2006 ▲

RGH

[quote:35ec1f9b95=GDL]Hola Roland,

wäre echt super,como mein derzeitiges Projekt ca. 9000 8byte Datentelegramme pro zyklus ausfiltern y zuordnen muss.

Servus
Georg[/quote:35ec1f9b95]
¡Hola Georg,

drin ser se el SELECT sicher. Nur en Syntax bin Yo todavía no 100%ig en el Klaren. Mit el Keyword TEST kann Yo mich no tan bastante anfreunden. Außerdem schweben me zwei Testmodi antes:
Einmal como ahora (y el meisten BASIC- y PASCAL-Varianten), daß una erfolgreichen TEST No más mehr folgen y una zweiter Modus, en el (como etwa en C) una erfolreichen Abschnitt trotzdem más getestet se. Dann bräuchte Yo en lugar de des TEST also zwei passende Befehlswörter, etwa TRY y RETRY: Ein TRY se sólo entonces ausgeführt, si todavía kein vorhergehendes TRY oder RETRY erfolgreich war, una RETRY se siempre ausgeführt. Yo voluntad veces drüber nachdenken ...

Yo denke aber, daß el SELECT-Geschichte en el nächsten Subscriptionsversion en el una oder otro Form drin es.

Saludo
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

09.05.2006 ▲