طيباوي ابو علي1
2015-12-19, 00:29
بسم الله الرحمن الرحيم
تعلم الحروف الهجائية الانجليزية من جهارك
هذا البرنامج يعتبر كتجربة بسيطة في البرمجة بالدلفي
وهو ذو ثلاث واجهات
الواجهة الرئيسية و قسم تعلم الحروف الهجائية الانجليزية فقط
و قسم تعلم الحروف الهجائية الانجليزية و بعض الكلمات من أجل تدريب على نطق بشكل صحيح
وأعتمد على أبسط ما أمكن من الاوامر البرمجية
حتى يكون في متناول كل مبرمج مبتدئ في البرمجة
اما بنسبة ترجمة أعتمدت 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
2015-12-19, 00:30
الوحدة الثانية
الاسم هو :
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
2015-12-19, 00:31
الوحدة الثالثة
الاسم هو :
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
2015-12-19, 00:39
لم استطع ارفاق كود سورس لان الحجم تجاوز الحد المسموح به ساحول جعله في عدة ملفات شكرا
طيباوي ابو علي1
2015-12-19, 08:17
تعلم الحروف الهجائية الانجليزية من جهارك
بسم الله الرحمن الرحيم
هذه الملفات المرفقة هي نص البرنامج بالدلفي أي " كود سورس البرنامج"
وشكرا
طيباوي ابو علي1
2015-12-23, 19:50
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
كيفية نطق الكلمة أو جملة في الدلفي
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
2015-12-23, 20:50
بارك الله فيك
بارك الله فـــــــــــــــــيك