Ich benutze den Atmega8 und hier ist der code. Den Printbefehl habe ich nur zur Kontrolle eingefügt.
Code:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 57600
Tccr0 = &B00000001
Timsk.toie0 = 1
Ddrb = &B00000001
On Timer0 Zaehler
Dim Count As Word
Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
Count = 0
Sekunde = 0
Minute = 0
Stunde = 0
Tcnt0 = 55
Sreg.7 = 1
Do
If Count = 5000 Then
Sekunde = Sekunde + 1
Count = 0
Portb.0 = Not Portb.0
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
End If
End If
'Print Stunde ; ":" ; Minute ; ":" ; Sekunde
Loop
Zaehler:
Count = Count + 1
Tcnt0 = 55
Return
Danke für die schnellen Antworten...
Lesezeichen