Список використаних джерел. 2. Assembler. Підручник для вузів

1. Delphi 7 / під заг. ред. А.Д. Хомоненко. - СПб.: БХВ-Петербург, 2007. - 1216 с.

2. Assembler. Підручник для вузів. 2-е изд. - СПб.: Питер, 2007. - 637с.

3. Архангельський А.Я. Прийоми програмування в Delphi на основі VCL. - М.: «Біном-Пресс», 2006 р. - 944 с.

4. Флен М.Є. Біблія Delphi. - СПб.: БХВ-Петербрг, 2004. - 880 с.

5. Стівенс Р. Delphi. Готові алгоритми / Рід Стівенс; Пер. з англ. Мерещука П.А. - 2-е изд., Стер. - М.: ДМК Пресс; СПб.: Питер, 2004. - 384 с.: Іл.

6. «Програмування в Delphi 7», електронний посібник, Є. Марков,
П. Дарахвелидзе

7. С. Симонов, Delphi 7 навчальний курс, вид. Пітер, 2005 р.

8. В. В. Фролов - Delphi програмування на мові високого рівня

Додаток А

Лістинг програми

unit Aide_Clavier;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls;

type

TForm2 = class(TForm)

GroupBox1: TGroupBox;

Image1: TImage;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

GroupBox4: TGroupBox;

Label13: TLabel;

GroupBox5: TGroupBox;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

GroupBox6: TGroupBox;

Label22: TLabel;

Label23: TLabel;

GroupBox7: TGroupBox;

Label1: TLabel;

Label2: TLabel;

GroupBox8: TGroupBox;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

GroupBox9: TGroupBox;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

procedure FormCreate(Sender: TObject);

private

{ Dclarations prives }

public

{ Dclarations publiques }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

end;

end.

unit Clavier_AZERTY;

interface

type

TKeys = Record

Key : Word;

Note : string;

Down: boolean;

end;

var

// Налаштування параметрів клавіатури QWERTY (Ля2->Mi4)

Keys: Array[0..19] of TKeys =(

// Клавіші клавіатури:

(Key:81; Note:'La2'; Down:false), // q

(Key:87; Note:'Si2'; Down:false), // w

(Key:69; Note:'Do3'; Down:false), // e

(Key:82; Note:'Re3'; Down:false), // r

(Key:84; Note:'Mi3'; Down:false), // t

(Key:89; Note:'Fa3'; Down:false), // y

(Key:85; Note:'Sol3'; Down:false), // u

(Key:73; Note:'La3'; Down:false), // i

(Key:79; Note:'Si3'; Down:false), // o

(Key:80; Note:'Do4'; Down:false), // p

(Key:219; Note:'Re4'; Down:false), // [

(Key:221; Note:'Mi4'; Down:false), // ]

(Key:65; Note:'La2d'; Down:false), // a

(Key:68; Note:'Do3d'; Down:false), // d

(Key:70; Note:'Re3d'; Down:false), // f

(Key:72; Note:'Fa3d'; Down:false), // h

(Key:74; Note:'Sol3d'; Down:false), // j

(Key:75; Note:'La3d'; Down:false), // k

(Key:186; Note:'Do4d'; Down:false), // ;

(Key:222; Note:'Re4d'; Down:false) // '

);

implementation

end.

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, jpeg,

mmSystem, Clavier_AZERTY, Musiques, Notes_Midi, Menus, ToolWin, ActnMan,

ActnCtrls, ActnMenus, Buttons, Aide_Clavier, pngimage, XPMan;

type

TForm1 = Class(TForm)

Systeme: TPanel;

imgSysteme: TImage;

imgDo1: TImage;

imgMi1: TImage;

imgRe1: TImage;

imgFa1: TImage;

imgSol1: TImage;

imgLa1: TImage;

imgSi1: TImage;

imgDo2: TImage;

imgRe2: TImage;

imgMi2: TImage;

imgFa2: TImage;

imgSol2: TImage;

imgLa2: TImage;

imgSi2: TImage;

imgDo3_2: TImage;

imgDo3_1: TImage;

imgRe3: TImage;

imgMi3: TImage;

imgFa3: TImage;

imgSol3: TImage;

imgLa3: TImage;

imgSi3: TImage;

