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

[طيباوي ابو علي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.