Sliders - GameCreators Forum

Author

Message

MateiSoft

11

Years of Service

User Offline

Joined: 22nd Oct 2012

Location:

Posted: 11th May 2019 17:51

Link

Hello Forum,

I want to create a slider out of sprites and when I am moving it, I want a variable to increase or decrease depending on the slider's knob position. I tried myself to do it but I got stuck... Here is my attempt:

// Project: slidertest 
// Created: 2019-05-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "slidertest" )
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( 60, 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

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpritePosition(1, 0, 0)
SetSpriteScale(1, 1, 1)

CreateImageColor(2, 255, 255, 255, 255)
CreateSprite(2, 2)
SetSpritePosition(2, 155, 155)
SetSpriteScale(2, 355, 5)

CreateImageColor(3, 0, 0, 255, 255)
CreateSprite(3, 3)
SetSpritePosition(3, getspritex(2), getspritey(2))
SetSpriteScale(3, 15, 5)

slider = 0

do
	
	SetSpritePosition(1, getrawmousex(), getrawmousey())
	
	if GetSpriteCollision(1, 3) = 1
	if GetRawMouseLeftState() = 1
	
	dtct = dtct + 1
	if dtct = 2
	oldstartingposition = getrawmousex()
	endif
	
	newstartingposition = getrawmousex()
	
	if newstartingposition > oldstartingposition
	nmbr = 0
	endif
	nmbr = nmbr + 1
	if nmbr = 2
	inc slider
	endif
	
	SetSpritePosition(3, getrawmousex() - 7, getspritey(3))
	endif
	endif
	if GetRawMouseLeftState() = 0
	dtct = 0
	endif
	
	print("slider: " + str(slider))
	
	print("oldstartingposition: " + str(oldstartingposition))
	print("newstartingposition: " + str(newstartingposition))
	
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet



// Project: slidertest 
// Created: 2019-05-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "slidertest" )
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( 60, 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

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpritePosition(1, 0, 0)
SetSpriteScale(1, 1, 1)

CreateImageColor(2, 255, 255, 255, 255)
CreateSprite(2, 2)
SetSpritePosition(2, 155, 155)
SetSpriteScale(2, 355, 5)

CreateImageColor(3, 0, 0, 255, 255)
CreateSprite(3, 3)
SetSpritePosition(3, getspritex(2), getspritey(2))
SetSpriteScale(3, 15, 5)

slider = 0

do
	
	SetSpritePosition(1, getrawmousex(), getrawmousey())
	
	if GetSpriteCollision(1, 3) = 1
	if GetRawMouseLeftState() = 1
	
	dtct = dtct + 1
	if dtct = 2
	oldstartingposition = getrawmousex()
	endif
	
	newstartingposition = getrawmousex()
	
	if newstartingposition > oldstartingposition
	nmbr = 0
	endif
	nmbr = nmbr + 1
	if nmbr = 2
	inc slider
	endif
	
	SetSpritePosition(3, getrawmousex() - 7, getspritey(3))
	endif
	endif
	if GetRawMouseLeftState() = 0
	dtct = 0
	endif
	
	print("slider: " + str(slider))
	
	print("oldstartingposition: " + str(oldstartingposition))
	print("newstartingposition: " + str(newstartingposition))
	
    Print( ScreenFPS() )
    Sync()
loop

Huge thanks!

www.alexmatei.com

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 11th May 2019 22:37

Link

Hi mate . It looks ok to me ..... take a look to this piece of code

// Project: sliders  
// Created: 2019-04-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "sliders" )
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

`background
g=makecolor(190,190,190)
drawbox(0,0,120,210,g,g,g,g,1)
getimage(100,0,0,120,260)
createsprite(100,100)
getimage(101,0,0,5,5)
o=10
for i= 1 to 3
  inc o
  createsprite(o,101)
  setspriteposition(o,5.5,i*20+103)
  setspritesize(o,95,5)
  setspritecolor(o,10,10,10,255)
next

`sliders
for i= 1 to 3
  createsprite(i,101)
  setspriteposition(i,5.5,i*20+100)
  setspritesize(i,8,12)
  setspritecolor(i,130,130,130,255)
next
getimage(2,0,0,50,2)

`sprite for mouse position
createsprite(4,2)
setspritevisible(4,0)   `setting point invisible
SetSpritesize(4,10,10)

`Color Test
w=makecolor(255,255,255)
drawbox(0,0,50,50,w,w,w,w,1)
getimage(3,0,0,50,50)
createsprite(5,3)
setspritesize(5,95,95)
setspriteposition(5,5,5)

do

x#=getpointerx()
   y#=getpointery()
   setspriteposition(4,x#-10,y#)
    
    for i= 11 to 13
		if x#>5 and x#<98
			if GetSpriteCollision(i,4) and GetRawMouseLeftState()>0
				setspriteposition(i-10,x#,getspritey(i-10))
				if getspritex(i-10)>91
					 setspriteposition(i-10,91,getspritey(i-10))
				endif
			endif
        endif
    next
    r=(getspritex(1)*3)-17
    g=(getspritex(2)*3)-17
    b=(getspritex(3)*3)-17
     valor$=str(r) 
    
    for i= 1 to 2.6
		print( "" )
	next     
    setspritecolor(5,r,g,b,255)
    print( "                    "+           str(     r))
    print( "                    "+           str(     g))
    print( "                    "+           str(     b))
    
 
    Sync()
loop

+ Code Snippet

// Project: sliders  
// Created: 2019-04-28

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "sliders" )
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


`background
g=makecolor(190,190,190)
drawbox(0,0,120,210,g,g,g,g,1)
getimage(100,0,0,120,260)
createsprite(100,100)
getimage(101,0,0,5,5)
o=10
for i= 1 to 3
  inc o
  createsprite(o,101)
  setspriteposition(o,5.5,i*20+103)
  setspritesize(o,95,5)
  setspritecolor(o,10,10,10,255)
next


`sliders
for i= 1 to 3
  createsprite(i,101)
  setspriteposition(i,5.5,i*20+100)
  setspritesize(i,8,12)
  setspritecolor(i,130,130,130,255)
next
getimage(2,0,0,50,2)


`sprite for mouse position
createsprite(4,2)
setspritevisible(4,0)   `setting point invisible
SetSpritesize(4,10,10)

`Color Test
w=makecolor(255,255,255)
drawbox(0,0,50,50,w,w,w,w,1)
getimage(3,0,0,50,50)
createsprite(5,3)
setspritesize(5,95,95)
setspriteposition(5,5,5)

do

   
   x#=getpointerx()
   y#=getpointery()
   setspriteposition(4,x#-10,y#)
    
    for i= 11 to 13
		if x#>5 and x#<98
			if GetSpriteCollision(i,4) and GetRawMouseLeftState()>0
				setspriteposition(i-10,x#,getspritey(i-10))
				if getspritex(i-10)>91
					 setspriteposition(i-10,91,getspritey(i-10))
				endif
			endif
        endif
    next
    r=(getspritex(1)*3)-17
    g=(getspritex(2)*3)-17
    b=(getspritex(3)*3)-17
     valor$=str(r) 
    
    for i= 1 to 2.6
		print( "" )
	next     
    setspritecolor(5,r,g,b,255)
    print( "                    "+           str(     r))
    print( "                    "+           str(     g))
    print( "                    "+           str(     b))
    
 
    Sync()
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

MateiSoft

11

Years of Service

User Offline

Joined: 22nd Oct 2012

Location:

Posted: 12th May 2019 11:08

Link

Chafari,

Good to see you again! Really! Last time we interacted on the forums, was in the DarkBasic Professional era. Haha!

Regarding the code, this is exactly what I wanted. I have one question about it. Is it possible to create an independent variable to modify with the sliders and start it's increment from it's own independent starting point, not based on the starting point of the sprite slider? I mean, I think this would help to position the sliders wherever we want without altering the final result of the variable.

Thank you so much and again, nice to see you again!

www.alexmatei.com

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 12th May 2019 17:36 Edited at: 12th May 2019 17:49

Link

Hi mate . Nice to know you are still around the forum .

I have done something like that long ago....you have to do something like a herarchy to reference the x,y of the main Sprite and the rest of sprites will be childs of the main one . Something like this :

// Project: flying Sliders 
// Created: 2019-05-12

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "flying Sliders" )
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

w=makecolor(100,140,100)
drawbox(0,0,20,20,w,w,w,w,1)
render()
getimage(1,0,0,20,20)
wb=makecolor(70,70,70)
drawbox(0,0,20,20,wb,wb,wb,wb,1)
render()
getimage(2,0,0,20,20)

`Main sprite
createsprite(1,1)
setspritesize(1,100,150)

`Slider
createsprite(4,2)
setspritesize(4,90,6)
setspritecolor(4,10,10,10,255)

`slider boton
createsprite(2,2)
setspritesize(2,15,20)

`Mouse
createsprite(3,2)
setspritesize(3,2,2)
setspritevisible(3,0)
sl=0
createobjectbox(1,1000,1000,1)
setobjectcolor(1,100,100,255,0)
do
   x#=getpointerx()
   y#=getpointery()
   setspriteposition(3,x#,y#)	
	
    if GetRawMouserightState()>0
		setspriteposition(1,x#,y#-30)
		setspriteposition(4,getspritex(1)+5,getspritey(1)+10)	
	    setspriteposition(2,sl+getspritex(1)+5,getspritey(1)+5)	
	endif	
	
	if getspritecollision(3,4) and GetRawMouseleftState()>0
		if sl<80 and getspritex(2)< x# then inc sl
		if sl>0 and getspritex(2)>x# then dec sl
	  	setspriteposition(2,sl+getspritex(1),getspritey(1)+5)
	endif
	
	
	set_cursor(10)
	print(sl)	
    set_cursor(5)
 
  
    print("Use right mouse boton to place")
    Print( ScreenFPS() )
    Sync()
loop

function set_cursor(p)
	for i= 1 to p
		print("")
	next	
endfunction

+ Code Snippet

// Project: flying Sliders 
// Created: 2019-05-12

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "flying Sliders" )
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

w=makecolor(100,140,100)
drawbox(0,0,20,20,w,w,w,w,1)
render()
getimage(1,0,0,20,20)
wb=makecolor(70,70,70)
drawbox(0,0,20,20,wb,wb,wb,wb,1)
render()
getimage(2,0,0,20,20)

`Main sprite
createsprite(1,1)
setspritesize(1,100,150)

`Slider
createsprite(4,2)
setspritesize(4,90,6)
setspritecolor(4,10,10,10,255)

`slider boton
createsprite(2,2)
setspritesize(2,15,20)


`Mouse
createsprite(3,2)
setspritesize(3,2,2)
setspritevisible(3,0)
sl=0
createobjectbox(1,1000,1000,1)
setobjectcolor(1,100,100,255,0)
do
   x#=getpointerx()
   y#=getpointery()
   setspriteposition(3,x#,y#)	
	
    if GetRawMouserightState()>0
		setspriteposition(1,x#,y#-30)
		setspriteposition(4,getspritex(1)+5,getspritey(1)+10)	
	    setspriteposition(2,sl+getspritex(1)+5,getspritey(1)+5)	
	endif	
	
	if getspritecollision(3,4) and GetRawMouseleftState()>0
		if sl<80 and getspritex(2)< x# then inc sl
		if sl>0 and getspritex(2)>x# then dec sl
	  	setspriteposition(2,sl+getspritex(1),getspritey(1)+5)
	endif
	
	
	set_cursor(10)
	print(sl)	
    set_cursor(5)
 
  
    print("Use right mouse boton to place")
    Print( ScreenFPS() )
    Sync()
loop

function set_cursor(p)
	for i= 1 to p
		print("")
	next	
endfunction

I hope that can help ....I've got my code like a mess in a Dbpro script .Sorry.

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

MateiSoft

11

Years of Service

User Offline

Joined: 22nd Oct 2012

Location:

Posted: 19th May 2019 10:24

Link

I followed your example, Chafari and this is what I came up with:
Sorry for the late response:

// Project: slidertest 
// Created: 2019-05-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "slidertest" )
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

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpritePosition(1, 0, 0)
SetSpriteScale(1, 1, 1)

CreateImageColor(2, 255, 255, 255, 255)
CreateSprite(2, 2)
SetSpritePosition(2, 155, 155)
SetSpriteScale(2, 355, 5)

CreateImageColor(3, 0, 0, 255, 255)
CreateSprite(3, 3)
SetSpritePosition(3, getspritex(2), getspritey(2))
SetSpriteScale(3, 15, 5)

slider = 0

do
	
	SetSpritePosition(1, getrawmousex(), getrawmousey())
	
	if GetSpriteCollision(1, 2) = 1
	if GetRawMouseLeftState() = 1
	
	if getrawmousex() > getspritex(3)
	if slider < 100
	inc slider
	SetSpritePosition(3, GetSpriteX(3) + 3.4, getspritey(3))
	endif
	else
	if getrawmousex() < getspritex(3)
	if slider > 0
	dec slider
	SetSpritePosition(3, getspritex(3) - 3.4, getspritey(3))
	endif
	endif
	endif
	
	endif
	endif
	
	print("slider: " + str(slider))
	
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet



// Project: slidertest 
// Created: 2019-05-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "slidertest" )
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

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpritePosition(1, 0, 0)
SetSpriteScale(1, 1, 1)

CreateImageColor(2, 255, 255, 255, 255)
CreateSprite(2, 2)
SetSpritePosition(2, 155, 155)
SetSpriteScale(2, 355, 5)

CreateImageColor(3, 0, 0, 255, 255)
CreateSprite(3, 3)
SetSpritePosition(3, getspritex(2), getspritey(2))
SetSpriteScale(3, 15, 5)

slider = 0

do
	
	SetSpritePosition(1, getrawmousex(), getrawmousey())
	
	if GetSpriteCollision(1, 2) = 1
	if GetRawMouseLeftState() = 1
	
	if getrawmousex() > getspritex(3)
	if slider < 100
	inc slider
	SetSpritePosition(3, GetSpriteX(3) + 3.4, getspritey(3))
	endif
	else
	if getrawmousex() < getspritex(3)
	if slider > 0
	dec slider
	SetSpritePosition(3, getspritex(3) - 3.4, getspritey(3))
	endif
	endif
	endif
	
	endif
	endif
	
	print("slider: " + str(slider))
	
    Print( ScreenFPS() )
    Sync()
loop

Based on this code, how can I make to drag the knob without going left or right on the bar?

Thank you so much for your help!

www.alexmatei.com

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 19th May 2019 12:05

Link

Quote: "how can I make to drag the knob without going left or right on the bar?"

For that you could use your first code above ,and create the sprite for the mouse something wider .... then place the mousesprite in getpointerx () -15 , getpointery() . Finally, do not forget to hide the mouse sprite either by making it invisible or by adjusting its alpha color .
SetSpriteColorAlpha(1,0) or setspritevisible(1,0)

Here's your modified code .

// Project: slidertest 
// Created: 2019-05-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "slidertest" )
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( 60, 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

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpritePosition(1, 0, 0)
SetSpriteScale(1, 30, 15)    `))))))))))))))))  SCALE MOUSE SPRITE TO 30 , 15
SetSpriteColorAlpha(1,20)    `))))))))))))))))  SET SPRITE ALPHA TO 0 TO HIDE

