|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
تعلم الحروف الهجائية الانجليزية من جهارك
|
أدوات الموضوع | انواع عرض الموضوع |
2015-12-19, 00:29 | رقم المشاركة : 1 | ||||
|
تعلم الحروف الهجائية الانجليزية من جهارك
بسم الله الرحمن الرحيم كود:
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.
|
||||
2015-12-19, 00:30 | رقم المشاركة : 2 | |||
|
الوحدة الثانية كود:
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. |
|||
2015-12-19, 00:31 | رقم المشاركة : 3 | |||
|
الوحدة الثالثة كود:
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. يرفق بنص البرنامج و الملف التنفيذي في منتديات الجلفة |
|||
2015-12-19, 00:39 | رقم المشاركة : 4 | |||
|
لم استطع ارفاق كود سورس لان الحجم تجاوز الحد المسموح به ساحول جعله في عدة ملفات شكرا |
|||
2015-12-19, 08:17 | رقم المشاركة : 5 | |||
|
تعلم الحروف الهجائية الانجليزية من جهارك
تعلم الحروف الهجائية الانجليزية من جهارك |
|||
2015-12-20, 12:52 | رقم المشاركة : 6 | |||
|
بارك الله فيك |
|||
2015-12-23, 19:50 | رقم المشاركة : 7 | |||
|
كيفية نطق الكلمة أو جملة في الدلفي
بسم الله الرحمن الرحيم كود:
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; |
|||
2015-12-23, 20:50 | رقم المشاركة : 8 | |||
|
|
|||
2016-01-04, 18:39 | رقم المشاركة : 9 | |||
|
شكرا جزيلا |
|||
2016-01-31, 10:45 | رقم المشاركة : 10 | |||
|
بارك الله فيكم |
|||
2016-02-07, 02:15 | رقم المشاركة : 11 | |||
|
بارك الله فيك |
|||
2016-02-16, 18:53 | رقم المشاركة : 12 | |||
|
بارك الله فيكم |
|||
الكلمات الدلالية (Tags) |
الانجليزية, الحروف, الهجائية, تعلم, جهارك |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc