1:
2:
3:
4:
5:

while not terminated do
begin
  MachArbeit;
  Sleep(1000);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

        public void MyMidiInProc(IntPtr handle, MIDIMessage msg, IntPtr instance,
            IntPtr param1, IntPtr param2)
        { // hier werde die bytes empfangen und es entsteht dann:
                    v = Convert.ToInt32(b3, 16);      // velocity, volume
                    mode = Convert.ToByte(b1, 16);    // 8..F
                    key = Convert.ToByte(b2, 16);     // key    0..63
                    channel = Convert.ToByte(b0, 16); // kanal  0..15
                    pressed = (b1 == "9") & (b3 != "00");
                    vel = (float)Convert.ToDouble(v);
    ....
             if ((channel == 4) & (key == 17))
             {
                 starteTimer(pressed)
                 // dies wird aufgerufen, der Timer erzeugt, jedoch nicht gestartet!
             } 
        }

        private void starteTimer(bool on)
        {
            timer3 = new Timer();
      if (on)
            {
                int f = Convert.ToInt32(vibF.Value);
                timer3.Interval = 500;
                timer3.Tick += timer3_Tick;
                timer3.Enabled = true;       
                timer3.Start();
            } else
            {
                timer3.Stop();
                timer3.Enabled = false;
                timer3.Dispose();
            }
        }
       
        // über einen butten wird zu Testzwecken diese Procedur aufgerufen, geht!!