Basic - Recursividad o retroalimentación del ratón en QB64

SCREEN 9

LINE (200, 100)-STEP(100, 40), 15, B 'delimitar la zona que el raton puede recorre

'

DO

    WHILE _MOUSEINPUT

        IF _MOUSEX >= 200 AND _MOUSEX <= 200 + 100 AND _MOUSEY >= 100 AND _MOUSEY <= 100 + 40 AND _MOUSEBUTTON(1) THEN

            LOCATE 1, 1

            PRINT "Se ha hecho <click> en el rectangulo    ": SOUND 800, 0.5

            p = p + 1 'contador para saber cuantas veces se retroalimenta

            LOCATE 5, 1: PRINT "veces "; p; " "

        ELSEIF _MOUSEBUTTON(1) THEN

            LOCATE 1, 1

            PRINT "No se ha hecho <click> en el rectangulo "

            p = 0 'si pinchamos fuera del rectangulore iniciamos variable a (0)

        END IF

    WEND

LOOP WHILE INKEY$ = ""

PRINT "Hold down the left mouse button until you want to quit!"

DO

    i = _MOUSEINPUT ' read #1

    IF _MOUSEBUTTON(1) THEN PRINT "Left button down!": EXIT DO

LOOP

DO '                                                      need to wait

    i = _MOUSEINPUT '  read #2                         until the mouse

LOOP UNTIL NOT _MOUSEBUTTON(1) '                       button is released

PRINT "DONE!"

SCREEN 9

principio:

LINE (200, 100)-STEP(100, 40), 15, B 'delimitar la area que el ratón puede recorrer

'

DO

    i = _MOUSEINPUT ' leer #1

    IF _MOUSEBUTTON(1) THEN EXIT DO 'se lee el primer click del botón izquierdo presionado, sin soltar

LOOP

'------------------------------

DO '                                            Necesita esperar

    i = _MOUSEINPUT '  leer #2                  hasta que el raton

LOOP UNTIL NOT _MOUSEBUTTON(1) '                se suelta. Este segundo click lee el valor y es el que vale

'------------------------------

IF _MOUSEX >= 200 AND _MOUSEX <= 200 + 100 AND _MOUSEY >= 100 AND _MOUSEY <= 100 + 40 THEN

    LOCATE 1, 1

    PRINT "Se ha hecho <click> en el rectangulo    ": SOUND 800, 1

ELSE LOCATE 1, 1: PRINT "No se ha hecho <click> en el rectangulo"

END IF

'

GOTO principio