دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

تعلم الحروف الهجائية الفرنسية

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تعلم الحروف الهجائية الفرنسية

مُساهمة  alla في 25/12/2015, 11:27 am


بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله

تعلم الحروف الهجائية الفرنسية بأبسط طريقة ممكن

الاصوات
جلب أصوات من نوع ويف wav أو تسجيلهم مثلا
A.wav و B.wav وهكذا تفعل مع الباقية الاصوات

المجلدات

soun1 و sounds و soundz و soundza
و soundzi و soundzo و soundze

توضع فيهم الاصوات

يمكن تعدد اصوات الاشخاص مثلا
وضعت في البرنامج ثلاث اصوات لثلاث اشخاص

{ delph.forumalgerie.net }
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة الاولى

الكود:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: { delph.forumalgerie.net }TObject);
begin
 Form2.Show;
 Form1.Hide;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
 Form3.Show;
 Form1.Hide;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
 Form4.Show;
 Form1.Hide;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
 Form5.Show;
 Form1.Hide;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
form6.show;
form1.Hide;
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
form7.show;
form1.Hide;
end;

end.

=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة الثانية

الكود:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MPlayer, Buttons;

type
  TForm2 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    MediaPlayer1: TMediaPlayer;{ delph.forumalgerie.net }
    Label1: TLabel;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn26: TBitBtn;
    BitBtn27: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn15Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn18Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn20Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn25Click(Sender: TObject);
    procedure BitBtn26Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form2: TForm2;
  sounds01: string;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form1.Show;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'a';
 MediaPlayer1.FileName :=  sounds01+'\A.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn2Click(Sender: { delph.forumalgerie.net }TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'b';
 MediaPlayer1.FileName := sounds01+'\B.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'c';
 MediaPlayer1.FileName := sounds01+'\C.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'e';
 MediaPlayer1.FileName := sounds01+'\E.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'f';
 MediaPlayer1.FileName := sounds01+'\F.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'g';
 MediaPlayer1.FileName := sounds01+'\G.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn7Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'h';
 MediaPlayer1.FileName := sounds01+'\H.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn8Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'i';
 MediaPlayer1.FileName := sounds01+'\I.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn9Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'j';
 MediaPlayer1.FileName := sounds01+'\J.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn10Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'k';
 MediaPlayer1.FileName := sounds01+'\K.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn11Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'l';
 MediaPlayer1.FileName := sounds01+'\L.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn12Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'm';
 MediaPlayer1.FileName := sounds01+'\M.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn13Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'n';
 MediaPlayer1.FileName := sounds01+'\N.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn14Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'o';
 MediaPlayer1.FileName := sounds01+'\O.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn15Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'p';
 MediaPlayer1.FileName := sounds01+'\P.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn16Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'q';
 MediaPlayer1.FileName := sounds01+'\Q.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn17Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'r';
 MediaPlayer1.FileName := sounds01+'\R.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn18Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 's';
 MediaPlayer1.FileName := sounds01+'\S.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn19Click(Sender: { delph.forumalgerie.net }TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 't';
 MediaPlayer1.FileName := sounds01+'\T.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn20Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'u';
 MediaPlayer1.FileName := sounds01+'\U.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;    {}
end;

procedure TForm2.BitBtn21Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'v';
 MediaPlayer1.FileName := sounds01+'\V.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn22Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'w';
 MediaPlayer1.FileName := sounds01+'\W.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn23Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'x';
 MediaPlayer1.FileName := sounds01+'\X.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn24Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'y';
 MediaPlayer1.FileName := sounds01+'\Y.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn25Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'z';
 MediaPlayer1.FileName := sounds01+'\Z.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.BitBtn26Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 Label1.Caption := 'd';
 MediaPlayer1.FileName := sounds01+'\D.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if (key = 'a') or (key = 'A')  then BitBtn1Click(Sender);
 if (key = 'b') or (key = 'B')  then BitBtn2Click(Sender);
 if (key = 'c') or (key = 'C')  then BitBtn3Click(Sender);
 if (key = 'd') or (key = 'D')  then BitBtn26Click(Sender);
 if (key = 'e') or (key = 'E')  then BitBtn4Click(Sender);
 if (key = 'f') or (key = 'F')  then BitBtn5Click(Sender);
 if (key = 'g') or (key = 'G')  then BitBtn6Click(Sender);
 if (key = 'h') or (key = 'H')  then BitBtn7Click(Sender);
 if (key = 'i') or (key = 'I')  then BitBtn8Click(Sender);
 if (key = 'j') or (key = 'J')  then BitBtn9Click(Sender);
 if (key = 'k') or (key = 'K')  then BitBtn10Click(Sender);
 if (key = 'l') or (key = 'L')  then BitBtn11Click(Sender);
 if (key = 'm') or (key = 'M')  then BitBtn12Click(Sender);
 if (key = 'n') or (key = 'N')  then BitBtn13Click(Sender);
 if (key = 'o') or (key = 'O')  then BitBtn14Click(Sender);
 if (key = 'p') or (key = 'P')  then BitBtn15Click(Sender);
 if (key = 'q') or (key = 'Q')  then BitBtn16Click(Sender);
 if (key = 'r') or (key = 'R')  then BitBtn17Click(Sender);
 if (key = 's') or (key = 'S')  then BitBtn18Click(Sender);
 if (key = 't') or (key = 'T')  then BitBtn19Click(Sender);
 if (key = 'u') or (key = 'U')  then BitBtn20Click(Sender);
 if (key = 'v') or (key = 'V')  then BitBtn21Click(Sender);
 if (key = 'w') or (key = 'W')  then BitBtn22Click(Sender);
 if (key = 'x') or (key = 'X')  then BitBtn23Click(Sender);
 if (key = 'y') or (key = 'Y')  then BitBtn24Click(Sender);
 if (key = 'z') or (key = 'Z')  then BitBtn25Click(Sender);
// if (key = '') or (key = '')  then BitBtnClick(Sender);


end;

procedure TForm2.FormShow(Sender: TObject);
begin
 if Form1.ComboBox1.Text = 'zot' then
 sounds01 := 'sounds' else if Form1.ComboBox1.Text = 'aht' then
 sounds01 := 'soun1' else if Form1.ComboBox1.Text = 'zit' then
 sounds01 := 'soundz'
 else MediaPlayer1.Close;
 //sounds01 :=
end;

end.

=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة الثالثة

الكود:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, MPlayer, StdCtrls, Buttons;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;{ delph.forumalgerie.net }
    Timer1: TTimer;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    Procedure AA1(Sender: TObject);
    Procedure BB1(Sender: TObject);
    Procedure CC1(Sender: TObject);
    Procedure DD1(Sender: TObject);
    Procedure EE1(Sender: TObject);
    Procedure FF1(Sender: TObject);
    Procedure GG1(Sender: TObject);
    Procedure HH1(Sender: TObject);
    Procedure II1(Sender: TObject);
    Procedure JJ1(Sender: TObject);
    Procedure KK1(Sender: TObject);
    Procedure LL1(Sender: TObject);
    Procedure MM1(Sender: TObject);
    Procedure NN1(Sender: TObject);
    Procedure OO1(Sender: TObject);
    Procedure PP1(Sender: TObject);
    Procedure QQ1(Sender: TObject);
    Procedure RR1(Sender: TObject);
    Procedure SS1(Sender: TObject);
    Procedure TT1(Sender: TObject);
    Procedure UU1(Sender: TObject);
    Procedure VV1(Sender: TObject);
    Procedure WW1(Sender: TObject);
    Procedure XX1(Sender: TObject);
    Procedure YY1(Sender: TObject);
    Procedure ZZ1(Sender: TObject);
    procedure Panel1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
