Zeituhr

Hallo,

irgendwie raf ich es net, ich habe ein 4*20 Zeilen Display und möchte dort bei tastendruck eine Uhr zum laufen bringen die mir die Zeit in Minuten, Sekunden und Millisenkunden anzeigt ich weis nit wie ich das darstelleen soll,

ich benutzte einen Atmega8 mit einem 8MHz Quarz.

Ich hoffe ihr könnt mir weiterhelfen.

Mit freundlichem Gruß

Laguna

Ich habe mir gerade eine Funkuhr + Thermometer mit einem Mega8 gebastelt. Vielleicht kannste dir ja die relevanten Teile raussuchen.
Nachdem die Uhr vom Funkmodul gestellt worden ist läuft sie auch ohne Signal vom dcf77 Empfänger weiter.

Code:

---

'*******************************************************************************
'*                            Funkuhr                                          *
'*                                                                            *
'*                    M.Lenkeit  12.11.2006                                    *
'*******************************************************************************

'200ms low = 1 / 100ms low =0 / syncbit nach 1sec ohne impuls


Declare Sub Set_softuhr()
Declare Sub Gettemp()

$regfile = "m8def.dat"
$crystal = 3686400

$baud = 19200

$hwstack = 128
$swstack = 256
$framesize = 256

'Config Watchdog = 2048
'Start Watchdog

'Timer für 40Hz (25ms)
Config Timer0 = Timer , Prescale = 1024
Const Startwert = 166
Timer0 = Startwert
On Timer0 Tim0_isr
Enable Interrupts
Enable Timer0


'Lcd ansteuerung
Config Lcd = 16 * 4
Config Portd = Output
Config Lcdpin = Pin , Rs = Portd.2 , E = Portd.3 , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7
Config Lcdbus = 4
Config Lcdmode = Port

'Pin für DS18S20
Config 1wire = Portc.0

'Pin C.5 für DCF Eingang
Ddrc.5 = 0
Portc.5 = 1
Dcf77 Alias Pinc.5

'LED Signal  auf Ausgang
Ddrc.1 = 1

Deflcdchar 0 , 2 , 9 , 5 , 21 , 5 , 9 , 2 , 32

'********************* Variablen ***********************************************
Dim I As Integer
Dim Sig_error As Byte
Dim Sync_dcf77_time As Byte
Dim Empfang As Bit
Dim Sync As Bit
Dim Dcf77_time As Byte
Dim Minutenmarke As Byte
Dim Signal_high As Integer
Dim Signal_low As Integer
Dim High_old As Integer
Dim Low_old As Integer
Dim Sek_timer As Integer
Dim Syncbit(60) As Byte
Dim Syncimpuls As Byte
Dim Soft_sec As Byte , Soft_min As Byte , Soft_std As Byte
Dim Soft_tag As Byte , Soft_monat As Byte , Soft_jahr As Byte
Dim Schaltjahr As Byte
Dim Sec_str As String * 2
Dim Min_str As String * 2
Dim Std_str As String * 2
Dim Day_str As String * 2
Dim Mon_str As String * 2
Dim Jahr_str As String * 4
Dim Day As String * 2
Dim Minute As Byte , Stunde As Byte
Dim Tag As Byte , Monat As Byte , Jahr As Byte , Wochentag As Byte
Dim Min_bits As Byte , Std_bits As Byte , Day_bits As Byte
Dim Parity_min As Byte , Parity_std As Byte , Parity_datum As Byte
Dim Anzeige As Byte
Dim Dcf77_err As Byte

Dim Temp_count As Byte
Dim T1 As Byte
Dim Bd(9) As Byte
Dim Tmp As Integer
Dim T As Integer
Dim Temp As Single
Dim Busy As Byte
'Dim Crc As Byte

'************* Start Hauptprogramm  ********************************************

Initlcd
Cls
Cursor Off

Dcf77_err = 0
Sig_error = 0
Sync_dcf77_time = 0
Dcf77_time = 1
Syncimpuls = 0
Sek_timer = 0
Soft_sec = 0
Soft_min = 0
Soft_std = 0
'Day = "--"
Wochentag = 0
Soft_tag = 0
Soft_monat = 0
Soft_jahr = 0
Temp = 0.0
Temp_count = 0
T1 = 0
Anzeige = 1