CreateImageColor(2, 255, 255, 255, 255)
CreateSprite(2, 2)
SetSpritePosition(2, 155, 155)
SetSpriteScale(2, 355, 5)

CreateImageColor(3, 0, 0, 255, 255)
CreateSprite(3, 3)
SetSpritePosition(3, getspritex(2), getspritey(2))
SetSpriteScale(3, 15, 5)

slider = 0

do
	
	SetSpritePosition(1, getpointerx()-15, getpointery())   `))))))) POSITION MOUSESPRITE IN GETPOINTERX() -15 (half mousesprite x )
	
	if GetSpriteCollision(1, 3) = 1
	if GetRawMouseLeftState() = 1
	
	dtct = dtct + 1
	if dtct = 2
	oldstartingposition = getrawmousex()
	endif
	
	newstartingposition = getrawmousex()
	
	if newstartingposition > oldstartingposition
	nmbr = 0
	endif
	nmbr = nmbr + 1
	if nmbr = 2
	inc slider
	endif
	
	SetSpritePosition(3, getrawmousex() - 7, getspritey(3))
	endif
	endif
	if GetRawMouseLeftState() = 0
	dtct = 0
	endif
	
	print("slider: " + str(slider))
	
	print("oldstartingposition: " + str(oldstartingposition))
	print("newstartingposition: " + str(newstartingposition))
	
    Print( ScreenFPS() )
    Sync()
loop

+ Code Snippet

// Project: slidertest 
// Created: 2019-05-11

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "slidertest" )
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( 60, 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

CreateImageColor(1, 255, 255, 255, 255)
CreateSprite(1, 1)
SetSpritePosition(1, 0, 0)
SetSpriteScale(1, 30, 15)    `))))))))))))))))  SCALE MOUSE SPRITE TO 30 , 15
SetSpriteColorAlpha(1,20)    `))))))))))))))))  SET SPRITE ALPHA TO 0 TO HIDE

CreateImageColor(2, 255, 255, 255, 255)
CreateSprite(2, 2)
SetSpritePosition(2, 155, 155)
SetSpriteScale(2, 355, 5)        

CreateImageColor(3, 0, 0, 255, 255)
CreateSprite(3, 3)
SetSpritePosition(3, getspritex(2), getspritey(2))
SetSpriteScale(3, 15, 5)

slider = 0

do
	
	SetSpritePosition(1, getpointerx()-15, getpointery())   `))))))) POSITION MOUSESPRITE IN GETPOINTERX() -15 (half mousesprite x )
	
	if GetSpriteCollision(1, 3) = 1
	if GetRawMouseLeftState() = 1
	
	dtct = dtct + 1
	if dtct = 2
	oldstartingposition = getrawmousex()
	endif
	
	newstartingposition = getrawmousex()
	
	if newstartingposition > oldstartingposition
	nmbr = 0
	endif
	nmbr = nmbr + 1
	if nmbr = 2
	inc slider
	endif
	
	SetSpritePosition(3, getrawmousex() - 7, getspritey(3))
	endif
	endif
	if GetRawMouseLeftState() = 0
	dtct = 0
	endif
	
	print("slider: " + str(slider))
	
	print("oldstartingposition: " + str(oldstartingposition))
	print("newstartingposition: " + str(newstartingposition))
	
    Print( ScreenFPS() )
    Sync()
