Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: MasterGy on February 15, 2021, 05:23:09 pm

Title: Piano program
Post by: MasterGy on February 15, 2021, 05:23:09 pm
Hello ! I want to make a piano program that uses the windows midi. Programming midi used to take a lot of time to become usable with qb64, but it finally works and I understand. Now, however, I get stuck wanting a keyboard wizard in the program. Everyone can calibrate their own keyboard for the piano. But here I get into total chaos. Try it. Shift, ctrl, stick. Still, what should I measure? I also tried it with Qb 1.5, unfortunately the same problem. What do I need to read to find out what button is pressed? No shift, ctrl, I just want a simple assignment. I can't assign it to _keydown because it's chaotic.

Code: QB64: [Select]
  2.     Locate 1, 1
  3.     For t = 1 To 255
  4.         a = _KeyDown(t)
  5.         If a Then Print t
  6.     Next t
  7.     _Display
  9.  
Title: Re: Piano program
Post by: SMcNeill on February 15, 2021, 05:26:25 pm
_KEYHIT, instead of _KEYDOWN
Title: Re: Piano program
Post by: bplus on February 15, 2021, 06:45:41 pm
Wouldn't _keydown help with holding a note for awhile?

demo: your bottom row of letters on keyboard are now notes on piano abcdefgA,  A an octave higher than a
Code: QB64: [Select]
  1. For i = 1 To 80
  2.     If _KeyDown(122) Then Locate 1, i: Print "a";
  3.     If _KeyDown(120) Then Locate 2, i: Print "b";
  4.     If _KeyDown(99) Then Locate 3, i: Print "c";
  5.     If _KeyDown(118) Then Locate 4, i: Print "d";
  6.     If _KeyDown(98) Then Locate 5, i: Print "e";
  7.     If _KeyDown(110) Then Locate 6, i: Print "f";
  8.     If _KeyDown(109) Then Locate 7, i: Print "g";
  9.     If _KeyDown(44) Then Locate 8, i: Print "A";
  10.     _Limit 1 'once per second
  12.  
Each sec records a hole for your piano player tape
Text Only | Text with Attachments