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

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

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

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

مُساهمة  alla في 19/12/2015, 1:38 am


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

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

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

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

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

اما بنسبة ترجمة أعتمدت 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.


============================
الوحدة الثانية
الاسم هو :
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.


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

الوحدة الثالثة
الاسم هو :
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 . language . 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.



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

alla
مبرمج مجتهد

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

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

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

مُساهمة  alla في 19/12/2015, 2:14 am

يرفق بنص البرنامج و الملف التنفيذي في
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]


_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

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

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

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


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