clock ,

Dim sec, mnts, hrs As Integer



Private Sub Form_Load()
'Data.address = &H378
sec = 0
mnts = 0
hrs = 0
Timer1.Interval = 1000
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True

End Sub
Function getValue(ByVal number As Integer, ByVal position As Integer)
Dim dig() As Integer
dig() = getDigits(number)
getValue = (dig(0) * 2 ^ (4 * (position))) Or (dig(1) * 2 ^ (4 * (position + 1)))
End Function

Function getDigits(ByVal number As Integer) As Integer()
Dim first, second, digits(1) As Integer
digits(0) = number Mod 10
digits(1) = number - digits(0)
digits(1) = digits(1) / 10
getDigits = digits()
End Function
Function formatTime(ByVal s, m, h As Integer) As Integer
formatTime = getValue(s, 0) Or getValue(m, 2) Or getValue(h, 4)
End Function
Private Sub Timer1_Timer()
'data.value = formatTime(sec,mnst,hrs)
sec = sec + 1
If sec = 60 Then
sec = 0
mnts = mnts + 1
End If
If mnts = 60 Then
mnts = 0
hrs = hrs + 1
End If
If hrs = 12 Then
hrs = 0
End If

End Sub