Hallo,
habe eine Uhr erstmal zum testen programmiert. WAS HABE ICH FALSCH GEMACHT? Die Zeit geht zu schnell. Muss man "probieren", bis die uhr genau genug läuft? das prog. soll später auf nem Mega8 laufen...



$regfile = "m128def.dat"
$crystal = 16000000
$baud = 9600

Config Timer1 = Timer , Prescale = 1024

Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
On Timer1 Timer1int
Load Timer1 , 15625
Enable Interrupts
Enable Timer1
Start Timer1

'HAUPTPROGRAMM
Stunde = 10 'uhrzeit stellen
Minute = 29

Do
Waitms 100
Loop
End


Timer1int:
Load Timer1 , 15625 '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
Print Chr(12)
Print Stunde ; ":" ; Minute ; ":" ; Sekunde
Return