const
  ggg1: array[1..26] of char = ('a','b','c','d','e','f','g','h','i','j'
  ,'k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
 
  zzz1: array[1..26] of string =('\A.wav','\B.wav','\C.wav',
  '\D.wav','\E.wav','\F.wav','\G.wav','\H.wav',
  '\I.wav','\J.wav','\K.wav','\L.wav','\M.wav',
  '\N.wav','\O.wav','\P.wav','\Q.wav','\R.wav',
  '\S.wav','\T.wav','\U.wav','\V.wav','\W.wav',
  '\X.wav','\Y.wav','\Z.wav');


var
  Form3: TForm3;
  pa1: array[1..9] of string;
  tab1: array[1..9] of integer;
  intA: integer;
  ms01: integer;
  sounds1: string;

implementation

uses Unit1;

{$R *.DFM}

Procedure TForm3.AA1;
begin
 Panel1.Caption := 'a';
 MediaPlayer1.FileName := 'sounds\A.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

Procedure TForm3.BB1;{ delph.forumalgerie.net }
begin
 Panel1.Caption := 'b';
 MediaPlayer1.FileName := 'sounds\B.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

Procedure TForm3.CC1;
begin
 Panel1.Caption := 'c';
 MediaPlayer1.FileName := 'sounds\C.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.DD1;
begin
 Panel1.Caption := 'd';
 MediaPlayer1.FileName := 'sounds\D.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

Procedure TForm3.EE1;
begin
 Panel1.Caption := 'e';
 MediaPlayer1.FileName := 'sounds\E.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.FF1;
begin
 Panel1.Caption := 'f';
 MediaPlayer1.FileName := 'sounds\F.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.GG1;
begin
 Panel1.Caption := 'g';
 MediaPlayer1.FileName := 'sounds\G.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.HH1;
begin
 Panel1.Caption := 'h';
 MediaPlayer1.FileName := 'sounds\H.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.II1;
begin
 Panel1.Caption := 'i';
 MediaPlayer1.FileName := 'sounds\I.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.JJ1;
begin
 Panel1.Caption := 'j';
 MediaPlayer1.FileName := 'sounds\J.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.KK1;
begin
 Panel1.Caption := 'k';
 MediaPlayer1.FileName := 'sounds\K.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.LL1;
begin
 Panel1.Caption := 'l';
 MediaPlayer1.FileName := 'sounds\L.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.MM1;
begin
 Panel1.Caption := 'm';
 MediaPlayer1.FileName := 'sounds\M.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.NN1;
begin
 Panel1.Caption := 'n';
 MediaPlayer1.FileName := 'sounds\N.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.OO1;
begin
 Panel1.Caption := 'o';
 MediaPlayer1.FileName := 'sounds\O.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.PP1;
begin
 Panel1.Caption := 'p';
 MediaPlayer1.FileName := 'sounds\P.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.QQ1;
begin
 Panel1.Caption := 'q';
 MediaPlayer1.FileName := 'sounds\Q.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.RR1;
begin
 Panel1.Caption := 'r';
 MediaPlayer1.FileName := 'sounds\R.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.SS1;
begin
 Panel1.Caption := 's';
 MediaPlayer1.FileName := 'sounds\S.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.TT1;
begin
 Panel1.Caption := 't';
 MediaPlayer1.FileName := 'sounds\T.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.UU1;
begin
 Panel1.Caption := 'u';
 MediaPlayer1.FileName := 'sounds\U.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.VV1;
begin
 Panel1.Caption := 'v';
 MediaPlayer1.FileName := 'sounds\V.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.WW1;
begin
 Panel1.Caption := 'w';
 MediaPlayer1.FileName := 'sounds\W.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.XX1;
begin
 Panel1.Caption := 'x';
 MediaPlayer1.FileName := 'sounds\X.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.YY1;
begin
 Panel1.Caption := 'y';
 MediaPlayer1.FileName := 'sounds\Y.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;
Procedure TForm3.ZZ1;
begin
 Panel1.Caption := 'z';
 MediaPlayer1.FileName := 'sounds\Z.wav';
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: { delph.forumalgerie.net }TCloseAction);
begin
 Form1.Show;
end;

procedure TForm3.Panel1Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 if(Sender as TPanel).Caption = ggg1[ms01] then
 begin
  intA := intA + 1;
  Form3.Caption := inttostr(intA);
  MediaPlayer1.FileName := sounds1+'\oui.wav';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
 end else begin
  intA := intA - 1;
  Form3.Caption := inttostr(intA);
  if intA > 0 then intA := 0;
  MediaPlayer1.FileName := sounds1+'\non.wav';
  MediaPlayer1.Open;
  MediaPlayer1.Play;
 end;

  Timer1.Enabled := true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
VAR t01: integer;
begin
 randomize;
 tab1[1] := random(26)+1;
 Panel1.Caption := ggg1[tab1[1]];
 tab1[2] := random(26)+1;
 Panel2.Caption := ggg1[tab1[2]];
 tab1[3] := random(26)+1;
 Panel3.Caption := ggg1[tab1[3]];
 tab1[4] := random(26)+1;
 Panel4.Caption := ggg1[tab1[4]];
 tab1[5] := random(26)+1;
 Panel5.Caption := ggg1[tab1[5]];
 tab1[6] := random(26)+1;
 Panel6.Caption := ggg1[tab1[6]];
 tab1[7] := random(26)+1;
 Panel7.Caption := ggg1[tab1[7]];
 tab1[8] := random(26)+1;
 Panel8.Caption := ggg1[tab1[8]];
 tab1[9] := random(26)+1;
 Panel9.Caption := ggg1[tab1[9]];

 pa1[1] := Panel1.Caption{ delph.forumalgerie.net };
 pa1[2] := Panel2.Caption;
 pa1[3] := Panel3.Caption;
 pa1[4] := Panel4.Caption;
 pa1[5] := Panel5.Caption;
 pa1[6] := Panel6.Caption;
 pa1[7] := Panel7.Caption;
 pa1[8] := Panel8.Caption;
 pa1[9] := Panel9.Caption;

 Timer1.Enabled := false;
 ms01 := tab1[random(9)+1];
 MediaPlayer1.FileName := sounds1+zzz1[ms01];
 MediaPlayer1.Open;
 MediaPlayer1.Play;
 Label1.Caption := ggg1[ms01];
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
 intA := 0;
end;

procedure TForm3.FormShow(Sender: TObject);
begin
 Timer1.Enabled := true;
 if Form1.ComboBox1.Text = 'zot' then
 sounds1 := 'sounds' else if Form1.ComboBox1.Text = 'aht' then
 sounds1 := 'soun1' else if Form1.ComboBox1.Text = 'zit' then
 sounds1 := 'soundz'
 else Timer1.Enabled := false;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
 FormShow(Sender);
end;

procedure TForm3.BitBtn1Click(Sender: { delph.forumalgerie.net }TObject);
begin
  MediaPlayer1.Play;
end;

end.

=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة الرلبعة

الكود:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, MPlayer;

type
  TForm4 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn26: TBitBtn;
    BitBtn27: TBitBtn;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form4: TForm4;
  sounds02: string{ delph.forumalgerie.net };

implementation

uses Unit1;

{$R *.DFM}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form1.Show;
end;

procedure TForm4.FormShow(Sender: TObject);
begin
 sounds02 := 'soundza';
end;

procedure TForm4.BitBtn1Click(Sender: TObject);
begin
 MediaPlayer1.Close;

 if(Sender as TBitBtn).Caption = 'ba' then begin
 Label1.Caption := 'ba';
 MediaPlayer1.FileName :=  sounds02+'\BA.wav';
 end;
 if(Sender as TBitBtn).Caption = 'ca' then begin
 Label1.Caption := 'ca';
 MediaPlayer1.FileName :=  sounds02+'\CA.wav';
 end;
 if(Sender as TBitBtn).Caption = 'da' then begin
 Label1.Caption := 'da';
 MediaPlayer1.FileName :=  sounds02+'\DA.wav';
 end;
 if(Sender as TBitBtn).Caption = 'ea' then begin
 Label1.Caption := 'ea';
 MediaPlayer1.FileName :=  sounds02+'\EA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'fa' then begin
 Label1.Caption := 'fa';
 MediaPlayer1.FileName :=  sounds02+'\FA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ga' then begin
 Label1.Caption := 'ga';
 MediaPlayer1.FileName :=  sounds02+'\GA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ha' then begin
 Label1.Caption := 'ha';
 MediaPlayer1.FileName :=  sounds02+'\HA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'cha' then begin
 Label1.Caption := 'cha';
 MediaPlayer1.FileName :=  sounds02+'\CHA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ia' then begin
 Label1.Caption := 'ia';
 MediaPlayer1.FileName :=  sounds02+'\IA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ja' then begin
 Label1.Caption := 'ja';
 MediaPlayer1.FileName :=  sounds02+'\JA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ka' then begin
 Label1.Caption := 'ka';
 MediaPlayer1.FileName :=  sounds02+'\KA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'la' then begin
 Label1.Caption := 'la';
 MediaPlayer1.FileName :=  sounds02+'\LA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ma' then begin
 Label1.Caption := 'ma';
 MediaPlayer1.FileName :=  sounds02+'\MA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'na' then begin
 Label1.Caption := 'na';
 MediaPlayer1.FileName :=  sounds02+'\NA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'pa' then begin
 Label1.Caption := 'pa';
 MediaPlayer1.FileName :=  sounds02+'\PA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'qua' then begin
 Label1.Caption := 'qua';
 MediaPlayer1.FileName :=  sounds02+'\QUA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ra' then begin
 Label1.Caption := 'ra';
 MediaPlayer1.FileName :=  sounds02+'\RA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'sa' then begin
 Label1.Caption := 'sa';
 MediaPlayer1.FileName :=  sounds02+'\SA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ta' then begin
 Label1.Caption := 'ta';
 MediaPlayer1.FileName :=  sounds02+'\TA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ua' then begin
 Label1.Caption := 'ua';
 MediaPlayer1.FileName :=  sounds02+'\UA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'va' then begin
 Label1.Caption := 'va';
 MediaPlayer1.FileName :=  sounds02+'\VA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'wa' then begin
 Label1.Caption := 'wa';
 MediaPlayer1.FileName :=  sounds02+'\WA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'xa' then begin
 Label1.Caption := 'xa';
 MediaPlayer1.FileName :=  sounds02+'\XA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ya' then begin
 Label1.Caption := 'ya';
 MediaPlayer1.FileName :=  sounds02+'\YA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'za' then begin
 Label1.Caption := 'za';
 MediaPlayer1.FileName :=  sounds02+'\ZA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'oi' then begin
 Label1.Caption := 'oi';
 MediaPlayer1.FileName :=  sounds02+'\OI.wav';
 end;

 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

end.

=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة الخامسة

الكود:

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, MPlayer;

type
  TForm5 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    BitBtn25: TBitBtn;
    BitBtn26: TBitBtn;
    BitBtn27: TBitBtn;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject{ delph.forumalgerie.net });
    procedure FormShow(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form5: TForm5;
  sounds02: string;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form1.Show;
end;

procedure TForm5.BitBtn1Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'bi' then begin
 Label1.Caption := 'bi';
 MediaPlayer1.FileName :=  sounds02+'\BI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ci' then begin
 Label1.Caption := 'ci';
 MediaPlayer1.FileName :=  sounds02+'\CI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'di' then begin
 Label1.Caption := 'di';
 MediaPlayer1.FileName :=  sounds02+'\DI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ea' then begin
 Label1.Caption := 'ea';
 MediaPlayer1.FileName :=  sounds02+'\EA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'fi' then begin
 Label1.Caption := 'fi';
 MediaPlayer1.FileName :=  sounds02+'\FI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'gi' then begin
 Label1.Caption := 'gi';
 MediaPlayer1.FileName :=  sounds02+'\GI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'hi' then begin
 Label1.Caption := 'hi';
 MediaPlayer1.FileName :=  sounds02+'\HI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'chi' then begin
 Label1.Caption := 'chi';
 MediaPlayer1.FileName :=  sounds02+'\CHI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ia' then begin
 Label1.Caption := 'ia';
 MediaPlayer1.FileName :=  sounds02+'\IA.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ji' then begin
 Label1.Caption := 'ji';
 MediaPlayer1.FileName :=  sounds02+'\JI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ki' then begin
 Label1.Caption := 'kai';
 MediaPlayer1.FileName :=  sounds02+'\KI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'li' then begin
 Label1.Caption := 'li';
 MediaPlayer1.FileName :=  sounds02+'\LI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'mi' then begin
 Label1.Caption := 'mi';
 MediaPlayer1.FileName :=  sounds02+'\MI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ni' then begin
 Label1.Caption := 'ni';
 MediaPlayer1.FileName :=  sounds02+'\NI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'pi' then begin
 Label1.Caption := 'pi';
 MediaPlayer1.FileName :=  sounds02+'\PI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'qui' then begin
 Label1.Caption := 'qui';
 MediaPlayer1.FileName :=  sounds02+'\QUI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ri' then begin
 Label1.Caption := 'ri';
 MediaPlayer1.FileName :=  sounds02+'\RI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'si' then begin
 Label1.Caption := 'si';
 MediaPlayer1.FileName :=  sounds02+'\SI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ti' then begin
 Label1.Caption := 'ti';
 MediaPlayer1.FileName :=  sounds02+'\TI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ui' then begin
 Label1.Caption := 'ui';
 MediaPlayer1.FileName :=  sounds02+'\UI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'vi' then begin
 Label1.Caption := 'vi';
 MediaPlayer1.FileName :=  sounds02+'\VI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'wi' then begin
 Label1.Caption := 'wi';
 MediaPlayer1.FileName :=  sounds02+'\WI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'xi' then begin
 Label1.Caption := 'xi';
 MediaPlayer1.FileName :=  sounds02+'\XI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'yi' then begin
 Label1.Caption := 'yi';
 MediaPlayer1.FileName :=  sounds02+'\YI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'zi' then begin
 Label1.Caption := 'zi';
 MediaPlayer1.FileName :=  sounds02+'\ZI.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'oi' then begin
 Label1.Caption := 'oi';
 MediaPlayer1.FileName :=  sounds02+'\OI.wav';
 end;
 //////////////////////////////////////////////
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

procedure TForm5.FormShow(Sender: TObject);
begin
  sounds02 := 'soundzi';
end;

end.

=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة السادسة

الكود:

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, MPlayer;

type
  TForm6 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    Label1: TLabel;
    BitBtn24: TBitBtn;
    MediaPlayer1: TMediaPlayer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject){ delph.forumalgerie.net };
    procedure BitBtn1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form6: TForm6;
  sounds02: string;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.show;
