VB.NET模拟LED数字钟

VB.NET模拟LED数字钟

一、模拟功能

1、实时显示系统时间；

2、模拟LED显示“时-分-秒”。

二、程序界面设计：

图1 程序界面设计

三、程序代码：

Public Class Form1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label2.Text = TimeOfDay

        PictureBox1.Image = Image.FromFile(LED7S(Hour(TimeOfDay)))

        PictureBox2.Image = Image.FromFile(LED7G(Hour(TimeOfDay)))

        PictureBox3.Image = Image.FromFile("-.png")

        PictureBox4.Image = Image.FromFile(LED7S(Minute(TimeOfDay)))

        PictureBox5.Image = Image.FromFile(LED7G(Minute(TimeOfDay)))

        PictureBox6.Image = Image.FromFile("-.png")

        PictureBox7.Image = Image.FromFile(LED7S(Second(TimeOfDay)))

        PictureBox8.Image = Image.FromFile(LED7G(Second(TimeOfDay)))

    End Sub

    Function LED7S$(ByVal n%)

        Dim n1%

        n1 = n \ 10

        LED7S = n1 & ".png"

    End Function

    Function LED7G$(ByVal n%)

        Dim n2%

        n2 = n Mod 10

        LED7G = n2 & ".png"

    End Function

End Class

四、运行效果：

图2 运行初始图

五、程序运行视频：

模拟LED显示数字钟