const int Instruments[4]={1,28,118,66};
int Instrument=Instruments[ComboBox1->ItemIndex];

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include <windows.h>
#include <iostream.h>
#include <mmsystem.h>
#include <string.h>
#include <sstream>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 HMIDIOUT handle; //ініціалізуємо midi
void __fastcall TForm2::Button1Click(TObject *Sender)
{

    unsigned int DEFAULT_DEVICE = 0;         // MIDI пристрій по-замовчуванню
    DWORD Note1; //наша нота
    unsigned int Instrument; //ініціалізуємо змінну інструментів
    int k=0;


    //Вибираєм інструмент
    switch(ComboBox1->ItemIndex)
        {
         case 0 :
         Instrument = 1;
         break;
         case 1 :
         Instrument = 28;
         break;
         case 2:
         Instrument = 118;
         break;
         case 3:
         Instrument = 66;
         break;
        }

   int shifts[7]={ 9, 11, 0, 2, 4, 5, 7 };//"білі клавіші" в хроматичній октаві, з урахуванням того, що C - до.
   int notecode= 12; //С0 - це нота до нульової октави


    int Volume = 0x7f;
    int notu[1000];
    unsigned int gotoviNotu[1000];
    char* onenote;
    AnsiString note4;

    note4=Memo1->Text;     //зчитуємо з memo в ansistring
    onenote=note4.c_str();  //переписуємо в char
     int zminna=0;
    for(int i=0;i<=strlen(note4.c_str());i+=3)
    {
    notu[i]=onenote[i];   //довжина
    notu[i+1]=onenote[i+1];        //нота
    notu[i+2]=onenote[i+2];              //октава
     zminna=notu[i+1];
    gotoviNotu[k]=12+(notu[i+2]*12)+shifts[zminna];

      k++;
    }







    unsigned int i = 0;
//    unsigned int a[]={
//            0x60003e90,
//            0x60003c90,
//            0x007f3e90,
//            0x497f5390,
//            0x60004590,
//            0x007f4590,
//            0x60004590,
//            0x007f4790,
//            0x60004790,
//            0x007f4890,
//            0x60004890,
//            0x60004190,
//            0x097f4390,
//            0x60004590,
//            0x007f4590,
//            0x60004590,
//            0x007f4790,
//            0x60004790,
//            0x007f4890,
//            0x60004890,
//
//            0};

    if(!midiOutOpen(&handle, DEFAULT_DEVICE, 0,0, CALLBACK_NULL))
    {
        midiOutShortMsg(handle, (Volume << 16) | (Instrument << 8) | 0x90);  // Set instrument

        while(gotoviNotu[i])
        {
        Memo2->Lines->Append(gotoviNotu[i]);
            Note1=gotoviNotu[i];
            midiOutShortMsg(handle, Note1);
            Sleep(StrToInt( Edit1->Text));
            i++;

        }

    }
    else
    Edit2->Text="Не ініціалізовано MIDI пристрій";

    midiOutClose(handle);
}
//---------------------------------------------------------------------------