Problem with filled DrawBox - GameCreators Forum

Author

Message

JulioTFP

7

Years of Service

User Offline

Joined: 5th Mar 2017

Location:

Posted: 5th Mar 2017 21:30

Link

Hello,

I'm a spanish user and i'm not so good speaking English so please first apologize me.

In the past, I ordered DarkBasic Pro and programm a lot of staff a few years ago. Now I recently purchase the AppGameKit Basic and I was testing it. One of my 'experiment' was to creat a function to make buttons. I already did it in DBPro so I think that it will be easy. But I was wrong.

This is my function in DBPro

(HacerBoton = Make Button / PulsarBoton = Press Button)

FUNCTION HacerBoton(PosX,PosY,SizeX,SizeY,texto$)
INK RGB(160,160,160),0 : BOX PosX,PosY,PosX+SizeX,PosY+SizeY
INK RGB(192,192,192),0 : BOX PosX+2,PosY+2,PosX+SizeX-2,PosY+SizeY-2
INK RGB(255,255,255),0 : CENTER TEXT PosX+(SizeX/2),PosY+(SizeY/2-(Text Size()/2)),texto$
ENDFUNCTION

FUNCTION PulsarBoton(PosX,PosY,SizeX,SizeY,texto$)
 INK RGB(150,150,150),0 : BOX PosX,PosY,PosX+SizeX,PosY+SizeY
 INK RGB(182,182,182),0 : BOX PosX+2,PosY+2,PosX+SizeX-2,PosY+SizeY-2
 INK RGB(205,205,205),0 : CENTER TEXT PosX+(SizeX/2),PosY+(SizeY/2-(Text Size()/2)),texto$

IF mouseclick()=1
   DO
      IF mouseclick()=0 THEN EXIT
   LOOP
 ENDIF

Time=Timer()
 DO
   IF Timer()>Time+50 THEN EXIT
 LOOP

INK RGB(160,160,160),0 : BOX PosX,PosY,PosX+SizeX,PosY+SizeY
 INK RGB(192,192,192),0 : BOX PosX+2,PosY+2,PosX+SizeX-2,PosY+SizeY-2
 INK RGB(255,255,255),0 : CENTER TEXT PosX+(SizeX/2),PosY+(SizeY/2-(Text Size()/2)),texto$

IF Scroll<1 THEN Scroll=1
 IF Scroll>NumScroll THEN Scroll=NumScroll
ENDFUNCTION Scroll

+ Code Snippet

FUNCTION HacerBoton(PosX,PosY,SizeX,SizeY,texto$)
INK RGB(160,160,160),0 : BOX PosX,PosY,PosX+SizeX,PosY+SizeY
INK RGB(192,192,192),0 : BOX PosX+2,PosY+2,PosX+SizeX-2,PosY+SizeY-2
INK RGB(255,255,255),0 : CENTER TEXT PosX+(SizeX/2),PosY+(SizeY/2-(Text Size()/2)),texto$
ENDFUNCTION


FUNCTION PulsarBoton(PosX,PosY,SizeX,SizeY,texto$)
 INK RGB(150,150,150),0 : BOX PosX,PosY,PosX+SizeX,PosY+SizeY
 INK RGB(182,182,182),0 : BOX PosX+2,PosY+2,PosX+SizeX-2,PosY+SizeY-2
 INK RGB(205,205,205),0 : CENTER TEXT PosX+(SizeX/2),PosY+(SizeY/2-(Text Size()/2)),texto$

 IF mouseclick()=1
   DO
      IF mouseclick()=0 THEN EXIT
   LOOP
 ENDIF

 Time=Timer()
 DO
   IF Timer()>Time+50 THEN EXIT
 LOOP

 INK RGB(160,160,160),0 : BOX PosX,PosY,PosX+SizeX,PosY+SizeY
 INK RGB(192,192,192),0 : BOX PosX+2,PosY+2,PosX+SizeX-2,PosY+SizeY-2
 INK RGB(255,255,255),0 : CENTER TEXT PosX+(SizeX/2),PosY+(SizeY/2-(Text Size()/2)),texto$

 IF Scroll<1 THEN Scroll=1
 IF Scroll>NumScroll THEN Scroll=NumScroll
ENDFUNCTION Scroll

But I have a lot of trouble converting this into AGK. I'm only trying to convert the first function (HacerBoton) but I have one problem. If I fill the box, the text won't appear above the screen. If I don't fill it, the function work perfectly. So my question is: how can I solve this problem? I want the text above the filled box.

// Created: 2017-03-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Button" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

do

HacerBoton(30,30,300,120,1,"Hii!!!")
    Sync()
loop

FUNCTION HacerBoton(X,Y,X2,Y2,numboton,texto$)
	DrawBox(X,Y,X2,Y2,MakeColor(160,160,160),MakeColor(160,160,160),MakeColor(160,160,160),MakeColor(160,160,160),0)
	DrawBox(X+2,Y+2,X2-2,Y2-2,MakeColor(192,192,192),MakeColor(192,192,192),MakeColor(192,192,192),MakeColor(192,192,192),0)
	
		IF GetTextExists(numboton+10000000)=0 THEN CreateText(numboton+10000000,texto$)
	
	SetTextAlignment(numboton+10000000,1) 
	SetTextDepth(numboton+10000000,0)
	SetTextColor(numboton+10000000,255,255,255,255)
	SetTextSize(numboton+10000000,40)
	SetTextPosition(numboton+10000000,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(numboton+10000000)/2)
ENDFUNCTION

+ Code Snippet

// Created: 2017-03-05

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Button" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


do

    HacerBoton(30,30,300,120,1,"Hii!!!")
    Sync()
loop

FUNCTION HacerBoton(X,Y,X2,Y2,numboton,texto$)
	DrawBox(X,Y,X2,Y2,MakeColor(160,160,160),MakeColor(160,160,160),MakeColor(160,160,160),MakeColor(160,160,160),0)
	DrawBox(X+2,Y+2,X2-2,Y2-2,MakeColor(192,192,192),MakeColor(192,192,192),MakeColor(192,192,192),MakeColor(192,192,192),0)
	
		IF GetTextExists(numboton+10000000)=0 THEN CreateText(numboton+10000000,texto$)
	
	SetTextAlignment(numboton+10000000,1) 
	SetTextDepth(numboton+10000000,0)
	SetTextColor(numboton+10000000,255,255,255,255)
	SetTextSize(numboton+10000000,40)
	SetTextPosition(numboton+10000000,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(numboton+10000000)/2)
ENDFUNCTION

I hope had explained myself correctly. Thanks a lot!!

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 5th Mar 2017 22:46

Link

In AppGameKit, it would be easier to do this with sprites.

myButton = createSprite(0)

will make a white sprite, 10x10 pixels. Then you can resize:

setSpriteSize(myButton, sizeX, sizeY)

and position:

setSpritePosition(myButton, posX, posY)

and change the colour:

setSpriteColor(myButton, 160,160,160,255)

If you want to make something more complicated, you can draw many sprites, GetImage() and then use this image as your sprite.

To put the text on top of the Sprite (the default depth is 10):

SetTextDepth(myText, 9)

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

JulioTFP

7

Years of Service

User Offline

Joined: 5th Mar 2017

Location:

Posted: 6th Mar 2017 20:18

Link

Thanks a lot.

With only one sprite is really easy, if I want to add an edge is more complicatted. Its time to continue improving!!

+ Code Snippet

FUNCTION HacerBoton(X,Y,X2,Y2,numboton,texto$)
	
		Boton=numboton+1000000000000000000000
		
		IF GetSpriteExists(Boton)=0 THEN CreateSprite(Boton,0)
	
	IF SetSpriteSize(Boton,X2-X,Y2-Y)
	SetSpritePosition(Boton,X,Y)
	SetSpriteColor(Boton,160,160,160,255)
	SetSpriteDepth(Boton,10)
	
		IF GetTextExists(numboton+10000000)=0 THEN CreateText(numboton+10000000,texto$)
	
	SetTextAlignment(numboton+10000000,1) 
	SetTextDepth(numboton+10000000,1)
	SetTextColor(numboton+10000000,255,255,255,255)
	SetTextSize(numboton+10000000,40)
	SetTextPosition(numboton+10000000,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(numboton+10000000)/2)
	
ENDFUNCTION

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 6th Mar 2017 21:03

Link

You are coding like a DBPro coder

This part...

+ Code Snippet

        Boton=numboton+1000000000000000000000
         
        IF GetSpriteExists(Boton)=0 THEN CreateSprite(Boton,0)

should be done like this in AGK...

+ Code Snippet

        Boton = CreateSprite(0)

This will assign a unique identifier in Boton for your new sprite. It will start at 10001 and count upwards with each new sprite.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Quidquid latine dictum sit, altum sonatur
TutCity is being rebuilt

Back to top

Profile PM Email

JulioTFP

7

Years of Service

User Offline

Joined: 5th Mar 2017

Location:

Posted: 6th Mar 2017 22:15

Link

Cool! Thanks again.

Back to top

Profile PM

JulioTFP

7

Years of Service

User Offline

Joined: 5th Mar 2017

Location:

Posted: 12th Mar 2017 10:22

Link

My experiment it's done

SetSyncRate( 60, 0 )

VarTotal=Random(2,6)
    
do
    For A=1 TO VarTotal
		IF A=1 then B=0
		HacerBoton(30+(A*50)+B,30+(A*50),30+(A*50)+80+B,30+(A*50)+60,STR(A))
		inc B,90
	Next A
	
    Sync()
loop

