(948)  Login

English
Source / code snippets

Screen saver Blöcke Fallende

 

Nico
Madysa
the comes out, if I Langeweile Have :
CompileMarkSeparation
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 - View source
Hochgeladen:02/18/08
Downloadcounter: 314
Download
 
Nico Madysa
02/18/08  ▲
 



@Nico
Have The Klötze one little coloured changed - are me but not angry ;)
CompileMarkSeparation
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
 
02/18/08  ▲
 




Nico
Madysa
Pfui, shame on you, from!
No in the serious, on something like cooles be I do not come.
 
Nico Madysa
02/19/08  ▲
 




Paul
Glatz
Giebts the too for XProfan 8.0
Paul
 
02/19/08  ▲
 




Wilfried
Friebe
Hi any

have the Prog time launched

and then coming these Error Message

what's this thing for a commands?

MAT ???

Error in attachment.

Greeting Wilfried


53 kB
Hochgeladen:02/19/08
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"
02/19/08  ▲
 




Jörg
Sellmeyer
Mat becomes it first ex Profan 11 give. The code is means only for owner the Subscriptionsversion run.
See here: [...]  and then under Nr 3:


3. aray-Zuweisungen and Matrix-command (latest appendix: 16.12.2007)
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
02/19/08  ▲
 




Nico
Madysa
never mind other, as the entire aray with of/ one only Number of fill. before it must is a Whileloop-Loop moreover basteln, what naturally on the Rechenzeit nagt.
CompileMarkSeparation
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: You gemeiner Avatar-thief, You would have at least The Zündschnur umzeichnen can, so the Klau not integrally so gaudy is.
 
Nico Madysa
02/20/08  ▲
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

9.883 Views

Untitledvor 0 min.
Frank04/16/21
RudiB.01/31/16
lange-jens04/18/12
Julian Schmidt07/26/11
More...

Themeninformationen

this Topic has 5 subscriber:

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


Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.

all rightDatenschutzerklärung
i want none Cookie