XProfan

Paul
Glatz

Giebts the too for XProfan 8.0
Paul

02/19/08 ▲

Dietmar
Horn

Hello Paul,

here the code for XProfan 8, so You To friday not too plenty Langeweile have:

Compile Mark Separation

EX% / EY% = amount the Split / Lines, each -1
declare ex%,ey%
ex% = 4
ey% = 3
the sees too right nice from:
ex% = 19
ey% = 13
The remainder yields itself of self
declare dx%,dy%,x%,y%,altdir%
dx% = %MaxX / (ex% + 1)
dy% = %MaxY / (ey% + 1)
x% = ex%
y% = ey%
altdir% = 0
declare you% , bed% , gis%
###########################################################
Window Style 1024 + 240
Window 0 , 0 - %MaxX , %MaxY + 5
Window Title Screen saver
Randomize
UseBrush 1 , 0
ShowCursor 0
Remove the unbenötigten pieces
Rectangle (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectangle 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectangle ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%

while gis% < 10

    clear bed%
    altdir% = you%

    whilenot bed%

        you% = Rnd(4)^0 v1 <2 >3
        case ((you% = 0) and (y% <> 0)) : inc bed%
        case ((you% = 1) and (y% <> ey%)) : inc bed%
        case ((you% = 2) and (x% <> 0)) : inc bed%
        case ((you% = 3) and (x% <> ex%)) : inc bed%
        case ((altdir% + you% = 1) or (altdir% + you% = 5)) : clear bed%

    endwhile

    if you% = 0HOCH

        whileloop ((y% - 1) * dy%) , ((y% * dy%) - 1) , 1

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop + 1) ; 0
            Line (x% * dx%) , &loop - (((x% + 1) * dx%) - 1) , &loop
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        dec y%

    elseif you% =  1RUNTER

        whileloop ((y% + 1) * dy%) , ((y% * dy%) + 1) , (-1)

            CopyBMP (x% * dx%) , &loop - dx% , dy% > (x% * dx%) , (&loop - 1) ; 0
            Line (x% * dx%) , (&loop + dy% - 1) - (((x% + 1) * dx%) - 1) , (&loop + dy% - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        inc y%

    elseif you% = 2LINKS

        whileloop ((x% - 1) * dx%) , ((x% * dx%) - 1) , 1

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop + 1) , (y% * dy%) ; 0
            Line &loop , (y% * dy%) - &loop , (((y% + 1) * dy%) - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        dec x%

    elseif you% =  3RECHTS

        whileloop ((x% + 1) * dx%) , ((x% * dx%) + 1) , (-1)

            CopyBMP &loop , (y% * dy%) - dx% , dy% > (&loop - 1) , (y% * dy%) ; 0
            Line (&loop + dx% - 1) , (y% * dy%) - (&loop + dx% - 1) , (((y% + 1) * dy%) - 1)
            case %GetInputState : inc gis%
            Sleep 1

        EndWhile

        inc x%

    elseif %GetInputState

        inc gis%

    endif

endwhile

ShowCursor 1
end

what does one not everything for its jüngstes Lieblings-Paulchen

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

02/19/08 ▲

Paul
Glatz

Runs under Vista
comes only one schwartzer screen
Paul

Dietmar
Horn

Hi,

I can moreover not plenty say, because unfortunately have I no Vista to that testing. but slow comes me with the XProfan and Vista right Español to, because urplötzlich should several of my programs under Vista More correctly functions, The To XP correct walk.

I have already of several Vista-Usern heard, that with the a one XProfan-Program under Vista functions, and with the others not (example XProfan-manager).

Perhaps can itself one erfahrener XProfan and Vista-User time obigen relatively short code row for row distinguished and nachschauen, where very since the saw klemmt?

@Paul: I have Nicos code time with XProfan 11 compiliert and to EXE succeed. Runs this program on Your Laptop under Vista?

Greeting
Dietmar

puzzle.zip	451 kB

Hochgeladen:	02/21/08

Downloadcounter:
		Download

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Paul
Glatz

It's all right not comes immernoch only the schwartze bildschrim
Paul

Paul
Glatz

Hello
I faith the trouble is Windowstyle.
Paul

Dietmar
Horn

means then can the only one generelles XProfan-trouble, one allgemeines Vista-trouble, or some Completed: Your Vista-Laptop his ... under XP walk both Codes anyway tadellos and the second code even XProfan 8.0.

time to wait it out, which Results others Vista-User here evtl. yet post ...

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Paul
Glatz

Windowstyle 32 goes not at all under Vista könte the trouble trigger
Paul

Paul
Glatz

Frank
Abbing

Style 32 is still only one Flag, so the window at create not of/ one colour filled becomes. only because You whom background not see can, is it Yes not, that this Flag not functions....
What exactly is is not? crash? Programmabbruch? Please time accurate go.

Rolf
Koch

and its the Windowsstyle
No Frank there's none crash under Vista. only the background becomes Black colored and the Kästchen go Yes in Black drawn. means: Black on Black = JO two Listviews I because there see?
so z.b. sees one everything:
Windowstyle 16+64+128
Weiser background with the black Kästchen.