| |
|
|
| KompilierenMarcaSeparaciónSource wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Icons nach dem Zufallsprinzip ins Hauptfenster setzen
Lauffähig ab Profan-Version 6.6
Erklärung:
----------
Dieses Beispiel demonstriert, wie man ein Icon nach dem Zufallsprinzip
ins Hauptfenster setzen kann und den Befehl SLEEP verwendet
Es bedeuten:
------------
declare i%,x%,y%,e%,zeit%
cls
AppendMenubar 99,Beenden
AppendMenuBar 200,schneller
AppendMenuBar 100,langsamer
randomize
zeit%=500
clear e%
whilenot e%
case MenuItem(99) : e% =1
if MenuItem(100)
cls rnd(32000)
zeit% = 100
SetMenuItem 0
endif
if MenuItem(200)
cls rnd(32000)
zeit% = 0
SetMenuItem 0
endif
let x%=rnd(600)
let y%=rnd(440)
DrawIcon GESICHT,x%,y%
sleep zeit%
wend
end
|
|
|
| |
|
|