الرئيسية
أحدث الصورتعلم الحروف الهجائية الفرنسية
صفحة 1 من اصل 1 • شاطر
تعلم الحروف الهجائية الفرنسية
alla23 الجمعة ديسمبر 25, 2015 11:42 am
تعلم الحروف الهجائية الفرنسية
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
تعلم الحروف الهجائية الفرنسية بأبسط طريقة ممكن
الاصوات
جلب أصوات من نوع ويف wav أو تسجيلهم مثلا
A.wav و B.wav وهكذا تفعل مع الباقية الاصوات
المجلدات
soun1 و sounds و soundz و soundza
و soundzi و soundzo و soundze
توضع فيهم الاصوات
يمكن تعدد اصوات الاشخاص مثلا
وضعت في البرنامج ثلاث اصوات لثلاث اشخاص
{ delph.forumalgerie.net }
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة الاولى
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة الثانية
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة الثالثة
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة الرلبعة
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة الخامسة
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة السادسة
=====================
---------------------
+++++++++++++++++++++
---------------------
=====================
الوحدة السابعة
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
تعلم الحروف الهجائية الفرنسية بأبسط طريقة ممكن
الاصوات
جلب أصوات من نوع ويف 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.yoo7.com }
end;
var
- الكود:
{ ahl-dz.yoo7.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.yoo7.com } end;
//////////////////////////////////////////////
if(Sender as TBitBtn).Caption = 'yi' then begin
Label1.Caption := 'yi';
MediaPlayer1.FileName := sounds02+'\YI.wav';
{ ahl-dz.yoo7.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.yoo7.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.yoo7.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.yoo7.com }
alla23- عضو ماسي
- عدد المساهمات : 82
نقاط : 212
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net -
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى