(1.116)  S'inscrire

Français
Source/ Codesnippets

Bildschirmschoner Blöcke Fallende

 

Nico
Madysa
cela venez raus, si je ennui hab :
KompilierenMarqueSéparation
proc Boxan

    parameters x% , y%
    Rectangle (x% + 1) , (y% - ueber% + 1) - (x% + Box%) , (y% - ueber% + Box%)

endproc

proc Boxaus

    parameters x% , y%
    MCopyBMP x% , (y% - ueber%) - Box% , Box% > x% , (y% - ueber%) ; 0

endproc

declare Box% , Anzx% , Anzy% , ueber%
declare posx% , posy% , gis% , AnzBox% , Stapel%[15]
WindowStyle 1024 + 240
Window 0 , 0 - %MaxX , %MaxY
WindowTitle Bildschirmschoner
ShowCursor 0
Randomize
UsePen 0 , 2 , 0
MCls %MaxX , %MaxY
clear gis% , AnzBox%

while gis% < 10

    ifnot AnzBox%

        Anzx% = Rnd(11) + 5
        Box% = %MaxX  Anzx%
        Anzy% = Int(Anzx% * %MaxY / %MaxX) + 1
        ueber% = (Box% * Anzy%) - %MaxY
        MAT Stapel%[] = Anzy%
        CopyBMPToMem 0 , 0 - %MaxX , %MaxY > 0 , 0
        UseBrush 1 , RGB(Rnd(256),Rnd(256),Rnd(256))
        AnzBox% = Anzx% * Anzy%

    endif

    repeat

        posx% = Rnd(Anzx%)

    until Stapel%[posx%]

    Stapel%[posx%] = Stapel%[posx%] - 1

    whileloop 0 , Stapel%[posx%]

        case &loop : BoxAus (posx% * Box%) , ((&loop - 1) * Box%)
        BoxAn (posx% * Box%) , (&loop * Box%)
        Sleep 50
        case %GetInputState : inc gis%

    EndWhile

    Sleep 50
    dec AnzBox%
    case %GetInputState : inc gis%

wend

ShowCursor 1
=s4 href='./../../function-references/XProfan/end/'>end

2 kB
Kurzbeschreibung: Screensaver - Voir le texte source
Hochgeladen:18.02.2008
Downloadcounter: 314
Download
 
Nico Madysa
18.02.2008  ▲
 



@Nico
Hab qui Klötze un un peu farbig modifié - es mir mais pas böse ;)
KompilierenMarqueSéparation
PROC COLOR_WECHSEL neue Procedur

    UseBrush 1 , RGB(Rnd(255-20),Rnd(255-20),Rnd(255-20))

ENDPROC

#####################################################

proc Boxan

    parameters x% , y%
    COLOR_WECHSEL Hier werden die Farben geändert
    Rectangle (x% + 1) , (y% - ueber% + 1) - (x% + Box%) , (y% - ueber% + Box%)

endproc

proc Boxaus

    parameters x% , y%
    MCopyBMP x% , (y% - ueber%) - Box% , Box% > x% , (y% - ueber%) ; 0

endproc

declare Box% , Anzx% , Anzy% , ueber%
declare posx% , posy% , gis% , AnzBox% , Stapel%[15]
WindowStyle 1024 + 240
Window 0 , 0 - %MaxX , %MaxY
WindowTitle Bildschirmschoner
ShowCursor 0
Randomize
UsePen 0 , 2 , 0
MCls %MaxX , %MaxY
clear gis% , AnzBox%

while gis% < 10

    ifnot AnzBox%

        Anzx% = Rnd(11) + 5
        Box% = %MaxX  Anzx%
        Anzy% = Int(Anzx% * %MaxY / %MaxX) + 1
        ueber% = (Box% * Anzy%) - %MaxY
        MAT Stapel%[] = Anzy%
        CopyBMPToMem 0 , 0 - %MaxX , %MaxY > 0 , 0
        UseBrush 1 , RGB(Rnd(256),Rnd(256),Rnd(256)) das hab ich deaktiviert
        AnzBox% = Anzx% * Anzy%

    endif

    repeat

        posx% = Rnd(Anzx%)

    until Stapel%[posx%]

    Stapel%[posx%] = Stapel%[posx%] - 1

    whileloop 0 , Stapel%[posx%]

        case &loop : BoxAus (posx% * Box%) , ((&loop - 1) * Box%)
        BoxAn (posx% * Box%) , (&loop * Box%)
        Sleep 50
        case %GetInputState : inc gis%

    EndWhile

    Sleep 50
    dec AnzBox%
    case %GetInputState : inc gis%

wend

