XProfan

Paul
Glatz

Giebts el auch para XProfan 8.0
Paul

19.02.2008 ▲

Kompilieren Marca Separación

Dietmar
Horn

¡Hola Paul,

hier el Code para XProfan 8, así Usted a Freitag no allzu viel Langeweile hast:

EX% / EY% = Anzahl el Spalten / Zeilen, jeweils -1
declarar ex%,ey%
ex% = 4
ey% = 3
Das sieht auch bastante nett de:
ex% = 19
ey% = 13
Der Rest ergibt se de incluso
declarar dx%,dy%,x%,y%,altdir%
dx% = %MaxX / (ex% + 1)
dy% = %MaxY / (ey% + 1)
x% = ex%
y% = ey%
altdir% = 0
declarar dir% , bed% , gis%
###########################################################
Ventana de Estilo 1024 + 240
Ventana 0 , 0 - %MaxX , %MaxY + 5
Título de la ventana Bildschirmschoner
Selección aleatoria
UseBrush 1 , 0
ShowCursor 0
Entfernen el unbenötigten Teile
Rectángulo (ex%+1)*dx%,0 - %MaxX,%MaxY
Rectángulo 0,(ey%+1)*dy% - %MaxX,%MaxY
Rectángulo ex%*dx%,ey%*dy%-(ex%+1)*dx%,(ey%+1)*dy%

mientras que gis% < 10

    clear bed%
    altdir% = dir%

    whilenot bed%

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

    endwhile

    if dir% = 0HOCH

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

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

        EndWhile

        dec y%

    elseif dir% =  1RUNTER

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

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

        EndWhile

        inc y%

    elseif dir% = 2LINKS

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

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

        EndWhile

        dec x%

    elseif dir% =  3RECHTS

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

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

        EndWhile

        inc x%

    elseif %GetInputState

        inc gis%

    endif

endwhile

ShowCursor 1
end

Was tut uno no alles para ser jüngstes Lieblings-Paulchen

Saludo
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: [...]

19.02.2008 ▲

Paul
Glatz

Läuft bajo Vista no
kommt sólo una schwartzer bildschirm
Paul

Dietmar
Horn

¡Hola,

Yo kann dazu no viel sagen, porque desafortunadamente Yo kein Vista para Testen. Aber langsam kommt me con XProfan y Vista bastante Español antes, porque urplötzlich debería mehrere meiner Programas bajo Vista no mehr korrekt trabajo, el a XP einwandfrei laufen.

Yo habe ya de más Vista-Usern gehört, daß en el una una XProfan-Programa bajo Vista funktioniert, y en el otro no (Ejemplo XProfan-Manager).

Tal vez kann se una erfahrener XProfan y Vista-User veces obigen relativ kurzen Code Línea para Línea vornehmen y nachschauen, wo exactamente el Säge klemmt?

@Paul: Yo habe Nicos Code veces con XProfan 11 compiliert y a EXE gelingt. Läuft dieses Programa en Deinem Laptop bajo Vista?

Saludo
Dietmar

puzzle.zip	451 kB

Hochgeladen:	21.02.2008

Ladeanzahl:
		Descargar

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

Lo va no kommt immernoch sólo el schwartze bildschrim
Paul

Paul
Glatz

¡Hola
Yo glaube el problem es Windowstyle.
Paul

Dietmar
Horn

Also entonces puede sólo una generelles XProfan-Problema, una allgemeines Vista-Problema, oder irgendein Problema con su Vista-Laptop ser ... Bajo XP laufen beide Codes jedenfalls tadellos y zweite Code incluso con XProfan 8.0.

Tiempo abwarten, welche Ergebnisse otro Vista-User hier evtl. todavía puesto ...

Saludo
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 va garnicht bajo Vista könte el problem auslösen
Paul

Paul
Glatz

Frank
Abbing

Style 32 es doch sólo una Flag, así el Ventana beim Erstellen no con uno Farbe gefüllt se. Nur porque du el Hintergrund no sehen kannst, heißt lo sí no, dass dieses Flag no funktioniert....
Was genau heißt va no? Choque? Programmabbruch? Bitte veces genauer voluntad.

Rolf
Koch

Und es el Windowsstyle
Nein Franco lo son no Choque bajo Vista. Nur el Hintergrund se schwarz gefärbt y el Kästchen voluntad sí en Schwarz suscrito. Bedeutet: Schwarz en Schwarz = JO Was se Yo porque como sehen?
So z.b. sieht uno alles:
Windowstyle 16+64+128
Weiser Hintergrund con el schwarzen Kästchen.