vb6.0做LCD电子时钟

先来看一下效果图：




下面就说一下具体的分析：

首先分析它的显示原理，

一、先把每一个数字都看成是一个8字的一部分，这里说的8是这个

，把整个电子时钟分成八份，其中有六个

。可以很容易的看出来这个8是有七根线构成的。

二、每次都是判断现在的时间，然后再根据相应的时间画出相应的线段。



再来说下整个程序的设计。

一、界面；

界面就是用来一个图片框作为背景（可以用窗体）。没有别的。

二、实现；

用类来实现。

①、分析类应该具备的功能：

能够得到系统的时间并且将时间的每个字符分离出来单独判断。

根据判断的结果画出相应的线段。

②、再进一步深入:

要得到系统的时间就需要一个接口，就是自定义类和窗体类之间的消息传递。

传递进去之后，将时间进行分离，并加以判断，包括画8位置的判断。

每次判断完都会画出相应的“时间”，这就需要调用一个自己定义的画时间（DrawTime）的过程。

从实现原理我们知道这个8字是有七根线段组成的。所以在画时间的过程中应该在调用画线段(DrawSegment)的过程，当然不调用过程也可以直接在画时间的过程中写，但是这就违背了OO的原则,降低了复用率。

在深入到具体的画线段的过程中。

三、代码：

类中：
Private Type Coordinate
X As Integer
Y As Integer
End Type
Dim BasePoint As Coordinate
Dim SegWidth As Integer
Dim SegHeight As Integer
Dim p As PictureBox
Property Let BackColor(Color As Long)

p.BackColor = Color

End Property

Private Sub DrawTime(Number As Integer)

Select Case Number
'画相应数字的图形
Case 0
DrawSegment (1)
DrawSegment (2)
DrawSegment (3)
DrawSegment (4)
DrawSegment (5)
DrawSegment (6)
Case 1
DrawSegment (2)
DrawSegment (3)
Case 2
DrawSegment (1)
DrawSegment (2)
DrawSegment (7)
DrawSegment (5)
DrawSegment (4)
Case 3
DrawSegment (1)
DrawSegment (2)
DrawSegment (7)
DrawSegment (3)
DrawSegment (4)
Case 4
DrawSegment (2)
DrawSegment (3)
DrawSegment (7)
DrawSegment (6)
Case 5
DrawSegment (1)
DrawSegment (6)
DrawSegment (7)
DrawSegment (3)
DrawSegment (4)
Case 6
DrawSegment (1)
DrawSegment (6)
DrawSegment (7)
DrawSegment (3)
DrawSegment (4)
DrawSegment (5)
Case 7
DrawSegment (1)
DrawSegment (2)
DrawSegment (3)
Case 8
DrawSegment (1)
DrawSegment (2)
DrawSegment (3)
DrawSegment (4)
DrawSegment (5)
DrawSegment (6)
DrawSegment (7)
Case 9
DrawSegment (1)
DrawSegment (2)
DrawSegment (3)
DrawSegment (4)
DrawSegment (6)
DrawSegment (7)
End Select

End Sub

Private Sub DrawSegment(SegNum As Integer)

'
' 1
' ___
' | |
' 6 | | 2
' |-7-|
' 5 | | 3
' |___|
'
' 4
'

