DAY 016: _MOUSEINPUT - Printable Version

Code: (Select All)

oldmb = -1 'count as if the mouse is down to begin with

'this is so the mouse event has to have an UP then DOWN event to count as a click



Do

    While _MouseInput: Wend

    mb = _MouseButton(1)

    If mb And Not oldmb Then

        count = count + 1

        Print "You just clicked the button! For a total of"; count

    End If

    oldmb = mb

    _Limit 1

Loop Until _MouseButton(2) Or _KeyHit > 0

Code: (Select All)

oldmb = -1

Do

    While _MouseInput And Not click

        mb = _MouseButton(1)

        If mb And Not oldmb Then click = -1

        oldmb = mb

    Wend

    If click Then

        count = count + 1

        Print "You just clicked the button! For a total of"; count

        click = 0

    End If

    _Limit 1

Loop Until _KeyHit = 27

Code: (Select All)

oldmb = -1

Do

    While _MouseInput

        mb = _MouseButton(1)

        If mb And Not oldmb Then click = -1

        oldmb = mb

    Wend

    If click Then

        count = count + 1

        Print "You just clicked the button! For a total of"; count

        click = 0

    End If

    _Limit 1

Loop Until _KeyHit = 27

Code: (Select All)

REM click_event = 1 to initiate on button press.

REM click_event = 2 to initiate on button release.



VIEW PRINT 1 TO 23

click_event = 1

LOCATE 25, 1: PRINT "Event triggered on left button press. Press 2 to change."

LOCATE 1, 1

DO

    _LIMIT 30

    b$ = INKEY$

    IF LEN(b$) AND lb = 0 THEN

        IF b$ = "1" THEN click_event = 1: y = CSRLIN: x = POS(0): LOCATE 25, 1: PRINT "Event triggered on left button press. Press 2 to change.  ";: LOCATE y, x

        IF b$ = "2" THEN click_event = 2: y = CSRLIN: x = POS(0): LOCATE 25, 1: PRINT "Event triggered on left button release. Press 1 to change.";: LOCATE y, x

    END IF

    WHILE _MOUSEINPUT: WEND

    IF _MOUSEBUTTON(1) THEN

        IF lb = 0 THEN lb = -1

    ELSE

        IF lb THEN

            IF click_event = -2 THEN CALL event

            lb = 0: click_event = ABS(click_event) ' Button release.

        END IF

    END IF



    IF lb AND click_event = 1 THEN CALL event: click_event = -1 '  Event on button down.

    IF lb AND click_event = 2 THEN click_event = -2 ' Event when button down is released.

LOOP



SUB event

    SOUND 1000, .2

    PRINT "Pete!"

END SUB

Code: (Select All)

DIM mse AS mm ' Let's do a TYPE instead of passing all variables or doing a DIM SHARE.

WIDTH 25, 25

TYPE mm

    my AS INTEGER

    mx AS INTEGER

    oldmy AS INTEGER

    oldmx AS INTEGER

    lb AS INTEGER

END TYPE

COLOR 9, 1: CLS



COLOR 0, 7

icon_x = _WIDTH - 1 ' Row.

icon_y = 2 ' Column.

LOCATE icon_y, icon_x: PRINT "X"; ' Place an exit symbol on the screen.

'

DO

    _LIMIT 30



    mini_mouse mse ' Poll the mini mouse routine.



    ' Highlight the exit icon on hover, but only once so it isn't going on and off like hell. The oldmx variables insure this once and done action.

    IF mse.my = icon_y AND mse.mx = icon_x AND mse_old.my <> mse.my AND mse_old.mx <> mse.mx THEN

        hotspot = ((mse.my - 1) * _WIDTH + mse.mx - 1) + 1 ' Matrix the screen to combine the row and column values as a single variable.

        trigger = hotspot ' Just a shorthand way so we don't keep using ((mse.my - 1) * _WIDTH + mse.mx - 1) + 1

        PALETTE 7, 4: PALETTE 0, 63

    ELSE ' When no longer hovering on exit icon reset the variables and lose the highlighting.

        hotspot = 0: trigger = 0

        PALETTE 7, 7: PALETTE 0, 0

    END IF

    IF mse.lb THEN ' Left button down.

        IF trigger = hotspot THEN activate = hotspot ' Setting activate means we mouse clicked down on it but haven't released yet.

    ELSE

        IF activate THEN ' When button is released we check to see if the exit icon was clicked and if the mouse pointer is still on the icon.

            IF activate = hotspot THEN

                SYSTEM ' Quit.

            ELSE

                activate = 0: trigger = 0: hotspot = 0 ' The mouse cursor got moved so the exit was avoided.

            END IF

        END IF

    END IF

    REM LOCATE 7, 1: PRINT mse.my; mse.mx; mse_old.my; mse_old.mx; trigger; hotspot; activate; "    ";

LOOP



SUB mini_mouse (mse AS mm)

    mse_old.my = mse.my: mse_old.mx = mse.mx

    WHILE _MOUSEINPUT: WEND

    mse.mx = _MOUSEX

    mse.my = _MOUSEY

    mse.lb = _MOUSEINPUT(1)

    IF mse.lb AND _MOUSEBUTTON(1) = 0 THEN

        mse.lb = 0

    ELSE

        IF mse.lb = 0 AND _MOUSEBUTTON(1) THEN

            mse.lb = -1

        END IF

    END IF

END SUB