FUNCTION HacerBoton(X,Y,X2,Y2,texto$)
	
		RatonX=GetRawMouseX()
		RatonY=GetRawMouseY()
		
	    IF GetRawMouseLeftState()=1
			IF RatonX>X-2 and RatonX<X2+2 and RatonY>Y-2 and RatonY<Y2+2
				PulsarBoton(X,Y,X2,Y2,texto$)
			ENDIF
		ENDIF

Boton2=CreateSprite(0)
	
	SetSpriteSize(Boton2,(X2-X)+4,(Y2-Y)+4)
	SetSpritePosition(Boton2,X-2,Y-2)
	SetSpriteColor(Boton2,190,190,190,255)
	SetSpriteDepth(Boton2,12)
		
		Boton=CreateSprite(0)
	
	SetSpriteSize(Boton,X2-X,Y2-Y)
	SetSpritePosition(Boton,X,Y)
	SetSpriteColor(Boton,160,160,160,255)
	SetSpriteDepth(Boton,11)

NumBoton=CreateText(texto$)
	
	SetTextAlignment(numboton,1) 
	SetTextDepth(numboton,1)
	SetTextColor(numboton,255,255,255,255)
	SetTextSize(numboton,40)
	SetTextPosition(NumBoton,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(NumBoton)/2)
	
	sync()
	
ENDFUNCTION

FUNCTION PulsarBoton(X,Y,X2,Y2,texto$)
		
		BotonPuls=CreateSprite(0)
	
	SetSpriteSize(BotonPuls,X2-X,Y2-Y)
	SetSpritePosition(BotonPuls,X,Y)
	SetSpriteColor(BotonPuls,100,100,100,255)
	SetSpriteDepth(BotonPuls,10)
	
		NumBotonPuls=CreateText(texto$)
	
	SetTextAlignment(NumBotonPuls,1) 
	SetTextDepth(NumBotonPuls,1)
	SetTextColor(NumBotonPuls,205,205,205,255)
	SetTextSize(NumBotonPuls,40)
	SetTextPosition(NumBotonPuls,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(NumBotonPuls)/2)
 
		sync()
		
		sleep(400)

DeleteSprite(BotonPuls) : DeleteText(NumBotonPuls)
 
ENDFUNCTION

+ Code Snippet

SetSyncRate( 60, 0 ) 

VarTotal=Random(2,6)
    
do
    For A=1 TO VarTotal
		IF A=1 then B=0
		HacerBoton(30+(A*50)+B,30+(A*50),30+(A*50)+80+B,30+(A*50)+60,STR(A))
		inc B,90
	Next A
	
    Sync()
loop

FUNCTION HacerBoton(X,Y,X2,Y2,texto$)
	
		RatonX=GetRawMouseX()
		RatonY=GetRawMouseY()
		
	    IF GetRawMouseLeftState()=1
			IF RatonX>X-2 and RatonX<X2+2 and RatonY>Y-2 and RatonY<Y2+2
				PulsarBoton(X,Y,X2,Y2,texto$)
			ENDIF
		ENDIF

		Boton2=CreateSprite(0)
	
	SetSpriteSize(Boton2,(X2-X)+4,(Y2-Y)+4)
	SetSpritePosition(Boton2,X-2,Y-2)
	SetSpriteColor(Boton2,190,190,190,255)
	SetSpriteDepth(Boton2,12)
		
		Boton=CreateSprite(0)
	
	SetSpriteSize(Boton,X2-X,Y2-Y)
	SetSpritePosition(Boton,X,Y)
	SetSpriteColor(Boton,160,160,160,255)
	SetSpriteDepth(Boton,11)

	
		NumBoton=CreateText(texto$)
	
	SetTextAlignment(numboton,1) 
	SetTextDepth(numboton,1)
	SetTextColor(numboton,255,255,255,255)
	SetTextSize(numboton,40)
	SetTextPosition(NumBoton,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(NumBoton)/2)
	
	sync()
	
ENDFUNCTION


FUNCTION PulsarBoton(X,Y,X2,Y2,texto$)
		
		BotonPuls=CreateSprite(0)
	
	SetSpriteSize(BotonPuls,X2-X,Y2-Y)
	SetSpritePosition(BotonPuls,X,Y)
	SetSpriteColor(BotonPuls,100,100,100,255)
	SetSpriteDepth(BotonPuls,10)
	
		NumBotonPuls=CreateText(texto$)
	
	SetTextAlignment(NumBotonPuls,1) 
	SetTextDepth(NumBotonPuls,1)
	SetTextColor(NumBotonPuls,205,205,205,255)
	SetTextSize(NumBotonPuls,40)
	SetTextPosition(NumBotonPuls,(X+(X2-X)/2),(Y+(Y2-Y)/2)-GetTextTotalHeight(NumBotonPuls)/2)
 
		sync()
		
		sleep(400)

	DeleteSprite(BotonPuls) : DeleteText(NumBotonPuls)
 
ENDFUNCTION

Sometimes you have to press twice the left mouse button or it didn't work. I think it's a sync rate problem. But i don't mind it a lot.

Thanks again!

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Problem with filled DrawBox