Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
einmal Maus mit Taste zum mitnehmen....
| Uploader: |  Eternal_Pain |
| Datum/Zeit: | 01.09.2007 22:07:39 |
dim as integer x, y = 1 ,vg, groesse, durchgang = 1
dim as single kreis, kreis2, kreis3, kreis4
screenres 800, 600, 8 : color 0, 15 : 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)
do
x = 1 : y = 1
for kreis3 = 1 to 1000
groesse = int(rnd*100)+1
for kreis4 = 1 to 10
x+=1
if x = 800 then y += 150 : x = 1 : end if
if y > 590 and x > 790 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/10/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*800)+1
y = int(rnd*600)+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