(493)  Registro

Español
Fuente/ Codesnippets

Bildschirmschoner Blöcke Fallende

 

Nico
Madysa
Das kommt fuera, si yo Langeweile tener :
KompilierenMarcaSeparación
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 - Ver código fuente
Hochgeladen:18.02.2008
Ladeanzahl: 314
Descargar
 
Nico Madysa
18.02.2008  ▲
 



@Nico
Hab el Klötze una bischen farbig cambiado - bist me pero no böse ;)
KompilierenMarcaSeparación
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 dich, de!
Nein en el Ernst, en algo como cooles bin Yo no gekommen.
 
Nico Madysa
19.02.2008  ▲
 




Paul
Glatz
Giebts el auch para XProfan 8.0
Paul
 
19.02.2008  ▲
 




Wilfried
Friebe
Hi todos

Posesiones el Prog veces comenzó

y luego kam esta Fehlermeldung

qué es el para una Befehl?

MAT ???

Fehlermeldung en el Anhang.

Saludo Wilfried


53 kB
Hochgeladen:19.02.2008
Ladeanzahl: 261
Descargar
 
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 se lo sólo de Profano 11 geben. Der Code es also sólo para Besitzer el Subscriptionsversion lauffähig.
Siehe hier: [...]  y luego bajo Nr 3:


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




Nico
Madysa
Macht nichts más, como el gesamte Array con uno einzigen Número de füllen. Davor muss uno una Whileloop-Bucle dazu remendar, qué natürlich a el Rechenzeit nagt.
KompilierenMarcaSeparación
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: Usted gemeiner Avatar-Dieb, du hättest zumindest el Zündschnur umzeichnen puede, así el Klau no bastante así auffällig es.
 
Nico Madysa
20.02.2008  ▲
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Constantemente
Hecho

9.960 Views

Untitledvor 0 min.
Frank16.04.2021
RudiB.31.01.2016
lange-jens18.04.2012
Julian Schmidt26.07.2011
Más...

Themeninformationen

Dieses Thema ha 5 subscriber:

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


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.

einverstandenDatenschutzerklärung
Yo möchte no Cookie