Do

 If Anzeige = 1 Then
  Anzeige = 0

  Day = Lookupstr(wochentag , Wtag)

  Std_str = Str(soft_std) : Std_str = Format(std_str , "00")
  Min_str = Str(soft_min) : Min_str = Format(min_str , "00")
  Sec_str = Str(soft_sec) : Sec_str = Format(sec_str , "00")
  Day_str = Str(soft_tag) : Day_str = Format(day_str , "00")
  Mon_str = Str(soft_monat) : Mon_str = Format(mon_str , "00")
  Jahr_str = Str(soft_jahr) : Jahr_str = Format(jahr_str , "00")


  Locate 1 , 1 : Lcd " " ; Day ; ", " ; Day_str ; "." ; Mon_str ; "." ; "20" ; Jahr_str ; " "
  Locate 2 , 1 : Lcd "    " ; Std_str ; ":" ; Min_str ; ":" ; Sec_str ; "    "
  Locate 4 , 1 : Lcd "        " ; Fusing(temp , "##.#") ; Chr(223) ; "C "

 End If

  ' : blinken lassen
  If Empfang = 1 And Sek_timer > 19 Then
    Locate 2 , 10 : Lcd " "
  End If

  ' Dcf77 Zeit alle 6 Std updaten
  If Sync_dcf77_time = 6 Then
    Sync_dcf77_time = 0
    If Empfang = 1 Then Dcf77_time = 1
  End If

  ' bei Dcf77 Zeitabgleich Symbol anzeigen
  If Minutenmarke = 1 Then
    If Sek_timer > 19 Then
      Locate 3 , 1 : Lcd Chr(0)
    Else
      Locate 3 , 1 : Lcd " "
    End If
  Else
    Locate 3 , 1 : Lcd " "
  End If

  ' DS1820 Temperatur berechnen
  Call Gettemp()

 
Loop

End                                                                                  'end program

'------------------------ Interrupt Routine ------------------------------------


Tim0_isr:

Timer0 = Startwert
' reset watchdog

' Sekundentakt erzeugen
Incr Sek_timer                                                                      ' 40x25ms= 1 sec

If Sek_timer = 40 Then
  Call Set_softuhr()
  Incr Syncimpuls
  If Syncimpuls > 60 Then Syncimpuls = 0
End If

' Impulsauswertung
 If Dcf77 = 0 Then
  Signal_low = Signal_low + 25
  Low_old = Signal_low
  Signal_high = 0
  Empfang = 1
  Portc.1 = 0
 Else
  Signal_high = Signal_high + 25
  High_old = Signal_high
  Signal_low = 0
  If Signal_high > 2500 Then Empfang = 0
  Portc.1 = 1
 End If


If High_old > 1600 And Empfang = 1 Then
  If Signal_low > 0 Then Sync = 1
Else
  Sync = 0
End If


If Dcf77_time = 1 And Sync = 1 Then
  Dcf77_time = 0
  Sek_timer = 0
  Soft_sec = 0
  Minutenmarke = 1
  Syncimpuls = 0
  For I = 1 To 60
    Syncbit(i) = 0
  Next I
  Minute = 0
  Stunde = 0
  Tag = 0
  Wochentag = 0
  Monat = 0
  Jahr = 0
End If


