XProfan

Michael
Wodrich

have You evtl. The Procedures nested?

otherwise helps there the Post one Minimalbeispiels, where the Error too vorkommt.
mostly discover one then at Abspecken on absolutes minimum mostly self whom Error.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

E.T.

would have been now circa these Time not of/ one so speedy response calculated.

Michael Wodrich: have You evtl. The Procedures nested?

think I do not, see example, with the it too appears :
Compile Mark Separation

Declare Pos5&, Pos10&, Ende%

Proc Schnappi_5

    Parameters X%

    If (@Val(@Right$(@Str$(X%),1)) >=0) AND (@Val(@Right$(@Str$(X%),1)) <3)

        WhileNot (@Val(@Right$(@Str$(X%),1)) = 0) OR (@Val(@Right$(@Str$(X%),1)) = 5)

            dec X%

        EndWhile

    ElseIf (@Val(@Right$(@Str$(X%),1)) >=5) AND (@Val(@Right$(@Str$(X%),1)) <8)

        WhileNot (@Val(@Right$(@Str$(X%),1)) = 0) OR (@Val(@Right$(@Str$(X%),1)) = 5)

            dec X%

        EndWhile

    Else

        WhileNot (@Val(@Right$(@Str$(X%),1)) = 5) OR (@Val(@Right$(@Str$(X%),1)) = 0)

            inc X%

        EndWhile

    EndIF

    Return @Str$(X%)

EndProc

Proc Schnappi_10

    Parameters X%
    Return @Str$(@Round(X%,-1))

EndProc

Set(Decimals,0)
WindowStyle 512+16
WindowTitle Test-Seite
Window 50,50-400,400
CreateMenu
AppendMenuBar 1000,<<<      FERTIG - TEST BEENDEN      >>>
@Create(Text,%HWnd,Mauskoordinaten im...,50,20,150,20)
@Create(Text,%HWnd,...5er Raster :,20,50,100,20)
@Create(Text,%HWnd,...10er Raster :,20,80,100,20)
Pos5& = @Create(Text,%HWnd,---,---,120,50,55,20)
Pos10& = @Create(Text,%HWnd,---,---,120,80,55,20)
Clear Ende%

WhileNot Ende%

    GetMessage
    SetText Pos5&, Schnappi_5 (%MouseX) + , + Schnappi_5 (%MouseY)
    SetText Pos10&, Schnappi_10 (%MouseX) + , + Schnappi_10 (%MouseY)

    If @MenuItem(1000)

        Ende% = 1

    EndIf

EndWhileclass=s4 href='./../../Function-References/XProfan/end/'>end

in the attachment Have I time the whole Gewusel, which Profan2Cpp on of my disk leave behind has

(not angry meant), in a .rarely gepackt, incl. this Source here.

Vieleicht hilfts Yes with the Fehlersuche.

Mario

TestSeite_cpp.rar	160 kB

Hochgeladen:	04/10/08

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

behind Funktionsaufrufe one Freizeichen to the Folgeklammer?

E.T.

iF: behind Funktionsaufrufe one Freizeichen to the Folgeklammer?

THANK YOU !!
goes still !! so simply are hold small Freuden !!!

now Have so did i whom ShareWare-Info, which of Profan2Cpp eingebunden becomes, seen.

shining but what To his, what XProfan, XPSE and Profan2Cpp not anmeckern.

Mario

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

E.T.

... and the begot .exe-dingens is indeed yet only 42% so big as Profan-Exe !!

class Program !! mandatory I still glattweg even time with couple others things try !!
But if I the whole Kauderwelsch in the C++ - Ordner see, stay I still rather with XProfan.
because for what would otherwise Profan2Cpp made, unless for such Unwissenden How me !!

Mario

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Sebastian
König

Hi,

beautiful, if a problem already resolved is, before I the Thread at all red having!

Aufrufe of Procedures as functions with space to the öffnenden Klammer make Profan2Cpp 1.6 in the doing unfortunately yet Problems... In Profan2Cpp 2.0, the in Kürze (naja, time look, when very) then parallel with XProfan 11 appear, becomes the trouble but fixed his. If interest exists, would I in momentum means guess, on the new Version To Waiting.

MfG

Sebastian

P.s.: Dass The with C++ begot Exe small is as The of XProfan counts unfortunately only for relatively small programs, there itself in this drop auszahlt, that from whom Bibliotheken only dazugelinkt becomes, what too really needed becomes during XProfan naturally always The complete Runtime dazulinkt. its though so, that the native Maschinencode explicit larger is as XProfan-P-code (The .prc-Files), so with umfangreichen Programs The C++-Variante then larger is...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Michael
Wodrich

@Mario:

an small Why stay:
Compile Mark Separation

----- Schnipp ----- Schnipp ----- Schnipp -----

Proc Schnappi_5

    Parameters X%

    If (@Val(@Right$(@Str$(X%),1)) >=0) AND (@Val(@Right$(@Str$(X%),1)) <3)

        If ((x% mod 10) >= 0) and ((x% mod 10) <= 3)

            WhileNot (@Val(@Right$(@Str$(X%),1)) = 0) OR (@Val(@Right$(@Str$(X%),1)) = 5)

                WhileNot ((x% mod 10) = 0) OR ((x% mod 10) = 5)

                    dec X%

                EndWhile

                ----- Schnapp ----- Schnapp ----- Schnapp -----

            EndIf

        ENDPROC

Best wishes
Michael Wodrich

Mod supply whom Teilungsrest

Programmieren, das spannendste Detektivspiel der Welt.

Jac
de
Lad

Compile Mark Separation

(@Val(@Right$(@Str$(X%),1)) >=0)

is not always true?

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

E.T.

@Jac: is correct already, but with the GANZEN ZEILE comes another circumstance out. isn't to the swell manner written, but I faith, there has so eachone its Marotten...

@Michael: thanks, so GEHTS too. be in the momentum glad, the it so works, what's it like. but I werds me remember.

Mario

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Jac
de
Lad

but because it a and-circumstance is, can you whom part omit.

Yes, I Have too so my Marotten, The I rather nirgendwo preisgebe.

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

E.T.

Achso, now wisely I, what you mean. Well, The Marotten....
has but Maybe whom benefit, that I in a year in my View source yet
discern can, How I (Maybe too sometimes wrong) virtual have.

and the couple byte More on code should still the hern not big make. and m.E. ists Yes not wrong, separate only verdrückt ausgekehrt or twice gemoppelt.
and who wisely, sometime could The Mouse-Coordinates (How in this example) indeed time negative his...

Mario

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

04/13/08 ▲