imgDo4: TImage;

imgRe4: TImage;

imgMi4: TImage;

Image23: TImage;

Piano: TPanel;

La1: TShape;

Mi4: TShape;

Re4: TShape;

Do4: TShape;

Si4: TShape;

La4: TShape;

Sol4: TShape;

Fa4: TShape;

Mi3: TShape;

Re3: TShape;

Do3: TShape;

Si3: TShape;

La3: TShape;

Sol3: TShape;

Fa3: TShape;

Mi2: TShape;

Re2: TShape;

Do2: TShape;

Si2: TShape;

La2: TShape;

Sol2: TShape;

Fa2: TShape;

Mi1: TShape;

Re1: TShape;

Do1: TShape;

Si1: TShape;

Sol1: TShape;

Fa1: TShape;

Do1d: TShape;

Fa1d: TShape;

La1d: TShape;

Sol1d: TShape;

Re1d: TShape;

Fa2d: TShape;

La2d: TShape;

Sol2d: TShape;

Re2d: TShape;

Do2d: TShape;

Fa3d: TShape;

La3d: TShape;

Sol3d: TShape;

Re3d: TShape;

Do3d: TShape;

Fa4d: TShape;

La4d: TShape;

Sol4d: TShape;

Re4d: TShape;

Do4d: TShape;

Mi5: TShape;

Re5: TShape;

Do5: TShape;

Si5: TShape;

La5: TShape;

Sol5: TShape;

Fa5: TShape;

Re5d: TShape;

Fa5d: TShape;

La5d: TShape;

Sol5d: TShape;

Do5d: TShape;

Do6: TShape;

imgFa4: TImage;

imgSol4: TImage;

imgLa4: TImage;

imgSi4: TImage;

imgDo5: TImage;

imgDo1d: TImage;

imgRe1d: TImage;

imgFa1d: TImage;

imgSol1d: TImage;

imgLa1d: TImage;

imgDo2d: TImage;

imgRe2d: TImage;

imgFa2d: TImage;

imgSol2d: TImage;

imgLa2d: TImage;

imgDo3d_2: TImage;

imgDo3d_1: TImage;

imgRe3d: TImage;

imgFa3d: TImage;

imgSol3d: TImage;

imgLa3d: TImage;

imgDo4d: TImage;

imgRe4d: TImage;

imgFa4d: TImage;

imgSol4d: TImage;

imgLa4d: TImage;

imgDo5d: TImage;

GroupBox1: TGroupBox;

UpDown1: TUpDown;

lblInstrument: TLabel;

MainMenu1: TMainMenu;

Fic1: TMenuItem;

Edition1: TMenuItem;

Baloo1: TMenuItem;

Fermer1: TMenuItem;

Aide1: TMenuItem;

Player: TGroupBox;

btnPlay: TSpeedButton;

btnPause: TSpeedButton;

btnStop: TSpeedButton;

Groupe_Notes: TGroupBox;

Notes_Alterees: TPanel;

lblDo1d: TLabel;

lblRe1d: TLabel;

lblFa1d: TLabel;

lblSol1d: TLabel;

lblLa1d: TLabel;

lblDo2d: TLabel;

lblRe2d: TLabel;

lblFa2d: TLabel;

lblSol2d: TLabel;

lblLa2d: TLabel;

lblDo3d: TLabel;

lblRe3d: TLabel;

lblFa3d: TLabel;

lblSol3d: TLabel;

lblLa3d: TLabel;

lblDo4d: TLabel;

lblRe4d: TLabel;

lblFa4d: TLabel;

lblSol4d: TLabel;

lblLa4d: TLabel;

lblDo5d: TLabel;

lblRe5d: TLabel;

lblFa5d: TLabel;

lblSol5d: TLabel;

lblLa5d: TLabel;

Notes_Primaires: TPanel;

lblDo1: TLabel;

lblRe1: TLabel;

lblMi1: TLabel;

lblFa1: TLabel;

lblSol1: TLabel;

lblLa1: TLabel;

lblSi1: TLabel;

lblDo2: TLabel;

lblRe2: TLabel;

lblMi2: TLabel;

lblFa2: TLabel;

lblSol2: TLabel;

lblLa2: TLabel;

lblSi2: TLabel;

lblDo3: TLabel;

lblRe3: TLabel;

lblMi3: TLabel;

lblFa3: TLabel;

lblSol3: TLabel;

lblLa3: TLabel;

lblSi3: TLabel;

lblDo4: TLabel;

lblRe4: TLabel;

lblMi4: TLabel;

lblFa4: TLabel;

lblSol4: TLabel;

lblLa4: TLabel;

lblSi4: TLabel;

lblDo5: TLabel;

lblRe5: TLabel;

lblMi5: TLabel;

lblFa5: TLabel;

lblSol5: TLabel;

lblLa5: TLabel;

lblSi5: TLabel;

lblDo6: TLabel;

Image1: TImage;

lblNote: TLabel;

GroupBox2: TGroupBox;

N1: TMenuItem;

XPManifest1: TXPManifest;

Label1: TLabel;

Label2: TLabel;

Procedure FormCreate(Sender: TObject);

procedure FormPaint(Sender: TObject);

Procedure FormDestroy(Sender: TObject);

procedure PianoMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure PianoMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);

procedure Baloo1Click(Sender: TObject);

procedure Fermer1Click(Sender: TObject);

procedure PianoToucheDown(Touche: string);

procedure PianoToucheUp(Touche: string);

procedure btnPauseClick(Sender: TObject);

procedure btnPlayClick(Sender: TObject);

procedure btnStopClick(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure Melodie;

procedure Accompagnement;

procedure Aide1Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure lblInstrumentClick(Sender: TObject);

procedure lblNoteClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

MidiOut: hMidiOut;

Instrument: string;

BPM: integer;

Pause: boolean;

Stop: boolean;

implementation

uses Unit_Main_Droite, Unit_Main_Gauche, Unit3;

{$R *.dfm}

procedure TForm1.btnPauseClick(Sender: TObject);

begin

midiOutShortMsg(MidiOut, $00007BB0);

Stop := false;

Pause := true;

btnPlay.Visible := true;

btnPause.Visible := false;

end;

procedure TForm1.btnPlayClick(Sender: TObject);

begin

Stop := false;

Pause := false;

btnPlay.Visible := false;

btnPause.Visible := true;

end;

procedure TForm1.btnStopClick(Sender: TObject);

begin

midiOutShortMsg(MidiOut, $00007BB0);

Pause := false;

Stop := true;

end;

procedure TForm1.Fermer1Click(Sender: TObject);

begin

Stop := true;

application.terminate;

end;

{---------------------МУЗИЧНИЙ МЕНЕДЖЕР-------------------------}

procedure TForm1.Aide1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Baloo1Click(Sender: TObject);

begin

Pause := false;

Stop := false;

Player.Visible := true;

BPM := 350;

Instrument := '00';

Melodie;

Melodie;

Player.Visible := false;

end;

procedure TForm1.Melodie;

var

MD : TMain_Droite;

begin

// Запуск компоненту TMain_Droite (Мелодія)

MD := TMain_Droite.Create(False);

// Запуск процедури Акомпанемент

Accompagnement;

Repeat

Application.ProcessMessages;

if Stop then MD.ThreadTerminated := true;

if Pause then MD.Suspended := true;

//if MD.Suspended AND NOT Pause then MD.Resume;

until MD.ThreadTerminated;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

About.Show;

end;

procedure TForm1.Accompagnement;

var

MG : TMain_Gauche;

begin

MG := TMain_Gauche.Create(False);

Repeat

Application.ProcessMessages;

if Stop then MG.ThreadTerminated := true;

if Pause then MG.Suspended := true;

if MG.Suspended AND NOT Pause then MG.Resume;

until MG.ThreadTerminated;

end;

{---------------------Форми управління---------------------------}

Procedure TForm1.FormCreate(Sender: TObject);

var

Res: DWORD; msg: String;

Begin

Res := midiOutOpen(@MidiOut, MIDI_MAPPER, Handle, 0, CALLBACK_WINDOW);

If Res <> 0 Then Begin

Case Res Of

MMSYSERR_BADDEVICEID: msg := 'Priphrique invalide';

MMSYSERR_ALLOCATED: msg := 'Priphrique dja allou';

MMSYSERR_NOMEM: msg := 'Mmoire insuffisante';

MIDIERR_NOMAP: msg := 'Mapper MIDI non trouv';

MIDIERR_NODEVICE: msg := 'Priphrique non trouv';

Else msg := 'Erreur inconnue';

End;

MessageBox(Form1.Handle, pChar(msg), 'Помилка', MB_OK);

Close;

End;

Instrument:='00';

BPM:=1;

Pause := false;

Stop := false;

End;

procedure TForm1.FormPaint(Sender: TObject);

begin

Form1.SetFocus;

end;

procedure TForm1.lblInstrumentClick(Sender: TObject);

begin

end;

procedure TForm1.lblNoteClick(Sender: TObject);

begin

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

Stop := true;

end;

Procedure TForm1.FormDestroy(Sender: TObject);

Begin

midiOutShortMsg(MidiOut, $00007BB0);

midiOutClose(MidiOut);

End;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var

i,j : integer;

Touche: string;

begin

for i := 0 to Length(Keys) - 1 do

begin

if Keys[i].Key = Key then

begin

Touche := Keys[i].Note;

if Keys[i].Down = false then

begin

for j := 0 to Length(Notes) - 1 do

if Notes[j].Note=Touche then Notes[j].Down:=true;

PianoToucheDown(Touche);

Keys[i].Down := true;

end;

end;

end;

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

var

i, j: integer;

Touche: string;

begin

for i := 0 to Length(Keys) - 1 do

begin

if Keys[i].Key = Key then

begin

Touche := Keys[i].Note;

Keys[i].Down := false;

for j := 0 to Length(Notes) - 1 do

if Notes[j].Note=Touche then Notes[j].Down:=false;

PianoToucheUp(Touche);

end;

end;

end;

procedure TForm1.PianoMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

Touche : string;

begin

Touche := TShape(Sender).Name;

if Button=mbLeft then

PianoToucheDown(Touche);

end;

procedure TForm1.PianoMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

var

Touche : string;

i : integer;

Note:Cardinal;

begin

Touche := TShape(Sender).Name;

if Button=mbLeft then

PianoToucheUp(Touche);

end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);

