[*]Profan

- page 11 -

RGH

[quote-part:a42ef0fa07=Jacob Liebeck]mais ist es pas irgendwie verwirrend, dass du PutChar verwendest um une String, et pas un einzelnes marque (Char) trop écrivons? Jac

[/quote-part:a42ef0fa07]
près de dem de Dir genannten Grund gibt es encore une Weiteren: qui Ähnlichkeit avec dem Befehl Char, bzw. qui Funktion Char$(), um marque dans un Bereichsvariable trop écrivons, bzw. aus cette trop lesen: aussi là liest Char$() une bestimmte Anzahl de marque et plan pas jusque einem Stringende, bzw. écrit qui marque des Cordes sans abschließendes Nullbyte,

BTW: je hatte naturellement dessus encore une faute drin: qui Funktion est naturellement GetChar$ (avec Dollarzeichen), là cela Ergebnis oui une Zeichenkette ist.

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

03.05.2006 ▲

Jac
de
Lad

Hm, stimmt aussi wieder...!

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

allô Roland

là je toujours très viele Messdaten auswerten muss, serait je mir qui sélectionner cas Routine aus Powerbasic dans Xprofan désirer.

Beispiel aus PowerBasic

sélectionner cas messwert
cas < 10
.........
..........
cas 11,15,20,27,30,.......
........
.........
cas 12,13,14,16,.....
..........
cas > 100

caseelse

endselect

Peut-être es possible.
salut
Georg

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

[...]

@Georgs: ici peux je qui Switch-Syntax empfehlen: [...]

je serait mir désirer si es avec XProfan10 possible wäre einem Scrollbalken trop expliquer comment gross il son soll. (PageSize)

RGH

[quote-part:ea08a5d93b=iF]@Georgs: ici peux je qui Switch-Syntax empfehlen: [...]

pas entier, car cela Schlüsselwort Cas gibt es oui déjà.

Salut Roland
(bastelt justement à 3D-Sprites pour 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

allô Roland!

jusqu'à maintenant pouvoir XProfan 10 oui déjà une prächtigen impression! Hab mais encore une Vorschlag:

Kannste eventuell qui WhileLoop-Boucle avec Floats erweitern et ensuite entsprechend avec !Boucle? cela peut sich zwar aussi anders realisieren, mais wäre, meiner attitude pour, une sinnvolle Erweiterung (wenns pas allzu viele Umstände pouvoir).

Schönes Wochenende à alle!
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

aussi si es im Bezug sur qui Dateifunktionen unverschämt wirken mag

reset, rewrite et openrw müssten eigendlich aussi Funktionen son

.

Weil:
Kompilieren Marque Séparation

f&=assign(file$)

if f&

    if reset(f&)

        whilenot eof(f&)<

sonst bräuchts oui doch wieder nen %ioresult

Gedöns ou bien nen fileexists

06.05.2006 ▲

RGH

[quote-part:328077703a=RGH]Salut Roland
(bastelt justement à 3D-Sprites pour OpenGL)[/quote-part:328077703a]
... et maintenant vous êtes fertig: [...]

Alle Subscriptionskunden avons um Mitternacht herum bereitrs qui 8. Subscriptionslieferung avec den Sprites conservé!

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

08.05.2006 ▲

Michael
Wodrich

(wod)

j'ai la fois kurz une mögliche Switch-Kontrollstruktur gebastelt.
là Cas (le cas) déjà belegt ist habe je mich pour Decide entschieden.

chez einfachem Wertvergleich avec qui Variablen ist es oui encore simple,
aussi qui Ersetzung qui Variablen vers TRUE et ensuite interne TRUE/FALSE
Entscheidungen ist encore bien sûr.

mais comment allez cela avec komplizierteren Bedingungen (siehe: équilibre!)?
Kompilieren Marque Séparation

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

belle Grüße
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

08.05.2006 ▲

RGH

comment wäre es avec suivant Syntax:
Kompilieren Marque Séparation

!
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

Salut
Roland
(cet Syntax funktioniert chez avec nämlich bereits!)

Nachtrag j'ai mich anstelle des TEST maintenant pour CASEOF entschieden. cela erinnert entfernt à qui Delphi-Syntax et sollte aussi pour englisch sprechende Profaner ne...aucune sprachliches Problem représenter.

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

allô Roland,

wäre vraie super,là mon derzeitiges projet ca. 9000 8byte Datentelegramme pro zyklus ausfiltern et zuordnen muss.

salut
Georg

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

[...]

09.05.2006 ▲

RGH

[quote-part:35ec1f9b95=GDL]allô Roland,

wäre vraie super,là mon derzeitiges projet ca. 9000 8byte Datentelegramme pro zyklus ausfiltern et zuordnen muss.

salut
Georg[/quote-part:35ec1f9b95]
allô Georg,

drin son wird cela SELECT sûrement. seulement sur qui Syntax suis je mir encore pas 100%ig im Klaren. avec dem Keyword TEST peux je mich encore pas so droite anfreunden. Aussi schweben mir deux Testmodi avant:
Einmal so comment maintenant (et dans den meisten BASIC- et PASCAL-Varianten), qui pour einem erfolgreichen TEST aucun weiteren plus folgen et un zweiter Modus, chez dem (comment etwa dans C) pour einem erfolreichen paragraphe quand même plus getestet wird. ensuite bräuchte je statt des TEST alors deux passende Befehlswörter, etwa TRY et RETRY: un TRY wird seulement ensuite fonctionnement, si encore ne...aucune vorhergehendes TRY ou bien RETRY erfolgreich était, un RETRY wird toujours fonctionnement. je werde la fois drüber sur) ...

je denke mais, qui qui SELECT-Geschichte dans qui prochain Subscriptionsversion dans qui une ou bien anderen forme drin ist.

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

09.05.2006 ▲