vb6.0做LCD电子时钟

前端之家收集整理的这篇文章主要介绍了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

原文链接:https://www.f2er.com/vb/263088.html

猜你在找的VB相关文章