loop

I'm not a grumpy grandpa

Back to top

Profile PM Email

MateiSoft

11

Years of Service

User Offline

Joined: 22nd Oct 2012

Location:

Posted: 19th May 2019 13:52

Link

yes, but that eliminates the need for a separate variables, which, the separate variable is a must. In my code, "slider" was incrementing weirdly and it was not detecting when it was scrubbing on the left or on the right. If that makes sense

www.alexmatei.com

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 19th May 2019 14:01

Link

I will post a new code when ready .I will do some more test .

I'm not a grumpy grandpa

Back to top

Profile PM Email

MateiSoft

11

Years of Service

User Offline

Joined: 22nd Oct 2012

Location:

Posted: 19th May 2019 14:50

Link

Absolutely awesome!

Thank you so much!

www.alexmatei.com

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 19th May 2019 18:08 Edited at: 19th May 2019 19:03

Link

This post has been marked by the post author as the answer.

Here's what I have so far ... it needs some adjustments ... I'm doing something more elegant ....in the meanwhile take a look .

// Project: flying Sliders 
// Created: 2019-05-12

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "flying Sliders" )
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

w=makecolor(100,140,100)
drawbox(0,0,20,20,w,w,w,w,1)
render()
getimage(1,0,0,20,20)
wb=makecolor(70,70,70)
drawbox(0,0,20,20,wb,wb,wb,wb,1)
render()
getimage(2,0,0,20,20)

