Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Nutzlos aber schick anzusehen
| Uploader: |  The_Muh |
| Datum/Zeit: | 01.09.2007 22:40:36 |
'als screensaver vewenbar...
'vielen dank an Eternal pain
# include "windows.bi"
dim as integer x, y = 1 ,vg, groesse, durchgang = 1
dim as single kreis, kreis2, kreis3, kreis4
screenres 1024, 768, 8,,1 : color 15, 0 : cls
Type maus
X as integer
Y as integer
R as integer
B as integer
End Type
Sub IchWache (byval N as any ptr)
Dim MausMerke as maus
Dim MausWache as maus
Dim Key as String
Sleep(50)
With MausMerke
GetMouse .X,.Y,.R,.B
End With
Do
Key=Inkey
With MausWache
GetMouse .X,.Y,.R,.B
End With
If MausWache.X<>MausMerke.X Then End
If MausWache.Y<>MausMerke.Y Then End
If MausWache.R<>MausMerke.R Then End
If MausWache.B<>MausMerke.B Then End
If Key<>"" Then End
Loop
End Sub
Threadcreate (cast(any ptr,@IchWache),0)
setmouse ,,0
do
If InKey=Chr(27) Then Exit Do
x = 1 : y = 1
for kreis3 = 1 to 1200
groesse = int(rnd*100)+1
for kreis4 = 1 to 10
x+=1
if x = 1024 then y += 150 : x = 1 : end if
if y > 700 and x > 950 then
y = 1 : x = 1
end if
vg = int(rnd*16000)+1
circle (x,y), groesse,vg
next kreis4
sleep 1
Locate 1,1 : Print cint(kreis3/12/2) ;"%"
locate 1,5 : print " Durchgang: ";durchgang
next kreis3
cls
for kreis2 = 1 to 600
groesse = int(rnd*100)+1
for kreis = 1 to 10
x = int(rnd*1024)+1
y = int(rnd*768)+1
vg = int(rnd*16000)+1
circle (x,y), groesse,vg
next kreis
sleep 1
locate 1,1 : print Cint(50+kreis2/6/2);"%"
locate 1,5 : print " Durchgang:";durchgang
next kreis2
cls
durchgang += 1
loop