XProfan

Italia

Detlev
Wulff

Ich will umsteigen von Powerbasic nach XProfan, habe Vollversion 10, aber mir bereitert einiges Probleme, nämlich das Fehlen elementarer Basic-Befehlsgruppen, wie ASC(),Inkey$() usw. Ich bin dann einfach angefangen mit den vorhandenen Befehlen zu spielen und per Versuch und Irrtum zum Ziel zu kommen!
Nun aber komme ich nicht weiter, weil der Rücksprung in die Menü-Anzeige bei Ergebnis 0 oder größergleich 16 einfach nicht funktioniert:
Kompilieren Markieren Separieren

-Begin-----------------------------------------------------------------
declare key$, KeySum$, ZZC%
Cls
men:
Menüansicht
print "Menü: Zweizifferncode 01 .. 16"

WhileLoop 2 Schleife für zwei Segmente!

    fr0:
    WaitScan

    If @chr$(%Key) = ""

        goto "fr0"

    ElseIf %Key<48 or %Key>57

        goto "fr0"

    EndIf

    key$ = @chr$(%Key)
    KeySum$ = KeySum$ + Key$
    Print %ScanKey, Key$, %Key

EndWhile

ZZC%=Val(KeySum$)  Umwandlung Zweizifferncode integerwert

If  ZZC% <=0 or ZZC% >= 17   wenn der Wert Null oder größer als 17 ist dann das Menü anzeigen; funktioniert nicht

    goto "men"

EndIf

-End-------------------------------------------------------------------
print KeySum$,ZZC%
waitkey
End

18.12.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hallo Detlev,

paar "Probleme" sehe ich im Code.

Beispielsweise sollte man wohl statt
Kompilieren Markieren Separieren

ElseIf %Key<48 or %Key>57re>

besser
Kompilieren Markieren Separieren

ElseIf (%Key<48) or (%Key>57)re>

und besser
Kompilieren Markieren Separieren

if (ZZC% <=0) or (ZZC% >= 17)re>

schreiben (in nativen Funktionen [...]

funktioniert es jedoch auch so wie Du es geschrieben hast) und Du springst mit Goto aus Blöcken heraus:
Kompilieren Markieren Separieren

label:
while
if
goto labe

endif

w

was IMHO auch nicht "erlaubt" ist (wiederum auch nicht in nativen Funktionen). Ich würde komplett auf Goto verzichten. Schaue auch ord

, break

, continue

18.12.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

1. Zu Asc():
Die Funktion Asc() steht in Di base per den Ascii-Code eines Zeichens. Unter Windows haben wir aber keinen Ascii-Zeichensatz sondern z.B. den Ansi-Zeichensatz oder gar einen anderen. Deshalb hat hier diese Funktion in Anlehnung an Delphi den neutraleren Namen Ord() per Oder = Reihenfolge. Kurz: Ersetze Asc() durch Ord().

2. Zu Vergleichen:
Wie der Aiuto zu entnehmen ist, orientiert sich die Hierarchie der Operatoren eher an Delphi bzw. Pascal (und andere Sprachen) las an Di base, so dass zu klammern ist. Zitat aus der Aiuto:

Hinweis: Die Hierarchie entspricht in etwa der unter PASCAL und weicht von der Di base-Hierarchie ab. Die Vergleichsoperatoren (...) sind in Di base höher eingestuft. Aus Di base:

If A% > 6 AND A% <= 20 THEN
<...>
End If

wird in XProfan:

If (A% > 6) AND (A% <= 20)
<...>
EndIf

In PASCAL würde man schreiben:

If (A > 6) AND (A <= 20) THEN BEGIN
<...>;
End;

Saluto
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

18.12.2009 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione