تحقيق المؤثرات الخاصة للفيلم باستخدام VisualBasic6.0

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

1. طريقة البرمجة لتحقيق تأثيرات القياس الديناميكي والتلاشي للرسومات والنصوص

1. واجهة البرنامج

قم بتسمية النموذج Form1 وقم بتعيين الخاصية Windowstate الخاصة به إلى 2. قم بتعيين عناصر التحكم والخصائص التالية في النموذج Form1: عنصر تحكم التسمية Label1، الذي يساوي لونه الخلفي اللون الخلفي لـform1، ويكون الحجم التلقائي صحيحًا. صورة التحكم في الصورة 1، كل من Stratch وVisible كلاهما صحيح؛ Bordstyle هو 0. يتحكم مربعان للصور في Picture1 وPicture2، الخاصية Visible Picture1 هي False وPicture2 هي True؛ وخاصية AutoRedraw Picture1 هي True وPicture is False؛ وخاصية ScaleModel كلاهما بكسل؛ ثلاثة عناصر تحكم في المؤقت Timer1، وTimer2، وTirner3؛ ومصفوفة التحكم بزر أمر cmd(0)،...,Cmd(4)، وسماتها التوضيحية هي: "تكبير النص"، و"تكبير الصورة"، و"إخفاء النص"، و"الصورة". "إخفاء"، و"خروج".

2. التحجيم الديناميكي للنص

من خلال تغيير خاصية الحجم للنص بشكل منتظم من خلال التحكم في مؤقت VB6.0، يمكن تحقيق تأثير تكبير النص أو تصغيره ديناميكيًا. في البرنامج، يتم التحكم في حجم نص سمة التسمية التوضيحية الخاصة بالتسمية Label1 من خلال عملية الموالف الخاصة بـ timer1. يقوم الحدث cmd_click الذي تم تشغيله بواسطة cmd(0) بتشغيل عملية timer1_time، التي تتحكم في طريقة تغيير النص من خلال متغير منطقي 1(0) (عنصر الصفيف). عندما يكون 1(0)=صحيح، يتم تكبير الخط ديناميكيًا، ومتى 1(0)=خطأ جعل الخطوط أصغر ديناميكيًا.

3. التحجيم الديناميكي للرسومات

قم بتعيين خاصية التمدد لعنصر تحكم الصورة image1 على true، بحيث يتغير حجم الصورة في عنصر التحكم مع تغير حجم عنصر تحكم الصورة. من خلال تغيير حجم التحكم في الصورة بشكل منتظم من خلال عملية موالف المؤقت 2، يتم تحقيق تأثير القياس الديناميكي للصورة. سيؤدي الحدث cmd_click الذي تم تشغيله بواسطة cmd(1) إلى تشغيل عملية timer2_time، التي تتحكم في طريقة تغير الصورة من خلال المتغير المنطقي 1(1) عندما يكون 1(1)=صحيح، فإنه يتحكم في التكبير الديناميكي للصورة (1)=خطأ، فهو يتحكم في التصغير الديناميكي للصورة.

4. تأثير تلاشي النص وتلاشيه

خذ عدة كلمات من السلسلة كقيمة التسمية التوضيحية للتسمية Label1. إذا زاد عدد الكلمات المعترضة من السلسلة (حتى يساوي العدد الإجمالي للكلمات في السلسلة)، فسيتم تحقيق تأثير تلاشي النص يتم تقليل عدد الكلمات التي تم اعتراضها (من عدد الكلمات في السلسلة)، ويتم تقليل إجمالي عدد الأحرف في السلسلة إلى 0)، ويتم تحقيق تأثير تلاشي النص. يتم تحقيق هذا التأثير من خلال التغيير المنتظم لعدد الكلمات التي تم اعتراضها خلال الوقت: عملية المؤقت 3. يتم تشغيله بواسطة cmd(2). يقوم الحدث md_click بتشغيل عملية timer3_time، ويتحكم في طريقة تغير النص من خلال المتغير المنطقي 1(2). عندما يكون 1(2)=صحيح، يتلاشى النص، وعندما يكون 1(2)=خطأ، يتلاشى النص. .

5. تأثير التلاشي والتلاشي للرسومات

يتم تحقيق ذلك باستخدام وظيفة Windows API BitBlt لنسخ الصور. استخدام وظيفة BitBlt هو:

