So, ich brauche jetzt erstmal Tipps zu meinem Code:

Die DCF77 Routine funktioniert nur solange wie das Modul nicht eingesteckt ist. Wenn doch dann hängt er sich nach einer gewissen Zeit (1-2 Minuten) auf.

Hier der Code:

Hauptschleife:

Code:
$regfile = "m32def.dat"

$crystal = 1000000

$hwstack = 40

$framesize = 24

$swstack = 64

$lib "glcdKS108.lbx"

'*********************
'* Bereich für Alias *
'*********************

Taster_mitte Alias Pind.1
Taster_rechts Alias Pind.2
Taster_links Alias Pind.3

'*******************************
'* Bereich für Konfigurationen *
'*******************************

Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portc , Ce = 2 , Ce2 = 3 , Cd = 4 , Rd = 5 , Enable = 6 , Reset = 7

Config Dcf77 = Pind.6 , Timer = 1

Config Date = Dmy , Separator = .

Config Taster_mitte = Input                                 'Pins für Taster als Eingang setzen
Config Taster_rechts = Input
Config Taster_links = Input

'*****************************
'* Bereich für Deklarationen *
'*****************************



'****************************************
'* Bereich für Variablendimensionierung *
'****************************************

Dim Frameindex As Byte

'* Hier sind nur Variablen aufgeführt, welche nach Beendigung wieder von anderen Routinen benutzt werden können!*

Dim I As Byte                                               'Allgemeine Zählvariablen für Schleifen

Dim Tvar1 As Byte , Tvar2 As Byte                           'Allgemeine Variablen für z.B. Rechenoperationen
Dim Tvar3 As Byte

Dim Str1 As String * 10

Dim Merker1 As Bit                                          'Allgemeine Merker

'****************************************
'* Includes der Unterprogramm-Kopfteile *
'****************************************

$include "includes\Beleuchtung_Kopfteil.bas"
$include "includes\Uebersicht_Kopfteil.bas"
$include "includes\Menue_Kopfteil.bas"

'***************
'* Bootsequenz *
'***************

Enable Interrupts

'Set Taster_mitte                                            'Pullups für Taster aktivieren
'Set Taster_rechts                                           '!!!!!Funktioniert nicht
'Set Taster_links

Cls
Waitms 100

Tvar1 = Helligkeiteram

Ocr2 = Lookup(tvar1 , Helligkeitswerte)

Frameindex = 1

'*****************
'* Hauptprogramm *
'*****************

Do

Select Case Frameindex

   Case 0 : Call Menue
   Case 1 : Call Uebersicht
   Case 2 : Call Konf_menue
   Case 8 : Call Beleuchtung


End Select

Loop

End

$include "includes\Beleuchtung.bas"

$include "includes\Grafiken.bas"

$include "includes\Uebersicht.bas"

$include "includes\Menue.bas"

$include "includes\font8x8.font"

$include "includes\font16x16.font"
Hier der Code in dem die Zeit angezeigt wird:

Code:
Sub Uebersicht

   If Muebersicht = 0 Then

         Cls

         Line(0 , 54) -(127 , 54) , 255

         Setfont Font8x8

         Lcdat 8 , 49 , "Men" ; Chr(129)

         Muebersicht = 1

   End If

         Setfont Font16x16

         Lcdat 1 , 1 , Time$

         Debounce Taster_mitte , 0 , Menueaufruf

End Sub


Menueaufruf:

         Frameindex = 0

         Muebersicht = 0

Return
Kennt jemand das Problem?