XProfan

Español

Detlev
Wulff

Yo voluntad umsteigen de Powerbasic después de XProfan, habe Vollversion 10, aber me bereitert einiges Problemas, nämlich el Fehlen elementarer Basic-Befehlsgruppen, como ASC(),Inkey$() usw. Yo bin entonces simplemente angefangen con el vorhandenen Befehlen a spielen y por Intento y Irrtum para Ziel a kommen!
Nun aber komme Yo no más, porque el Rücksprung en el Menü-Anzeige en Ergebnis 0 oder größergleich 16 simplemente no funktioniert:
Kompilieren Marca Separación

-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 Cita Zeilenweise Cita

¡Hola Detlev,

pocos "Probleme" sehe Yo en el Code.

Por ejemplo debería uno wohl en lugar de
Kompilieren Marca Separación

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

mejor
Kompilieren Marca Separación

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

y mejor
Kompilieren Marca Separación

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

escribir (en nativen Características [...]

funktioniert lo sin embargo auch como Usted lo geschrieben hast) y Usted springst con Goto de Blöcken heraus:
Kompilieren Marca Separación

label:
while
if
goto labe

endif

w

qué IMHO auch no "erlaubt" es (wiederum auch no en nativen Características). Yo sería komplett en Goto verzichten. Schaue auch ord

, break

, continue

18.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

1. Zu Asc():
El Función Asc() es en BASIC para el Ascii-Code uno Zeichens. Bajo Windows haben wir aber no Ascii-Zeichensatz pero z.B. el Ansi-Zeichensatz oder gar una otro. Deshalb ha hier esta Función en Anlehnung a Delphi el neutraleren Namen Ord() para Oder = Reihenfolge. Kurz: Ersetze Asc() por Ord().

2. Zu Vergleichen:
Como el Ayuda a entnehmen es, orientiert el Hierarchie el Operatoren más a Delphi o. Pascal (y otro Idiomas) las a BASIC, así dass a klammern es. Zitat de el Ayuda:

Referencia: El Hierarchie entspricht en etwa el bajo PASCAL y weicht de el BASIC-Hierarchie de. El Vergleichsoperatoren (...) son en BASIC höher eingestuft. Aus BASIC:

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

se en XProfan:

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

In PASCAL sería uno escribir:

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

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

18.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita