Hallo!
kleine Bascom-Timer-Uhr

$regfile = "m8def.dat"
$crystal = 14000000
Config Timer1 = Timer , Prescale = 1024
Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
On Timer1 Timer1int
Load Timer1 , 13900
Enable Interrupts
Enable Timer1
Start Timer1

Do
'Haupschleife
'z.B. Uhr stellen mit Tastenabfrage
Loop

Timer1int:
Load Timer1 , 13900 '1ne Sekunde
Sekunde = Sekunde + 1
If Sekunde = 60 Then
Sekunde = 0
Minute = Minute + 1
If Minute = 60 Then
Minute = 0
Stunde = Stunde + 1
If Stunde = 24 Then Stunde = 0
End If
End If
'Hier kommt noch die Ausgabe rein, z.B. das LCD
Return
(Original von Jornbyte,
http://forum.electronicwerkstatt.de/...p?forum=28&128
)
mfg,MX3