Buttons - GameCreators Forum

Author

Message

Gingerkid Jack

19

Years of Service

User Offline

Joined: 15th May 2005

Location: UK

Posted: 21st Aug 2005 13:20

Link

I am relly new to dark basic pro and i dont know how to (on the main menue) allow people to click on buttons

Back to top

Profile PM Email

xtom

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: Ireland

Posted: 21st Aug 2005 16:05

Link

You could use something like the code below to check where the mouse is on the screen. Just use your buttons positions.

if mousex()>10 and mousex()<80
if mousey()>10 and mousey()<80 and mouseclick()>0
rem button pressed code
endif
endif

3D Object Viewer v3.1 - Download today!

Back to top

Profile PM Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 21st Aug 2005 20:59

Link

Here's a button code:
It shows how to use functions, use sounds with the functions and make buttons.

sync on

`load sound
load sound "media/sounds/buttons/button.wav",1

do

`reset var
	selected = 0

`clear screen
	cls

`display buttons
	if button(150,50,"button 1") > 0 then selected = 1
	if button(150,100,"button 2") > 0 then selected = 2
	if button(150,150,"button 3") > 0 then selected = 3
	if button(150,200,"button 4") > 0 then selected = 4
	if button(150,250,"button 5") > 0 then selected = 5

`display wich button has been clicked
	ink rgb(255,255,255),0
	center text 320,450,"selected: " + str$(selected)

sync
loop

`**********
`functions
`**********

function button(x,y,text$)
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)
	if mousex() < x + (tx/2) + 5 and mousex() > x - (tx/2) - 5
		if mousey() < y + (ty/2) + 5 and mousey() > y - (ty/2) - 5
			if mouseclick() = 1 then pressed = 1
		endif
	endif
	`handle button
	if pressed = 0
		ink rgb(255,255,255),0 : box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(75,75,75),0 : box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	else
		ink rgb(75,75,75),0 : box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(255,255,255),0 : box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	endif
	ink rgb(200,200,200),0
	box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 5, y + (ty/2) + 5
	`display text
	ink 0,0
	center text x,y - (ty/2) - 1,text$

`handle sound
	if pressed = 1 and soundhold = 0
		soundhold = 1
		if sound exist(1) = 1
			play sound 1
		endif
	endif
	if mouseclick() = 0 then soundhold = 0

endfunction pressed

+ Code Snippet

sync on

`load sound
load sound "media/sounds/buttons/button.wav",1

do

	`reset var
	selected = 0

	`clear screen
	cls

	`display buttons
	if button(150,50,"button 1") > 0 then selected = 1
	if button(150,100,"button 2") > 0 then selected = 2
	if button(150,150,"button 3") > 0 then selected = 3
	if button(150,200,"button 4") > 0 then selected = 4
	if button(150,250,"button 5") > 0 then selected = 5

	`display wich button has been clicked
	ink rgb(255,255,255),0
	center text 320,450,"selected: " + str$(selected)

	sync
loop

`**********
`functions
`**********

function button(x,y,text$)
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)
	if mousex() < x + (tx/2) + 5 and mousex() > x - (tx/2) - 5
		if mousey() < y + (ty/2) + 5 and mousey() > y - (ty/2) - 5
			if mouseclick() = 1 then pressed = 1
		endif
	endif
	`handle button
	if pressed = 0
		ink rgb(255,255,255),0 : box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(75,75,75),0 : box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	else
		ink rgb(75,75,75),0 : box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(255,255,255),0 : box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	endif
	ink rgb(200,200,200),0
	box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 5, y + (ty/2) + 5
	`display text
	ink 0,0
	center text x,y - (ty/2) - 1,text$

	`handle sound
	if pressed = 1 and soundhold = 0
		soundhold = 1
		if sound exist(1) = 1
			play sound 1
		endif
	endif
	if mouseclick() = 0 then soundhold = 0

endfunction pressed

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 22nd Aug 2005 00:01

Link

If you had done a quick scan of the forum, you would have found this topic covered a number of times - including this that I posted:

http://forum.thegamecreators.com/?m=forum_view&t=59061&b=7

It should point you in the right direction for one very basic method of doing it.

When you understand what's going on, you can use sprites.

Sven B

Might be just me, but I think your use of the Tab for indentation makes your code very hard to read.

You should consider setting your editor to use 2 or 3 spaces instead.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd Aug 2005 09:41

Link

inc my editor, tab = 3 spaces. But when i copy it in code tags, it's 5 spaces.

sync on

`load sound
load sound "media/sounds/buttons/button.wav",1

do

`reset var
	selected = 0

`clear screen
	cls

`display buttons
	if button(150,50,"button 1") > 0 then selected = 1
	if button(150,100,"button 2") > 0 then selected = 2
	if button(150,150,"button 3") > 0 then selected = 3
	if button(150,200,"button 4") > 0 then selected = 4
	if button(150,250,"button 5") > 0 then selected = 5

`display wich button has been clicked
	ink rgb(255,255,255),0
	center text 320,450,"selected: " + str$(selected)

sync
loop

`**********
`functions
`**********

function button(x,y,text$)
	`reset pressed variable
	pressed = 0

`get text width and height
	tx = text width(text$)
	ty = text height(text$)

`check for mouseclick over button
	if mousex() < x + (tx/2) + 5 and mousex() > x - (tx/2) - 5
		if mousey() < y + (ty/2) + 5 and mousey() > y - (ty/2) - 5
			if mouseclick() = 1 then pressed = 1
		endif
	endif

`handle button
	if pressed = 0
		`if not pressed, make an outline border
		ink rgb(255,255,255),0
		box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(75,75,75),0 
		box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	else
		`if pressed, make an inline border
		ink rgb(75,75,75),0 
		box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(255,255,255),0 
		box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	endif
	`make background of button
	ink rgb(200,200,200),0
	box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 5, y + (ty/2) + 5
	`display text
	ink 0,0
	center text x,y - (ty/2) - 1,text$

`handle sound
	if pressed = 1 and soundhold = 0
		soundhold = 1
		if sound exist(1) = 1
			play sound 1
		endif
	endif
	if mouseclick() = 0 then soundhold = 0

endfunction pressed

+ Code Snippet

sync on

`load sound
load sound "media/sounds/buttons/button.wav",1

do

	`reset var
	selected = 0

	`clear screen
	cls

	`display buttons
	if button(150,50,"button 1") > 0 then selected = 1
	if button(150,100,"button 2") > 0 then selected = 2
	if button(150,150,"button 3") > 0 then selected = 3
	if button(150,200,"button 4") > 0 then selected = 4
	if button(150,250,"button 5") > 0 then selected = 5

	`display wich button has been clicked
	ink rgb(255,255,255),0
	center text 320,450,"selected: " + str$(selected)

	sync
loop

`**********
`functions
`**********

function button(x,y,text$)
	`reset pressed variable
	pressed = 0

	`get text width and height
	tx = text width(text$)
	ty = text height(text$)

	`check for mouseclick over button
	if mousex() < x + (tx/2) + 5 and mousex() > x - (tx/2) - 5
		if mousey() < y + (ty/2) + 5 and mousey() > y - (ty/2) - 5
			if mouseclick() = 1 then pressed = 1
		endif
	endif

	`handle button
	if pressed = 0
		`if not pressed, make an outline border
		ink rgb(255,255,255),0
		box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(75,75,75),0 
		box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	else
		`if pressed, make an inline border
		ink rgb(75,75,75),0 
		box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
		ink rgb(255,255,255),0 
		box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
	endif
	`make background of button
	ink rgb(200,200,200),0
	box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 5, y + (ty/2) + 5
	`display text
	ink 0,0
	center text x,y - (ty/2) - 1,text$

	`handle sound
	if pressed = 1 and soundhold = 0
		soundhold = 1
		if sound exist(1) = 1
			play sound 1
		endif
	endif
	if mouseclick() = 0 then soundhold = 0

endfunction pressed

This ones fully commented.

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 22nd Aug 2005 18:00 Edited at: 22nd Aug 2005 18:01

Link

Sven B:

That's strange.

In all your code that you post, it's actually a full tab that you are getting - that's 8 spaces per indent.

Don't know about anyone else, but after 3 indentations of your code, the line is 24 characters across the screen!

It must be your editor because I copied and pasted your code into my editor and immediately copied and pasted it back onto the forum and it doesn't have all the spaces in it.

What editor are you using?

sync on

`load sound
load sound "media/sounds/buttons/button.wav",1

do

`reset var
   selected = 0

`clear screen
   cls

`display buttons
   if button(150,50,"button 1") > 0 then selected = 1
   if button(150,100,"button 2") > 0 then selected = 2
   if button(150,150,"button 3") > 0 then selected = 3
   if button(150,200,"button 4") > 0 then selected = 4
   if button(150,250,"button 5") > 0 then selected = 5

`display wich button has been clicked
   ink rgb(255,255,255),0
   center text 320,450,"selected: " + str$(selected)

sync
loop

`**********
`functions
`**********

function button(x,y,text$)
   `reset pressed variable
   pressed = 0

`get text width and height
   tx = text width(text$)
   ty = text height(text$)

`check for mouseclick over button
   if mousex() < x + (tx/2) + 5 and mousex() > x - (tx/2) - 5
      if mousey() < y + (ty/2) + 5 and mousey() > y - (ty/2) - 5
         if mouseclick() = 1 then pressed = 1
      endif
   endif

`handle button
   if pressed = 0
      `if not pressed, make an outline border
      ink rgb(255,255,255),0
      box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5

ink rgb(75,75,75),0
      box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
   else
      `if pressed, make an inline border
      ink rgb(75,75,75),0
      box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
      ink rgb(255,255,255),0
      box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
   endif
   `make background of button
   ink rgb(200,200,200),0
   box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 5, y + (ty/2) + 5
   `display text
   ink 0,0
   center text x,y - (ty/2) - 1,text$

`handle sound
   if pressed = 1 and soundhold = 0
      soundhold = 1
      if sound exist(1) = 1
         play sound 1
      endif
   endif
   if mouseclick() = 0 then soundhold = 0

endfunction pressed

+ Code Snippet

sync on

`load sound
load sound "media/sounds/buttons/button.wav",1

do

   `reset var
   selected = 0

   `clear screen
   cls

   `display buttons
   if button(150,50,"button 1") > 0 then selected = 1
   if button(150,100,"button 2") > 0 then selected = 2
   if button(150,150,"button 3") > 0 then selected = 3
   if button(150,200,"button 4") > 0 then selected = 4
   if button(150,250,"button 5") > 0 then selected = 5

   `display wich button has been clicked
   ink rgb(255,255,255),0
   center text 320,450,"selected: " + str$(selected)

   sync
loop

`**********
`functions
`**********

function button(x,y,text$)
   `reset pressed variable
   pressed = 0

   `get text width and height
   tx = text width(text$)
   ty = text height(text$)

   `check for mouseclick over button
   if mousex() < x + (tx/2) + 5 and mousex() > x - (tx/2) - 5
      if mousey() < y + (ty/2) + 5 and mousey() > y - (ty/2) - 5
         if mouseclick() = 1 then pressed = 1
      endif
   endif

   `handle button
   if pressed = 0
      `if not pressed, make an outline border
      ink rgb(255,255,255),0
      box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5

      ink rgb(75,75,75),0
      box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
   else
      `if pressed, make an inline border
      ink rgb(75,75,75),0
      box x - (tx/2) - 6, y - (ty/2) - 6, x + (tx/2) + 5, y + (ty/2) + 5
      ink rgb(255,255,255),0
      box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 6, y + (ty/2) + 6
   endif
   `make background of button
   ink rgb(200,200,200),0
   box x - (tx/2) - 5, y - (ty/2) - 5, x + (tx/2) + 5, y + (ty/2) + 5
   `display text
   ink 0,0
   center text x,y - (ty/2) - 1,text$

   `handle sound
   if pressed = 1 and soundhold = 0
      soundhold = 1
      if sound exist(1) = 1
         play sound 1
      endif
   endif
   if mouseclick() = 0 then soundhold = 0

endfunction pressed

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 22nd Aug 2005 18:27

Link

The ordinary DBC editor. (You know, the one with the black background, 2 pages, white text and yellow comments).

But I'm planning to start working with your editor since my eyes began to hurt because of the black-white colors...

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 23rd Aug 2005 14:58

Link

Quote: " The ordinary DBC editor"

Crikey! You are brave... lol.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Buttons