end;

procedure TForm6.FormShow(Sender: TObject);
begin
  sounds02 := 'soundzo';
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
 MediaPlayer1.Close;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'bo' then begin
 Label1.Caption := 'bo';
 MediaPlayer1.FileName :=  sounds02+'\BO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'co' then begin
 Label1.Caption := 'co';
 MediaPlayer1.FileName :=  sounds02+'\CO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'do' then begin
 Label1.Caption := 'do';
 MediaPlayer1.FileName :=  sounds02+'\DO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'eo' then begin
 Label1.Caption := 'eo';
 MediaPlayer1.FileName :=  sounds02+'\Eo.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'fo' then begin
 Label1.Caption := 'fo';
 MediaPlayer1.FileName :=  sounds02+'\Fo.wav';
 end; {}
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'go' then begin
 Label1.Caption := 'go';
 MediaPlayer1.FileName :=  sounds02+'\GO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ho' then begin
 Label1.Caption := 'ho';
 MediaPlayer1.FileName :=  sounds02+'\HO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'cho' then begin
 Label1.Caption := 'cho';
 MediaPlayer1.FileName :=  sounds02+'\CHO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'io' then begin
 Label1.Caption := 'io';
 MediaPlayer1.FileName :=  sounds02+'\IO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'jo' then begin
 Label1.Caption := 'jo';
 MediaPlayer1.FileName :=  sounds02+'\JO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ko' then begin
 Label1.Caption := 'ko';
 MediaPlayer1.FileName :=  sounds02+'\KO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'lo' then begin
 Label1.Caption := 'lo';
 MediaPlayer1.FileName :=  sounds02+'\LO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'mo' then begin
 Label1.Caption := 'mo';
 MediaPlayer1.FileName :=  sounds02+'\MO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'no' then begin
 Label1.Caption := 'no';
 MediaPlayer1.FileName :=  sounds02+'\NO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'po' then begin
 Label1.Caption := 'po';
 MediaPlayer1.FileName :=  sounds02+'\PO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'quo' then begin
 Label1.Caption := 'quo';
 MediaPlayer1.FileName :=  sounds02+'\QUO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'ro' then begin
 Label1.Caption := 'ro';
 MediaPlayer1.FileName :=  sounds02+'\RO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'so' then begin
 Label1.Caption := 'so';
 MediaPlayer1.FileName :=  sounds02+'\SO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'to' then begin
 Label1.Caption := 'to';
 MediaPlayer1.FileName :=  sounds02+'\TO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'uo' then begin
 Label1.Caption := 'uo';
 MediaPlayer1.FileName :=  sounds02+'\UO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'vo' then begin
 Label1.Caption := 'vo';
 MediaPlayer1.FileName :=  sounds02+'\VO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'wo' then begin
 Label1.Caption := 'wo';
 MediaPlayer1.FileName :=  sounds02+'\WO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'xo' then begin
 Label1.Caption := 'xo';
 MediaPlayer1.FileName :=  sounds02+'\XO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'yo' then begin
 Label1.Caption := 'yo';
 MediaPlayer1.FileName :=  sounds02+'\YO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'zo' then begin
 Label1.Caption := 'zo';
 MediaPlayer1.FileName :=  sounds02+'\ZO.wav';
 end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'io' then begin
 Label1.Caption := 'io';
 MediaPlayer1.FileName :=  sounds02+'\IO.wav';
 end;
 //////////////////////////////////////////////
 MediaPlayer1.Open;
 MediaPlayer1.Play;
end;

end.

=====================
---------------------
+++++++++++++++++++++
---------------------
=====================

الوحدة السابعة

الكود:

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, StdCtrls, Buttons;

type
  TForm7 = class(TForm){ delph.forumalgerie.net }
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn15: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn18: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn20: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    MediaPlayer1: TMediaPlayer;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form7: TForm7;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Form1.Show;
end;
غير مكتملة
end.


alla
مبرمج مجتهد

عدد المساهمات : 703
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى