Not exactly a productivity tool, but...

[Petr Schreiber]

... did you ever wondered, how productive you would be in writing anything, if every touch to the keyboard would cause different sound?

No?

Well, that indicates you are... sane But just in case, try this script:

Uses "WinMM", "UI"
 
Begin Const
  %MIDI_ChangeInstrument = 192
  %MIDI_NoteOn           = 144
  %MIDI_NoteOff          = 128
End Const

Function TBMain() 
 
  Long   hmidiOut
  Long   instrument, duration, note, i
  Single velocity
  
  velocity = 50
  note     = 50
  duration = 4 

  Long Device = 0
  Long tNow, tLast
             
  MidiOut_Close hmidiOut
  If MidiOut_Open hmidiOut, 0, Device, 0, 0 <> 0 Then
    MsgBox 0, "Unable to open MidiOut port!" 
    Exit Function
  End If
 
  tLast = GetTickCount
  Do         
    tNow = GetTickCount
                   
    For i = 1 To 255                                                                              
      If GetAsyncKeyState(i) Then           
        velocity = Rnd(0,127)
        note = Rnd(0,127) 
        instrument = Rnd(0,127)        
        MidiOut_ShortMsg hmidiOut, Rgb(%MIDI_ChangeInstrument, instrument, 127)
        MidiOut_ShortMsg hmidiOut, Rgb(%MIDI_NoteOn, 12 + note, velocity)   
        
        Sleep duration
        
        MidiOut_ShortMsg hmidiOut, Rgb(%MIDI_NoteOff, 12 + note, 127)            
        
        tLast = GetTickCount
      End If
    Next    
    
    If GetAsyncKeyState(%VK_ESCAPE) Then
      Exit Do
    End If  
           
  Loop                
  MidiOut_Close hmidiout
  
End Function

Once the headache comes, simply press ESC anytime, and the keyboard will stop doing those... noises.


Have a nice weekend!,
Petr

P.S. Tip: Do not run this script from thinAir, but launch it by clicking. This will allow smooth thinAir "experience"

[Billbo]

Petr,

It sure is a neat program. Plus, what I've noticed
that's different from others that even come close is
that the sound is different each time you press the
same key.

Great little program.

Bill