مهارات إنشاء الوسائط المتعددة VisualBasic5.0

أصبح VisualBasic5.0 أكثر شيوعًا بين المبرمجين بسبب أسلوبه في البرمجة المرئية. يمكننا استخدام VisualBasic5.0 لكتابة برامج الوسائط المتعددة بواجهات جميلة وموسيقى جميلة. ومع ذلك، قد تواجه بعض المشكلات التي يصعب حلها أثناء عملية البرمجة الفعلية. فيما يلي بعض تجارب المؤلف في إنشاء الوسائط المتعددة، والتي قد تثري صندوق ملحقات الوسائط المتعددة الخاص بك.

1. موسيقى الخلفية

عند استخدام Visual Basic 5.0 لتجميع التطبيقات، يمكننا استخدام طريقة تداخل OLE لإضافة موسيقى خلفية بسهولة إلى التطبيق.

أدخل بيئة نظام VisualBasic5.0 وقم بإنشاء نموذج جديد. انقر فوق "حاوية OLE" في "التحكم في النموذج" واسحبه إلى أي مكان في النموذج. حدد "مقطع الوسائط" في نافذة "إدراج كائن"، وحدد عمود "إظهار كرمز" (يجب تحديد هذا العمود، وإلا فلا يمكن إخفاؤه)، ثم اضغط على مفتاح "تأكيد" للخروج.

في نافذة "Media Player"، حدد "File"، و"Open"، وحدد ملف الصوت الذي تريد استخدامه كموسيقى خلفية من قائمة الملفات. نظرًا لأن ملفات الموسيقى عمومًا ليست طويلة جدًا، فإنها تتطلب تشغيلًا متكررًا، وهو ما يمكن تحقيقه عن طريق ضبط "مشغل الوسائط" على التشغيل بشكل متكرر. ثم حدد "خيارات" في قائمة "تحرير"، وحدد "تكرار التشغيل" في نافذة الخيارات وأزل علامة الاختيار أمام "شريط التحكم في إعادة التشغيل"، ثم قم بالتأكيد والخروج.

ارجع إلى بيئة نظام Visual Basic 5.0، واضغط على الزر الأيمن للفأرة، ثم انقر فوق عمود "الخصائص" في القائمة المنبثقة لإظهار نافذة الخصائص. حدد الكائن "Ole1" وقم بتعيين الخاصية "مرئي" الخاصة به على .F وخاصية "الحجم التلقائي" الخاصة به على .F. اضغط على زر الفأرة الأيمن مرة أخرى، وانقر فوق عمود "الرمز" في القائمة المنبثقة للدخول إلى نافذة كتابة العملية، واكتب عملية "تحميل" للكائن "Form1":

PRivateSubForm_Load()

OLE1.DoVerb(0)

EndSub

4. اضغط على مفتاح "F5" للتشغيل.

2. زر ثلاثي الأبعاد ذو تأثير شفاف

عند إنشاء برامج الوسائط المتعددة، نحتاج أحيانًا إلى أزرار ثلاثية الأبعاد ذات تأثيرات شفافة. يمكننا استخدام مزيج من الملصق (LABEL) والشكل (SHAPE) لإكمال هذا التصميم.

أدخل بيئة نظام Visual Basic 5.0، وقم بإنشاء نموذج جديد (FORM1)، وقم بتعيين خاصية صورة FORM1 إلى ملف صورة نقطية WINDOWS (.BMP).

انقر فوق "الشكل" في "شريط التحكم بالنموذج" واسحب مربعًا مستطيلًا (SHAPE1) على FORM1. قم بإنشاء SHAPE2 وSHAPE3 وSHAPE4 بنفس الطريقة. قم بتعيين خصائص هذه الأشكال الأربعة كما يلي في نافذة الخصائص:

الشكل 1:

BorderColor=&HFFFFFF

عرض الحدود = 3 يسار = 2160

الأعلى = 2040 العرض = 1100

الشكل 2:

لون الحدود=&H80000008

عرض الحدود = 3 يسار = 2160

الأعلى = 2520 العرض = 1100

الشكل 3:

BorderColor=&HFFFFFF

عرض الحدود = 3 يسار = 2160

الأعلى = 2040 الارتفاع = 500

الشكل 4:

لون الحدود=&H80000008

عرض الحدود = 3 يسار = 3240

الأعلى = 2040 الارتفاع = 500

انقر فوق "التسمية" في "شريط التحكم بالنموذج" باستخدام الماوس، واسحب مربعًا مستطيلًا (LABEL1) على FORM1، واضبط حجمه ليناسب الأشكال الأربعة. قم بتعيين الخاصية Caption إلى عنوان الزر المخصص، وAlignment إلى 2، وBackstyle إلى 0.

انقر نقرًا مزدوجًا فوق LABEL1 واكتب عملية MouseDown وعملية MouseUp الخاصة بـ LABEL1 كما يلي:

PrivateSubLabel1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Shape1.BorderColor=&H80000008

Shape3.BorderColor=&H80000008

Shape2.BorderColor=&HFFFFFF

Shape4.BorderColor=&HFFFFFF

Label1.Top=Label1.Top 10

EndSub

PrivateSubLabel1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

Shape1.BorderColor=&HFFFFFF

Shape3.BorderColor=&HFFFFFF

Shape2.BorderColor=&H80000008

Shape4.BorderColor=&H80000008

Label1.Top=Label1.Top-10

EndSub

فقط اضغط على مفتاح "F5" لتشغيله.

3. ترجمات المحمول

على شاشة التلفزيون، غالبًا ما نرى سطرًا من النص الفوري أو المعلومات الإعلانية يتحرك من اليمين إلى اليسار في الجزء السفلي من الشاشة، وهو ما لا يعمل كرسالة مطالبة فحسب، بل لا يؤدي إلى إتلاف الشاشة بأكملها. يمكننا أيضًا إكمال هذا التصميم في VisualBasic5.0.

أدخل بيئة نظام Visual Basic 5.0، وقم بإنشاء نموذج جديد (FORM1)، وقم بتعيين خاصية Backcolor الخاصة بـ FORM1 إلى RGB (192,192,192).

انقر فوق "التسمية" في "شريط التحكم بالنموذج" واسحب مربعًا مستطيلًا (LABEL1) على FORM1. اضبط خصائصه Caption على "Active Subtitle Demonstration"، وAutosize إلى .T.، وBackstyle إلى 0، وForecolor إلى RGB (128، 128، 128)، وFontname إلى "البرنامج النصي الرسمي"، وFontbold إلى .T.، وFontsize إلى 36.

انقر فوق LABEL1 باستخدام الماوس، واضغط على مفتاح CTRL C (نسخ)، ثم اضغط على مفتاح CTRL V (لصق) لإنشاء تسمية أخرى (LABEL2) بنفس عنوان LABEL1 على FORM1، وقم بتعيين سمة الألوان الأمامية الخاصة بها إلى RGB (255) ، 255، 0). اضبط موضع LABEL2 بحيث يكون أعلى من LABEL1 مباشرةً، بحيث يبدو LABEL1 مثل ظل LABEL2.

انقر فوق "المؤقت" في "شريط التحكم بالنموذج" باستخدام الماوس، ثم انقر مرة واحدة على FORM1 لإنشاء مؤقت (TIMER1) على FORM1. قم بتعيين الفاصل الزمني الخاص بالملكية إلى 200.

انقر نقرًا مزدوجًا فوق FORM1 واكتب عملية تحميل FORM1 كما يلي:

PrivateSubForm_Load()

Label1.Left=العرض 50

Label2.Left=العرض

EndSub

6. انقر نقرًا مزدوجًا فوق TIMER1 واكتب عملية المؤقت لـ TIMER1 كما يلي:

PrivateSubTimer1_Timer()

IfLabel1.Left<0-Label1.WidthThen

Label1.Left=العرض 50

Label2.Left=العرض

EndIf

Label1.Left=Label1.Left-500

Label2.Left=Label2.Left-500

EndSub

7. اضغط على مفتاح "F5" للتشغيل وسترى الترجمات تظهر من الجانب الأيمن من الشاشة وتختفي عند نقلها إلى أقصى يسار الشاشة.

4. تتلاشى داخل وخارج النص

تستخدم ترجمات التعليقات في بداية العديد من الألعاب والاعتمادات الإبداعية بعد الانفجار طريقة التلاشي والتلاشي للشخصية. ويمكن أيضًا إنتاج النص بتأثيرات التلاشي والتلاشي في Visual Basic 5.0.

أدخل بيئة نظام Visual Basic5.0 وقم بإنشاء نموذج جديد (FORM1).

انقر فوق "التسمية" في "شريط التحكم بالنموذج" واسحب مربعًا مستطيلًا (LABEL1) على FORM1. قم بتعيين التسمية التوضيحية للسمة الخاصة بها إلى "Fade in and out of text"، والحجم التلقائي إلى .T.، والنمط الخلفي إلى 0، ولون النص إلى RGB (0,128,128)، والخط إلى "البرنامج النصي الرسمي"، وFontbold إلى .T.، وحجم الخط إلى 36. .

انقر فوق "المؤقت" في "شريط التحكم بالنموذج" باستخدام الماوس، ثم انقر مرة واحدة على FORM1 لإنشاء مؤقت (TIMER1) على FORM1. قم بتعيين الخاصية Interval الخاصة بها على 100 والخاصية Enabled الخاصة بها على .F..

انقر فوق "زر الأمر" في "شريط التحكم بالنموذج" واسحب مربعًا مستطيلًا (COMMAND1) على FORM1. اضبط التسمية التوضيحية الخاصة بالخاصية على "ابدأ".

انقر نقرًا مزدوجًا فوق COMMAND1 واكتب عملية النقر لـ COMMAND1 كما يلي:

PrivateSubCommand1_Click()

IfTimer1.Enabled=FalseThen

Timer1.Enabled=صحيح

EndIf

EndSub

انقر نقرًا مزدوجًا فوق FORM1 واكتب عملية تنشيط FORM1 كما يلي:

لون الخلفية=RGB(0,128,128)

أنا = 0

7. انقر نقرًا مزدوجًا فوق TIMER1 واكتب عملية المؤقت الخاصة بـ TIMER1 كما يلي:

PrivateSubTimer1_Timer()

أنا = أنا 10

إذا أنا>=255*2ثم

Timer1.Enabled=خطأ

أنا = 0

EndIf

إذا أنا> = 255 ثم

Label1.ForeColor=RGB(255*2-I,128,128)

آخر

Label1.ForeColor=RGB(I,128,128)

EndIf

EndSub

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

يتم تشغيل كافة البرامج المذكورة أعلاه بنجاح في Visual Basic 5.0 وWINDOWS95. ->