用Visual Basic程序实现霓虹灯动态效果
谭立球;邵博雅
【摘 要】Visual Basic是一种功能强大,且简单易学的程序设计语言.用Visual Basic程序设计开发平台能够实现很多应用功能.本文基于Visual Basic6.0开发平台,通过利用Visual Basic中的计时器控件(Timer),Label控件进行设计,实现了一种霓虹灯闪烁和移动的动态效果.
【期刊名称】《山西电子技术》
【年(卷),期】2017(000)005
【总页数】3页(P55-57)
【关键词】动态效果;计时器;Label;Visual Basic;控件
【作 者】谭立球;邵博雅
【作者单位】中南大学信息与网络中心,湖南长沙410083;长沙市南雅中学,湖南长沙410129
【正文语种】中 文
【中图分类】TP311.52
Visual Basic(VB)程序设计是一种简单易学，但功能强大的程序设计语言。另一方面，VB在设计思想上引入两个重要的方法：可视化编程以及事件驱动的编程机制。这大大地简化了程序设计的难度，使没有任何编程基础的人也能够在短时间内掌握。因此，VB程序设计在过去的20年中成为了一种广泛的程序设计语言。
应用VB进行程序开发，一个重要的方面就是实现动画效果。在动画设计方面，学者李艳通过利用Timer、Picture、shape等控件实现了一个简单的动画效果；陈艇等人利用PictureClip控件实现了连续图片动画效果；文献提出了VB程序设计的动画设计方法；而文献利用VB设计了一个简单的霓虹灯效果。
本文是在上述文献的基础上，基于VB 6.0开发平台，利用Timer控件、Label控件等实现了一个星星闪烁的霓虹动态效果。
霓虹灯是一种低气压冷阳极辉光放电发光的光源，是我们日常生活中最常见的。通过使光源
发出不同的颜，形成了迷人的闪烁效果。另一方面，如果让不同位置的光源不同时间发光，则会展示出一种动态的效果。本文便是利用这一原理，基于VB实现霓虹灯的动态效果。
1.1 关键控件介绍
VB中的Timer控件是进行程序设计的一个重要的控件。在timer控件中设置Interval属性，可以让在timer事件过程中的程序代码以周期性的执行。因此，可以利用Timer的这一特点来设计具有周期性的程序。
1.2 设计思路
利用霓虹灯的闪烁原理，来完成本文中的霓虹灯动态效果。首先需要进行运行界面的设计。在主窗体中，首先将Timer控件放入，并添加一个名称为Label1的label数组控件，以及三个label控件。
然后，通过设计Timer的Interval属性值，此属性值取值范围为0～65535，单位为毫秒。它决定了时钟事件的执行时间间隔。为使霓虹灯效果显示明显，一般设置Interval属性值在200～600 ms。
针对Label1控件数组，通过设置其属性值ForeColor，来改变颜，并在程序运行过程中设置其中对应的Visible属性，形成闪烁的效果。此外，在Timer控件时间过程中，通过设置不同分组的label1中的元素，在不同的时钟周期中显示，从而产生动态的效果。
visual basic还有人用1.3 设计步骤
1) 新建工程。打开VB6.0程序设计开发平台，新建一个包含窗体的工程。
2) 界面设计。在新建工程的窗体(Form1)添加1个Timer控件、1个含有30个Label标签的控件数组以及3个Label标签控件。并针对上述控件做如下相关属性的设置：
进行属性设置后的界面效果如图1所示。
前台设计完成之后，便可以双击对应的窗体及控件进行程序代码的设计。
2.1 程序代码
在窗体装载时间过程中编写如下代码，进行初始化：
Private Sub Form_Load()
Dim index As Integer
Num = 0
For index = 0 To 9
Label1(index * 3).ForeColor = &HFF&
Label1(index * 3 + 1).ForeColor = &HFF00&
Label1(index * 3 + 2).ForeColor = &HFFFF&
Next index
End Sub
在Timer事件过程中编写如下代码，完成动态效果的设计：
Private Sub Timer1_Timer()
Dim index As Integer
If Num = 3 Then
Num = 0
End If
For index = 0 To 29
Label1(index).Visible = False
Next index
If Num Mod 3 = 0 Then
For index = 0 To 9
Label1(index * 3).Visible = True
Next index
Label2.ForeColor = &HFF& '
Label3.ForeColor = &HFF00&
Label4.ForeColor = &HFF00&
Else
If Num Mod 3 = 1 Then
For index = 0 To 9
Label1(index * 3 + 1).Visible = True
Next index
Label2.ForeColor = &HFF00&
Label3.ForeColor = &HFF&
Label4.ForeColor = &HFF00&
Else
For index = 0 To 9
Label1(index * 3 + 2).Visible = True
Next index
Label2.ForeColor = &HFF00&
Label3.ForeColor = &HFF00&
Label4.ForeColor = &HFF&
End If
End If
Num = Num + 1
End Sub
2.2 运行效果
经过上述程序的设计，使得程序在运行时，每循环一个时钟周期，显示出不同组的星星；同时，每次显示的颜也不同。这样，便产生了霓虹灯的闪烁和移动的动态效果。其运行时的效果如图2，图3，图4所示。
本文通过使用VB6.0开发平台的Timer控件以及Label控件实现了霓虹灯的动态效果设计。通过界面以及代码的设计，不仅实现了霓虹灯的闪烁效果，同时在前人的基础上实现了一种星星移动的动态效果。通过这样的设计，使得这个程序和现实生活中的霓虹灯更加相似。
【相关文献】
[1] 李艳.VB中动画效果的实现.福建电脑，2008(8)：189-189.
[2] 陈艇，陈少琴，洪超.基于PictureClip控件的连续图片动画效果的实现.计算机光盘软件与应用，2014(10)：215-215.
[3] 陆斌，何友金.基于VB的动画方法及应用，微机发展及应用，2003,13(6)：29-31.
[4] 朱春香.VB程序中霓虹灯效果的设计与实现.电子商务，2012(1)：69-69.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。