شرح تعلم الحروف الهجائية الانجليزية من جهارك

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

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

هذا البرنامج يعتبر كتجربة بسيطة في البرمجة بالدلفي

وهو ذو ثلاث واجهات
الواجهة الرئيسية و قسم تعلم الحروف الهجائية الانجليزية فقط
و قسم تعلم الحروف الهجائية الانجليزية و بعض الكلمات من أجل تدريب على نطق بشكل صحيح

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

اما بنسبة ترجمة أعتمدت google في شرح الجمل
وكذاك قاموس goldon al-wafi في شرح الكلمات

فان أخطأت فأعذروني لاني لم أتعلم اللغة الانجليزية وانما بعض الكلمات القليلة فقط

من وجد جطأ في ترجمة فليكتب رد يوضح فيه ذلك وخصوصا ممن يتقنون اللغة الانجليزية لاني فحاجة الى ذلك

والقرض من البرنامج من أجل تعلم الحروف الهجائية الانجليزية و بعض الكلمات
للاطفال خــصوصا تلاميذ سنة الاولى متوسط

لاني أخذت بعض الكلمات من كتاب سنة الاولى متوسط
"وزارة التربية الوطنية الجزائرية"


=============

الوحدة الاولى
الاسم هو :
untClam.pas

العنوان
Learning English Alphabets program

unit untClam;

interface

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

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  end;

    function CalamALF(afb: String): String;

// تمت ترجمة كل الواجهات بقاموس  Google

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses comobj, untClame, untClame1;

function CalamALF(afb: String): String;
var
   Calam: OleVariant;
begin
 Calam := CreateOleObject('sapi.spvoice');
 Calam.speak(afb);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 Form2.Show;
 Form1.Hide;
end;

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

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Application.Terminate;
end;

end.

[طيباوي ابو علي1]

الوحدة الثانية
الاسم هو :
untClame.pas

العنوان
Alphabets English

unit untClame;

interface

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

type
  TForm2 = class(TForm)
    lblA: TLabel;
    lblB: TLabel;
    lblC: TLabel;
    lblD: TLabel;
    lblE: TLabel;
    lblF: TLabel;
    lblG: TLabel;
    lblH: TLabel;
    lblI: TLabel;
    lblJ: TLabel;
    lblK: TLabel;
    lblL: TLabel;
    lblM: TLabel;
    lblN: TLabel;
    lblO: TLabel;
    lblP: TLabel;
    lblQ: TLabel;
    lblR: TLabel;
    lblS: TLabel;
    lblT: TLabel;
    lblU: TLabel;
    lblV: TLabel;
    lblW: TLabel;
    lblX: TLabel;
    lblY: TLabel;
    lblZ: TLabel;
    BitBtn1: TBitBtn;
    procedure lblAClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblAMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
  public
  end;

var
  Form2: TForm2;

implementation

uses untClam;

{$R *.dfm}

procedure TForm2.lblAClick(Sender: TObject);
begin
  CalamALF(TLabel(Sender).Caption);
end;

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

procedure TForm2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i: Integer;
begin
 for i := 0 to ComponentCount - 1 do
 if (Components[i] is TLabel) then
     TLabel(Components[i]).Font.Color := clBlack;
end;

procedure TForm2.lblAMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TLabel(Sender).Font.Color := clRed;
end;

end.

[طيباوي ابو علي1]

الوحدة الثالثة
الاسم هو :
untClame1.pas

العنوان
Alphabets English and some words

unit untClame1;

interface

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

type
  TForm3 = class(TForm)
    lblA: TLabel;
    lblB: TLabel;
    lblC: TLabel;
    lblD: TLabel;
    lblE: TLabel;
    lblF: TLabel;
    lblG: TLabel;
    lblH: TLabel;
    lblI: TLabel;
    lblJ: TLabel;
    lblK: TLabel;
    lblL: TLabel;
    lblM: TLabel;
    lblN: TLabel;
    lblO: TLabel;
    lblP: TLabel;
    lblQ: TLabel;
    lblR: TLabel;
    lblS: TLabel;
    lblT: TLabel;
    lblU: TLabel;
    lblV: TLabel;
    lblW: TLabel;
    lblX: TLabel;
    lblY: TLabel;
    lblZ: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure ALFChange(Num: Integer);
    procedure lblAClick(Sender: TObject);
    procedure lblAMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblBMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblCMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblDMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblEMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblFMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblGMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblHMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblIMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblJMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblKMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblLMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblMMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblNMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblOMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblPMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblQMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblRMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblSMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblTMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblUMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblVMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblWMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblXMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblYMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lblZMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);

  private
  public
  end;

