هناك جميع أنواع أضواء النيون التي تومض في الليل الحضري، ومن بينها أضواء المياه الجارية الأكثر استخدامًا، والتي تضفي الحيوية على الليل الهادئ. ما هو نوع التأثير الذي سيحدث إذا أضفنا سلسلة من أضواء الماء المتلألئة إلى واجهة برنامج الوسائط المتعددة الذي أنشأناه؟ اتبع الخطوات أدناه لإضافة سلسلة من أضواء المياه الجارية مع تأثير المطاردة إلى برنامج الوسائط المتعددة الخاص بك.
1. قم بإنشاء نموذج جديد. أدخل بيئة نظام Visual5asic4.0، وقم بإنشاء نموذج جديد (FORM1)، وقم بتعيين خاصية Backcolor الخاصة بـ FORM1 إلى RGB (192,192,192).
2. قم ببناء الفانوس الأول. انقر فوق "التسمية" في "شريط التحكم بالنموذج" واسحب مربعًا مستطيلًا (LABEL1) على FORM1. قم بتعيين تسمية التسمية التوضيحية الخاصة بها إلى "★" (يمكن أن تكون أيضًا أحرفًا أخرى، ويمكن العثور على "★" هنا في "مخطط الأحرف" الخاص بـ "البرامج الملحقة" في WINDOWS95)، والحجم التلقائي إلى .T.، والنمط الخلفي إلى 0، واللون الأمامي إلى اللون الأحمر، حجم الخط 18.
3. اصنع 29 فانوسًا آخر. انقر فوق LABEL1 باستخدام الماوس، واضغط على مفتاح CTRL C (نسخ)، ثم اضغط على مفتاح CTRL V (لصق) لإنشاء تسمية أخرى (LABEL1 (1)) بنفس عنوان LABEL1 على FORM1 عندما يُطلب منك ذلك على الشاشة لإنشاء مصفوفة تحكم، حدد "نعم" ". كرر هذا النسخ لإنشاء إجمالي 30 ملصقًا، وقم بترتيب هذه الملصقات الثلاثين في صندوق مستطيل بالترتيب.
4. قم بإنشاء مؤقت. انقر فوق "المؤقت" في "شريط التحكم بالنموذج" باستخدام الماوس، ثم انقر مرة واحدة على FORM1 لإنشاء مؤقت (TIMER1) على FORM1. قم بتعيين الفاصل الزمني الخاص به إلى 400.
5. انقر نقرًا مزدوجًا فوق FORM1 واكتب عملية تحميل FORM1 كما يلي:
PRivateSubForm_Load()
أنا = 0
فورج = 0 إلى 9
الملصق 1(j*3).اللون الأمامي=&HFF&'Red
Label1(j*3 1).ForeColor=&HFF00&'green
Label1(j*3 2).ForeColor=&HFFFF&'yellow
التاليج
EndSub
6. انقر نقرًا مزدوجًا فوق TIMER1 واكتب عملية المؤقت لـ TIMER1 كما يلي:
PrivateSubTimer1_Timer()
إذا أنا = 30 ثم
أنا = 0
EndIf
أنا = أنا 1
ForJ=0To29
Label1(J).مرئي=خطأ
التاليج
IfIMod3=2ثم
ForJ=0To9
Label1(J*3 1).مرئي=صحيح
التاليج
آخر
IfIMod3=0 إذن
ForJ=0To9
التسمية 1 (ي * 3 2).مرئي = صحيح
التاليج
آخر
ForJ=0To9
Label1(J*3).مرئي=صحيح
التاليج
EndIf
EndIf
EndSub
بعد تشغيل النموذج، يمكنك أن ترى أن الأضواء الحمراء والخضراء والزرقاء تضيء بالتناوب. يمكن أن يؤدي ضبط قيمة سمة الفاصل الزمني لـ Timer1 إلى تغيير سرعة دورة مجموعات الأضواء الثلاثة.
يعمل البرنامج أعلاه بنجاح في Visual Basic 5.0 وWindows 95. ->