譚立球，邵博雅

(1. 中南大學(xué)信息與網(wǎng)絡(luò)中心，湖南 長沙 410083；長沙市南雅中學(xué)，湖南 長沙 410129)

2017-09-01

譚立球(1970- )，男，湖南益陽人，高級工程師，博士，研究方向:軟件工程，圖像處理。

1674- 4578(2017)05- 0055- 03

用Visual Basic程序?qū)崿F(xiàn)霓虹燈動態(tài)效果

譚立球1，邵博雅2

(1. 中南大學(xué)信息與網(wǎng)絡(luò)中心，湖南 長沙 410083；長沙市南雅中學(xué)，湖南 長沙 410129)

Visual Basic是一種功能強大，且簡單易學(xué)的程序設(shè)計語言。用Visual Basic程序設(shè)計開發(fā)平臺能夠?qū)崿F(xiàn)很多應(yīng)用功能。本文基于Visual Basic6.0開發(fā)平臺，通過利用Visual Basic中的計時器控件(Timer)，Label控件進行設(shè)計，實現(xiàn)了一種霓虹燈閃爍和移動的動態(tài)效果。

動態(tài)效果；計時器；Label；Visual Basic；控件

Visual Basic(VB)程序設(shè)計是一種簡單易學(xué)，但功能強大的程序設(shè)計語言。另一方面，VB在設(shè)計思想上引入兩個重要的方法：可視化編程以及事件驅(qū)動的編程機制。這大大地簡化了程序設(shè)計的難度，使沒有任何編程基礎(chǔ)的人也能夠在短時間內(nèi)掌握。因此，VB程序設(shè)計在過去的20年中成為了一種廣泛的程序設(shè)計語言。

應(yīng)用VB進行程序開發(fā)，一個重要的方面就是實現(xiàn)動畫效果。在動畫設(shè)計方面，學(xué)者李艷通過利用Timer、Picture、shape等控件實現(xiàn)了一個簡單的動畫效果；陳艇等人利用PictureClip控件實現(xiàn)了連續(xù)圖片動畫效果；文獻提出了VB程序設(shè)計的動畫設(shè)計方法；而文獻利用VB設(shè)計了一個簡單的霓虹燈效果。

本文是在上述文獻的基礎(chǔ)上，基于VB 6.0開發(fā)平臺，利用Timer控件、Label控件等實現(xiàn)了一個星星閃爍的霓虹動態(tài)效果。

1 設(shè)計過程

霓虹燈是一種低氣壓冷陽極輝光放電發(fā)光的光源，是我們?nèi)粘Ｉ钪凶畛Ｒ姷摹Ｍㄟ^使光源發(fā)出不同的顏色，形成了迷人的閃爍效果。另一方面，如果讓不同位置的光源不同時間發(fā)光，則會展示出一種動態(tài)的效果。本文便是利用這一原理，基于VB實現(xiàn)霓虹燈的動態(tài)效果。

1.1 關(guān)鍵控件介紹

VB中的Timer控件是進行程序設(shè)計的一個重要的控件。在timer控件中設(shè)置Interval屬性，可以讓在timer事件過程中的程序代碼以周期性的執(zhí)行。因此，可以利用Timer的這一特點來設(shè)計具有周期性的程序。

1.2 設(shè)計思路

利用霓虹燈的閃爍原理，來完成本文中的霓虹燈動態(tài)效果。首先需要進行運行界面的設(shè)計。在主窗體中，首先將Timer控件放入，并添加一個名稱為Label1的label數(shù)組控件，以及三個label控件。

然后，通過設(shè)計Timer的Interval屬性值，此屬性值取值范圍為0～65535，單位為毫秒。它決定了時鐘事件的執(zhí)行時間間隔。為使霓虹燈效果顯示明顯，一般設(shè)置Interval屬性值在200～600 ms。

針對Label1控件數(shù)組，通過設(shè)置其屬性值ForeColor，來改變顏色，并在程序運行過程中設(shè)置其中對應(yīng)的Visible屬性，形成閃爍的效果。此外，在Timer控件時間過程中，通過設(shè)置不同分組的label1中的元素，在不同的時鐘周期中顯示，從而產(chǎn)生動態(tài)的效果。

1.3 設(shè)計步驟

1) 新建工程。打開VB6.0程序設(shè)計開發(fā)平臺，新建一個包含窗體的工程。

2) 界面設(shè)計。在新建工程的窗體(Form1)添加1個Timer控件、1個含有30個Label標(biāo)簽的控件數(shù)組以及3個Label標(biāo)簽控件。并針對上述控件做如下相關(guān)屬性的設(shè)置：

表1 控件屬性設(shè)置

進行屬性設(shè)置后的界面效果如圖1所示。

圖1 設(shè)計界面效果

前臺設(shè)計完成之后，便可以雙擊對應(yīng)的窗體及控件進行程序代碼的設(shè)計。

2 程序代碼及運行效果

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事件過程中編寫如下代碼，完成動態(tài)效果的設(shè)計：

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 運行效果

經(jīng)過上述程序的設(shè)計，使得程序在運行時，每循環(huán)一個時鐘周期，顯示出不同組的星星；同時，每次顯示的顏色也不同。這樣，便產(chǎn)生了霓虹燈的閃爍和移動的動態(tài)效果。其運行時的效果如圖2，圖3，圖4所示。

圖2 第一個時鐘周期運行效果

圖3 第二個時鐘周期運行效果

3 小結(jié)

本文通過使用VB6.0開發(fā)平臺的Timer控件以及Label控件實現(xiàn)了霓虹燈的動態(tài)效果設(shè)計。通過界面以及代碼的設(shè)計，不僅實現(xiàn)了霓虹燈的閃爍效果，同時在前人的基礎(chǔ)上實現(xiàn)了一種星星移動的動態(tài)效果。通過這樣的設(shè)計，使得這個程序和現(xiàn)實生活中的霓虹燈更加相似。

圖4 第三個時鐘周期運行效果

[1] 李艷.VB中動畫效果的實現(xiàn).福建電腦，2008(8)：189-189.

[2] 陳艇，陳少琴，洪超群.基于PictureClip控件的連續(xù)圖片動畫效果的實現(xiàn).計算機光盤軟件與應(yīng)用，2014(10)：215-215.

[3] 陸斌，何友金.基于VB的動畫方法及應(yīng)用，微機發(fā)展及應(yīng)用，2003,13(6)：29-31.

[4] 朱春香.VB程序中霓虹燈效果的設(shè)計與實現(xiàn).電子商務(wù)，2012(1)：69-69.

TheRealizationofNeonDynamicEffectsUsingVisualBasicProgram

Tan Liqiu1, Shao Boya2

(1.InformationandNetworkCenter,CentralSouthUniversity,ChangshaHunan410083,China;2.NanyaMiddleSchool,ChangshaHunan410129,China)

Visual Basic program is a powerful and easy to learn program. Which is can be used to realize many application functions. Based on the Visual Basic6.0 development platform, by using the timer control (timer) in visual basic, the label control is designed to achieve the dynamic effect of flashing and moving neon lights.

dynamic effects；timer；label；visual basic；controller

TP311.52

A