Français
Source/ Codesnippets

Bildschirmschoner Schiebepuzzle

 

Nico
Madysa
cela venez raus, si je ennui hab :
EX% / EY% = Anzahl qui Spalten / Zeilen, jeweils -1
var ex% = 4
var ey% = 3
qui reste ergibt sich de selbst
var dx% = %MaxX / (ex% + 1)
var dy% = %MaxY / (ey% + 1)
var x% = ex%
var y% = ey%
var altdir% = 0
declare dir% , bed% , gis%
Fenêtre Style 1024 + 240
Fenêtre 0 , 0 - %MaxX , %MaxY + 5
Titre de la fenêtre Bildschirmschoner
Randomiser
UseBrush 1 , 0
ShowCursor 0
Entfernen qui unbenötigten Teile
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%

tandis que gis% < 10

    clear bed%
    altdir% = dir%

    repeat

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

    until bed%

    Select dir%

        CaseOf 0 HOCH

        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
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec y%

        CaseOf 1 RUNTER

        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)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc y%

        CaseOf 2 LINKS

        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)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec x%

        CaseOf 3 RECHTS

        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)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc x%

    EndSelect

    cas %GetInputState : inc gis%

Wend

ShowCursor 1
end

3 kB
Kurzbeschreibung: Screensaver - Voir le texte source
Hochgeladen:18.02.2008
Downloadcounter300
Download
 
Nico Madysa
18.02.2008  
 




Paul
Glatz
Giebts cela aussi pour XProfan 8.0
Paul
 
19.02.2008  
 




Dietmar
Horn
allô Paul,

ici qui Code pour XProfan 8, avec cela Du jusqu'à vendredi pas allzu viel ennui la hâte:
EX% / EY% = Anzahl qui Spalten / Zeilen, jeweils -1
declare ex%,ey%
ex% = 4
ey% = 3
cela sieht aussi droite gentil aus:
ex% = 19
ey% = 13
qui reste ergibt sich de selbst
declare dx%,dy%,x%,y%,altdir%
dx% = %MaxX / (ex% + 1)
dy% = %MaxY / (ey% + 1)
x% = ex%
y% = ey%
altdir% = 0
declare dir% , bed% , gis%
###########################################################
Fenêtre Style 1024 + 240
Fenêtre 0 , 0 - %MaxX , %MaxY + 5
Titre de la fenêtre Bildschirmschoner
Randomiser
UseBrush 1 , 0
ShowCursor 0
Entfernen qui unbenötigten Teile
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%

tandis que gis% < 10

    clear bed%
    altdir% = dir%

    whilenot bed%

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

    endwhile

    si dir% = 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
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec y%

    elseif dir% =  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)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc y%

    elseif dir% = 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)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        dec x%

    elseif dir% =  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)
            cas %GetInputState : inc gis%
            Sleep 1

        Endwhile

        inc x%

    elseif %GetInputState

        inc gis%

    endif

endwhile

ShowCursor 1
end

qu'est-ce qu'il ne faut pas faire alles pour son jüngstes Lieblings-Paulchen

Salut
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 sous Vue pas
venez seulement un schwartzer bildschirm
Paul
 
21.02.2008  
 




Dietmar
Horn
Salut,

je peux en supplément pas viel dire, car malheureusement habe je ne...aucune Vue zum Testen. mais lente venez mir cela avec XProfan et Vue droite spanisch avant, car urplötzlich devoir plusieurs meiner Programme sous Vue pas plus korrekt marcher, qui jusqu'à XP einwandfrei courir.

j'ai déjà de mehreren Vue-Usern est, qui chez dem une un XProfan-Programme sous Vue funktioniert, et chez dem anderen pas (Beispiel XProfan-Manager).

peut-être peux sich un erfahrener XProfaner et Vue-User la fois obigen relativ kurzen Code la ligne pour la ligne vornehmen et chercher, wohin oui c'est ca là qui Säge klemmt?

@Paul: j'ai Nicos Code la fois avec XProfan 11 compilé et zur EXE gelingt. Läuft cet Programme sur Deinem Laptop sous Vue?

Salut
Dietmar

451 kB
Hochgeladen:21.02.2008
Downloadcounter230
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:  [...] 
21.02.2008  
 




Paul
Glatz
und dir pas venez immernoch seulement qui schwartze bildschrim
Paul
 
21.02.2008  
 




Paul
Glatz
allô
je crois cela problem ist Windowstyle.
Paul
 
21.02.2008  
 




Dietmar
Horn
bon alors peux cela seulement un generelles XProfan-Problem, un allgemeines Vue-Problem, ou bien irgendein Problem avec Deinem Vue-Laptop son ... sous XP courir beide Codes jedenfalls correcte et qui zweite Code sogar avec XProfan 8.0.

la fois abwarten, quelle Ergebnisse autre Vue-User ici peut-être. encore posten ...

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




Paul
Glatz
Windowstyle 32 allez garnicht sous Vue könte cela problem auslösen
Paul
 
21.02.2008  
 




Paul
Glatz
 
21.02.2008  
 




Frank
Abbing
Style 32 mais est seulement un Flag, avec cela cela la fenêtre beim Erstellen pas avec einer la couleur pleine wird. seulement weil du den Hintergrund pas voyons peux, est es oui pas, dass cet Flag pas funktioniert....
quoi oui c'est ca est allez pas? Absturz? Programmabbruch? s'il te plaît la fois genauer volonté.
 
21.02.2008  
 




Rolf
Koch
et c'est qui Windowsstyle
non Frank il y a keinen Absturz sous Vue. seulement qui Hintergrund wird noir teinté et qui Kästchen volonté oui dans noir gezeichnet. Bedeutet: noir sur noir = JO quoi soll je car là voyons?
So z.b. sieht on alles:
Windowstyle 16+64+128
Weiser Hintergrund avec den schwarzen Kästchen.
 
21.02.2008  
 




Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

15.525 Views

Untitledvor 0 min.
Frank16.04.2021
Julian Schmidt04.04.2012
Peter Max Müller05.12.2010

Themeninformationen



Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie