Uhr mit Uhrenquarz 32768 Hz an den Pins TOSC1/2

**TobiasBlome** · 03.12.2008, 22:38

Hallo,
ich möchte eine Uhr mit Uhrenquarz (32768 Hz) programmieren und bin auch im Forum fündig geworden. Leider bekommen ich ein paar Fehlermeldungen:

Nomore Space for Bit [__LCDNO] und Syntax error... in Zeile 32

Kann mir einer einen Tip geben wo der Fehler liegt?

Wenn ich den Code aus der Bascomhilfe nehme habe ich zufällig die gleichen Fehler.... da stimmt doch etwas nicht....?

Code:

'Uhr mit Uhrenquarz 32768 Hz an den Pins TOSC1/2


$regfile = "m32def.dat"                                     'AT-Mega32
'$crystal = 1000000                                          'Quarz: 1 MHz - interner Takt
$crystal = 14745600                                         'Quarz: 14,7456 MHz - Quarz auf Platine
$baud = 9600                                                'RS232 Baudrate definieren


'-------------------------------------------------------------------------------
'LCD konfiguration:
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 20 * 4



Config Date = Dmy , Separator = .
Config Clock = Soft
Date$ = "21/12/08"
Time$ = "19:15:00"
dim Secalt as byte
cls
Do
Gosub Uhr
Loop



 Uhr:
if secalt <> _sec then
    Locate 1 , 5
    Lcd Date$

   Locate 2 , 1
    Lcd Time$
   secalt = _sec
end if
Return

**Jaecko** · 04.12.2008, 08:02

Wie viele Quarze hängen da dran?
Falls es nur einer ist, ist mir das erste, was auffällt, das hier:
Der Uhrenquarz hat ~32kHz, im Programm wird aber "$crystal = 14745600" angegeben. Aber das dürfte eigentlich nicht der Fehler sein.
Welche der Zeilen ist denn diese Zeile 32? (Nachzählen im Code haut nicht hin, rauskopieren auch nicht, da da blöderweise noch Leerzeilen mit drin sind, wo man nicht weiss, ob die noch dazugehören oder nicht.)

Ansonsten seh ich da auf die schnelle keinen Fehler. Habs auch grad mal kompiliert und da gehts bei mir ohne Probleme.

**TobiasBlome** · 04.12.2008, 17:00

Hallo,
der Quarz(14745600) ist an Pin 12/13(XTAL1/2). Der UhrenQuarz(~32kHz) ist an Pin 28/29(Tosc1/2).

Bei allen Fehlern wird immer bis zum Return Befehl gesprungen...also fehlt vielleicht ein Befehl oder so(?).

**Jaecko** · 04.12.2008, 17:22

Ah so rum *g*

Wirf mal das, was zwischen "Uhr:" und "Return" steht einfach in die Do-Loop-Schleife rein; ob der Fehler dann auch kommt. Also ich kanns mit beiden Möglichkeiten Fehlerfrei kompilieren.

**TobiasBlome** · 04.12.2008, 17:38

..........der Fehler ist weg............

waren das zuviele / zu schnelle aufrufe in der Do...Loop?

**TobiasBlome** · 04.12.2008, 17:49

tja...also keine Fehler mehr aber die Uhr Läuft nicht...

Hab die Anweisung: if secalt <> _sec then erstmal rausgenommen, damit immer aktualisiert wird. Datum und Uhrzeit stehen auf dem LCD und flackern

(wird ja jetzt zuoft aufgerufen und gelöscht) Das Fusebit
für den 14MHz Quarz habe ich gesetzt, muss man da noch Fusebits setzen(für den kleinen Quarz)?

Tobias

**TobiasBlome** · 04.12.2008, 18:03

Habe gerade mal an beiden Beinen vom Quarz gemessen: 30µS/Wellen =33khz?
Kommt also ungefähr hin.

**Jaecko** · 04.12.2008, 18:05

Komisch... aber dass das zu schnell war, kann ich mir nicht vorstellen.
Du kannst ja mal ne echte Sub zusammenbauen (Also mit Declare etc.) und so mal testen, obs dann auch (nicht) geht.

Wenns dort dann wieder nicht geht, bleibt die Vermutung, dass evtl. die Werte für HWStack, Softwstack, Framesize etwas zu klein sind.
Die mal verdoppeln, wenns dann geht, müsste es mit der o.g. Lösung (per Gosub) eigentlich auch wieder gehen.

Nen extra Uhrenquarz hab ich nie verwendet. (nie benötigt bisher). Weiss deshalb nicht, wie/ob man die Fuses da setzen muss.

**TobiasBlome** · 04.12.2008, 18:30

HWStack, Softwstack, Framesize habe ich noch gar nicht definiert....
Also mit diesen Einstellungen funktioniert es nicht:
$hwstack = 80
$swstack = 128
$framesize = 80

wie meinst du das mit declare Sub? Habe damit noch nichts programmiert.

Code:

'Uhr mit Uhrenquarz 32768 Hz an den Pins TOSC1/2


$regfile = "m32def.dat"                                     'AT-Mega32
'$crystal = 1000000                                          'Quarz: 1 MHz - interner Takt
$crystal = 14745600                                         'Quarz: 14,7456 MHz - Quarz auf Platine
'$baud = 9600                                                'RS232 Baudrate definieren

$hwstack = 80
$swstack = 128
$framesize = 80

'-------------------------------------------------------------------------------
'LCD konfiguration:
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 20 * 2
Cursor Off Noblink


Config Date = Dmy , Separator = .
Config Clock = Soft
Date$ = "21/12/08"
Time$ = "19:15:01"

Dim Secalt As Byte
Dim Test As Single

Do

'If Secalt <> _sec Then
   Cls
    Locate 1 , 1
    Lcd Date$

   Locate 2 , 1
 Lcd Time$
   Secalt = _sec
'End If

'nur zum testen
Incr Test
Locate 1 , 10
    Lcd Test

Waitms 250

Loop