const
  Tababc: Array[1..26] of String = (
    {01} ' . apple . applicable . application . apply . approach . astronaut . ask',
    {02} ' . begin. baby . ball . bamboo . banana . bank . barber . base . bag',
    {03} ' . cafe . cinema . cage . center . calculator . camel . central . cancel . candle . car . cat . cement . card . compare . cylinder',
    {04} ' . dad . date . day . delete . demand . design . desk . dictation . dog . door . domino',
    {05} ' . elephant . earth . east . edit . egg . element . end . english . enter . error.',
    {06} ' . false . family . fan . father . female . festival . find . finish . fireman . friend',
    {07} ' . god . gym . gold . giant . good . general . goodbye . grammar . grand . green . ground . guard . gypsum . guide',
    {08} ' . hi . hall . hand . handbag . he . hello . help . her . hen . here . his . home . homework . how . house . horse . hospital . hidden . hide',
    {09} ' . if . image . in . input . insert . integer . into . it . its . icon . imagine',
    {10} ' . just . justice . jaw . janitor . jerusalem . join . joiner . joker . journalism . journey',
    {11} ' . key . keeper . keyboard . kernel . kettle . kid . kilocycle . kindergarten . knowing',
    {12} ' . laboratory . lad . ladder . lamp . ******** . large . law . list . left . letter . listen . look',
    {13} ' . madam . machine . male . man . manager . market . match . material . mathematics . me . member . miss . morning . mother . my . meet',
    {14} ' . name . new . new year''s day . next . nil . no . normal . not . number . note . now . null . nice',
    {15} ' . order . on . one . office . of . oxford . old . or . only . oil . onion . out',
    {16} ' . paper . paragraph . passport . past . place . pen . pencil . pupil . protection . pronunciation',
    {17} ' . questions . queen . quiet . quantity . quick . quite . quiet . quarter . quit',
    {18} ' . read . radio . record . repair . repeat . rest . record player . road . rubber . ruler . right . running',
    {19} ' . say . school . schoolbag . schoolyard . scissors . score . sharpener . slate . stick . start . system',
    {20} ' . taxi . teacher . telephone . television . table . take . task . tell . teenager . teeth',
    {21} ' . uncle . under . understand . up . understanding . ugly',
    {22} ' . very . vest . village . visit . volleyball . voyage . veterinarian . vaccine . vanilla . vegetable',
    {23} ' . wrong . week . where . which . while . who . with . well . what . when . welcome . word . work . world . world map . write . week end',
    {24} ' . xylophone',
    {25} ' . yard . year . yes . yourself . yesterday . young . youth . yellow . yellow card',
    {26} ' . zone . zip . zoo . zero . zebra'

  );

// تمت ترجمة بقاموس  Golden al-Wafi  


