XProfan

English

Georg
Teles

Hello Forum,

ok, so far i see does it Compile and left only over the Precompiler XPSE ... speak the whole lane of .PRF To .EXE goes over

AddStrings and SendString shining nProc not To like, there is then
"Warnung undeklarierte function: SENDSTRING" naja, try later it in nProc To bypass ...

back to that trouble, this is the code, the as nProc compiled go should
Compile Mark Separation

nProc cr2

    Parameters File$,fs&

    If fs& MOD 2 = 0

        s% = (fs&\2)-1

    Else

        s% = (fs&\2)

    EndIf

    WhileLoop 0,s%

        p% = p%+word(fs#,&loop*2)

        If p% > 65534

            p% = (p%-65535)

        endif

    EndWhile

    p% = (p%+fs&)
    Return p%

ENDPROC

self-evident are variables s%,p%,fs# global declared...
... and this is The Error Message at Compile

---
self with small Codes How this I get a Error Message:
Compile Mark Separation

 {$cleq}
cls
print rechne(2,4)

nProc rechne

    parameters a&,b&
    a& = a&*b&
    return Str $(a&)

endproc

Waitinput

what make I wrong with the XPSE ?

error.jpg

133 kB

Hochgeladen:

04/15/13

Downloadcounter:

Download

error2.jpg Preview

39 kB

Hochgeladen:

04/15/13

Downloadcounter:

Download

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

04/15/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Regards!

first of all at least XProfan11 or FreeProfan benefit -
the latest Example of you is fehlerfrei and working integrally normal.

The Proc cr2 however is defective,
on attempt can I discern the s% not pub declared is and this Datentyp with %
is in nProcs ohnehin &. here again The Datentypen: [...]

there on the Page standing left too The Function Reference,
SendString and SendKey should one itself thereafter self building by SendMessage.
might one then same here [...]

with take in.

fs# is pub neither declared, there's in nProcs from important Found only local
Variables and by Parameter übergebene: [...]

,
on Globale can by Global [...]

_lesend_ zurückgreifen -
here but only long. Memory-Variables there in nProc not because unnecessary,
there runs everything directly by lever means again long: [...]

hint: Ums yet faster as quick To make unnecessary clinging with
Rechenoperationen omit. so is s&=fs&\2-1 faster as s&=(fs&\2)-1 and
yet faster is s&=fs&; div s&,2; sub s&,1

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

04/15/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Georg
Teles

good tommorrow,

thanks