`Main sprite
createsprite(1,1)
setspritesize(1,100,150)

`header
clonesprite(100,1)
setspritesize(100,100,30)
setspritecolor(100,130,130,255,255)
setspriteposition(100,40,40)

`Slider
createsprite(4,2)
setspritesize(4,90,6)
setspritecolor(4,10,10,10,255)

`slider boton
createsprite(2,2)
setspritesize(2,15,20)
 
`Mouse
createsprite(3,2)
setspritesize(3,15,15)
setspritevisible(3,0)

gosub _update
sl=0
createobjectbox(1,1000,1000,1)
setobjectcolor(1,100,100,255,0)
do
   x#=getpointerx()
   y#=getpointery()
   sx#=getspritex(3)  `mouse spritex
   sy#=getspritey(3)  `mouse spritey
   
    setspriteposition(3,x#,y#)	`mouse
	
	
	if GetRawMouseleftstate()
		if getspritecollision(3,100)      
            setspriteposition(100,x#+(getspritex(100)-sx#),y#+(getspritey(100)-sy#))  
 	        gosub _update
        endif
    endif
             
	for i= 1 to 100
		if getspritecollision(3,2) and GetRawMouseleftState()>0
			if abs(getspritex(2)-getpointerx())<20
				if sl<80 and getspritex(2)< x# then inc sl
				if sl>0 and getspritex(2)>x# then dec sl
			setspriteposition(2,sl+getspritex(1),getspritey(1)+5)
		    endif
		endif
	next
	
	set_cursor(10)
	print(sl)	
    set_cursor(5)
 
  
    print("Use LEFT mouse boton to place")
    
    Sync()
loop

function set_cursor(p)
	for i= 1 to p
		print("")
	next	
endfunction

_update:
 setspriteposition(1,getspritex(100),getspritey(100)+30)
 setspriteposition(4,getspritex(1)+5,getspritey(1)+10)	
 setspriteposition(2,sl+getspritex(1)+5,getspritey(1)+5)	
return

+ Code Snippet

// Project: flying Sliders 
// Created: 2019-05-12

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "flying Sliders" )
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

w=makecolor(100,140,100)
drawbox(0,0,20,20,w,w,w,w,1)
render()
getimage(1,0,0,20,20)
wb=makecolor(70,70,70)
drawbox(0,0,20,20,wb,wb,wb,wb,1)
render()
getimage(2,0,0,20,20)

`Main sprite
createsprite(1,1)
setspritesize(1,100,150)

`header
clonesprite(100,1)
setspritesize(100,100,30)
setspritecolor(100,130,130,255,255)
setspriteposition(100,40,40)

`Slider
createsprite(4,2)
setspritesize(4,90,6)
setspritecolor(4,10,10,10,255)

`slider boton
createsprite(2,2)
setspritesize(2,15,20)
 
`Mouse
createsprite(3,2)
setspritesize(3,15,15)
setspritevisible(3,0)


gosub _update
sl=0
createobjectbox(1,1000,1000,1)
setobjectcolor(1,100,100,255,0)
do
   x#=getpointerx()
   y#=getpointery()
   sx#=getspritex(3)  `mouse spritex
   sy#=getspritey(3)  `mouse spritey
   
    setspriteposition(3,x#,y#)	`mouse
	
	
	if GetRawMouseleftstate()
		if getspritecollision(3,100)      
            setspriteposition(100,x#+(getspritex(100)-sx#),y#+(getspritey(100)-sy#))  
 	        gosub _update
        endif
    endif
             
	for i= 1 to 100
		if getspritecollision(3,2) and GetRawMouseleftState()>0
			if abs(getspritex(2)-getpointerx())<20
				if sl<80 and getspritex(2)< x# then inc sl
				if sl>0 and getspritex(2)>x# then dec sl
			setspriteposition(2,sl+getspritex(1),getspritey(1)+5)
		    endif
		endif
	next
	
	set_cursor(10)
	print(sl)	
    set_cursor(5)
 
  
    print("Use LEFT mouse boton to place")
    
    Sync()
loop

function set_cursor(p)
	for i= 1 to p
		print("")
	next	
endfunction

_update:
 setspriteposition(1,getspritex(100),getspritey(100)+30)
 setspriteposition(4,getspritex(1)+5,getspritey(1)+10)	
 setspriteposition(2,sl+getspritex(1)+5,getspritey(1)+5)	
return

Little update.

// Project: flying Sliders 
// Created: 2019-05-12

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "flying Sliders" )
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

w=makecolor(100,140,100)
drawbox(0,0,20,20,w,w,w,w,1)
render()
getimage(1,0,0,20,20)
wb=makecolor(70,70,70)
drawbox(0,0,20,20,wb,wb,wb,wb,1)
render()
getimage(2,0,0,20,20)

`Main sprite
createsprite(1,1)
setspritesize(1,100,150)

`header
clonesprite(100,1)
setspritesize(100,100,30)
setspritecolor(100,130,130,255,255)
setspriteposition(100,140,140)

`Slider
createsprite(4,2)
setspritesize(4,90,6)
setspritecolor(4,10,10,10,255)

`slider boton
createsprite(2,2)
setspritesize(2,15,20)
 
`Mouse
createsprite(3,2)
setspritesize(3,15,15)
setspritevisible(3,0)
sl=7

`Sky
createobjectbox(1,1000,1000,1)
setobjectcolor(1,100,100,255,0)

`header title
createtext(1,"Example")
Settextsize(1,25)
SetTextColor(1,255,255,0,255)

`empty text
createtext(2,"")
Settextsize(2,20)
SetTextColor(2,255,255,0,255)

`rounded box 
createsprite(50,0)
setspritesize(50,80,60)
setspritecolor(50,100,255,100,255)
clonesprite(51,50)
setspritesize(51,82,58)

do
   gosub _update
	
   x#=getpointerx()
   y#=getpointery()
   sx#=getspritex(3)  `mouse spritex
   sy#=getspritey(3)  `mouse spritey
   
   setspriteposition(3,x#,y#)	`mouse
	
	
	if GetRawMouseleftstate()
		if getspritecollision(3,100)      
            setspriteposition(100,x#+(getspritex(100)-sx#),y#+(getspritey(100)-sy#))  
            gosub _update
        endif
    endif
             
	for i= 1 to 100
		if getspritecollision(3,2) and GetRawMouseleftState()>0
			if abs(getspritex(2)-getpointerx())<20
				if sl<77 and getspritex(2)< x# then inc sl
				if sl>7 and getspritex(2)>x# then dec sl
			setspriteposition(2,sl+getspritex(1),getspritey(1)+5)
		    endif
		endif
	next
	
    set_cursor(0)
    print("Use RMB  to place "+"        " +valor$)
    
 
  
    
    
    
    valor$=str(sl-7)
    SetTextString(2,""+valor$)
    
    Sync()
loop

function set_cursor(p)
	for i= 1 to p
		print("")
	next	
endfunction

_update:
 setspriteposition(1,getspritex(100),getspritey(100)+30)
 setspriteposition(4,getspritex(1)+5,getspritey(1)+10)	
 setspriteposition(2,sl+getspritex(1),getspritey(1)+5)	
 settextposition(1,getspritex(100)+12,getspritey(100))
 settextposition(2,getspritex(100)+12,getspritey(100)+70)
 setspriteposition(50,getspritex(100)+10,getspritey(100)+100)
 setspritecolor(50,100+sl,190+sl,120+sl,255)
 setspriteposition(51,getspritex(100)+9,getspritey(100)+101)
 setspritecolor(51,100+sl,190+sl,120+sl,255)
return

+ Code Snippet

// Project: flying Sliders 
// Created: 2019-05-12

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "flying Sliders" )
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

w=makecolor(100,140,100)
drawbox(0,0,20,20,w,w,w,w,1)
render()
getimage(1,0,0,20,20)
wb=makecolor(70,70,70)
drawbox(0,0,20,20,wb,wb,wb,wb,1)
render()
getimage(2,0,0,20,20)

`Main sprite
createsprite(1,1)
setspritesize(1,100,150)

`header
clonesprite(100,1)
setspritesize(100,100,30)
setspritecolor(100,130,130,255,255)
setspriteposition(100,140,140)

`Slider
createsprite(4,2)
setspritesize(4,90,6)
setspritecolor(4,10,10,10,255)

`slider boton
createsprite(2,2)
setspritesize(2,15,20)
 
`Mouse
createsprite(3,2)
setspritesize(3,15,15)
setspritevisible(3,0)
sl=7

`Sky
createobjectbox(1,1000,1000,1)
setobjectcolor(1,100,100,255,0)

`header title
createtext(1,"Example")
Settextsize(1,25)
SetTextColor(1,255,255,0,255)

`empty text
createtext(2,"")
Settextsize(2,20)
SetTextColor(2,255,255,0,255)

`rounded box 
createsprite(50,0)
setspritesize(50,80,60)
setspritecolor(50,100,255,100,255)
clonesprite(51,50)
setspritesize(51,82,58)


do
   gosub _update
	
   x#=getpointerx()
   y#=getpointery()
   sx#=getspritex(3)  `mouse spritex
   sy#=getspritey(3)  `mouse spritey
   
   setspriteposition(3,x#,y#)	`mouse
	
	
	if GetRawMouseleftstate()
		if getspritecollision(3,100)      
            setspriteposition(100,x#+(getspritex(100)-sx#),y#+(getspritey(100)-sy#))  
            gosub _update
        endif
    endif
             
	for i= 1 to 100
		if getspritecollision(3,2) and GetRawMouseleftState()>0
			if abs(getspritex(2)-getpointerx())<20
				if sl<77 and getspritex(2)< x# then inc sl
				if sl>7 and getspritex(2)>x# then dec sl
			setspriteposition(2,sl+getspritex(1),getspritey(1)+5)
		    endif
		endif
	next
	
    set_cursor(0)
    print("Use RMB  to place "+"        " +valor$)
    
 
  
    
    
    
    valor$=str(sl-7)
    SetTextString(2,""+valor$)
    
    Sync()
loop

function set_cursor(p)
	for i= 1 to p
		print("")
	next	
endfunction

_update:
 setspriteposition(1,getspritex(100),getspritey(100)+30)
 setspriteposition(4,getspritex(1)+5,getspritey(1)+10)	
 setspriteposition(2,sl+getspritex(1),getspritey(1)+5)	
 settextposition(1,getspritex(100)+12,getspritey(100))
 settextposition(2,getspritex(100)+12,getspritey(100)+70)
 setspriteposition(50,getspritex(100)+10,getspritey(100)+100)
 setspritecolor(50,100+sl,190+sl,120+sl,255)
 setspriteposition(51,getspritex(100)+9,getspritey(100)+101)
 setspritecolor(51,100+sl,190+sl,120+sl,255)
return

I'm not a grumpy grandpa

Back to top

Profile PM Email

MateiSoft

11

Years of Service

User Offline

Joined: 22nd Oct 2012

Location:

Posted: 23rd May 2019 14:19

Link

Thank you for your help, Chafari!

www.alexmatei.com

Back to top

Profile PM Email Website

chafari

Valued Member

17

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 23rd May 2019 16:59

Link

You are welcome !

I'm not a grumpy grandpa

Back to top

Profile PM Email

Sorry your browser is not supported!

AppGameKit Studio Chat / [SOLVED] Sliders