Select Case SegNum
Case 1
p.Line (BasePoint.X + 1, BasePoint.Y)-(BasePoint.X + SegWidth - 1, BasePoint.Y)
p.Line (BasePoint.X + 2, BasePoint.Y + 1)-(BasePoint.X + SegWidth - 2, BasePoint.Y + 1)
p.Line (BasePoint.X + 3, BasePoint.Y + 2)-(BasePoint.X + SegWidth - 3, BasePoint.Y + 2)
Case 2
p.Line (BasePoint.X + SegWidth - 1, BasePoint.Y + 1)-(BasePoint.X + SegWidth - 1, BasePoint.Y + (SegHeight 2) - 1)
p.Line (BasePoint.X + SegWidth - 2, BasePoint.Y + 2)-(BasePoint.X + SegWidth - 2, BasePoint.Y + (SegHeight 2))
p.Line (BasePoint.X + SegWidth - 3, BasePoint.Y + 3)-(BasePoint.X + SegWidth - 3, BasePoint.Y + (SegHeight 2) - 1)
Case 3
p.Line (BasePoint.X + SegWidth - 1, BasePoint.Y + (SegHeight 2) + 2)-(BasePoint.X + SegWidth - 1, BasePoint.Y + SegHeight)
p.Line (BasePoint.X + SegWidth - 2, BasePoint.Y + (SegHeight 2) + 1)-(BasePoint.X + SegWidth - 2, BasePoint.Y + SegHeight - 1)
p.Line (BasePoint.X + SegWidth - 3, BasePoint.Y + (SegHeight 2) + 2)-(BasePoint.X + SegWidth - 3, BasePoint.Y + SegHeight - 2)
Case 4
p.Line (BasePoint.X + 3, BasePoint.Y + SegHeight - 2)-(BasePoint.X + SegWidth - 3, BasePoint.Y + SegHeight - 2)
p.Line (BasePoint.X + 2, BasePoint.Y + SegHeight - 1)-(BasePoint.X + SegWidth - 2, BasePoint.Y + SegHeight - 1)
p.Line (BasePoint.X + 1, BasePoint.Y + SegHeight)-(BasePoint.X + SegWidth - 1, BasePoint.Y + SegHeight)
Case 5
p.Line (BasePoint.X, BasePoint.Y + (SegHeight 2) + 2)-(BasePoint.X, BasePoint.Y + SegHeight)
p.Line (BasePoint.X + 1, BasePoint.Y + (SegHeight 2) + 1)-(BasePoint.X + 1, BasePoint.Y + SegHeight - 1)
p.Line (BasePoint.X + 2, BasePoint.Y + (SegHeight 2) + 2)-(BasePoint.X + 2, BasePoint.Y + SegHeight - 2)
Case 6
p.Line (BasePoint.X, BasePoint.Y + 1)-(BasePoint.X, BasePoint.Y + (SegHeight 2) - 1)
p.Line (BasePoint.X + 1, BasePoint.Y + 2)-(BasePoint.X + 1, BasePoint.Y + (SegHeight 2))
p.Line (BasePoint.X + 2, BasePoint.Y + 3)-(BasePoint.X + 2, BasePoint.Y + (SegHeight 2) - 1)
Case 7
p.Line (BasePoint.X + 3, BasePoint.Y + (SegHeight 2) - 1)-(BasePoint.X + SegWidth - 3, BasePoint.Y + (SegHeight 2) - 1)
p.Line (BasePoint.X + 2, BasePoint.Y + (SegHeight 2))-(BasePoint.X + SegWidth - 2, BasePoint.Y + (SegHeight 2))
p.Line (BasePoint.X + 3, BasePoint.Y + (SegHeight 2) + 1)-(BasePoint.X + SegWidth - 3, BasePoint.Y + (SegHeight 2) + 1)
End Select

End Sub

Public Property Let Caption(ByVal Value As String)
Dim OrigX As Integer

OrigX = BasePoint.X
p.Cls

While Value <> ""
If Left$(Value, 1) <> ":" Then
DrawTime (Val(Left$(Value, 1)))
BasePoint.X = BasePoint.X + SegWidth + 3
Else
p.Line (BasePoint.X + (SegWidth 2) - 4, BasePoint.Y + (SegHeight 2) - 6)-(BasePoint.X + (SegWidth 2), BasePoint.Y + (SegHeight 2) - 3), , BF
p.Line (BasePoint.X + (SegWidth 2) - 4, BasePoint.Y + (SegHeight 2) + 4)-(BasePoint.X + (SegWidth 2), BasePoint.Y + (SegHeight 2) + 7), , BF
BasePoint.X = BasePoint.X + SegWidth
End If
Value = Right$(Value, Len(Value) - 1)
Wend

BasePoint.X = OrigX

End Property
Property Let ForeColor(Color As Long)

p.ForeColor = Color

End Property

Public Sub NewLCD(PBox As PictureBox)

'初始化的过程

Set p = PBox

p.ScaleMode = 3 ' pixel
p.AutoRedraw = True

BasePoint.X = 2
BasePoint.Y = 2

SegHeight = p.ScaleHeight - 6
SegWidth = (SegHeight 2) + 2

End Sub



窗体：

Dim lcdTest As New Class1 '类的实例化
Private Sub Form_Load()

lcdTest.NewLCD Picture1

End Sub

Private Sub Picture1_Click()

Unload Form1

End Sub

Private Sub Timer1_Timer()

lcdTest.Caption = Time

End Sub