Графика Вб

Dim SegData(9) As Byte
Private Sub Form_Load()
    SegData(0) = &H7E '0
    SegData(1) = &H30 '1
    SegData(2) = &H6D '2
    SegData(3) = &H79 '3
    SegData(4) = &H33 '4
    SegData(5) = &H5B '5
    SegData(6) = &H5F '6
    SegData(7) = &H70 '7
    SegData(8) = &H7F '8
    SegData(9) = &H7B '9
End Sub
Private Sub HSeg(ByVal X As Long, ByVal Y As Long)
    Me.Line (X, Y)-Step(5, -5)
    Me.Line -Step(20, 0)
    Me.Line -Step(5, 5)
    Me.Line -Step(-5, 5)
    Me.Line -Step(-20, 0)
    Me.Line -Step(-5, -5)
End Sub
Private Sub VSeg(ByVal X As Long, ByVal Y As Long)
    Me.Line (X, Y)-Step(5, 5)
    Me.Line -Step(0, 20)
    Me.Line -Step(-5, 5)
    Me.Line -Step(-5, -5)
    Me.Line -Step(0, -20)
    Me.Line -Step(5, -5)
End Sub
Private Sub DrawDigit(ByVal Value As Long, ByVal X As Long, ByVal Y As Long)
    If (Value And 1) = 1 Then HSeg X, Y + 30
    If (Value And 2) = 2 Then VSeg X, Y
    If (Value And 4) = 4 Then VSeg X, Y + 30
    If (Value And 8) = 8 Then HSeg X, Y + 60
    If (Value And 16) = 16 Then VSeg X + 30, Y + 30
    If (Value And 32) = 32 Then VSeg X + 30, Y
    If (Value And 64) = 64 Then HSeg X, Y
End Sub
Private Sub Draw(ByVal Value As Long, ByVal X As Long, ByVal Y As Long)
    Dim H As Long, L As Long, R As Long
    H = SegData(Value \ 10)
    L = SegData(Value Mod 10)
    DrawDigit H, X, Y
    DrawDigit L, X + 45, Y
End Sub
Private Sub tmrTimer_Timer()
    Dim H As Long, M As Long, S As Long, X As Long, Y As Long
    H = Hour(Time): M = Minute(Time): S = Second(Time)
    Me.Cls
    Y = 10: X = 10
    Draw H, X, Y
    X = X + 110
    Draw M, X, Y
    X = X + 110
    Draw S, X, Y
    Circle (105, 30), 5
    Circle (105, 50), 5
    Circle (215, 30), 5
    Circle (215, 50), 5
End Sub