DBpro, multi-use button question.

Author

Message

Rixarn

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location:

Posted: 8th Jan 2006 06:04

Link

Hi, thanks for reading this. I want to make a button that does something different each time is pressed. I cant get the logic to keep trace of how much clicks someone has done in the same button.

A simple demo showing a number increase by the no. of clicks someone does would do i belive.

Thanks

Back to top

Profile PM

Rixarn

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location:

Posted: 8th Jan 2006 06:14

Link

...actually the thing i want to do, is a button that turns ON with one click,, and then if the user clicks it again while ON, it turns back to OFF, but i guess the other example can give me the logic behind this too.

thanks

Back to top

Profile PM

Rixarn

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location:

Posted: 8th Jan 2006 06:32

Link

Well,, i somehow figure it out this way,, but is there a better way of doing it? thanks

+ Code Snippet

sync on
sync rate 60
make object cube 1,1
delete object 1

do
text 0,0,"Click No. "+str$(click)+""

ink rgb(0,0,0),rgb(0,0,0)
box 15,100,44,120
ink rgb(0,0,255),rgb(0,0,0)
box 17,102,42,118

INK rgb(255,255,255),rgb(0,0,0)

if mousex()>15 and mousex()<35 and mousey()>100 and mousey()<120 AND MOUSECLICK()=1 and clicked=0
inc click,1
clicked=1
endif

if mouseclick()=0
clicked=0
endif

if click=1:text 17,104,"ON":endif
if click=2:text 17,104,"OFF":endif
if click=>3 then click=1
sync

Back to top

Profile PM

TKsFox

19

Years of Service

User Offline

Joined: 25th Nov 2005

Location: No no no - Its not the Cyberspace

Posted: 8th Jan 2006 12:45

Link

There is a little button - edit post - just to mention it

I would use the same way as u used

It's me...

Back to top

Profile PM Website

Rixarn

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location:

Posted: 8th Jan 2006 16:38

Link

I know this was an easy question but i couldnt figure it out till like 30 mins before i posted it, and also i dont know if there´s an easier more usefull way of coding it, but Thanks for posting.

Back to top

Profile PM

crighton

19

Years of Service

User Offline

Joined: 5th Nov 2005

Location: In your soup.

Posted: 8th Jan 2006 18:30

Link

thats pretty close to what u (I) would use.
for a 3d back drop instead of making a box then delete it, just use

+ Code Snippet

backdrop on

and using ink command in ur loop severly slows the program down as well.

set ink color before entering main loop, then if u need colored boxes, do some thing like this

+ Code Snippet

BOX Left, Top, Right, Bottom, rgb(?,?,?), rgb(?,?,?), rgb(?,?,?),  rgb(?,?,?)

some pretty nice effects can be done with this command.

hope that helps

aye!

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 8th Jan 2006 22:12 Edited at: 8th Jan 2006 22:16

Link

I would make it more boolean... I would avoid increasing the number beyond 1 (0=off 1=on). I would also add a timer so the mouseclick is only detected after the timer goes beyond a certain point. That way you can control how fast the switch works.

+ Code Snippet

sync on
sync rate 60
backdrop on

tim=timer()
do
 text 0,0,"Click No. "+str$(click)+""

 ink 0,0 
 box 15,100,44,120
 ink rgb(0,0,255),0
 box 17,102,42,118

 INK rgb(255,255,255),0

 if mousex()>15 and mousex()<35 and mousey()>100 and mousey()<120 AND MOUSECLICK()=1 and timer()>tim+200
  if click=0
   click=1
   else
   click=0
  endif
  tim=timer()
 endif

 if click=1:text 17,104,"ON":endif
 if click=0:text 17,104,"OFF":endif

 sync
loop

Back to top

Profile PM Email

Rixarn

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location:

Posted: 9th Jan 2006 22:45

Link

Well thanks

both suggestions are good. I think ill be using colored boxes a lot so its a good advice crighton , thanks.
Also Grog Grueslayer, i liked a lot the idea of using timer to control mouse responses i belive that will solve some other things i tried to figure out. thanks

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 11th Jan 2006 07:00

Link

Np.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / DBpro, multi-use button question.