digital-diy.com

Structure TTime
    Hours As Byte
    Minutes As Byte
    Seconds As Byte
End Structure

Dim Time As TTime

Time.Hours = 9
Time.Minutes = 59
Time.Seconds = 30

Device = 18F452
Clock = 20
 
Structure TTime
    Hours As Byte
    Minutes As Byte
    Seconds As Byte
    Milli_Seconds As Word
End Structure
 
Dim Time As TTime
 
 
Interrupt TMR_Interrupt()
    Inc(Time.Milli_Seconds)
    If Time.Milli_Seconds = 1000 Then
        Time.Milli_Seconds = 0
        Time.Seconds = Time.Seconds + 1
        If Time.Seconds = 60 Then 
            Time.Seconds = 0
            Time.Minutes = Time.Minutes + 1
            If Time.Minutes = 60 Then
                Time.Hours = Time.Hours + 1
            EndIf
        EndIf
    EndIf
End Interrupt
 
Setup_Timer
Enable(TMR_Interrupt)
 
While True
Wend