Hallo Ratber,
Ich vermute mal, Du magst keine Aquarien wobei das Hobby sehr entspannend ist und Agressionen abbaut!
Sollte ich mich zu allgemein ausgedrückt habe, hier etwas genauere Auskünfte zur Funkuhr:
Ich habe die LIB von albundy =D> und Codeschnipsel hier aus dem Forum genutzt.
Aufbau:
Programm-> DCF.lib in Prog einlesen -> Funkuhrmodul Ausgang -> Eingang µC -> Variablen setzen -> Variablen auslesen und auf Display anzeigen.
Hier noch mal ein Stück Code der Funkuhr:
Code:
'-------------------------------------------------------------------------------
' DCF-Funkuhr Grundeinstellung
'-------------------------------------------------------------------------------
$lib "dcf77.lib" ' einrichten für M8
$external Dcf77 ' und Eingangssignal!
Declare Sub Dcf77
Config Timer2 = Timer , Prescale = 1024 'Timer für 40Hz (25ms)
Const Startwert = 158 'bei 4Mhz
'Const Startwert = 61 'bei 8MHz
Timer2 = Startwert
On Timer2 Tim2_isr 'Überlauf alle 25ms
Enable Interrupts
Enable Timer2
' Variablen für DCF Routine
Dim Status As Byte , Zaehler As Byte , Buffer As Byte , Impuls As Byte
Dim H_sek As Byte , Sekunde As Byte , T_min As Byte , T_std As Byte
Dim Minute As Byte , Stunde As Byte , Wotag As Byte , Tag As Byte
Dim Monat As Byte , Jahr As Byte , Pari As Byte , Pau As Byte , Imp As Byte
' Eingangssignal DCF-Empfänger
Config Pinb.0 = Input ' DCF 77 Eingang
Set Portb.0 ' Pullup einschalten
' ^^^^^^^^ Muss in der "Dcf77.lib" angepasst werden !
Locate 1 , 4 ' Zeit 1.Zeile, 4.Stelle
If Stunde < 10 Then Lcd "0" ; Stunde ; ":" Else Lcd Stunde ; ":"
If Minute < 10 Then Lcd "0" ; Minute ; ":" Else Lcd Minute ; ":"
If Sekunde < 10 Then Lcd "0" ; Sekunde Else Lcd Sekunde
'---------------------------------------------------------------------------------
Locate 1 , 12 ' Das Wort "Uhr" 1.Zeile 12. Stelle
Lcd " Uhr "
Locate 1 , 1
Lcd Lookupstr(wotag , Wochentag) 'akt.Wochentag von Data geholt!
Ich wollte halt die Schaltuhr nicht mit
If Wochentag erreicht Then kucke auf Stunde
If Stunde erreich, Then kucke auf Minute
If Minute ereicht u.s.w.)
Bedingungen aufbauen sondern dachte, es gibt was eleganteres, was sich evtl anpassen lässt.
Und... Kistalkugel ??? ... Ich kann maximal mit einem Stück Ferritkern der Funkantenne dienen und wenn man das richtig sehr drückt wird da sogar ein Diamant draus!!!
Lesezeichen