var

InstrumentINT: integer;

begin

lblInstrument.Caption := IntToStr(UpDown1.Position);

if Length(lblInstrument.Caption)=1 then lblInstrument.Caption := '0' + lblInstrument.Caption;

Instrument := lblInstrument.Caption;

end;

procedure TForm1.PianoToucheDown(Touche: string);

var

i : integer;

Note : cardinal;

begin

for i := 0 to Length(Notes) - 1 do

begin

if Notes[i].Note=Touche then

begin

lblInstrument.Caption := Instrument;

Note := StrToInt('$007F' + Notes[i].SonMidi + '90');

midiOutShortMsg(MidiOut, StrToInt('$0000' + Instrument + 'C0'));

midiOutShortMsg(MidiOut, Note);

lblNote.Caption := Touche;

lblNote.Visible := true;

if Copy(Touche, Length(Touche), 1)<>'d' then

begin

Notes_Primaires.Visible := true;

Notes_Alterees.Visible := false;

end

else

begin

Notes_Primaires.Visible := false;

Notes_Alterees.Visible := true;

end;

TImage(FindComponent('lbl' + Touche)).Visible := true;

if i<50 then

begin

if Touche='Do3' then

begin

TImage(FindComponent('imgDo3_1')).Visible := true;

TImage(FindComponent('imgDo3_2')).Visible := true;

end

else if Touche='Do3d' then

begin

TImage(FindComponent('imgDo3d_1')).Visible := true;

TImage(FindComponent('imgDo3d_2')).Visible := true;

end

else TImage(Form1.FindComponent('img' + Touche)).Visible := true;

end;

if TShape(FindComponent(Touche)).Brush.Color=clWhite then

TShape(FindComponent(Touche)).Brush.Color:=clRed

else if TShape(FindComponent(Touche)).Brush.Color=clBlack then

TShape(FindComponent(Touche)).Brush.Color:=clLime;

end;

end;

end;

procedure TForm1.PianoToucheUp(Touche: string);

var

i : integer;

Note:Cardinal;

begin

for i := 0 to Length(Notes) - 1 do

begin

if Notes[i].Note=Touche then

begin

