7 Segment Uhr

[Alexander Thomas (Gast)]

Hallo,
ich habe folgende Uhr nachgebaut:
Webseite: http://www.elektronik-radio.de/41323.html

Das ganze ist ist nicht auf einer Platine verbaut sondern auf einem 
myAVR Board. Das sollte aber normalerweise keine Probleme machen. Ich 
habe alles laut Schaltplan angeschlossen und funktionieren tut das ganze 
auch. Allerdings wird die Uhrzeit nicht angezeigt. Auf allen 6 Segmenten 
läuft einfach ein Counter von 0-9 ab.
Den Code habe ich leicht abgeändert, da ich einen 4 Mhz Quarz einsetze.

'*** UHR mit Atmega8 und Leuchtdioden zur Anzeige *****************************

 '*** Hardware *****************************************************************
$regfile = "m8def.dat"
$crystal = 4000000                                         '16 Mhz

'*** Ports konfigurieren********************************************************
Ddrb = &B00110000                                           'PB => 1=Ausgang / 0=Eingang
Portb = &B00000011                                          '1=PullUp eingeschaltet
Ddrc = &B11111111                                           'PC => Multiplexen der Anzeige
Ddrd = &B11111111                                           'PD => 7-Segmente

'Sekundentakt erzeugen
On Timer1 Ontimer1
Config Timer1 = Timer , Prescale = 1024                     '16Mhz/1024/(15625 siehe unten!)=1Hz
Enable Timer1

'Multiplexfrequenz erzeugen
On Timer0 Ontimer0
Config Timer0 = Timer , Prescale = 256                      '16Mhz/256/(156 siehe unten!)=400Hz
Enable Timer0

Enable Interrupts

'*** Variablen *****************************************************************
Dim Wert As Byte                                            'Ziffer die ausgegeben wird
Dim Multiplex As Byte                                       'Stellenwert (1,2,4,8,16,32)
Dim Sek_einer As Byte
Dim Sek_zehner As Byte
Dim Min_einer As Byte
Dim Min_zehner As Byte
Dim Std_einer As Byte
Dim Std_zehner As Byte

Declare Sub Minute
Declare Sub Stunde

Multiplex = 1                                               'Startwert
Timer1 = 62000                                              'Für den Start der Uhr nach 1 Sekunde

'*** Main (Zeit einstellen) ****************************************************
Do
   Debounce Pinb.0 , 0 , Minute , Sub                       'Minuten einstellen
   Debounce Pinb.1 , 0 , Stunde , Sub                       'Stunden einstellen
Loop

'*** Sub-Routinen **************************************************************
Sub Minute
    Incr Min_einer                                          'Minute um 1 erhöhen
    Sek_einer = 0                                           'Nullen der Sekunde (Einer)
    Sek_zehner = 0                                          'Nullen der Sekunde (Zehner)
End Sub

Sub Stunde                                                  'Stunde um 1 erhöhen
    Incr Std_einer
End Sub

'*** Interrupt-Routinen ********************************************************
Ontimer1:                                                   'Aufruf im Sekundentakt
   Timer1 = 62000                                           '65536-15625=49911 => 1Hz
   Portb.5 = Not Portb.5                                    'Doppelpunkte blinken im Sekundentakt
   Portb.4 = Portb.5
   Incr Sek_einer                                           'Sekunde Einer-Stelle hochzählen
   'Die Sekunden-Einer hochzählen => 0,1,2,3,4,5,6,7,8,9
   If Sek_einer >= 10 Then                                  'Wenn Sekunde-Einer größer 10
      Sek_einer = 0                                         'dann Sekunde Einer-Stelle Null setzen
      Incr Sek_zehner                                       'und Sekunde Zehner-Stelle hochzählen
   End If
  'Die Sekunden-Zehner hochzählen => 0,1,2,3,4,5
   If Sek_zehner >= 6 Then                                  'Wenn Sekunde-Zehner größer 6               '
      Sek_zehner = 0                                        'dann Sekunde Zehner-Stelle Nullen
      Incr Min_einer                                        'und Minute Einer-Stelle hochzählen
   End If
   'Die Minuten-Einer hochzählen => 0,1,2,3,4,5,6,7,8,9
   If Min_einer >= 10 Then                                  'usw.
      Min_einer = 0
      Incr Min_zehner
   End If

   If Min_zehner >= 6 Then
      Min_zehner = 0
      Incr Std_einer
   End If

   If Std_einer >= 10 Then
      Std_einer = 0
      Incr Std_zehner
   End If

   If Std_zehner >= 2 And Std_einer >= 4 Then               'Wenn 24 Uhr alles 00:00:00 setzen
         Std_zehner = 0
         Std_einer = 0
   End If
Return

Ontimer0:                                                   'Der Multiplexer!
   Timer0 = 100                                             '16Mhz/256/(256-100)= 400Hz

   'Hier wird die Umschaltsequenz (Multiplexen) der 6 Segmente erzeugt!
   Multiplex = Multiplex * 2                                '1,2,4,8,16,32,(64)
   If Multiplex = 64 Then Multiplex = 1

   '400Hz/6Segmente=> 66Hz. Die kpl. Anzeige wird also mit 66Hz gemultiplext!

   Portd = &B11111111                                       'Alle Segmente vor dem Umschalten ausschalten
   Portc = Multiplex                                        'Das anzusteuernde Segment auswählen

   If Multiplex = 1 Then Wert = Sek_einer                   'Ab hier erfolgt die Zuordnung von Anzeige und Wert
   If Multiplex = 2 Then Wert = Sek_zehner
   If Multiplex = 4 Then Wert = Min_einer
   If Multiplex = 8 Then Wert = Min_zehner
   If Multiplex = 16 Then Wert = Std_einer
   If Multiplex = 32 Then
      If Std_zehner = 0 Then                                'Wenn 0 soll die Anzeige dunkel bleiben
         Wert = 10                                          '10 bedeutet => kein Segment ist an.
      Else
         Wert = Std_zehner
      End If
   End If

   'Hier erfolgt die die Auswahl (Dekodierung) welche Segmente leuchten sollen
   Select Case Wert
      Case 0
         Portd = &B11000000                                 '0
      Case 1
         Portd = &B11111001                                 '1
      Case 2
         Portd = &B10100100                                 '2
      Case 3
         Portd = &B10110000                                 '3
      Case 4
         Portd = &B10011001                                 '4
      Case 5
         Portd = &B10010010                                 '5
      Case 6
         Portd = &B10000010                                 '6
      Case 7
         Portd = &B11111000                                 '7
      Case 8
         Portd = &B10000000                                 '8
      Case 9
         Portd = &B10010000                                 '9
      Case Else
         Portd = &B11111111                                 'Anzeige dunkel schalten
   End Select
Return

Mitlerweile habe ich keine Idee mehr was es noch sein könnte.

Gruß
Alexander

[John B. (johnbauer)]

Alexander Thomas schrieb:
> Auf allen 6 Segmenten
> läuft einfach ein Counter von 0-9 ab.

Wie hast Du PC0-PC5 angeschlossen.
Es hat den Anschein, dass Du alle sechs 7-Seg.-Anzeigen mit PC0 
(Sekunden 1er) steuerst.
Kannst Du ein Bild vom Aufbau machen?

Gruß
John

[Alexander Thomas (Gast)]

Es ist aufgebaut wie auf dem Schaltbild auf der Webseite. Habe extra die 
Versuchspins auf dem Board abgegriffen und auf die Transistor Platine 
rübergelegt. Vielleicht wäre es sinnvoll ein Testprogramm zu schreiben 
das jedes Element einmal angesteuert wird.

[John B. (johnbauer)]

Zur Originalschaltung:
Die sieben Segmente einer Stelle werden über je einen BC558 versorgt. 
Dieser kann lt. Datenblatt max. 100mA. Das wäre ein maximaler Strom von 
14,3mA für ein Segment. Für eine Multiplexanzeige (1:6) ist das nicht 
besonders viel.
Der Strom durch die LEDs ist auch nicht klar definiert, sie werden mit 
einer festen Spannung ohne Vorwiderstände betrieben. -> Transistor 
(nicht Teil einer KSQ) und µC als strombegrenzende Bauteile für LEDs, 
das ist ziemlicher Pfusch.