so instead of
Code: Select all
do
loop until len(inkey)
We can simply code
Code: Select all
sleep
Code: Select all
do
yy = GetMouse (x, y, , zz)
loop until yy=0 and zz=1
Code: Select all
do
loop until len(inkey)
Code: Select all
sleep
Code: Select all
do
yy = GetMouse (x, y, , zz)
loop until yy=0 and zz=1
Code: Select all
dim as long b
dim as long b
dim as single z
screen 19
do
screenlock
cls
z+=.01
if z>3 then z=0
locate(3,3)
print "Hello, left click to end " + string(z,".")
screenunlock
sleep 1,1
loop until (getmouse(0,0,0,b)+b=1)
AFAIK, in Windows, we would rather have to talk about: "event(s)" or "message(s)", which include bothdodicat wrote:I think only getmouse catches mouse clicks.
Code: Select all
Do
' do anything, that needs to be done
If Len(InKey) Then Exit Do ' quit loop (end program!)
Sleep(16, 1) ' approx: 60 fps, give CPU a break
Loop
Code: Select all
Do
' do anything, that needs to be done
Sleep(16, 1) ' approx: 60 fps, give CPU a break
Loop Until Len(InKey)
Code: Select all
#include "fbgfx.bi"
Dim e As FB.event
dim as single z
screen 19
do
screenlock
cls
z+=.01
if z>3 then z=0
locate(3,3)
print "Hello, left click to end " + string(z,".")
screenunlock
sleep 1,1
loop until screenevent(@e) and e.button = FB.BUTTON_LEFT