Note := StrToInt('$007F' + Notes[i].SonMidi + '80');

midiOutShortMsg(MidiOut, Note);

if (Notes[i].Down=false) then

begin

if i<50 then

begin

if Touche='Do3' then

begin

TImage(FindComponent('imgDo3_1')).Visible := false;

TImage(FindComponent('imgDo3_2')).Visible := false;

end

else if Touche='Do3d' then

begin

TImage(FindComponent('imgDo3d_1')).Visible := false;

TImage(FindComponent('imgDo3d_2')).Visible := false;

end

else TImage(Form1.FindComponent('img' + Touche)).Visible := false;

end;

lblNote.Visible := false;

if Copy(Touche, Length(Touche), 1)<>'d' then

begin

Notes_Primaires.Visible := false;

Notes_Alterees.Visible := true;

end

else

begin

Notes_Primaires.Visible := true;

Notes_Alterees.Visible := false;

end;

TImage(FindComponent('lbl' + Touche)).Visible := false;

if TShape(FindComponent(Touche)).Brush.Color=clRed then

TShape(FindComponent(Touche)).Brush.Color:=clWhite

else if TShape(FindComponent(Touche)).Brush.Color=clLime then

TShape(FindComponent(Touche)).Brush.Color:=clBlack;

end;

end;

end;

end;

end.

unit Musiques;

interface

type

TMusiques = Record

Note1 : string;

Note2 : string;

Note3 : string;

Note4 : string;

Duree : single;

end;

const

