มีไฟนีออนทุกชนิดที่กระพริบในตอนกลางคืนในเมือง ไฟที่ใช้บ่อยที่สุดน่าจะเป็นไฟน้ำไหล จะมีผลกระทบอะไรบ้างหากเราเพิ่มสตริงไฟน้ำระยิบระยับเข้ากับอินเทอร์เฟซของซอฟต์แวร์มัลติมีเดียที่เราสร้างขึ้น ทำตามขั้นตอนด้านล่างเพื่อเพิ่มสายไฟน้ำพร้อมเอฟเฟกต์ไล่ตามให้กับโปรแกรมมัลติมีเดียของคุณ
1. สร้างแบบฟอร์มใหม่ เข้าสู่สภาพแวดล้อมระบบ Visual5asic4.0 สร้างแบบฟอร์มใหม่ (FORM1) และตั้งค่าคุณสมบัติ Backcolor ของ FORM1 เป็น RGB (192,192,192)
2.สร้างโคมแรก คลิก "ป้ายกำกับ" ใน "แถบควบคุมแบบฟอร์ม" ด้วยเมาส์ แล้วดึงกล่องสี่เหลี่ยม (LABEL1) บน FORM1 ออกมา ตั้งค่าคำบรรยายแอตทริบิวต์เป็น "★" (อาจเป็นอักขระอื่นก็ได้ โดย "★" ที่นี่สามารถพบได้ใน "ผังอักขระ" ของ "อุปกรณ์เสริม" ของ WINDOWS95) ปรับขนาดอัตโนมัติเป็น .T. Backstyle เป็น 0 และ Forecolor เป็นสีแดง ขนาดตัวอักษร 18
3. สร้างโคมอีก 29 โคม คลิก LABEL1 ด้วยเมาส์ กดปุ่ม CTRL C (คัดลอก) จากนั้นกดปุ่ม CTRL V (วาง) เพื่อสร้างป้ายกำกับอื่น (LABEL1 (1)) ที่มีชื่อเดียวกันกับ LABEL1 บน FORM1 เลือก 'ใช่' เมื่อได้รับแจ้ง บนหน้าจอว่าจะสร้างอาร์เรย์ควบคุมหรือไม่ ทำซ้ำการคัดลอกนี้เพื่อสร้างป้ายกำกับทั้งหมด 30 ป้าย และจัดเรียงป้ายกำกับทั้ง 30 รายการลงในกล่องสี่เหลี่ยมตามลำดับ
4. สร้างตัวจับเวลา คลิก "ตัวจับเวลา" ใน "แถบควบคุมแบบฟอร์ม" ด้วยเมาส์ จากนั้นคลิกหนึ่งครั้งบน FORM1 เพื่อสร้างตัวจับเวลา (TIMER1) บน FORM1 ตั้งค่าคุณสมบัติ Interval เป็น 400
5. ดับเบิลคลิก FORM1 และเขียนกระบวนการโหลดของ FORM1 ดังนี้:
PRivateSubForm_Load()
ผม=0
ฟอร์จ=0ถึง9
Label1(j*3).ForeColor=&HFF&'red
Label1(j*3 1).ForeColor=&HFF00&'green
Label1(j*3 2).ForeColor=&HFFFF&'green
เน็กซ์จ
สิ้นสุดย่อย
6. ดับเบิลคลิก TIMER1 และเขียนกระบวนการ Timer ของ TIMER1 ดังนี้:
ไพรเวทซับไทม์เมอร์1_ไทม์เมอร์()
ถ้าI=30แล้ว
ผม=0
สิ้นสุดถ้า
ฉัน = ฉัน 1
สำหรับJ=0ถึง29
Label1(J).Visible=เท็จ
ต่อไปเจ
ถ้า IMod3=2แล้ว
สำหรับJ=0ถึง9
Label1(J*3 1).มองเห็น=จริง
ต่อไปเจ
อื่น
ถ้า IMod3=0แล้ว
สำหรับJ=0ถึง9
Label1(J*3 2).มองเห็น=จริง
ต่อไปเจ
อื่น
สำหรับJ=0ถึง9
Label1(J*3).Visible=True
ต่อไปเจ
สิ้นสุดถ้า
สิ้นสุดถ้า
สิ้นสุดย่อย
หลังจากรันแบบฟอร์ม คุณจะเห็นว่าไฟสีแดง เขียว และน้ำเงินสลับกันสว่างขึ้น การปรับค่าแอตทริบิวต์ Interval ของ Timer1 สามารถเปลี่ยนความเร็วรอบของไฟทั้งสามกลุ่มได้
โปรแกรมข้างต้นทำงานได้สำเร็จใน VisualBasic5.0 และ Windows95 -