| |
| |
|
Nico
Madysa | Das kommt raus, wenn ich Langeweile hab  :
KompilierenMarkierenSeparieren
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
end
|
 |
| |
| |
| |
|
|
 | @Nico
Hab die Klötze ein bischen farbig gewechselt - bist mir aber nicht böse ;)
KompilierenMarkierenSeparieren
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
|
|
| |
| |
| |
|
|
Nico
Madysa | Pfui, Schäm dich, aus! 
Nein im Ernst, auf sowas cooles bin ich nicht gekommen.  |
|
| |
| |
| |
|
|
Paul
Glatz | Giebts das auch für XProfan 8.0
Paul |
|
| |
| |
| |
|
|
Wilfried
Friebe | Hi alle
Habe das Prog mal gestartet
und dann kam diese Fehlermeldung
was ist das für ein Befehl?
MAT ???
Fehlermeldung im Anhang.
Gruß Wilfried
 |
|
| |
| 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 erst ab Profan 11 geben. Der Code ist also nur für Besitzer der Subscriptionsversion lauffähig.
Siehe hier: [...]  und dann unter Nr 3:
3. Array-Zuweisungen und 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 anderes, als das gesamte Array mit einer einzigen Zahl zu füllen. Davor muss man eine Whileloop-Schleife dazu basteln, was natürlich an der Rechenzeit nagt.
KompilierenMarkierenSeparieren
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
end
@Paul: Du gemeiner Avatar-Dieb, du hättest zumindest die Zündschnur umzeichnen können, damit der Klau nicht ganz so auffällig ist.  |
|
| |
| |
| |
|
(459)
Deutsch
English
Français
Español
Italia