Musique1_MD: Array[0..27] of TMusiques =(

(Duree:1;)

,(Note1:'Do3'; Duree:1;)

,(Note1:'Re3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Duree:1;)

,(Note1:'La3'; Duree:2;)

,(Note1:'Sol3d';Duree:1;)

,(Note1:'La3'; Duree:1;)

,(Note1:'Sol3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'Sol3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'Sol3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'Sol3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'Re3'; Duree:1;)

,(Note1:'Do3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'Do3'; Duree:1;)

,(Note1:'Fa3'; Duree:1;)

,(Note1:'La3'; Duree:1;)

,(Note1:'Re4'; Duree:1;)

,(Note1:'Do4'; Duree:1;)

,(Note1:'La3d'; Duree:1;)

,(Note1:'La3'; Duree:1;)

,(Note1:'Sol3'; Duree:4;)

);

Musique1_MG: Array[0..30] of TMusiques =(

(Duree:4;)

,(Note1:'Fa1'; Duree:1;)

,(Duree:1;)

,(Note1:'Do1';Duree:1;)

,(Duree:1;)

,(Note1:'Fa1'; Duree:1;)

,(Duree:1;)

,(Note1:'La1';Duree:1;)

,(Duree:1;)

,(Note1:'La1d'; Duree:1;)

,(Duree:1;)

,(Note1:'Fa1';Duree:1;)

,(Duree:1;)

,(Note1:'La1d'; Duree:1;)

,(Duree:1;)

,(Note1:'Sol1';Duree:1;)

,(Duree:1;)

,(Note1:'Fa1'; Duree:1;)

,(Duree:1;)

,(Note1:'Re1d';Duree:1;)

,(Duree:1;)

,(Note1:'Re1'; Duree:1;)

,(Duree:1;)

,(Note1:'Fa1d';Duree:1;)

,(Duree:1;)

,(Note1:'Sol1'; Duree:1;)

,(Note1:'La1'; Duree:1;)

,(Note1:'La1d';Duree:1;)

,(Note1:'La1d'; Duree:1;)

,(Note1:'Do2'; Duree:1;)

,(Duree:3;)

);

{

// Accompagnement "Accords" (Main Gauche)

Musique1_MG: Array[0..8] of TMusiques =(

(Duree:4;)

,(Note1:'Fa2'; Note2:'La2'; Note3:'Do3'; Note4:'Mi3'; Duree:4;)

,(Note1:'Fa2'; Note2:'La2'; Note3:'Do3'; Note4:'Re3d'; Duree:4;)

,(Note1:'Fa2'; Note2:'La2'; Note3:'Do3d'; Note4:'Re3'; Duree:4;)

,(Note1:'Fa2'; Note2:'Sol2'; Note3:'La3d'; Note4:'Re3'; Duree:4;)

,(Note1:'Fa2'; Note2:'La2'; Note3:'Do3'; Note4:'Re3'; Duree:2;)

,(Note1:'Sol2'; Note2:'La2'; Note3:'Do3'; Note4:'Re3d'; Duree:2;)

,(Note1:'Fa2d'; Note2:'La2'; Note3:'Do3'; Note4:'Re3'; Duree:4;)

,(Note1:'Fa2'; Note2:'Sol2'; Note3:'Si2'; Note4:'Re3'; Duree:4;)

); }

implementation

end.

unit Notes_Midi;

interface

type

TNotes = Record

Note : string;

SonMidi : string;

Down : boolean;

end;

var

Notes: Array[0..60] of TNotes =(

(Note:'Do1'; SonMidi:'24'; Down: false;),

(Note:'Do1d'; SonMidi:'25'; Down: false;),

(Note:'Re1'; SonMidi:'26'; Down: false;),

(Note:'Re1d'; SonMidi:'27'; Down: false;),

(Note:'Mi1'; SonMidi:'28'; Down: false;),

(Note:'Fa1'; SonMidi:'29'; Down: false;),

(Note:'Fa1d'; SonMidi:'2A'; Down: false;),

(Note:'Sol1'; SonMidi:'2B'; Down: false;),

(Note:'Sol1d'; SonMidi:'2C'; Down: false;),

(Note:'La1'; SonMidi:'2D'; Down: false;),

(Note:'La1d'; SonMidi:'2E'; Down: false;),

(Note:'Si1'; SonMidi:'2F'; Down: false;),

(Note:'Do2'; SonMidi:'30'; Down: false;),

(Note:'Do2d'; SonMidi:'31'; Down: false;),

(Note:'Re2'; SonMidi:'32'; Down: false;),

(Note:'Re2d'; SonMidi:'33'; Down: false;),

(Note:'Mi2'; SonMidi:'34'; Down: false;),

(Note:'Fa2'; SonMidi:'35'; Down: false;),

(Note:'Fa2d'; SonMidi:'36'; Down: false;),

(Note:'Sol2'; SonMidi:'37'; Down: false;),

(Note:'Sol2d'; SonMidi:'38'; Down: false;),

(Note:'La2'; SonMidi:'39'; Down: false;),

(Note:'La2d'; SonMidi:'3A'; Down: false;),

(Note:'Si2'; SonMidi:'3B'; Down: false;),

(Note:'Do3'; SonMidi:'3C'; Down: false;),

(Note:'Do3d'; SonMidi:'3D'; Down: false;),

(Note:'Re3'; SonMidi:'3E'; Down: false;),

(Note:'Re3d'; SonMidi:'3F'; Down: false;),

(Note:'Mi3'; SonMidi:'40'; Down: false;),

(Note:'Fa3'; SonMidi:'41'; Down: false;),

(Note:'Fa3d'; SonMidi:'42'; Down: false;),

(Note:'Sol3'; SonMidi:'43'; Down: false;),

(Note:'Sol3d'; SonMidi:'44'; Down: false;),

(Note:'La3'; SonMidi:'45'; Down: false;),

(Note:'La3d'; SonMidi:'46'; Down: false;),

(Note:'Si3'; SonMidi:'47'; Down: false;),

(Note:'Do4'; SonMidi:'48'; Down: false;),

(Note:'Do4d'; SonMidi:'49'; Down: false;),

(Note:'Re4'; SonMidi:'4A'; Down: false;),

(Note:'Re4d'; SonMidi:'4B'; Down: false;),

(Note:'Mi4'; SonMidi:'4C'; Down: false;),

(Note:'Fa4'; SonMidi:'4D'; Down: false;),

(Note:'Fa4d'; SonMidi:'4E'; Down: false;),

(Note:'Sol4'; SonMidi:'4F'; Down: false;),

(Note:'Sol4d'; SonMidi:'50'; Down: false;),

(Note:'La4'; SonMidi:'51'; Down: false;),

(Note:'La4d'; SonMidi:'52'; Down: false;),

(Note:'Si4'; SonMidi:'53'; Down: false;),

(Note:'Do5'; SonMidi:'54'; Down: false;),

(Note:'Do5d'; SonMidi:'55'; Down: false;),

(Note:'Re5'; SonMidi:'56'; Down: false;),

(Note:'Re5d'; SonMidi:'57'; Down: false;),

(Note:'Mi5'; SonMidi:'58'; Down: false;),

(Note:'Fa5'; SonMidi:'59'; Down: false;),

(Note:'Fa5d'; SonMidi:'5A'; Down: false;),

(Note:'Sol5'; SonMidi:'5B'; Down: false;),

(Note:'Sol5d'; SonMidi:'5C'; Down: false;),

(Note:'La5'; SonMidi:'5D'; Down: false;),

(Note:'La5d'; SonMidi:'5E'; Down: false;),

(Note:'Si5'; SonMidi:'5F'; Down: false;),

(Note:'Do6'; SonMidi:'60'; Down: false;)

);

implementation

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TAbout = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

About: TAbout;

implementation

{$R *.dfm}

procedure TAbout.Button1Click(Sender: TObject);

begin

close

end;

procedure TAbout.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit_Main_Droite;

interface

uses

Main, Classes, Forms, SysUtils, ExtCtrls, Graphics,

mmSystem, Notes_MIDI, Musiques;

type

TMain_Droite = Class(TThread)

private

idNote: integer;

procedure OnTerminateProcedure(Sender : TObject);

protected

procedure ToucheDown;

procedure ToucheUp;

procedure Execute; override;

public

ThreadTerminated : Boolean;

constructor Create(Suspended : Boolean);

end;

implementation

constructor TMain_Droite.Create(Suspended: Boolean);

begin

FreeOnTerminate := True;

inherited Create(Suspended);

OnTerminate := OnTerminateProcedure;

ThreadTerminated := False;

end;

procedure TMain_Droite.ToucheDown;

begin

Form1.PianoToucheDown(Musique1_MD[idNote].Note1);

end;

procedure TMain_Droite.ToucheUp;

begin

Form1.PianoToucheUp(Musique1_MD[idNote].Note1);

end;

procedure TMain_Droite.Execute;

var

i: integer;

begin

for i := 0 to Length(Musique1_MD)-1 do

begin

if ThreadTerminated then exit;

idNote := i;

if Musique1_MD[i].Note1<>'' then

Synchronize(ToucheDown);

Sleep(Round(((60/BPM)*1000) * Musique1_MD[i].Duree));

if Musique1_MD[i].Note1<>'' then

Synchronize(ToucheUp);

end;

end;

procedure TMain_Droite.OnTerminateProcedure(Sender: TObject);

begin

ThreadTerminated:=True;

end;

end.

unit Unit_Main_Gauche;

interface

uses

Main, Classes, Forms, SysUtils, ExtCtrls, Graphics,

mmSystem, Notes_MIDI, Musiques;

type

TMain_Gauche = class(TThread)

private

idNote: integer;

procedure OnTerminateProcedure(Sender : TObject);

protected

procedure ToucheDown;

procedure ToucheUp;

procedure Execute; override;

public

ThreadTerminated : Boolean;

constructor Create(Suspended : Boolean);

end;

implementation

constructor TMain_Gauche.Create(Suspended: Boolean);

begin

FreeOnTerminate := True;

inherited Create(Suspended);

OnTerminate := OnTerminateProcedure;

ThreadTerminated := False;

end;

procedure TMain_Gauche.ToucheDown;

begin

Form1.PianoToucheDown(Musique1_MG[idNote].Note1);

end;

procedure TMain_Gauche.ToucheUp;

begin

Form1.PianoToucheUp(Musique1_MG[idNote].Note1);

end;

procedure TMain_Gauche.Execute;

var

i: integer;

begin

for i := 0 to Length(Musique1_MG)-1 do

begin

if ThreadTerminated then exit;

idNote := i;

if Musique1_MG[i].Note1<>'' then

Synchronize(ToucheDown);

Sleep(Round(((60/BPM)*1000) * Musique1_MG[i].Duree));

if Musique1_MG[i].Note1<>'' then

Synchronize(ToucheUp);

end;

end;

procedure TMain_Gauche.OnTerminateProcedure(Sender: TObject);

begin

ThreadTerminated:=True;

end;

end.

Наши рекомендации