MUSICMAKER

Commentaire de Scalpweb le 28/06/2005 00:24:26

J'utilise Paint aussi tu sais ! lol
Je vais voir ton prog now :-p

@+, Scalpweb

Commentaire de japee le 28/06/2005 12:25:20 administrateur CS

En fait, j'ai été un peu vite, il vaut mieux faire ainsi :

private
    { Déclarations privées }
    procedure LitFichier(FileName: String);
    procedure EnregistreFichier(FileName: String);

uses IniFiles;

const
  NbreCheckBox: Integer = 9;

var
  PathAppli: String;

procedure TForm1.LitFichier(FileName: String);
var i: Integer;
begin
  PathAppli := ExtractFilePath(Application.ExeName);
  with TIniFile.Create(FileName) do
  begin
    for i := 1 to NbreCheckBox do
      TCheckBox(FindComponent('CheckBox' + IntToStr(i))).Checked :=
      ReadBool('save', 'CheckBox' + IntToStr(i), False);
    Free;
  end;
end;

procedure TForm1.EnregistreFichier(FileName: String);
var i: Integer;
begin
  with TIniFile.Create(FileName) do
  begin
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TCheckBox then
        with TCheckBox(Components[i]) do
          WriteBool('save', Name, Checked);
    Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  PathAppli := ExtractFilePath(Application.ExeName);
  LitFichier(PathAppli + 'sauve01.ini');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
begin
  EnregistreFichier(PathAppli + 'sauve01.ini');
end;

japee

Commentaire de Nicolas___ le 28/06/2005 23:00:44

Merci Japee pour ton devouevement,
pas encore eu le temps de tester ce que tu m'as ecrit mais je compte le faire tt de suite.
Faut que je vois comment marche 1 peu les fichiers ini,jamais utilisés.
Slt
Nico

Commentaire de Nicolas___ le 28/06/2005 23:53:52

ouais Merci,c'est sur ca doit etre ca qui monte au crane!!! lol

Je vais suivre tes conseils(qui mon été plusieurs * utiles,si si serieux(Me la joue vieux flatteur la!!! lol))---> Tjs la chaleur,put*** de chaleur!!!

Tjs et encore Merci
Slt
Nico

Mettrais le source a jour peut etre Dmain sinon apres Dmain.

Commentaire de JulioDelphi le 29/06/2005 18:04:17 administrateur CS

hello
nomme tes composants. avec tes 230 checkbox c'est fouilli ^^

Commentaire de Nicolas___ le 29/06/2005 21:57:34

Voila JulioDelphi,
J'ai nomme toutes les checkbox en
Clap1 ... clap2..
hat 1..   hat2 ...
   ...
Et tu avais raison c'est qd meme + clair ainsi
Merci pr ton conseil
C'est peut etre lourd a tous renommer mais c'est mieux.
Slt
Nico

Commentaire de Nicolas___ le 29/06/2005 23:04:20

AAH,
viens seulement de m'en rendre compte: le fait d'avoir renomme les Checkboxs,
la methode de lecture du fichier INI depose par Japee ne marche +.
"J'aurais mieux fait de rester faineant finalement!!!",lol
Vais regarde a ca.
Slt
Nico

Commentaire de Nicolas___ le 29/06/2005 23:21:03

Pas besion de MAJ pr si peux!

Commentaire de shining le 30/06/2005 02:30:58

on peut aussi par soucis d'esthetisme écrire celà:

for i := 1 to 8 do
TCheckBox(FindComponent(Format('clap%u', [i]))).Checked :=...

