Piano - a simple keyboard prog

[NakedApe]

That's cool, Phil, and fun to noodle around with. I like the way you handle color and centering text in the program.

I tried re-writing your main loop. It adds a _LIMIT to slow things down.

Code: (Select All)

Do

    While _MouseInput: Wend

    MX = _MouseX: MY = _MouseY: MB = _MouseButton(1)

    DisplayTune

    If MB _AndAlso Not oldMB Then DealWithMouse '  using the Steve trick to limit the mouse click to one input

    oldMB = MB

    _Limit 30

    _Display

    If _KeyDown(27) Then System '  esc to exit

Loop