ShowCursor 1<
end
 
18.02.2008  ▲
 




Nico
Madysa
Pfui, Schäm toi, aus!
non im Ernst, sur quelque chose comme cooles suis je pas gekommen.
 
Nico Madysa
19.02.2008  ▲
 




Paul
Glatz
Giebts cela aussi pour XProfan 8.0
Paul
 
19.02.2008  ▲
 




Wilfried
Friebe
Hi alle

Habe cela Prog la fois gestartet

et ensuite kam cet Fehlermeldung

qu'est-ce que c'est pour un Befehl?

MAT ???

Fehlermeldung im Anhang.

Salut Wilfried


53 kB
Hochgeladen:19.02.2008
Downloadcounter: 261
Download
 
Board MSI B450M BAZOOKA CPU AMD Ryzen 7 2700x 8 Core 3,7-4,2 GH 32 Gb Ram NVIDIA GeForce GTX 3060 12 GB Ram Window 11 Prof 64 Bit

Sun-Guru-Barebone CPU I7-9750H 16 GB Ram NVIDIA GeForce GTX1660TI 6 GB Ram Window 11 Hom 64 Bit

Profan 4.5 bis Xprofan 14
Ein frisch geschriebenes Programm hat meistens einen großen Fehler.Sollte man versuchen diesen großen Fehler zu beseitigen, hat man viele kleine Fehler "Grins"
19.02.2008  ▲
 




Jörg
Sellmeyer
Mat wird es seulement ab Profan 11 donner. qui Code ist alors seulement pour Besitzer qui Subscriptionsversion courir.
Siehe ici: [...]  et ensuite sous Nr 3:


3. Array-Zuweisungen et Matrix-Befehle (dernier Ergänzung: 16.12.2007)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
19.02.2008  ▲
 




Nico
Madysa
pouvoir rien d'autre, comme cela gesamte Array avec einer einzigen numéro trop füllen. devant muss on une Whileloop-Boucle en supplément bricoler, quoi naturellement à qui Rechenzeit nagt.
KompilierenMarqueSéparation
proc Boxan

    parameters x% , y%
    Rectangle (x% + 1) , (y% - ueber% + 1) - (x% + Box%) , (y% - ueber% + Box%)

endproc

proc Boxaus

    parameters x% , y%
    MCopyBMP x% , (y% - ueber%) - Box% , Box% > x% , (y% - ueber%) ; 0

endproc

declare Box% , Anzx% , Anzy% , ueber%
declare posx% , posy% , gis% , AnzBox% , Stapel%[15]
WindowStyle 1024 + 240
Window 0 , 0 - %MaxX , %MaxY
WindowTitle Bildschirmschoner
ShowCursor 0
Randomize
UsePen 0 , 2 , 0
MCls %MaxX , %MaxY
clear gis% , AnzBox%

while gis% < 10

    ifnot AnzBox%

        Anzx% = Rnd(11) + 5
        Box% = %MaxX  Anzx%
        Anzy% = Int(Anzx% * %MaxY / %MaxX) + 1
        ueber% = (Box% * Anzy%) - %MaxY

        whileloop 0 , 14

            Stapel%[&loop] = Anzy%

        EndWhile

        CopyBMPToMem 0 , 0 - %MaxX , %MaxY > 0 , 0
        UseBrush 1 , RGB(Rnd(256),Rnd(256),Rnd(256))
        AnzBox% = Anzx% * Anzy%

    endif

    repeat

        posx% = Rnd(Anzx%)

    until Stapel%[posx%]

    Stapel%[posx%] = Stapel%[posx%] - 1

    whileloop 0 , Stapel%[posx%]

        case &loop : BoxAus (posx% * Box%) , ((&loop - 1) * Box%)
        BoxAn (posx% * Box%) , (&loop * Box%)
        Sleep 50
        case %GetInputState : inc gis%

    EndWhile

    Sleep 50
    dec AnzBox%
    case %GetInputState : inc gis%

wend

ShowCursor 1 class=s4 href='./../../function-references/XProfan/end/'>end

@Paul: Du gemeiner Avatar-Dieb, du hättest zumindest qui Zündschnur umzeichnen peut, avec cela qui Klau pas entier so auffällig ist.
 
Nico Madysa
20.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

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

9.910 Views

Untitledvor 0 min.
Frank16.04.2021
RudiB.31.01.2016
lange-jens18.04.2012
Julian Schmidt26.07.2011
plus...

Themeninformationen

cet Thema hat 5 participant:

Nico Madysa (3x)
Jörg Sellmeyer (1x)
Wilfried Friebe (1x)
Paul Glatz (1x)
unbekannt (1x)


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