اصنع مكرر اللغة الإنجليزية الخاص بك مع دلفي

لقد أصبحت اللغة الإنجليزية تدريجيًا لغة عالمية، وزاد حماس الأشخاص المعاصرين لتعلم اللغة الإنجليزية، لذلك أصبح معيدي اللغة الإنجليزية يتمتعون بشعبية كبيرة. ومع ذلك، بغض النظر عن مدى قوة المكرر، هناك عيب واضح - وقت التكرار الثابت. إذا كان وقت إعادة القراءة قصيرًا جدًا، فلا يمكنك فعل أي شيء عند مواجهة جمل طويلة؛ وإذا كان وقت إعادة القراءة طويلًا جدًا، فسيتعين عليك حتماً إعادة قراءة بعض الأجزاء الزائدة عن الحاجة والتقديم السريع (بعض آلات إعادة القراءة التي تبلغ مدتها 200 ثانية في الوقت الحاضر وظيفة التقديم السريع))، وهي مزعجة مثل التقديم السريع للشريط! لذلك، يريد المؤلف استخدام التحكم القوي في تشغيل الوسائط في دلفي لتطوير مكرر البرنامج. أكبر ميزة لمكرر البرنامج هو أنه يمكنك تكراره بحرية بغض النظر عن طول الجملة! لا حاجة على الإطلاق إلى الترجيع أو التقديم السريع. ليس هذا فحسب، بل إن مكرر البرنامج لديه أيضًا وظيفة قراءة عشوائية، وهو أمر يصعب تحقيقه باستخدام المكررات العادية.

تحضير

يمكن للتحكم في تشغيل الوسائط في دلفي تشغيل ملفات صوتية متنوعة. يمكننا تسجيل المواد التعليمية على الكمبيوتر وفقًا لتفضيلاتنا الخاصة وحفظها بتنسيق مناسب. بشكل عام، يمكن حفظه كملف wave أو ملف mp3.

تطوير المكرر

يستخدم مكرر البرنامج الذي تم تطويره بشكل أساسي التحكم في تشغيل وسائط دلفي TMediaplayer. عنصر التحكم هذا موجود في صفحة التحكم في النظام (النظام).

قم أولاً بإنشاء تطبيق. قم بتعيين BorderStyle للنموذج الرئيسي على BsDialog لتعطيل تكبير النموذج وتصغيره. قم بتعيين KeyPReview على True للسماح للنموذج الرئيسي بالتعامل مع أحداث لوحة المفاتيح.

ضع عناصر التحكم في النموذج الرئيسي:

في:

مشغل الوسائط هو مفتاح التحكم في البرنامج ويستخدم لتشغيل الأصوات.

يتم استخدام TrackBar للإشارة إلى تقدم التشغيل الحالي.

يتم استخدام TlistBox (SectionList) الموجود على اليسار لتخزين اسم الملف الصوتي المراد تشغيله (المواد التعليمية).

يتم استخدام صندوقي TlistBoxes (StartList، StopList) الموجودين على اليمين لتسجيل الجمل المتكررة.

يتم استخدام الزرين "إضافة" و"حذف" للحفاظ على المواد التعليمية.

يتم استخدام TrackBar1 لعرض عملية التشغيل.

يتم استخدام Timer1 لعرض تقدم التشغيل ديناميكيًا.

يتم استخدام OpenDialog1 لتحديد الملفات لتشغيلها.

تنفيذ وظيفة التكرار:

① قم بتعيين عددين صحيحين (StartPos، وSstopPos) في البرنامج لتسجيل نقطتي البداية والنهاية للتشغيل، وقم بتعيين StopPos على -1 أثناء التهيئة.

② سجل قيمة البداية في كل مرة يتم تشغيلها: StartPos := Mediaplayer1.Position;

③ في البرنامج، استخدم شريط المسافة للتحكم في التكرار ومفتاح Enter لمواصلة التشغيل. أولاً، قم بتعيين KeyPreview للنموذج الرئيسي على True حتى يتمكن النموذج الرئيسي من اعتراض الرسائل الأساسية. ثم قم بتحميل أسلوب OnKeyDown بشكل زائد. الرمز هو كما يلي:

تنفيذ وظيفة القراءة الحرة:

وبما أن نقطتي البداية والنهاية لجميع الجمل المتكررة يتم تسجيلها أثناء إعادة القراءة، فيمكن إعادة قراءة أي جملة. عندما ينقر المستخدم نقرًا مزدوجًا فوق سطر في "السنوات الماضية" باستخدام الماوس، يمكن للمستخدم التبديل مباشرة إلى تشغيل تلك الجملة. الرمز هو كما يلي:

الإجراء TRepeaterForm.ListDblClick(Sender: TObject);

يبدأ

SID := (المرسل كـ TListBox).ItemIndex; // احصل على فهرس الصف الحالي

SID StopList.ItemIndex := SID; // قم بتعيين قائمة نقاط النهاية على

SID StartList.ItemIndex := SID; // اضبط قائمة البداية على

SID StartPos := StrToInt(StartList.Items[SID]);// احصل على موضع البداية

StopPos := StrToInt(StopList.Items[SID]);// احصل على موضع النهاية

Mediaplayer1.StoP; //أوقف التشغيل الحالي

Mediaplayer1.StartPos := StartPos; // تعيين نطاق تشغيل جديد

Mediaplayer1.EndPos := StopPos;

Mediaplayer1.Play; // تشغيل الصوت في النطاق المحدد

نهاية؛

إضافة المواد التعليمية:

انقر فوق الزر "إضافة" لإضافة مواد تعليمية. تجدر الإشارة إلى أنه يجب استرجاع القائمة الأصلية قبل إضافة ملفات جديدة لمنع التكرار. الرمز هو كما يلي:

الإجراء TRepeaterForm.AddBtnClick(Sender: TObject);

فار fn: سلسلة؛

يبدأ

إذا OpenDialog1.Execute بعد ذلك

يبدأ

fn := OpenDialog1.FileName;

إذا كان sectionList.Items.IndexOf(fn)<0 ثم // استرجع الملف أولاً، إذا لم يكن موجودًا sectionList.Items.Add(fn);

نهاية؛

نهاية؛

اختيار المواد الدراسية:

يتم تحقيق ذلك عن طريق التحميل الزائد على طريقة OnClick. احصل أولاً على الفهرس عند النقر عليه، ثم احصل على اسم الملف من خلال العناصر [index]. قم بتعيين اسم الملف إلى خاصية Filename الخاصة بـ Mediaplayer، ثم قم باستدعاء الأسلوب Open. (تم حذف الرمز)

بالإضافة إلى ذلك، يجب فتح ملف المواد التعليمية عند تهيئة البرنامج، ويجب حفظ المواد التعليمية عند خروج البرنامج. يتم تنفيذ هذه الوظائف من خلال TlistBox.Items.LoadFromFile وTlistBox.Items.SaveToFile (تم حذف الرمز).

اجتاز البرنامج تصحيح الأخطاء في بيئة Windows98+Delphi5.0 الصينية. يمكن الحصول على كافة التعليمات البرمجية المصدر عن طريق إرسال المؤلف بالبريد.