معنى كل معلمة هو: يمثل hDestDC وhSrcDC مقبض جدول وصف الجهاز الهدف ومقبض جدول وصف الجهاز المصدر على التوالي. وذلك لنسخ الصورة من hSrcDC إلى hDestDC. الخاصية hDC الخاصة بعنصر التحكم Picturellox هي مؤشر سياق الجهاز الذي نريد استخدامه. يمثل x وY موضع الزاوية اليسرى العليا للهدف، ويمثل nWidth وnHeight عرض الهدف وارتفاعه. بمعنى، أين يجب نسخ الصورة في جدول سياق الجهاز المستهدف، وما مدى عرضها وارتفاعها. يمثل xsrc وySrc موضع الزاوية اليسرى العليا في الصورة المصدر، أي مكان بدء النسخ. تمثل المعلمة DwRop أسلوب رسم، ويتم استخدام أسلوب النسخ المباشر بشكل شائع في هذه الحالة.

2. كود البرنامج لتحقيق القياس الديناميكي للصور والنصوص والمؤثرات الخاصة للتلاشي والتلاشي

Dim1(4)AsBoolean,iasLong,sAsString,ztAsInteger

'العملية العامة لتحقيق التلاشي والتلاشي في الصور:

PRivateSubPicCpy(OptionalstripAsInteger=10,OptionaldelayAsInteger=20)

DimplwAsInteger,plhAsInteger,p2AsInteger

إذا1(3)=صحيح

Picture1=LoadPicture("c:/win98/installer.bmp")

آخر

Picture1=LoadPicture("")

EndIf

plw=Picturel.Width

plh=Picturel.Height

ص2=0

DoWhilep2<=plw

BitBltPicture2.hDC,p2,0,strip,plh,Picture1.hDC,p2,0,SRCCOPY

شريط p2=p2

تأخير النوم

DoEvents

Loop' نظرًا لأن عرض الصورة ليس بالضرورة عددًا صحيحًا مضاعفًا للشريط، يتم نسخ الصورة بأكملها أدناه:

BitBltPicture2.hDC,0,0,plw,plh,Picture1.hDC,0,0,SRCCOPY

EndSub

PrivateSubForm_load()

Label1.Font.Name = "Heold"

الصورة1.الأعلى=0

الصورة 1. اليسار = 0

الصورة 2.الأعلى=0

Picture2.Left=Screen.Width-Picthne2.Width

s="النص الذي ينتج تأثيرات التحجيم والتأثيرات التي تلوح في الأفق"

zt=5'zt هو متغير التحكم في حجم الخط

i=0'i هو متغير رقم الكلمة المستخدم لاعتراض النص عند عرض النص.

EndSub

PrivateSubCmd_Click(IndexAsInteger)

If1(فهرس)=Trueثم

1(الفهرس)=خطأ

آخر

1(الدليل)=صحيح

EndIf

حددCaseIndex

يقوم Case0 بتنشيط عملية المؤقت الخاصة بـ timer1

Timer1.Enabled=صحيح

Timer1.Interval=50

...'الحالتان 1 و2 مشابهتان لما ورد أعلاه، مما يؤدي إلى تنشيط عملية المؤقت الخاصة بـ timer2 وtimer3 على التوالي.

يستدعي Case3 عملية نسخ الصور Piccpy

PiCpy10,50

برنامج Case4'End قيد التشغيل

UnloadMe

نهاية

EndSelect

EndSub

PrivateSubTimer1_Timer()'عملية تنفيذ تحجيم النص

If1(0)=TrunThen

زت=زت< 5

آخر

Zt=Zt-5

ElseIf

Ifzt>50orzt<=5ثم

Timer1.Enabled=خطأ

EndIf

مع التسمية1

.Font.Size=zt

.يسار=(Form1.Width-Lable1.Width)/2

.Top=(Form1.Height-Label1.Height)/2

نهاية مع

Label1.Caption=s

EndSub

ينفذ PrivateSubTimer2_Timer()' عملية تغيير حجم الصورة

If1(1)=Trueثم قم بتكبير الصورة

Image1.Width=Image1.Width Form1.Width/10

Image1.Height=Image1.Height Form1.Height/10

آخر'تصغير الصورة

Image1.Width=Image1.Width-Form1.Width/10

Image1.Height=Image1.Height-Form1.Height/10

EndIf

إذا (Image1.Width>=Form1.Width/2) أو (Image1.Width<=Form1.Width/10) إذن

Timer2.Enabled=خطأ

EndIf

Image1=LoadPicture("c:/win98/installer.bmp")

EndSub

PrivateSubTimer3.Timer()

Label1.Font.Size=30

إذا1(2)=صحيح

أنا=ايل

آخر

ط=ط-1

EndIf

Ifi>=Len(s)oni<1ثم

Timer3.Enabled=خطأ

EndIf

Ifi>=0 ثم

Label1.Caption=يسار$(s,i)

EndIf

EndSub->

تم تصحيح أخطاء البرنامج أعلاه ضمن بيئات VB6.0 وWindows98/2000.

->