If Minutenmarke = 1 Then
  If Signal_low = 0 Then
    Select Case Low_old
      Case Is < 70                                                                  ' abbruch bei schlechtem signal
        Sig_error = 1
        Goto Fehlerdcf77
      Case 70 To 130                                                                '70 to 130
        Syncbit(soft_sec) = 0
      Case 170 To 250                                                                '170 to 230
        Syncbit(soft_sec) = 1
    End Select
    End If

    If Syncimpuls > 59 Then
      If Syncbit(20) = 0 Then Goto Fehlerdcf77

      If Syncbit(21) = 1 Then Minute = Minute + 1
      If Syncbit(22) = 1 Then Minute = Minute + 2
      If Syncbit(23) = 1 Then Minute = Minute + 4
      If Syncbit(24) = 1 Then Minute = Minute + 8
      If Syncbit(25) = 1 Then Minute = Minute + 10
      If Syncbit(26) = 1 Then Minute = Minute + 20
      If Syncbit(27) = 1 Then Minute = Minute + 40

      If Syncbit(29) = 1 Then Stunde = Stunde + 1
      If Syncbit(30) = 1 Then Stunde = Stunde + 2
      If Syncbit(31) = 1 Then Stunde = Stunde + 4
      If Syncbit(32) = 1 Then Stunde = Stunde + 8
      If Syncbit(33) = 1 Then Stunde = Stunde + 10
      If Syncbit(34) = 1 Then Stunde = Stunde + 20

      If Syncbit(36) = 1 Then Tag = Tag + 1
      If Syncbit(37) = 1 Then Tag = Tag + 2
      If Syncbit(38) = 1 Then Tag = Tag + 4
      If Syncbit(39) = 1 Then Tag = Tag + 8
      If Syncbit(40) = 1 Then Tag = Tag + 10
      If Syncbit(41) = 1 Then Tag = Tag + 20

      If Syncbit(42) = 1 Then Wochentag = Wochentag + 1
      If Syncbit(43) = 1 Then Wochentag = Wochentag + 2
      If Syncbit(44) = 1 Then Wochentag = Wochentag + 4

      If Syncbit(45) = 1 Then Monat = Monat + 1
      If Syncbit(46) = 1 Then Monat = Monat + 2
      If Syncbit(47) = 1 Then Monat = Monat + 4
      If Syncbit(48) = 1 Then Monat = Monat + 8
      If Syncbit(49) = 1 Then Monat = Monat + 10

      If Syncbit(50) = 1 Then Jahr = Jahr + 1
      If Syncbit(51) = 1 Then Jahr = Jahr + 2
      If Syncbit(52) = 1 Then Jahr = Jahr + 4
      If Syncbit(53) = 1 Then Jahr = Jahr + 8
      If Syncbit(54) = 1 Then Jahr = Jahr + 10
      If Syncbit(55) = 1 Then Jahr = Jahr + 20
      If Syncbit(56) = 1 Then Jahr = Jahr + 40
      If Syncbit(57) = 1 Then Jahr = Jahr + 80

      If Wochentag = 0 Then Goto Fehlerdcf77


      For I = 21 To 27
      Min_bits = Min_bits + Syncbit(i)
      Next I
      Parity_min = Min_bits Mod 2
      If Parity_min = 0 And Syncbit(28) = 1 Then Goto Fehlerdcf77
      If Parity_min = 1 And Syncbit(28) = 0 Then Goto Fehlerdcf77
      Min_bits = 0

      For I = 29 To 34
        Std_bits = Std_bits + Syncbit(i)
      Next I
      Parity_std = Std_bits Mod 2
      If Parity_std = 0 And Syncbit(35) = 1 Then Goto Fehlerdcf77
      If Parity_std = 1 And Syncbit(35) = 0 Then Goto Fehlerdcf77
      Std_bits = 0

      For I = 36 To 57
        Day_bits = Day_bits + Syncbit(i)
      Next I
      Parity_datum = Day_bits Mod 2
      If Parity_datum = 0 And Syncbit(58) = 1 Then Goto Fehlerdcf77
      If Parity_datum = 1 And Syncbit(58) = 0 Then Goto Fehlerdcf77
      Day_bits = 0

      Soft_std = Stunde
      Soft_min = Minute
      Soft_sec = 0
      Soft_tag = Tag
      Soft_monat = Monat
      Soft_jahr = Jahr
      Sek_timer = 0
      Minutenmarke = 0
      Dcf77_time = 0
      Dcf77_err = 0
      Sig_error = 0

    End If
End If
Return

Fehlerdcf77:
 Minutenmarke = 0
 Dcf77_err = 1
 Dcf77_time = 1
Return


Sub Set_softuhr()

  Sek_timer = 0
  Incr Soft_sec
  Incr Temp_count
  Anzeige = 1

  If Soft_sec > 59 Then
    Soft_sec = 0
    Incr Soft_min
    'test
    'Incr Sync_dcf77_time
  End If

  If Soft_min > 59 Then
    Soft_min = 0
    Incr Soft_std
    ' jede Std Zeit Sycroniesieren
    Incr Sync_dcf77_time
  End If

  If Soft_std > 23 Then
    Soft_std = 0
    Incr Soft_tag
    Incr Wochentag
    If Wochentag > 7 Then Wochentag = 1
  End If

  'Schaltjahr wenn Jahr glatt durch 4 geht
  Schaltjahr = Soft_jahr Mod 4

  If Soft_monat = 1 And Soft_tag > 31 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 2 Then
    If Schaltjahr = 0 And Soft_tag > 29 Then
      Incr Soft_monat
      Soft_tag = 1
    End If

    If Schaltjahr > 0 And Soft_tag > 28 Then
      Incr Soft_monat
      Soft_tag = 1
    End If
  End If

  If Soft_monat = 3 And Soft_tag > 31 Then
  Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 4 And Soft_tag > 30 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 5 And Soft_tag > 31 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 6 And Soft_tag > 30 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 7 And Soft_tag > 31 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 8 And Soft_tag > 31 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 9 And Soft_tag > 30 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 10 And Soft_tag > 31 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 11 And Soft_tag > 30 Then
    Incr Soft_monat
    Soft_tag = 1
  End If

  If Soft_monat = 12 And Soft_tag > 31 Then
    Soft_monat = 1
    Soft_tag = 1
    Incr Soft_jahr
  End If

End Sub


Sub Gettemp()

 If Temp_count = 15 Then
    Temp_count = 0
    T1 = 1
 End If

 If T1 = 0 Then Exit Sub

 If T1 = 1 Then                                                                      ' Temperaturmessung alle 33 sec : Pinc.0
  1wreset                                                                          ' Reset Bus
  1wwrite &HCC                                                                      ' Sende Kommando SkipRom
  1wwrite &H44
  T1 = 2                                                                            ' Sende Kommando Convert Temperatur
 End If

 If T1 = 2 Then                                                                      ' Warteschleife um Temp. Wandlung im DS1820 abzuwarten
  Busy = 1wread()                                                                  ' Solange Busy ungleich &HFF; Wandlung läuft noch
  If Busy = &HFF Then T1 = 3
 End If

 If T1 = 3 Then
  1wreset                                                                          ' Reset bus
  1wwrite &HCC                                                                      ' Sende Kommando SkipRom
  1wwrite &HBE                                                                      ' Sende Kommando Scratchpad
  Bd(1) = 1wread(9)                                                                ' Lese Ram aus und speicher in Array

'  Crc = 0                                                                          ' needs a 256 elements table
'  For I = 1 To 9
'      Tmp = Crc Xor Bd(i)
'      Crc = Lookup(tmp , Crc8)
'  Next
'  If Crc <> 0 Then Goto Fehlertemp

  1wreset
  Tmp = Bd(1) And 1                                                                ' Temperatur in 0.1C berechnen
  If Tmp = 1 Then Decr Bd(1)
  T = Makeint(bd(1) , Bd(2))
  T = T / 2
  Temp = Bd(8) - Bd(7)
  Temp = Temp / Bd(8)
  Temp = T + Temp
  Temp = Temp - 0.25
  T1 = 0
 End If

'Exit Sub

'Fehlertemp:
' T = 0
' Temp_count = 0
'F1:
' Print "Debug Temperatur"
' Print "Temp_count " ; Temp_count
' Print "Busy " ; Busy
' Print "T1 " ; T1
' Print "BD(1-9) " ; Bd(1) ; " " ; Bd(2) ; " " ; Bd(3) ; " " ; Bd(4) ; " " ; Bd(5) ; " " ; Bd(6) ; " " ; Bd(7) ; " " ; Bd(8) ; " " ; Bd(9)
' Print "Tmp " ; Tmp
' Print "Temp " ; Temp
' Print "CRC " ; Crc
' Print "----------------------------"
' Print ""

End Sub

Wtag:
Data "--" , "Mo" , "Di" , "Mi" , "Do" , "Fr" , "Sa" , "So"

---

Ich habe mir auch ein kleines VB Programm erstellt um den Timer zu berechnen. Ich Postes es mal hier. Solltest es nicht laufen mußt du aber noch die VB Runtimes installieren (Google).

Ja, danke ich schau mal, würde mich aber um genauere Daten freuen.

Gruß

Laguna

Was meinst Du mit

Zitat:

---

würde mich aber um genauere Daten freuen

---

Gruß matlen

Ja wie ich das genau auf meinem 20*4 LCD darstelle und programmiere will in millisekunden hochzählen mit sekunden und minuten, so genau wie möglich.

Gruß
Laguna

Zitat:

---

irgendwie raf ich es net, ich habe ein 4*20 Zeilen Display und möchte dort bei tastendruck eine Uhr zum laufen bringen ...

---

Ich verstehe nicht ganz, wo genau dein Problem ist.
Du richtest dir einen timer ein, der jede Millisekunde einen Interrupt erzeugt.
Siehe hier:
https://www.roboternetz.de/wissen/in...scom_und_Timer

In der Timer Interruptroutine läßt du eine Variable ( ms ) hochzählen.
Wenn diese 1000 ist, wird die Varable (sek) erhöht.
u.s.w.

In der Hauptroutine lässt du alles über's LCD anzeigen.
Zum voreinstellen per Taste, musst du den Variablen zu diesem Zeitpunkt
entsprechende Werte geben.

Hallo,

ich verstehe nicht wie ich das schön auf dem LCD angezeigt bekomme und noch weniger verstehe ich das mit Presclar und dem vorteilwert der mir erechnet wird kann mir das mal eine genau erklären das wäre schön, ich will es nämlich mal verstehen

Und wie stelle ich die millisekunden auf dem Display dar???

Mit Locate zeile,spalte
mit lcd millisekunden

zeile,Spalte, und miilisekunden sind Deine Variablen.

Beispiel:
locate 1,1
lcd Stunden
locate 1,3
lcd ":"
locate 1,4
Lcd minuten
.
.
.
locate 1,10
lcd millisekunden