Tababcar: Array[1..26] of String = (
    {01} '. التفاح. قابل للتطبيق. التطبيق. إنطبقْ. النظرة. رائد الفضاء. إسألْ ',
    {02} '. إبدأْ. الطفل الرضيع. الكرة. الخيزران. الموز. المصرف. الحلاق. القاعدة. حقيبة ',
    {03} '. المقهى. السينما. القفص. المركز. الحاسبة. الجَمل. مركزي. الإلغاء. الشمعة. السيارة. القطّة. الإسمنت. البطاقة. المقارنة. إسطوانة ',
    {04} '. الأَبّ. التأريخ. اليوم. إحذفْ. المطلب. التصميم. المنضدة. الإملاء. الكلب. الباب. دومنة ',
    {05} '. الفيل. الأرض. الشرق. حرّرْ. البيض. العنصر. النهاية. إنجليزي. إدخلْ. الخطأ. ',
    {06} '. خاطئ. العائلة. النصير. الأبّ. الأنثى. المهرجان. البحث. النهاية. رجل الإطفاء. صديق ',
    {07} '. الإله. الجمنازيوم. الذهب. العملاق. جيد. الجنرال. مع السّلامة. القواعد. كبير. الأخضر. الأرض. الحارس. الجبس. دليل ',
    {08} '. مرحباً. القاعة. اليَدّ. حقيبة اليدوية. هو. مرحباً. المساعدة. ها. الدجاجة. هنا. له. البيت. الواجب البيتي. كَمْ. البيت. الحصان. المستشفى. مخفي. جلد ',
    {09} '. إذا. الصورة. في. المساهمة. المُلحق. العدد الصحيح. إلى. هو. له. الأيقونة. تخيّلْ ',
    {10} '. فقط. العدالة. الفكّ. البوّاب. القدس. الموصّل. النجار. النكّات. الصحافة. رحلة ',
    {11} '. المفتاح. المراقب. لوحة المفاتيح. اللبّ. المغلاة. الطفل. الدورة بالكيلو. روضة الأطفال . عارف',
    {12} '. المختبر. الفتى. السلّم. المصباح. اللغة. كبير. القانون. القائمة. اليسار. الرسالة. إستمعْ. نظرة ',
    {13} '. السيدة. الماكنة. الذكر. الرجل. المدير. السوق. المباراة. المادّة. الرياضيات. ني. العضو. الرمية الخاطئة. الصباح. الأمّ. ي. إجتمعْ ',
    {14} '. الاسم. جديد. أول يوم من السنة الجديدة. قادم. لا شيئ. لا. الوضع الطبيعي. لَيسَ. العدد. المُلاحظة. الآن. ملغي. اللطيف ',
    {15} '. الطلب. على. واحد. المكتب. . أكسفورد. قديم. أَو. فقط. النفط. البصل. خارج ',
    {16} '. الورقة. الفقرة. جواز السفر. الماضي. المكان. القلم. قلم الرصاص. التلميذ. الحماية. تلفظ ',
    {17} '. الأسئلة. الملكة. الهدوء. الكمية. بسرعة. تماماً. الهدوء. الرُبْع. المتحرر ',
    {18} '. إقرأْ. الراديو. السجل. التصليح. الإعادة. الإستراحة. المُسَجل. الطريق. المطاط. الحاكم. الحقّ. ركض ',
    {19} '. الرأي. المدرسة. محفظة. باحة المدرسة. المقصّ. النتيجة. المبراة. اللوح. العود. البداية. نظام ',
    {20} '. سيارة الأجرة. المعلّم. الهاتف. التلفزيون. المنضدة. الوارد. المهمّة. أخبرْ. المراهق. أسنان ',
    {21} '. العمّ. تحت. إفهمْ. فوق. الفَهْم. القبيح ',
    {22} '. جداً. الصدريّة. القرية. الزيارة. الكرة الطائرة. الرحلة البحرية. بيطري . اللِقاح. الفانيلا. خضار ',
    {23} '. خاطئ. الإسبوع. أين. أَيّ. بينما. مَنْ. مَع. حَسناً. ما. متى. مرحباً. الكلمة. العمل. العالم. الخريطة العالمية. إكتبْ. نهاية إسبوعِ ',
    {24} '. زيلوفون ',
    {25} '. الساحة. السَنَة. نعم. نفسك. أمس. صغير. الشاب. الأصفر. البطاقة الصفراء ',
    {26} '. المنطقة. الرمز البريدي. حديقة الحيوانات. صفر. حمار وحشي '
    );


var
  Form3: TForm3;
  i: Integer;


implementation

{$R *.dfm}

uses untClam;

procedure TForm3.ALFChange(Num: Integer);
begin
  Memo1.Lines.Clear;
  i := Num;
  Memo1.Lines.Add(Tababc[Num]);
end;

procedure TForm3.lblAClick(Sender: TObject);
begin
  CalamALF(TLabel(Sender).Caption+Tababc[i]);
end;

procedure TForm3.lblAMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(1);
  lblA.Font.Color := clRed;
end;

procedure TForm3.lblBMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(2);
  lblB.Font.Color := clRed;  
end;

procedure TForm3.lblCMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(3);
  lblC.Font.Color := clRed;
end;

procedure TForm3.lblDMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(4);
  lblD.Font.Color := clRed;
end;

procedure TForm3.lblEMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(5);
  lblE.Font.Color := clRed;
end;

procedure TForm3.lblFMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(6);
  lblF.Font.Color := clRed;
end;

procedure TForm3.lblGMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(7);
  lblG.Font.Color := clRed;
end;

procedure TForm3.lblHMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(8);
  lblH.Font.Color := clRed;
end;

procedure TForm3.lblIMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(9);
  lblI.Font.Color := clRed;
end;

procedure TForm3.lblJMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(10);
  lblJ.Font.Color := clRed;
end;

procedure TForm3.lblKMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(11);
  lblK.Font.Color := clRed;
end;

procedure TForm3.lblLMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(12);
  lblL.Font.Color := clRed;
end;

procedure TForm3.lblMMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(13);
  lblM.Font.Color := clRed;
end;

procedure TForm3.lblNMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(14);
  lblN.Font.Color := clRed;
end;

procedure TForm3.lblOMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(15);
  lblO.Font.Color := clRed;
end;

procedure TForm3.lblPMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(16);
  lblP.Font.Color := clRed;
end;

procedure TForm3.lblQMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(17);
  lblQ.Font.Color := clRed;
end;

procedure TForm3.lblRMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(18);
  lblR.Font.Color := clRed;
end;

procedure TForm3.lblSMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(19);
  lblS.Font.Color := clRed;
end;

procedure TForm3.lblTMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(20);
  lblT.Font.Color := clRed;
end;

procedure TForm3.lblUMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(21);
  lblU.Font.Color := clRed;
end;

procedure TForm3.lblVMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(22);
  lblV.Font.Color := clRed;
end;

procedure TForm3.lblWMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(23);
  lblW.Font.Color := clRed;
end;

procedure TForm3.lblXMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(24);
  lblX.Font.Color := clRed;
end;

procedure TForm3.lblYMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(25);
  lblY.Font.Color := clRed;
end;

procedure TForm3.lblZMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ALFChange(26);
  lblZ.Font.Color := clRed;
end;

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

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  CalamALF(Memo1.SelText);
end;

procedure TForm3.BitBtn4Click(Sender: TObject);
begin
TLabel(Sender).Font.Color := clBlack;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
  Memo2.Lines.Clear;
  Memo2.Lines.Add(Tababcar[i])
end;

procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i: Integer;
begin
 for i := 0 to ComponentCount - 1 do
 if (Components[i] is TLabel) then
     TLabel(Components[i]).Font.Color := clBlack;
 Memo2.Lines.Clear;

end;

end.

يرفق بنص البرنامج و الملف التنفيذي في منتديات الجلفة

[طيباوي ابو علي1]

لم استطع ارفاق كود سورس لان الحجم تجاوز الحد المسموح به ساحول جعله في عدة ملفات شكرا

[طيباوي ابو علي1]

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

بسم الله الرحمن الرحيم

هذه الملفات المرفقة هي نص البرنامج بالدلفي أي " كود سورس البرنامج"

وشكرا

[idder]

بارك الله فيك

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

كيفية نطق الكلمة أو جملة في الدلفي

uses comobj;

var calam: olevariant;
begin
calam := createoleobject('sapi.spvoice'); // del
calam.speak('thank you'); // d
end; // d

calam.speak('الكلمة أو الجملة التي تريد نطقها تكتب بين القوسين');

--------------------------
من القائمة
Composant
وضمن الشريط. اختر
Inportor un controle ActiveX ...
من
Inport ActiveX
حدد هذه الاداة
Microsoft Direct Text-to-Speech(Version 1.0)
وهي تابعة الى هذه المكتبة
C:\Windows\speech\XVoice.dll
انقر الزر
Installer
ثم
OK
ثم
Oui

Compiler

اذا لم تنجح لك عملية النطق أو لم تجد الاداة قم بتثبيت احد القواميس الناطقة بالانجليزية

ثم اعد العملية من جديد.

ضع الاداة على الفورم

procedure TForm1.Button1Click(Sender: TObject); 
begin
// دالة النطق
DirectSS1.Speak
(
'
الكلمةالمراد نكقها
'
)
; 
end;

[طيباوي ابو علي1]

المشاركة الأصلية كتبت بواسطة idder

بارك الله فيك

بارك الله فـــــــــــــــــيك

[MaherPT]

شكرا جزيلا

[طيباوي ابو علي1]

بارك الله فيكم

[soulli82]

بارك الله فيك

[طيباوي ابو علي1]

بارك الله فيكم