XProfan

Français

Detlev
Wulff

je veux changer de Powerbasic pour XProfan, habe Vollversion 10, mais mir bereitert einiges Probleme, nämlich cela manquer elementarer Basic-Befehlsgruppen, comment ASC(),Inkey$() usw. je suis ensuite simple angefangen avec den vorhandenen Befehlen trop spielen et per Versuch et Irrtum zum but trop venons!
eh bien mais viens je pas plus, weil qui Rücksprung dans qui menu-Anzeige chez Ergebnis 0 ou bien größergleich 16 simple pas funktioniert:
Kompilieren Marque Séparation

-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
Fin

18.12.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Detlev,

paire "Probleme" vois je im Code.

Beispielsweise sollte on wohl statt
Kompilieren Marque Séparation

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

besser
Kompilieren Marque Séparation

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

et besser
Kompilieren Marque Séparation

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

écrivons (dans nativen Funktionen [...]

funktioniert es cependant aussi so comment Du es geschrieben la hâte) et Du springst avec Goto aus Blöcken heraus:
Kompilieren Marque Séparation

label:
while
if
goto labe

endif

w

quoi IMHO aussi pas "erlaubt" ist (wiederum aussi pas dans nativen Funktionen). je serait komplett sur Goto verzichten. Schaue aussi ord

, break

, continue

18.12.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

1. trop Asc():
qui Funktion Asc() steht dans BASIC pour den Ascii-Code eines Zeichens. sous Windows avons wir mais keinen Ascii-Zeichensatz mais z.B. den Ansi-Zeichensatz ou bien gar une anderen. c'est pourquoi hat ici cet Funktion dans Anlehnung à Delphi den neutraleren Namen Ord() pour ou bien = Reihenfolge. Kurz: Ersetze Asc() par Ord().

2. trop comparer:
comment qui Aider trop entnehmen ist, orientiert sich qui Hierarchie qui Operatoren plutôt à Delphi bzw. Pascal (et autre Sprachen) las à BASIC, so dass trop klammern ist. citation aus qui Aider:

Hinweis: qui Hierarchie entspricht dans etwa qui sous PASCAL et weicht de qui BASIC-Hierarchie ab. qui Vergleichsoperatoren (...) sommes dans BASIC höher eingestuft. Aus BASIC:

Si A% > 6 AND A% <= 20 THEN
<...>
Fin Si

wird dans XProfan:

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

dans PASCAL serait on écrivons:

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

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

18.12.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation