Need help making GUI - GameCreators Forum

Author

Message

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 16th Jul 2005 06:12

Link

Hi,

I need help to make GUI functions.
I can make buttons, no problem, but say I want to make two radio buttons, and I click one of them, it clicks both of them.
The same thing happens if I try to make sliders, text boxes, check boxes etc... What kind of functions could I use to stop this from happening?

Thanks in advance

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 16th Jul 2005 06:57

Link

I've helped on this a similar problem to this before.
You've not posted any code, so I can't say for sure,
but the problem this other guy had was that he used the a set of varibles for one box that changed the colour and size of the box. The problem was that this set of varibles was used for all the boxes, so when he clicked one box it appeared all the boxes were being selected - he needed to use a set of arrays.
You haven't stated whether you are drawing your buttons, or using sprites?
I would use arrays or seperate varibles for each button. But without seeing your code I can't say anymore. Or suggest a fix.
Have you got your sliders working? I have some code if you haven't.

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 16th Jul 2005 08:36

Link

Ahh, I see your point.. Now I know how I'm doing it wrong, if you could send me your code for the sliders then that should answer alot of my questions, if I still have any questions left I'll post here with some code..

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jul 2005 02:29

Link

oh man... my buttons are doing it too now! I really need help

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 17th Jul 2005 04:02

Link

Can you post your code - that would really help!

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jul 2005 04:05 Edited at: 17th Jul 2005 04:05

Link

Alright, here's how you call the function

+ Code Snippet

button("Button",posx,posy,image1,imag2,image3)

and here's the actual function

+ Code Snippet

`buttons
function button(btext$,bux#,buy#,i1,i2,i3)

`show sprite
paste image i1,bux#,buy#,1
if mousex()>bux# and mousex()<bux#+73
if mousey()>buy# and mousey()<buy#+21
pressed=1
paste image i2,bux#,buy#,1
else
pressed=0
paste image i1,bux#,buy#,1
endif
endif
if mousex()>bux# and mousex()<bux#+73
if mousey()>buy# and mousey()<buy#+21
if mouseclick()=1
paste image i3,bux#,buy#,1
endif
endif
endif

`text
ink rgb(0,0,0),0
set text font "tahoma"
set text size 12
center text bux#+36.5,buy#+3,btext$

`end function
endfunction pressed

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 17th Jul 2005 04:18

Link

Ok, the slider code:
Bear in mind that I use a datum set of co-ordinates that change when a mode change is selected.

here:
SYNC:SPRITE ??,DX+VOLSLIDEX,DY+350,??
IF MOUSECLICK()<>1 THEN GOTO here

' If no mouseclick then redraw screen & other stuff

volcontrol:
IF MOUSEX()>DX+25 AND MOUSEX()<DX+265 AND MOUSEY()>DY+350 AND MOUSEY()<DY+380 THEN VOLSLIDEX=MOUSEX()-(DX+5)

`     Note: DX & DY are Datum Co-ords. The numbers added on to DX &  DY signify the 'area' that the mouse can move the slider.
`           VOLSLIDEX is the X co-ord of the slider relative to the Datum X co-ord.
`           A further 5 is added to allow the mouse to appear central to the slider button.

IF MOUSEX()<DX+25 AND MOUSEY()>DY+350 AND MOUSEY()<DY+380 THEN VOLSLIDEX=25        `optional
IF MOUSEX()<DX+265 AND MOUSEY()>DY+350 AND MOUSEY()<DY+380 THEN VOLSLIDEX=265        `optional

`     Note: The above two lines allow max or min settings to be applied if the mouse is within the 'Y band' of the slider and either side of the slider. You do not need to include these.

VOL=(VOLSLIDEX-25)/24        `This is to obtain 1 to 100 for Volume Level.
GOTO here

+ Code Snippet

here:
SYNC:SPRITE ??,DX+VOLSLIDEX,DY+350,??
IF MOUSECLICK()<>1 THEN GOTO here

' If no mouseclick then redraw screen & other stuff

volcontrol:
IF MOUSEX()>DX+25 AND MOUSEX()<DX+265 AND MOUSEY()>DY+350 AND MOUSEY()<DY+380 THEN VOLSLIDEX=MOUSEX()-(DX+5)

`     Note: DX & DY are Datum Co-ords. The numbers added on to DX &  DY signify the 'area' that the mouse can move the slider.
`           VOLSLIDEX is the X co-ord of the slider relative to the Datum X co-ord.
`           A further 5 is added to allow the mouse to appear central to the slider button.

IF MOUSEX()<DX+25 AND MOUSEY()>DY+350 AND MOUSEY()<DY+380 THEN VOLSLIDEX=25        `optional
IF MOUSEX()<DX+265 AND MOUSEY()>DY+350 AND MOUSEY()<DY+380 THEN VOLSLIDEX=265        `optional

`     Note: The above two lines allow max or min settings to be applied if the mouse is within the 'Y band' of the slider and either side of the slider. You do not need to include these.

VOL=(VOLSLIDEX-25)/24        `This is to obtain 1 to 100 for Volume Level.
GOTO here

This allows me to alter the volume setting for my game, the principal is there you just need to adapt the code for your game.
At the end of the day all you are doing is creating an area that sees if the mouse is selecting the slider and move that slider to the mouse position. If you keep the mouse button pressed and move around within the defined area the slider will follow.
Hope this helps!
Any Q's please fire away!

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 17th Jul 2005 04:46

Link

Ok,
1. Don't bother with using # for your 2D Co-ords, they are exact numbers anyway.

2. You need to use arrays.
a. DIM btest$ ( ? ) : DIM bux( ? ) : Dim buy( ? ) : Dim colour( ? ) : Dim i1( ? ) : Dim i2( ? ) : Dime i3( ? )

Each button will have its own label and X & Y Co-ordinate, colour and sprite number.

3. Use sprites instead of images, this will make it easier for you to show and hide - remember to print them all first and then hide them all at the start of your program.

i.e. Sprite <sprite number>,bux( ? ),buy( ? ),<image number>
Then just : Hide Sprite <sprite number>
Or : Show Sprite <sprite number>
Note that the last sprite printed is the one on top that is how the order is worked out.

4. You have your ink colour set to black? I assume this is mean't to be? In any case have that as an array as well - colour( ? )

So:

+ Code Snippet

function button(btext$( ? ),bux( ? ),buy( ? ),colour(?),i1( ? ),i2( ? ),i3( ? ))

show sprite i1( ? )
if mousex()>bux( ? ) and mousex()<bux( ? )+73 and mousey()>buy( ? ) and mousey()<buy( ? )+21 then pressed=1 : hide sprite i1( ? ) : show sprite i2( ? ) else pressed=0 : hide sprite i2( ? ) : show sprite i1( ? )
` Is mouse over button or not?

if pressed=1 and mouseclick()=1 show sprite i3( ? ) : hide sprite i1( ? ) : hide sprite i2( ? )
` Is mouse over button and if mouseclick=1 then execute rest of line


`text
ink rgb(colour( ? ),colour( ? ),colour( ? )),colour( ? )
set text font "tahoma"
set text size 12
center text bux( ? )+36.5,buy( ? )+3,btext$

endfunction pressed


When using this function place it into a For/Next loop		-	?=L
i.e.

For L=1 to 5
Button (btext$( L ),bux( L ),buy( L ),colour(L),i1( L ),i2( L ),i3( L ))
Sync:Next L

All the buttons have their own values now, and individuality.
This should work, I haven't tried it, but please let me know what happens

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jul 2005 05:02 Edited at: 17th Jul 2005 05:04

Link

hmm, i havent tried it, but wont each button need a new array thing, like btext$( ? ), what would i replace the q mark with, would this mean that i'd have to make a function for every button, or when i call the function do i use an array?

edit: never mind, ui forgot to read the thing at the bottom

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jul 2005 05:36

Link

hmm, still wont work, ok, let me explain the things to you

here the code to call the function

+ Code Snippet

for b=1 to 4
button(btext$(b),bux(b),buy(b),1,2,3)
next b

and here is the actual function

+ Code Snippet

function button(btext$(b),bux(b),buy(b),i1,i2,i3)
sprite i1,bux(b),buy(b),i1
sprite i2,bux(b),buy(b),i2
sprite i3,bux(b),buy(b),i3
show sprite i1
if mousex()>bux(b) and mousex()<bux(b)+73 and mousey()>buy(b) and mousey()<buy(b)+21 then pressed=1 : hide sprite i1 : show sprite i2 else pressed=0 : hide sprite i2 : show sprite i1
if pressed=1 and mouseclick()=1 show sprite i3 : hide sprite i1 : hide sprite i2
ink rgb(0,0,0),255
set text font "tahoma"
set text size 12
center text bux(b)+36.5,buy(b)+3,btext$(b)
endfunction pressed

btext$(?) - text for sprite
bux(?) / buy(?) - positions
i1 / i2 /i3 - images for sprites, the not the actual sprites themselves,

but it still doesnt work, it just says "function declaration has unknown parameter", and i cant see it...
i think its cause im using arrays in the function..

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 17th Jul 2005 06:28

Link

Have you actually set up your arrays? You haven't mentioned it.
i.e.
Dim btext$(4):for l=1 to 4:read btext$(l):next l
Data "button1","button2","button3","button4"

and the same for the other arrays.

Also don't initalise your sprites in the function, do it near the begining then hide them, that way you can show and hide the sprites on demand.
I don't think you can use a varible like i1 or i2 or i3 anyway - at least other Basics won't let you, try ione, itwo and ithree.

When you call the function, just use button(btext$(b),bux(b),buy(b),ione,itwo,ithree). That way all varibles have a meaning.
Hope this helps you better!

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jul 2005 07:34

Link

man, this doesn't work at all, you cant even see them, ill tell you what, what if i send you the images for the buttons and you can put together a function for me and them i might get a clearer understandning of what your talking about...

P.S. remember to make more than one button so that I can make sure they're not all pressed..

Your signature has been erased by a mod because it's larger than 600x120...

Attachments

Login to view attachments

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 17th Jul 2005 15:48

Link

Ok, Done!
It works, only thing is the text - I'm not sure how to bring it to the front - if you do can you let me know please.
I was wrong about the arrays in the function, you can call a function using arrays within the command, but the actual function has its own 'Local' varibles - you'll see the difference in the code anyway.

Attachments

Login to view attachments

Back to top

Profile PM Email

Zotoaster

20

Years of Service

User Offline

Joined: 20th Dec 2004

Location: Scotland

Posted: 17th Jul 2005 20:45

Link

ok, looks cool apart from that text thing, but atleast ive learned how to make separate buttons and stuff..thanks alot

P.S. why instead of using 'do / loop' do you do 'start: / goto start' , just wondering

Your signature has been erased by a mod because it's larger than 600x120...

Back to top

Profile PM Email

Leeorg

19

Years of Service

User Offline

Joined: 5th Jul 2005

Location:

Posted: 18th Jul 2005 20:56

Link

What can I say... old habits die hard. I used to program a lot on the 8 bit machines, do & loop didn't exist then.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Need help making GUI

Attachments

Attachments