:
, . , , . 䳿.
:
() . 䳿 , .
, . 䳿. .
. 1
Button - windows, .
ADOConnection - ' ADO
' ADO Connection Delphi.
ADOConnection :
- ADO ';
- ' ';
- ,
- ; ;
- ADO;
- ' - .
ADOQuery - SQL ADO. .
DataSource - , ' .
ADOTable - Delphi , OLE DB. .
ImageList - , , 0. (, ) , ImageList. .
DBEdit ' Edit. ³ : , , .
DBGrid - ' . , TField .
Label - . .
Edit - . , .
|
|
|
Panel - - - . (TBevel) . , . .
SpeedButton - . .
Image - . , .
XPManifest.
:
, , (. . 2.).
begin
Pause:= false;
Stop:= false;
Player.Visible:= true;
BPM:= 350;
Instrument:= '00';
Melodie;
Melodie;
Player.Visible:= false;
end;
. 2.
(. 3.)
begin
Form2.Show;
end;
. 3.
(. 4.)
begin
About.Show;
end;
. 4.
䳿 (. 5.)
var
InstrumentINT: integer;
begin
lblInstrument.Caption:= IntToStr(UpDown1.Position);
if Length(lblInstrument.Caption)=1 then lblInstrument.Caption:= '0' + lblInstrument.Caption;
Instrument:= lblInstrument.Caption;
end;
. 5. 䳿
(. 3.)
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.
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.
Delphi , . Delphi, , Windows. Delphi , . , , Delphi.
, Windows 䳺, .
() .
, , , , .
, .
