用VB编程开发的七段数码管程序实现过程！

七段数码管程序

七段数码管在日常生活中随处可见，无论是仪表盘上的数字里程显示、电梯显示屏上的楼层号显示、电子表上的数字显示，都是七段数码管的实际应用。

七段数码管程序实现用到的主要VB编程知识有：

• VB循环控制结构的综合应用；
  
• VB变量、内部函数、数据类型的应用；
• VB数组和过程的应用；
• VB画图代码的应用,直线、圆、扇形、椭圆、矩形等；
• VB计时器的应用，动态展示时间数字。

本程序综合性高，整体实现难度中等偏上，掌握本程序后，对真正应用VB来编写程序具有非常大的帮助。

程序实际运行图

程序实现源码（部分）：

Option ExplicitPrivate mode As IntegerPublic hour As Integer, min As Integer, sec As Integer
Private Declare Function ExtFloodFill Lib 'gdi32' _ (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _ ByVal crColor As Long, ByVal wFillType As Long) _ As Long Private Sub cmdStartPause_Click() Timer(1).Enabled = Not Timer(1).Enabled If Timer(1).Enabled Then cmdStartPause.Caption = '暂停' cmdZero.Enabled = False Else cmdStartPause.Caption = '继续' cmdZero.Enabled = True End IfEnd Sub
Private Sub Form_Load() mnuMode(0).Checked = True mode = 0 picDisplay(0).Visible = True Timer(0).Enabled = True Me.Caption = '实时时钟' Me.BackColor = &H8000000A picDisplay(0).Top = 80 picDisplay(0).Left = 100 picDisplay(1).Top = 80 picDisplay(1).Left = 100End Sub
Private Sub mnuExit_Click() EndEnd Sub
Public Sub mnuMode_Click(Index As Integer) If Index <> mode Then mnuMode(mode).Checked = False picDisplay(mode).Visible = False Timer(mode).Enabled = False        tmrFlash.Enabled = False mnuMode(Index).Checked = True picDisplay(Index).Visible = True        frmmain.BackColor = vbBlack End IfEnd Sub
Private Sub Timer_Timer()    Call Show_LED(picDisplay(Index), Format(Now, 'yyyy-mm-dd hh:nn:ss')End Sub