Discuss QBasic, Freebasic, QB64 and more
http://petesqbsite.com/phpBB3/
Code: Select all
'Clicking on box example
DIM x AS INTEGER, y AS INTEGER, button AS Integer
Screen 7
WindowTitle "Mouse clicking example"
Color 2,15
cls
For px = 50 To 70
For py = 50 To 70
PSet (px,py), 14
Next
Next
Do
GetMouse x, y,, button
If button = 1 Then
If x>50 And x<70 Then
If y>50 And y<70 Then i = 1
End If
End If
Loop Until i = 1
Print "Press any key..."
Sleep
Code: Select all
'Clicking on box example
DIM x AS INTEGER, y AS INTEGER, button AS Integer
Screen 7
WindowTitle "Mouse clicking example"
Color 2,15
cls
For px = 50 To 70
For py = 50 To 70
PSet (px,py), 14
Next
Next
Do
GetMouse x, y,, button
If button = 1 Then
If x>50 And x<70 Then
If y>50 And y<70 Then i = 1
End If
End If
Sleep 1
Loop Until i = 1
Print "Press any key..."
Sleep 
kalc wrote:???! That is not what I'm asking. I know that SLEEP counts in milliseconds in FB, but I want to wait for the user to click on the box. Girls... wadda thay know?
kalc wrote:???! That is not what I'm asking. I know that SLEEP counts in milliseconds in FB, but I want to wait for the user to click on the box. Girls... wadda thay know?
OK, sorry Z!re, just couldn't help stating the obvious. No, seriously, sorry. But there is real iron in there: libel! God damn, so good... I might publish it! < That is kind of irony!'d be careful she's libel to take that sword there
To solve the hogging issue, add the sleep 1kalc wrote:This is what happens with all DO...LOOP UNTIL elements, it is constantly checking for a certain occourence and uses all the CPU. How do you get around this?
kalc wrote:That is not what I'm asking.
Ok, so hogging isnt a problem then? Fine, your code works just fine, stfu.kalc wrote:I want to wait for the user to click on the box
