Dirk
13.06.2009, 15:50
Hier der 2. Teil:
Bibliothek (RP6DCFClockCClib.cbas), Teil 2:
/**
* DCF DECODER
*
* Dies ist der DCF77 Decoder.
*
* Der (abschaltbare) DCF Decoder in dieser Funktion decodiert die
* DCF Informationen und stellt die Uhr mit den empfangenen Daten.
*
* Die Funktion decodeDCF() muss alle 10ms aufgerufen werden.
*
*/
Sub decodeDCF()
Dim temp, dcfbit As Byte
Static impulsdauer, alterpegel, paritaet As Byte
Static dcfbitzaehler, dcfbitpuffer As Byte
#ifdef WETTER
Static wetterpuffer As Word
#endif
Static jahrpuffer, monatpuffer, wochentagpuffer, tagpuffer As Byte
Static sommerzeitpuffer, stundepuffer, minutepuffer, dcfflagspuffer As Byte
If (dcfstatus And STATUS_DCF_AN) = 0 Then
Return ' DCF Decoder AUS!
End If
' DCF77 Decoder:
temp = Port_ReadBit(DCF_IN) ' DCF Eingang lesen
If temp = alterpegel Then ' Keine Pegeländerung
impulsdauer = impulsdauer + 1
If impulsdauer >= (PAUSE_1900MS + (PAUSE_ABWEICHUNG * 3)) Then
impulsdauer = 0
dcfstatus = dcfstatus Or STATUS_FEHLER
End If
Return ' Ende DCF Decoder!
Else ' Pegeländerung am Eingang
#ifdef REPARATUR
' Nach 1ms Port neu lesen zum Erkennen von "Spikes":
' (Spikes sind kurze Störsignale von elektr. Geräten)
AbsDelay(1) ' 1ms Verzögerung
If temp <> Port_ReadBit(DCF_IN) Then ' Keine Pegeländerung
impulsdauer = impulsdauer + 1
Return
End If
#endif
alterpegel = temp
dcfbit = BIT_FEHLER
If impulsdauer >= (PAUSE_900MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_900MS + PAUSE_ABWEICHUNG) Then
dcfbit = BIT_0 ' Bit 0 decodiert
#ifdef DEBUG
pause_0_laenge = impulsdauer
#endif
End If
End If
If impulsdauer >= (PAUSE_800MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_800MS + PAUSE_ABWEICHUNG) Then
dcfbit = BIT_1 ' Bit 1 decodiert
paritaet = paritaet + 1
#ifdef DEBUG
pause_1_laenge = impulsdauer
#endif
End If
End If
If impulsdauer >= (PAUSE_1900MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_1900MS + PAUSE_ABWEICHUNG) Then
dcfbit = LETZTESBIT_0 ' Letztes Bit 0 decodiert
#ifdef DEBUG
letztepause_0_laenge = impulsdauer
#endif
End If
End If
If impulsdauer >= (PAUSE_1800MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_1800MS + PAUSE_ABWEICHUNG) Then
dcfbit = LETZTESBIT_1 ' Letztes Bit 1 decodiert
paritaet = paritaet + 1
#ifdef DEBUG
letztepause_1_laenge = impulsdauer
#endif
End If
End If
impulsdauer = 0 ' Impulsdauer zurücksetzen
If dcfbit <> BIT_FEHLER Then ' Kein DCF Bitfehler
dcfbitpuffer = dcfbitpuffer >> 1 ' Puffer nach rechts schieben
dcfbitpuffer = dcfbitpuffer Or (dcfbit And 0x80) ' DCF Bit einfügen
Select Case dcfbitzaehler
#ifdef WETTER
Case 7
wetterpuffer = dcfbitpuffer ' Wetter Infos (Bits 0..7)
If wetterpuffer And 0x0001 Then ' DCF Bit 0 = 1 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
#endif
Case 14
#ifdef WETTER ' Wetter Infos (Bits 8..14)
wetterpuffer = wetterpuffer Or (dcfbitpuffer << 7)
#endif
dcfstatus = dcfstatus And (Not STATUS_TELEGRAMMINTAKT)
dcfbitpuffer = 0
Case 20
dcfflagspuffer = dcfbitpuffer >> 2 ' DCF Flags
If dcfflagspuffer And FLAG_Z1 Then ' Z1: Zeitzone
sommerzeitpuffer = 1 ' [1 = MESZ]
If dcfflagspuffer And FLAG_Z2 Then ' Z1 = Z2 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Else
sommerzeitpuffer = 0 ' [0 = MEZ]
If (dcfflagspuffer And FLAG_Z2) = 0 Then ' Z1 = Z2 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
End If
If (dcfflagspuffer And FLAG_S) = 0 Then ' Start Bit = 0 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
paritaet = 0
Case 27
minutepuffer = BCDtoDEC(dcfbitpuffer >> 1) ' Minute
If minutepuffer > 59 Then ' Minute > 59 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 28
If (paritaet And 1) = 0 Then ' P1: Parität ok ?
dcfstatus = dcfstatus Or STATUS_MINPARITAET
End If
dcfbitpuffer = 0
paritaet = 0
Case 34
stundepuffer = BCDtoDEC(dcfbitpuffer >> 2) ' Stunde
If stundepuffer > 23 Then ' Stunde > 23 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 35
If (paritaet And 1) = 0 Then ' P2: Parität ok ?
dcfstatus = dcfstatus Or STATUS_STDPARITAET
End If
dcfbitpuffer = 0
paritaet = 0
Case 41
tagpuffer = BCDtoDEC(dcfbitpuffer >> 2) ' Tag
If (tagpuffer = 0) Or (tagpuffer > 31) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
Case 44
wochentagpuffer = dcfbitpuffer >> 5 ' Wochentag
If (wochentagpuffer = 0) Or (wochentagpuffer > 7) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
Case 49
monatpuffer = BCDtoDEC(dcfbitpuffer >> 3) ' Monat
If (monatpuffer = 0) Or (monatpuffer > 12) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
Case 57
jahrpuffer = BCDtoDEC(dcfbitpuffer) ' Jahr
If jahrpuffer > 99 Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 58
dcfstatus = dcfstatus Or STATUS_DCFBIT58
If (paritaet And 1) = 0 Then ' P3: Parität ok ?
dcfstatus = dcfstatus Or STATUS_DATPARITAET
End If
Case 59 ' Schaltsekundenbit
If (dcfbitpuffer And 0x80) _
Or ((dcfflagspuffer And FLAG_A2) = 0) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 60 ' Mehr als 59 Bits?
dcfstatus = dcfstatus And (Not STATUS_DCFBIT58) ' -> Fehler!
End Select
If dcfbit And LETZTESBIT_0 Then ' Ein letztes Bit (Telegrammende):
If (dcfstatus And (Not (STATUS_TELEGRAMMINTAKT _
Or STATUS_UHRGESTELLT Or STATUS_DCF_AN))) _
= (STATUS_MINPARITAET Or STATUS_STDPARITAET _
Or STATUS_DATPARITAET Or STATUS_DCFBIT58) Then ' T. fehlerfrei?
dcfstatus = dcfstatus Or STATUS_TELEGRAMMINTAKT ' Ja!
validitaetszaehler = validitaetszaehler + 1
If validitaetszaehler >= validitaetsgrenze Then
validitaetszaehler = validitaetsgrenze
#ifdef WETTER
DCF_WEATHER = wetterpuffer
#endif
dcfflags = dcfflagspuffer
Clock_SetTime(stundepuffer, minutepuffer, 0, _
CLOCK_CORR) ' Uhr stellen!
DCF_DST = sommerzeitpuffer
DCF_DOW = wochentagpuffer
tagpuffer = tagpuffer - 1 ' Tag und Monat
monatpuffer = monatpuffer - 1 ' ... nullbasiert!
Clock_SetDate(tagpuffer, monatpuffer, jahrpuffer)
dcfstatus = dcfstatus Or STATUS_UHRGESTELLT
End If
Else ' Telegramm NICHT intakt oder plausibel:
validitaetszaehler = 0 ' Validitätszähler zurücksetzen
End If
' Vorbereitung auf nächstes DCF Telegramm:
dcfstatus = dcfstatus And (Not (STATUS_FEHLER _
Or STATUS_MINPARITAET Or STATUS_STDPARITAET _
Or STATUS_DATPARITAET Or STATUS_DCFBIT58)) ' Status Bits = 0
dcfbitpuffer = 0
dcfbitzaehler = 0
Else ' Kein Telegramm Ende:
dcfbitzaehler = dcfbitzaehler + 1 ' Nächstes DCF Bit decodieren
End If
End If ' Kein DCF Bitfehler
End If ' Pegeländerung am Eingang
End Sub
/************************************************** ****************************/
' Nützliche LCD Funktionen:
/**
* SHOW CLOCK
*
* Format: Uhrzeit
* Datum
*
*/
Sub showCLOCK()
Dim temp As Byte
setCursorPosLCD(0, 1) ' Zeile 1
temp = Clock_GetVal(CLOCK_HOUR)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_MIN)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_SEC)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
If dcfstatus And STATUS_UHRGESTELLT Then
If DCF_DST Then ' MESZ?
printLCD(" MESZ")
Else
printLCD(" MEZ")
End If
End If
setCursorPosLCD(1, 1) ' Zeile 2
Select Case DCF_DOW ' Wochentag
Case 1
printLCD("Mo")
Case 2
printLCD("Di")
Case 3
printLCD("Mi")
Case 4
printLCD("Do")
Case 5
printLCD("Fr")
Case 6
printLCD("Sa")
Case 7
printLCD("So")
Else
printLCD("--")
End Select
printLCD(", ")
temp = Clock_GetVal(CLOCK_DAY) + 1 ' Tag nullbasiert!
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(".")
temp = Clock_GetVal(CLOCK_MON) + 1 ' Monat nullbasiert!
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(".20")
temp = Clock_GetVal(CLOCK_YEAR)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
End Sub
/**
* SHOW STATUS
*
* Format: Status
* Uhrzeit
*
*/
Sub showSTATUS()
Dim i As Integer
Dim temp As Byte
setCursorPosLCD(0, 1) ' Zeile 1
printLCD("Stat: ")
temp = dcfstatus
For i = 0 To 7
If temp And 0x80 Then
printLCD("1")
Else
printLCD("0")
End If
temp = temp << 1
Next
setCursorPosLCD(1, 1) ' Zeile 2
temp = Clock_GetVal(CLOCK_HOUR)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_MIN)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_SEC)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
If dcfstatus And STATUS_UHRGESTELLT Then
If DCF_DST Then ' MESZ?
printLCD(" MESZ")
Else
printLCD(" MEZ")
End If
End If
End Sub
#ifdef DEBUG
/**
* SHOW DEBUG INFO
*
*/
Sub showDEBUGINFO()
setCursorPosLCD(0, 1) ' Zeile 1
printLCD("P1/0: ")
printIntegerLCD(pause_1_laenge)
printLCD(" / ")
printIntegerLCD(pause_0_laenge)
printLCD(" ")
setCursorPosLCD(1, 1) ' Zeile 2
printLCD("L1/0: ")
printIntegerLCD(letztepause_1_laenge)
printLCD(" / ")
printIntegerLCD(letztepause_0_laenge)
printLCD(" ")
End Sub
#endif
/************************************************** ****************************
* Info
* ************************************************** **************************
* Changelog:
* - v. 1.0 (initial release) 13.06.2009 by Dirk
*
* ************************************************** **************************
*/
/************************************************** ***************************/
' EOF
Gruß Dirk
Bibliothek (RP6DCFClockCClib.cbas), Teil 2:
/**
* DCF DECODER
*
* Dies ist der DCF77 Decoder.
*
* Der (abschaltbare) DCF Decoder in dieser Funktion decodiert die
* DCF Informationen und stellt die Uhr mit den empfangenen Daten.
*
* Die Funktion decodeDCF() muss alle 10ms aufgerufen werden.
*
*/
Sub decodeDCF()
Dim temp, dcfbit As Byte
Static impulsdauer, alterpegel, paritaet As Byte
Static dcfbitzaehler, dcfbitpuffer As Byte
#ifdef WETTER
Static wetterpuffer As Word
#endif
Static jahrpuffer, monatpuffer, wochentagpuffer, tagpuffer As Byte
Static sommerzeitpuffer, stundepuffer, minutepuffer, dcfflagspuffer As Byte
If (dcfstatus And STATUS_DCF_AN) = 0 Then
Return ' DCF Decoder AUS!
End If
' DCF77 Decoder:
temp = Port_ReadBit(DCF_IN) ' DCF Eingang lesen
If temp = alterpegel Then ' Keine Pegeländerung
impulsdauer = impulsdauer + 1
If impulsdauer >= (PAUSE_1900MS + (PAUSE_ABWEICHUNG * 3)) Then
impulsdauer = 0
dcfstatus = dcfstatus Or STATUS_FEHLER
End If
Return ' Ende DCF Decoder!
Else ' Pegeländerung am Eingang
#ifdef REPARATUR
' Nach 1ms Port neu lesen zum Erkennen von "Spikes":
' (Spikes sind kurze Störsignale von elektr. Geräten)
AbsDelay(1) ' 1ms Verzögerung
If temp <> Port_ReadBit(DCF_IN) Then ' Keine Pegeländerung
impulsdauer = impulsdauer + 1
Return
End If
#endif
alterpegel = temp
dcfbit = BIT_FEHLER
If impulsdauer >= (PAUSE_900MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_900MS + PAUSE_ABWEICHUNG) Then
dcfbit = BIT_0 ' Bit 0 decodiert
#ifdef DEBUG
pause_0_laenge = impulsdauer
#endif
End If
End If
If impulsdauer >= (PAUSE_800MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_800MS + PAUSE_ABWEICHUNG) Then
dcfbit = BIT_1 ' Bit 1 decodiert
paritaet = paritaet + 1
#ifdef DEBUG
pause_1_laenge = impulsdauer
#endif
End If
End If
If impulsdauer >= (PAUSE_1900MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_1900MS + PAUSE_ABWEICHUNG) Then
dcfbit = LETZTESBIT_0 ' Letztes Bit 0 decodiert
#ifdef DEBUG
letztepause_0_laenge = impulsdauer
#endif
End If
End If
If impulsdauer >= (PAUSE_1800MS - PAUSE_ABWEICHUNG) Then
If impulsdauer < (PAUSE_1800MS + PAUSE_ABWEICHUNG) Then
dcfbit = LETZTESBIT_1 ' Letztes Bit 1 decodiert
paritaet = paritaet + 1
#ifdef DEBUG
letztepause_1_laenge = impulsdauer
#endif
End If
End If
impulsdauer = 0 ' Impulsdauer zurücksetzen
If dcfbit <> BIT_FEHLER Then ' Kein DCF Bitfehler
dcfbitpuffer = dcfbitpuffer >> 1 ' Puffer nach rechts schieben
dcfbitpuffer = dcfbitpuffer Or (dcfbit And 0x80) ' DCF Bit einfügen
Select Case dcfbitzaehler
#ifdef WETTER
Case 7
wetterpuffer = dcfbitpuffer ' Wetter Infos (Bits 0..7)
If wetterpuffer And 0x0001 Then ' DCF Bit 0 = 1 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
#endif
Case 14
#ifdef WETTER ' Wetter Infos (Bits 8..14)
wetterpuffer = wetterpuffer Or (dcfbitpuffer << 7)
#endif
dcfstatus = dcfstatus And (Not STATUS_TELEGRAMMINTAKT)
dcfbitpuffer = 0
Case 20
dcfflagspuffer = dcfbitpuffer >> 2 ' DCF Flags
If dcfflagspuffer And FLAG_Z1 Then ' Z1: Zeitzone
sommerzeitpuffer = 1 ' [1 = MESZ]
If dcfflagspuffer And FLAG_Z2 Then ' Z1 = Z2 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Else
sommerzeitpuffer = 0 ' [0 = MEZ]
If (dcfflagspuffer And FLAG_Z2) = 0 Then ' Z1 = Z2 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
End If
If (dcfflagspuffer And FLAG_S) = 0 Then ' Start Bit = 0 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
paritaet = 0
Case 27
minutepuffer = BCDtoDEC(dcfbitpuffer >> 1) ' Minute
If minutepuffer > 59 Then ' Minute > 59 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 28
If (paritaet And 1) = 0 Then ' P1: Parität ok ?
dcfstatus = dcfstatus Or STATUS_MINPARITAET
End If
dcfbitpuffer = 0
paritaet = 0
Case 34
stundepuffer = BCDtoDEC(dcfbitpuffer >> 2) ' Stunde
If stundepuffer > 23 Then ' Stunde > 23 ?
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 35
If (paritaet And 1) = 0 Then ' P2: Parität ok ?
dcfstatus = dcfstatus Or STATUS_STDPARITAET
End If
dcfbitpuffer = 0
paritaet = 0
Case 41
tagpuffer = BCDtoDEC(dcfbitpuffer >> 2) ' Tag
If (tagpuffer = 0) Or (tagpuffer > 31) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
Case 44
wochentagpuffer = dcfbitpuffer >> 5 ' Wochentag
If (wochentagpuffer = 0) Or (wochentagpuffer > 7) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
Case 49
monatpuffer = BCDtoDEC(dcfbitpuffer >> 3) ' Monat
If (monatpuffer = 0) Or (monatpuffer > 12) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
dcfbitpuffer = 0
Case 57
jahrpuffer = BCDtoDEC(dcfbitpuffer) ' Jahr
If jahrpuffer > 99 Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 58
dcfstatus = dcfstatus Or STATUS_DCFBIT58
If (paritaet And 1) = 0 Then ' P3: Parität ok ?
dcfstatus = dcfstatus Or STATUS_DATPARITAET
End If
Case 59 ' Schaltsekundenbit
If (dcfbitpuffer And 0x80) _
Or ((dcfflagspuffer And FLAG_A2) = 0) Then
dcfstatus = dcfstatus Or STATUS_FEHLER ' -> Fehler!
End If
Case 60 ' Mehr als 59 Bits?
dcfstatus = dcfstatus And (Not STATUS_DCFBIT58) ' -> Fehler!
End Select
If dcfbit And LETZTESBIT_0 Then ' Ein letztes Bit (Telegrammende):
If (dcfstatus And (Not (STATUS_TELEGRAMMINTAKT _
Or STATUS_UHRGESTELLT Or STATUS_DCF_AN))) _
= (STATUS_MINPARITAET Or STATUS_STDPARITAET _
Or STATUS_DATPARITAET Or STATUS_DCFBIT58) Then ' T. fehlerfrei?
dcfstatus = dcfstatus Or STATUS_TELEGRAMMINTAKT ' Ja!
validitaetszaehler = validitaetszaehler + 1
If validitaetszaehler >= validitaetsgrenze Then
validitaetszaehler = validitaetsgrenze
#ifdef WETTER
DCF_WEATHER = wetterpuffer
#endif
dcfflags = dcfflagspuffer
Clock_SetTime(stundepuffer, minutepuffer, 0, _
CLOCK_CORR) ' Uhr stellen!
DCF_DST = sommerzeitpuffer
DCF_DOW = wochentagpuffer
tagpuffer = tagpuffer - 1 ' Tag und Monat
monatpuffer = monatpuffer - 1 ' ... nullbasiert!
Clock_SetDate(tagpuffer, monatpuffer, jahrpuffer)
dcfstatus = dcfstatus Or STATUS_UHRGESTELLT
End If
Else ' Telegramm NICHT intakt oder plausibel:
validitaetszaehler = 0 ' Validitätszähler zurücksetzen
End If
' Vorbereitung auf nächstes DCF Telegramm:
dcfstatus = dcfstatus And (Not (STATUS_FEHLER _
Or STATUS_MINPARITAET Or STATUS_STDPARITAET _
Or STATUS_DATPARITAET Or STATUS_DCFBIT58)) ' Status Bits = 0
dcfbitpuffer = 0
dcfbitzaehler = 0
Else ' Kein Telegramm Ende:
dcfbitzaehler = dcfbitzaehler + 1 ' Nächstes DCF Bit decodieren
End If
End If ' Kein DCF Bitfehler
End If ' Pegeländerung am Eingang
End Sub
/************************************************** ****************************/
' Nützliche LCD Funktionen:
/**
* SHOW CLOCK
*
* Format: Uhrzeit
* Datum
*
*/
Sub showCLOCK()
Dim temp As Byte
setCursorPosLCD(0, 1) ' Zeile 1
temp = Clock_GetVal(CLOCK_HOUR)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_MIN)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_SEC)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
If dcfstatus And STATUS_UHRGESTELLT Then
If DCF_DST Then ' MESZ?
printLCD(" MESZ")
Else
printLCD(" MEZ")
End If
End If
setCursorPosLCD(1, 1) ' Zeile 2
Select Case DCF_DOW ' Wochentag
Case 1
printLCD("Mo")
Case 2
printLCD("Di")
Case 3
printLCD("Mi")
Case 4
printLCD("Do")
Case 5
printLCD("Fr")
Case 6
printLCD("Sa")
Case 7
printLCD("So")
Else
printLCD("--")
End Select
printLCD(", ")
temp = Clock_GetVal(CLOCK_DAY) + 1 ' Tag nullbasiert!
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(".")
temp = Clock_GetVal(CLOCK_MON) + 1 ' Monat nullbasiert!
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(".20")
temp = Clock_GetVal(CLOCK_YEAR)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
End Sub
/**
* SHOW STATUS
*
* Format: Status
* Uhrzeit
*
*/
Sub showSTATUS()
Dim i As Integer
Dim temp As Byte
setCursorPosLCD(0, 1) ' Zeile 1
printLCD("Stat: ")
temp = dcfstatus
For i = 0 To 7
If temp And 0x80 Then
printLCD("1")
Else
printLCD("0")
End If
temp = temp << 1
Next
setCursorPosLCD(1, 1) ' Zeile 2
temp = Clock_GetVal(CLOCK_HOUR)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_MIN)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
printLCD(":")
temp = Clock_GetVal(CLOCK_SEC)
If temp < 10 Then
printLCD("0")
End If
printIntegerLCD(temp)
If dcfstatus And STATUS_UHRGESTELLT Then
If DCF_DST Then ' MESZ?
printLCD(" MESZ")
Else
printLCD(" MEZ")
End If
End If
End Sub
#ifdef DEBUG
/**
* SHOW DEBUG INFO
*
*/
Sub showDEBUGINFO()
setCursorPosLCD(0, 1) ' Zeile 1
printLCD("P1/0: ")
printIntegerLCD(pause_1_laenge)
printLCD(" / ")
printIntegerLCD(pause_0_laenge)
printLCD(" ")
setCursorPosLCD(1, 1) ' Zeile 2
printLCD("L1/0: ")
printIntegerLCD(letztepause_1_laenge)
printLCD(" / ")
printIntegerLCD(letztepause_0_laenge)
printLCD(" ")
End Sub
#endif
/************************************************** ****************************
* Info
* ************************************************** **************************
* Changelog:
* - v. 1.0 (initial release) 13.06.2009 by Dirk
*
* ************************************************** **************************
*/
/************************************************** ***************************/
' EOF
Gruß Dirk