l'idéal pour ton projet, serait de créer un composant 'maître', qui serait un TScrollBox, ensuite chaque élément, sera dérivé  d'un TPaintBox, avec align := alTop, et biensûr lorsqu'on clique sur un élément qu'on puisse au moins modifier certaines données, telle que le son à jouer, effets, ect..., je sais celà demande un niveau assez elever !!! , si tu comprends où je veux en venir ça vas faire de ce projet, un excellent logiciel pour le sampling ;), et dance Ejay et compagnie n'aura qu'a bien se tenir :p, bonne continuation, et concernant le TiniFile, je pense que le mieux serait d'utiliser un TCollection, ça permet de travailler en temps réel avec un accès beaucoup plus rapide qu'un fichier *.ini, de plus le TCollectionItem permet d'ajouter autant de propriétés que tu veux, example : les Effets, le nom du son, position, ainsi que des pointeurs des éléments "coller", à celui-ci., et seulement à la fin, lorsque l'utilisateur veut enregistrer son projet, qu'il faudra, non pas mettre ça dans un TiniFile mais créer sa propre structure, exemple

TMusicMakerHeader = record
Sign : array [0..2] of Char; //MMF
ElementCount : integer;
end;

TElementInfo = record
Sound     : String;
BeginPos  : Integer;// où Int64 si long fichier(tel que *.wav)
EndPos    : Integer;//
Effect    : TElementEffect;
ect ...
end;

et avec un TMemoryStream où TFileStream, mais pour un gain de rapidité je conseil vivement le TMemoryStream !!!
ensuite c'est simple il faut definir son propre format
exemple MusicMakerFile format fichier *.mmf

MS.position := 0;// ça revient au même que Seek(0 , fromBeginning);
MS.WriteBuffer(Header, SizeOf(TMusicMakerHeader));

bon je sais !!!, c'est beaucoup demander pour un débutant, mais c'est à force de se lancer des défis qu'on progressent :)

Commentaire de djmmix le 13/07/2005 17:47:13

ta source est nikel mais pk le tempo va jusqu'a trois ????

de plus il serai mieux de le mettre en BPM sa serai plus cool ^^

sinon génial @+++++

Commentaire de WhiteHippo le 01/11/2005 11:07:24

Juste un peu de code qui vient suite à un de tes  commentaires dans le source :
"Pr ne pas devoir tjs taper la meme chose encore que Qd on voit la suite... C'est Tjs la meme chose [...] surement moyen de faire moins long"

const
  NOMBRE_VOIES       = 8 ;  
  NOMBRE_INSTRUMENTS = 8 ;

  INSTRUMENT : array[1..NOMBRE_INSTRUMENTS ] of String =
    ( 'Clap'
    , 'Hat'
    , 'Drumb'
    , 'Rimshot'
    , 'Tom'
    , 'Woodpipe'
    , 'Snare'
    , 'bass'
    ) ;

procedure TForm1.SonoTimer(Sender: TObject);
var
  i,j  : integer ;
  cb : TCheckBox ;
  mp : TMediaPlayer ;
begin
  with ImageTemps do
  begin
    for i:=1 to NOMBRE_VOIES do
    begin
      for j:=1 to NOMBRE_INSTRUMENTS do
      begin
        mp := TMediaPlayer ( Form1.FindComponent( 'MediaPlayer'  + IntToStr(j) ) ) ;
        cb := TCheckBox    ( Form1.FindComponent( INSTRUMENT[j] + IntToStr(i) ) ) ;
        if ( cb.Checked ) and ( left=cb.Left ) then mp.Play ;
      end ;
    end ;
  end ;
end;

procedure TForm1.LitFichier(FileName: String);
var
i,j: Integer;
begin
  with TIniFile.Create(FileName) do
  begin
    for i := 1 to NOMBRE_VOIES do
    begin
      for j := 1 to NOMBRE_INSTRUMENTS do
      begin
        cb := TCheckBox ( Form1.FindComponent( Instruments[j] + IntToStr(i) ) ) ;
        cb.Checked := ReadBool('save',Instruments[j] + IntToStr(i), False) ;
      end ;
    end ;
  end;
end;

N.B. tous les NxClick pourrait de la même façon etre regroupés au sein d'une unique procedure (c'est à dire une seule procedure OnClick) qui se chargera de faire le traitement adequate en fonction du menu appelant.

Cordialement.