Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Sternenhimmel
| Uploader: |  AndT |
| Datum/Zeit: | 17.10.2007 20:52:42 |
' Das ist zwar sinnlos aber interessant bei sowenig Code^^
dim as integer a
dim as integer px,py
screenres 640,480
do
screenlock
for i as integer = 1 to 25
a+=1
a = a mod 1000
px=int(sin(a)*640*a)
px = px mod 640
py=int(cos(a)*480*a)
py = py mod 480
pset (px,py),int(rnd*256)
next
screenunlock
sleep 1
loop until inkey = chr(27)