Print Page - Spring

': This program uses
': InForm - GUI library for QB64 - Beta version 8
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------
DIM SHARED Spring AS LONG
DIM SHARED PictureBox1 AS LONG
DIM SHARED ResistanceLB AS LONG
DIM SHARED TrackBar1 AS LONG
DIM SHARED ExitBT AS LONG
TYPE vector
x AS SINGLE
y AS SINGLE
END TYPE
DIM SHARED origin AS vector, handle AS vector, mouse AS vector
DIM SHARED diff AS vector
origin.x = 400
origin.y = 300
handle = origin
': External modules: ---------------------------------------------------------------
'$INCLUDE:'InForm\InForm.ui'
'$INCLUDE:'InForm\xp.uitheme'
'$INCLUDE:'Spring.frm'
': Event procedures: ---------------------------------------------------------------
SUB __UI_BeforeInit
END SUB
SUB __UI_OnLoad
END SUB
SUB __UI_BeforeUpdateDisplay STATIC
'This event occurs at approximately 30 frames per second.
'You can change the update frequency by calling SetFrameRate DesiredRate%
BeginDraw PictureBox1
CLS
mouse.x = _MOUSEX
mouse.y = _MOUSEY
d = distB(origin, handle)
m = distB(handle, mouse)
PRINT d
IF _MOUSEBUTTON(1) THEN
IF NOT mouseDown THEN
IF m < 30 THEN mouseDown = True
ELSE
handle = mouse
END IF
ELSE
IF mouseDown THEN
mouseDown = False
END IF
END IF
IF NOT mouseDown THEN
IF d > 0 THEN
diff.y = handle.y - origin.y
diff.x = handle.x - origin.x
'a = _ATAN2(diff.x, diff.y)
handle.x = handle.x - diff.x / map(d, 0, _WIDTH, 1, 32 - Control(TrackBar1).Value)
handle.y = handle.y - diff.y / map(d, 0, _HEIGHT, 1, 32 - Control(TrackBar1).Value)
END IF
END IF
COLOR _RGB32(127, 127, 127)
thickLine origin.x, origin.y, handle.x, handle.y, map(d, 0, _WIDTH, 10, 1)
CircleFill origin.x, origin.y, 5, _RGB32(255, 0, 0)
CircleFill handle.x, handle.y, 30, _RGB32(255, 0, 0)
EndDraw PictureBox1
END SUB
SUB __UI_BeforeUnload
'If you set __UI_UnloadSignal = False here you can
'cancel the user's request to close.
END SUB
SUB __UI_Click (id AS LONG)
SELECT CASE id
CASE Spring
CASE PictureBox1
CASE ResistanceLB
CASE TrackBar1
CASE ExitBT
SYSTEM
END SELECT
END SUB
SUB __UI_MouseEnter (id AS LONG)
SELECT CASE id
CASE Spring
CASE PictureBox1
CASE ResistanceLB
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_MouseLeave (id AS LONG)
SELECT CASE id
CASE Spring
CASE PictureBox1
CASE ResistanceLB
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_FocusIn (id AS LONG)
SELECT CASE id
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_FocusOut (id AS LONG)
'This event occurs right before a control loses focus.
'To prevent a control from losing focus, set __UI_KeepFocus = True below.
SELECT CASE id
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_MouseDown (id AS LONG)
SELECT CASE id
CASE Spring
CASE PictureBox1
CASE ResistanceLB
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_MouseUp (id AS LONG)
SELECT CASE id
CASE Spring
CASE PictureBox1
CASE ResistanceLB
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_KeyPress (id AS LONG)
'When this event is fired, __UI_KeyHit will contain the code of the key hit.
'You can change it and even cancel it by making it = 0
SELECT CASE id
CASE TrackBar1
CASE ExitBT
END SELECT
END SUB
SUB __UI_TextChanged (id AS LONG)
SELECT CASE id
END SELECT
END SUB
SUB __UI_ValueChanged (id AS LONG)
SELECT CASE id
CASE TrackBar1
END SELECT
END SUB
SUB __UI_FormResized
END SUB
FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
END FUNCTION
SUB CircleFill (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
x0 = R
y0 = 0
e = 0
DO WHILE y0 < x0
IF e <= 0 THEN
y0 = y0 + 1
LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
e = e + 2 * y0
ELSE
LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
x0 = x0 - 1
e = e - 2 * x0
END IF
LOOP
LINE (x - R, y)-(x + R, y), C, BF
END SUB
FUNCTION dist! (x1!, y1!, x2!, y2!)
dist! = _HYPOT((x2! - x1!), (y2! - y1!))
END FUNCTION
FUNCTION distB! (v1 AS vector, v2 AS vector)
distB! = dist!(v1.x, v1.y, v2.x, v2.y)
END FUNCTION
SUB thickLine (x1 AS SINGLE, y1 AS SINGLE, x2 AS SINGLE, y2 AS SINGLE, lineWeight%)
DIM a AS SINGLE, x0 AS SINGLE, y0 AS SINGLE
DIM prevDest AS LONG, prevColor AS _UNSIGNED LONG
STATIC colorSample AS LONG
IF colorSample = 0 THEN
colorSample = _NEWIMAGE(1, 1, 32)
END IF
prevDest = _DEST
prevColor = _DEFAULTCOLOR
_DEST colorSample
PSET (0, 0), prevColor
_DEST prevDest
a = _ATAN2(y2 - y1, x2 - x1)
a = a + _PI / 2
x0 = 0.5 * lineWeight% * COS(a)
y0 = 0.5 * lineWeight% * SIN(a)
_MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), colorSample TO(x1 - x0, y1 - y0)-(x1 + x0, y1 + y0)-(x2 + x0, y2 + y0), , _SMOOTH
_MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), colorSample TO(x1 - x0, y1 - y0)-(x2 + x0, y2 + y0)-(x2 - x0, y2 - y0), , _SMOOTH
END SUB

QB64.org Forum

Active Forums => Programs => Topic started by: FellippeHeitor on July 17, 2018, 01:37:12 pm