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?
Zitieren
Lesezeichen