Timer1 ( Bascom Uhr mit Alarm ) zu schnell

wenn ich mich nicht vertan habe, sind es 1,3% Abweichung.
Würde ich als "normal" ansehen.
Es gibt RTC-Bausteine die genau dies Problem nicht haben.

Gruß Anselm

Hallo,


Anselm 68 schrieb:
> sind es 1,3% Abweichung.
> Würde ich als "normal" ansehen.

Das sind 1,3% sind 13000 ppm das ist doch recht übertrieben viel.

Reichelt Billigquarz 0,18 Euro:

1

Standardquarz im Gehäuse HC18/U.

2

3

• Frequenz: 16,0000 MHz

4

• Modus: Grundton

5

• Cl: 32 pF

6

• Rsmax: 20 Ohm

7

• Temperaturkoeffizient: ± 30 ppm

8

• Frequenztoleranz: ± 30 ppm

9

• Gehäuse: HC18/U

http://www.mikrocontroller.net/articles/AVR-Tutorial:_Uhr#Ganggenauigkeit 
sollte wohl das passende parat haben, um die Genauigkeit zu erhöhen.
CTC- Modus zum Beispiel.
Im Programm wird ja selbst der Timer1 gesetzt, theoretisch 16 ppm genau
16e6 /256/(65535-3036) = 1,000016 Hz.
Aber ein Interrupt in BASCOM dauert zum aufrufen und verlassen etwa 100 
Takte, da alle möglichen Register gerettet werden.
Also ehe der Timer1 Wert gesetzt wird sind schon mehr als 50 Takte 
vergangen.
Dann müsste aber die Uhr zu langsam gehen. Blödsinn: das sind 50/16e6 
etwa 3ppm, da kräht kein Hahn nach...

http://www.rn-wissen.de/index.php/Bascom_Debounce_ISR_in_Assembler
Hat auch eine Uhrenfunktionen 1/128 Sekunden Takt.

Thomas Kiss schrieb:
> Mein Timer (Uhr ) läuft zu schnell....warum ?

Weil Timer vorladen nicht wirklich eine vernünftige Methode ist um Takte 
abzuzählen.
Schau in deiner BASCOM Doku nach, wie man den Timer im CTC Modus 
benutzt.

die einfachste methode wäre, einfah die uhrzeit mit einem wert den du 
ausmisst- zu kalibrieren- z.b. die 59te minute pro stunde entfernen

1,4% kann kein Quarzfehler sein.
Hast Du die Fuse CKOPT = 0 gesetzt?


Peter

STK500-Besitzer schrieb:
> in einer Hochsprache den Timer nachladen, ohne die genaue Taktanzahl zu
> wissen, hat was mystisches...

Naja, vielleicht kann man in Bascom nicht so einfach nur die Formel 
hinschreiben und es den Präprozessor ausrechnen lassen, wie man es in C 
gewohnt ist.

Aber es haut schon genau hin:
(65536 - 3036) * 256 = 16e6

Ich hatte jedenfalls mal beim ATTiny26 die CKOPT vergessen und der Quarz 
ging ziemlich nachm Mond.


Peter

Hallo,

theoretisch müßte Deine Uhr recht genau sein.
Verzählst Du Dich bei den Sekunden?
Nach 59 statt 60 Sekunden um eine Minute zu erhöhen würde 1/60 = 1,66 % 
erklären.

Hallo,

Statt

1

'---Berechnung der Uhrzeit

2

3

 If Sekunde = 59 Then Minute = Minute + 1

4

 If Sekunde = 59 Then Sekunde = 0

5

 If Minute > 59 Then Stunde = Stunde + 1

6

 If Minute > 59 Then Minute = 0

7

 If Stunde > 23 Then Stunde = 0

Nun:

1

'---Berechnung der Uhrzeit

2

3

 If Sekunde = 60 Then 

4

   Sekunde = 0

5

   Minute = Minute + 1

6

   IF Minute = 60 then

7

     Minute = 0

8

     Stunde = Stunde+1

9

     If Stunde > 23 Then 

10

       Stunde = 0

11

     end if ' Stunde korrigieren

12

   end if ' Minute korrigieren

13

 end if ' Sekunde korrigieren

Erst die Uhrzeit berechnen dann ausgeben, aber vielleicht machst Du das 
schon.

Deine ganze 'Berechnung' - das Erhöhen der Uhr um 1 Sekunde, gehört in 
die Overflow-Interrupt Routine!

1

Takt:

2

 Timer1 = 3036

3

 Incr Sekunde

4

5

 If Sekunde = 60 Then 

6

   Sekunde = 0

7

   Minute = Minute + 1

8

   IF Minute = 60 then

9

     Minute = 0

10

     Stunde = Stunde+1

11

     If Stunde > 23 Then 

12

       Stunde = 0

13

     end if ' Stunde korrigieren

14

   end if ' Minute korrigieren

15

 end if ' Sekunde korrigieren

16

17

Return

Hier, an dieser Stelle "tickt" die Uhr. Dann lass sie hier vollständig 
ticken. Du hast Zeit genug dafür und die Interrupt Routine ist klein 
genug dafür. Lass dich nicht von der scheinbaren Code-Länge in BASCOM 
täuchen. Das alles übersetzt sich zu einer Handvoll Anweisungen, die in 
0 Komma Nichts abgearbeitet werden.

Thomas Kiss schrieb:
> So etwa ?
>
>
> 'Config
> Config Timer1 = Timer , Prescale = 256
>    Enable Timer1
>    On Timer1 Takt
>    Enable Interrupts
>    Timer1 = 3036
>
> 'Main
> Do
> .....
> Loop
>
> 'SUB
> Takt:
> Timer1 = 3036
> Incr Sekunde
> If Sekunde = 59 Then

60

>    Sekunde = 0
>    Minute = Minute + 1
>       If Minute = 60 Then
>       Minute = 0
>       Stunde = Stunde + 1
>          If Stunde > 23 Then
>          Stunde = 0
>          End If
>       End If
> End If
>
>
> Return



Genau.

Mach ruhig.
Überleg dir aber vorher, wie du deine LCD-Ausgabe einfacher machen 
kannst. Das erscheint mir sehr, sehr umständlich

Warum funktioniert Code-technisch eigentlich das Einstellen der 
Normalzeit und das Einstellen der Alarmzeit völlig anders?

Karl heinz Buchegger schrieb:
> Mach ruhig.
> Überleg dir aber vorher, wie du deine LCD-Ausgabe einfacher machen
> kannst. Das erscheint mir sehr, sehr umständlich

Nehm ich zurück.
Das geht in BASCOM anscheinend nicht einfacher.
(wundert mich jetzt etwas)


Kannn man das in BASCOM so schreiben?

1

S1 = Str(sekunde)                                           'Uhr Stunde

2

S2 = Str(minute)                                            'Uhr Minute

3

S3 = Str(stunde)                                            'Uhr Sekunde

4

5

'----------- Anzeige Stunden , Minuten, Sekunden auf Display ------------------

6

7

Locate 1 , 1

8

Lcd "Uhr:    " ; Format(s3 , "00") ; ":" ; Format(s2 , "00") ; ":" ; Format(s1 , "00")                   'Stunde-Minute-Sekunden

Thomas Kiss schrieb:
> naja ich habe folgendes gedacht :
>
> Im Display oben ist eine normale uhr..
>
> unten rechts kann ich Stunden und Minuten einstellen ( nach 2 Stunden 30
> Min ) soll Alarm ausgegeben werden. Nun wir diese Zeit zur Uhrzeit

das hab ich schon verstanden.
Aber deine Tastenabfragen für die normale Uhr und die Alarmzeit sind im 
Programm nicht gleich aufgebaut. Das eine geht über debounce, das andere 
geht über einen gedrückten Taster und eine künstliche Wartezeit.

> dazugerechnet und erschein im Display unten Links....so etwa, klaro mann
> kann es optimieren, aber es funzt soweit so gut...

Wenn du veröffentlichen willst, denk daran: Dein Code ist dein 
Aushängeschild. Der sollte schon auch etwas gleich schauen. Wer eine 
Vernisage macht, veröffentlicht auch nicht seinen Skizzenblock, sondern 
die sauber, nach den Regeln der Kunst aufgebauten Ölbilder.

Hat Bascom nicht mittlerweile die Uhr integriert? Die DCF77-Routine 
nutzt doch so was...
Vielleicht hilft dir das weiter:
http://heinrichs-oliver.net/bascom/funkuhr.bas
Wenn ich mich recht entsinne, kann man die Variablen auch manuell 
setzen.
Die sind _sec, _min und _hour
Bitte beachte, das das Programm so ein bis zwei Fehler in den Schleifen 
enthält, und noch einmal korrigiert werden muss.

Die DCF77 Routine updatet dir ja nur deine Zeit (Time$), sobald ein 
gültiges Signal empfangen und decodiert wurde.
Sieh mal in der Hilfe unter Time$. Den kannst du manuell stellen. Dann 
ersparst du dir das ganze if sekunde = 60 then minute = minute + 1

Hallo,

Eigentlich ist Deine Frage offtopic...
wenn Du time benutzt, betreibt Basccom automatisch die Uhr und belegt 
Timer0 oder 2 oder nicht?
Dein Sekundenzeiger ist das gleiche wie SecOfDay() von Bascom.
Im Simulator musst Du auch die Timer simulieren, also ein Häkchen dran 
machen.
Das dauert aber eine Ewigkeit 16 Mio Takte zu simulieren und dabei 
ständig eine Ausgabe zu machen noch mehr.
Ohne ständige Ausgabe und mit Idle

1

'Hauptschleife

2

Do

3

4

Locate 1 , 1

5

Lcd Time$

6

IDLE' Nicht ständig neu ausgeben , wenn sich nichts ändert

7

Loop

8

9

End

dauert die Simulation einer Sekunde bei mir im Simulator etwa 18 
Sekunden ( 2,9 Ghz )
Du solltest als Timerstartwert (am besten als Konstante Timervorgabe 
deklarieren ) etwas schnelleres wählen wie etwa ( 65535-1000) .
Ausserdem alle Ansichten wie Register/IO oder Memory abschalten.
Aber Time$ = Time(sekundenzeiger) etc brauchen ~3% vom Platz

Hallo,

ein kleines Testprogramm, um mal wie "damals" einen Uhrenstring direkt 
zu verarbeiten. Etwa 10x schneller als eine String 'hh:mm:ss' so zu 
erzeugen.
Zeit = time(SekundeDesTages)