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

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

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

مُساهمة  alla23 في الجمعة ديسمبر 25, 2015 11:42 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
    { ahl-dz.almountadayat.com }
  end;

var
 
الرمز:
{ ahl-dz.almountadayat.com } Form1: TForm1;

implementation

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

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: 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;
    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: 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: 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;
    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;
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: 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;
 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: 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;

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);
    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';
{ ahl-dz.almountadayat.com } end;
 //////////////////////////////////////////////
 if(Sender as TBitBtn).Caption = 'yi' then begin
 Label1.Caption := 'yi';
 MediaPlayer1.FileName :=  sounds02+'\YI.wav';
{ ahl-dz.almountadayat.com } 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;
{ ahl-dz.almountadayat.com }
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);
    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;
{ ahl-dz.almountadayat.com }
interface

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

type
  TForm7 = class(TForm)
    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.

{ ahl-dz.almountadayat.com }

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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


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