Regulamin | Punkty | Dodaj... | Ostatnie | Szukaj | Rejestracja | Zaloguj


Zegarek LED z sekundami


Idź do strony Poprzedni  1, 2, 3, 4, 5, 6, 7, 8, 9
 
Napisz nowy temat  Odpowiedz do tematu      Strona Główna -> Forum elektroda -> Download, Artykuły -> Zegarek LED z sekundami
Angielska wersja
Autor Wiadomość
krzysztof2008x2
Poziom 11
Poziom 11

Dołączył: 11 Sie 2008
Posty: 66
Miasto: Miasto we mgle:)

Post 09 Gru 2008 18:33   

Re: Zegarek LED z sekundami


Witam a jak odłączam główne napiecie to z akumulatora pobierany jest prąd do podtrzymywania pamięci tak?
A nie cały zegar działa?
Jaki dac akumulator:
http://www.allegro.pl /item496206826_akumulator_4_8v_80mah_z_koncowkami_do_lutowania.html
Starczy?

Moderowano przez Faces:
Regulamin punkt 10.11

Powrót do góry
   
marcin_oizo
Poziom 21
Poziom 21

Dołączył: 20 Wrz 2005
Posty: 1234
Miasto: Częstochowa

Post 10 Gru 2008 18:57   

Re: Zegarek LED z sekundami


Taki wystarczy.
Przy zasilaniu samym akumulatorkiem działa podtrzymanie pamięci.
Powrót do góry
   
krzysztof2008x2
Poziom 11
Poziom 11

Dołączył: 11 Sie 2008
Posty: 66
Miasto: Miasto we mgle:)

Post 10 Gru 2008 19:32   

Re: Zegarek LED z sekundami


Witam. To fajnie a powiedz mi tylko jak połaczyc te segmenty ze soba.
To znaczy który segment z którą nóżką.
Powrót do góry
   
Duszek100
Poziom 7
Poziom 7

Dołączył: 23 Lis 2008
Posty: 20

Post 10 Gru 2008 19:39   

Re: Zegarek LED z sekundami


Czy to jest zasilane z sieci
Powrót do góry
   
marcin_oizo
Poziom 21
Poziom 21

Dołączył: 20 Wrz 2005
Posty: 1234
Miasto: Częstochowa

Post 10 Gru 2008 19:52   

Re: Zegarek LED z sekundami


Duszek zanim zaczniesz coś pisać, przeczytaj cały temat!

Krzysztof, już Ci pisałem, układ polutowałem metodą prób i błędów, ja też się prosiłem o te dane i nikt nie napisał. Musisz poczekać kilka dni to rozbiorę ten zegar i spiszę gdzie co ma być ale cierpliwości. Ponadto proponuję przejrzeć cały temat raz jeszcze, tam jest już kilka zegarów naszych kolegów zrobionych na płytkach, obrazki, schematy wszystko jest, wystarczy trochę cierpliwości i sam dojdziesz gdzie co ma być :)
Pozdrowienia!
Powrót do góry
   
marcin_oizo
Poziom 21
Poziom 21

Dołączył: 20 Wrz 2005
Posty: 1234
Miasto: Częstochowa

Post 13 Gru 2008 13:18   

Re: Zegarek LED z sekundami


Oj młodzi zero jakiegokolwiek samozaparcia, wszystko tylko na gotowe idziecie. Na klasówkach też czekacie na gotowe?
Spisałem gdzie co ma iść, jak coś jest źle to sami dojdźcie, nerwy mi puściły podczas rozbierania mojego zegara, kable się pourywały, szkoda słów...
Zegarek LED z sekundami
Napisałem w skrócie nóżki procesora, nie uwzględniłem tranzystorów, wiadomo jak co ma być podłączone, schemat choć ręczny jest bardzo czytelny.
Powrót do góry
   
Krzysztof2_15
Poziom 10
Poziom 10

Dołączył: 11 Gru 2008
Posty: 50

Post 17 Gru 2008 17:06   

Re: Zegarek LED z sekundami


Witaj. Ale ja nie chce, jaki wyświetlacz mam połączyć ja to wiem po prostu każdy wyświetlacz a ja mam inny ma a,b,c,d,e,f,g,DP i one mają być podłączone do procka i nie wiem jak to połączyć, bo mam inna płytkę, inny wyświetlacz. Nie mogę na oko, bo program jest podpisany odpowiednio.
Rozumie pan, o co chodzi?
Np segment c - nóżka 3 procesora:)
Pozdrawiam
Powrót do góry
   
elek555
Poziom 23
Poziom 23

Dołączył: 19 Sty 2006
Posty: 2895
Miasto: uć

Post 17 Gru 2008 19:07   

Re: Zegarek LED z sekundami


2-c,3-d,4-e,5-b,6-a,11-g,12-f resztę sobie narysuj, mam nadzieję że nazwy segmentów znasz
Powrót do góry
   
Krzysztof2_15
Poziom 10
Poziom 10

Dołączył: 11 Gru 2008
Posty: 50

Post 18 Gru 2008 13:17   

Re: Zegarek LED z sekundami


elek555 wielkie dzięki teraz juz mogę projektowa mój zegar.
Oto mi właśnie chodziło.
Pozdrawiam :P
Powrót do góry
   
dganmar
Poziom 6
Poziom 6

Dołączył: 09 Sty 2008
Posty: 19
Miasto: Świdwin

Post 21 Gru 2008 18:57   

Re: Zegarek LED z sekundami


Witam zbudowałem układ z postu http://www.elektroda.pl/rtvforum/topic825824-0.html

Dodatkowo pozmieniałem miejsca mikroprzełączników oraz dodałem pomiar temperatury (a raczej mam zamiar bo mi nie dziala)
problem jest taki ze nie liczy mi dokładnie. jestem początkujacy i nie korzystałem jeszcze z zegara zewnętrznego wiec pewnie tam mam cos zle ustawione ponieważ zegar liczy dobrze tyle ze 1 min trwa mi około 46s. mogę to zrobić metoda prób i błędów zmieniając stan licznika ale musi być na to jakiś "normalny" sposób ;].
no i ten termometr mi nie działa (sprawdzałem sam termometr na AT2313 i tam działał poprawnie tylko że temp. Wyświetlałem na LCD a chce mieć na 7-segm).
Prosze o szybka pomoc
Kod:
'Zegar z ustawianiem godziny
$regfile = "m8def.dat"
$crystal = 32768
Dim Sekjed As Byte , Sekdz As Byte , Minjed As Byte , Mindz As Byte , Godzjed As Byte , Godzdz As Byte
Dim Maxi As Byte , Liczpom As Byte , Wysw As Byte , Migaj As Byte , Z As Byte
Dim D1 As Integer , D2 As Integer , D3 As Integer , D4 As Integer
Dim W1 As Byte , W2 As Byte , W3 As Byte , W4 As Byte
Dim Tmp1 As Integer , Tmp2 As Integer , Tmp3 As Integer
Config 1wire = Portc.1                                      'temp ustawienie portu 1-wire

Dim T As Integer , T1 As Single                             ' zmienne temp
Dim Adr(16) As Byte , I As Byte , X As Byte                 ' temp

   X = 1 : Adr(x) = 1wsearchfirst()
   X = 9 : Adr(x) = 1wsearchnext()



Config Portb = &B00000000 : Portb = &B11111111
Config Portd = &B11111111 : Portd = &B11111111
Config Portc = &B0111110 : Portc = &B1111111
Config Timer0 = Timer , Prescale = 8
Config Timer1 = Timer , Prescale = 64                       '   mux = wysw    uniwers = liczpom
Enable Interrupts                                           'zezwolenie ogolne
Enable Timer0
Enable Timer1
On Timer0 Co4ms                                             'po wyzerowaniu licznika skocz do etykiety Co4ms
On Timer1 Co1s                                              'po wyzerowaniu timer1 skocz do etykiety Co1s


'poczatkowe ustawienia zegara
Sekjed = 6
Sekdz = 5
Minjed = 9
Mindz = 5
Godzjed = 3
Godzdz = 2



'wartosci poczatkowe zmiennych pomocniczych
Liczpom = 4                                                 'licznik pomocniczy
Maxi = 100
Z = 1                                                       'max przy zliczaniu czasu nacisniecia przycisku

Do


'Portc = Portc And &B0000001
'Portc.3 = 1
'Portd = &B00110000

   Toggle X.3
   1wreset : 1wwrite &H55 : 1wwrite Adr(x) , 8 : 1wwrite &HBE
   T = 1wread(2)
   Shift T , Right , 2
      If T.13 = 1 Then                                      'jesli temp. ujemna
         T = T Or &B1100000000000000


      End If
   T1 = T
   Shift T1 , Right , 2
      If X.3 = 0 Then
         Waitms 1000
'         Cls
'          Else
'         Lowerline
      End If                                                '24
D2 = T1 / 100                                               '0
W2 = Abs(d2)                                                '0
Tmp1 = D2 * 100                                             '0
Tmp2 = T1 - Tmp1                                            '0
D3 = Tmp2 / 10
W3 = Abs(d3)
Tmp1 = D3 * 10
Tmp3 = Tmp2 - Tmp1
D4 = Tmp2 - Tmp1
W4 = Abs(d4)

If T1 < 0 Then
W1 = 1
Else
W1 = 2
End If

Wait 3

      1wreset : 1wwrite &H55 : 1wwrite Adr(x) , 8 : 1wwrite &H44
                                               'end program


Loop
End                                                         'end program

Co1s:                                                       'co  1 sek.
Load Timer1 , 11000
Incr Sekjed
Toggle Migaj
Return

Co4ms:                                                      'przerwanie co 4,096ms - bez skracania cyklu
Decr Liczpom
                                             'obsluga wyswietlaczy i przyciskow
If Pinb.1 = 0 And Pinb.0 = 1 And Pinb.2 = 0 Then            'gdy przycisk minuty nacisniety
   If Liczpom = 0 Then
      Liczpom = Maxi : Incr Minjed : Sekjed = 0 : Sekdz = 0 'zeruje sekundy
      Maxi = Maxi -8 : If Maxi < 8 Then Maxi = 8            'coraz szybciej
End If : End If

If Pinb.0 = 0 And Pinb.1 = 1 And Pinb.2 = 0 Then            'gdy przycisk godziny naciśniety
   If Liczpom = 0 Then
      Liczpom = Maxi : Incr Godzjed
      Maxi = Maxi -8 : If Maxi < 8 Then Maxi = 8            'coraz szybciej
   End If : End If

If Pinc.0 = 0 Then
   If Liczpom = 0 Then
      Liczpom = Maxi : Incr Z
      End If
Else                                                        'gdy oba zwolnine lub oba nacisniete
    If Liczpom = 0 Then
    Liczpom = 4 : Maxi = 100
    End If
End If




'co 4ms korygujemy stany liczników to konieczne podczas "szybkiego ustawiania"

If Sekjed = 10 Then                                         'liczy od 0 do 9
   Sekjed = 0 : Incr Sekdz                                  'zwieksza liczbe dziesietna sekund
End If

If Sekdz = 6 Then                                           'liczy od 0 do 5
   Sekdz = 0 : Incr Minjed                                  'co 60 sek zwieksza minute
End If

If Minjed = 10 Then                                         'liczy od 0 do 9
   Minjed = 0 : Incr Mindz                                  'zwieksza liczbeb dziesietna minut
End If

If Mindz = 6 Then                                           'liczy od 0 do 5
   Mindz = 0 : Incr Godzjed                                 'co 60 min zwieksza liczbe godzin o jedną
End If

If Godzjed = 10 Then                                        'liczy od 0 do 9
   Godzjed = 0 : Incr Godzdz                                'zwieksz liczbe dziesietna godzin
End If

'co 4ms sprawdzamy czy nie jest północ i ewentualnie skracamy cykl

If Godzdz = 2 And Godzjed = 4 Then
   Godzdz = 0 : Godzjed = 0
End If

If Z.0 = 1 Then
 '    Portc.2 = 1
 '    Portd = 10010001

Wysw = Liczpom And &B11
Portc = Portc And &B0000011
Select Case Wysw                                            ' obsluga wyświetlacza
Case 0:                                                     ' zawarość licznika jednostek minut
   Portd = Lookup(minjed , Liczby) : Portc.2 = 1
Case 1:                                                     'zawartosc dziesiatek minut
   Portd = Lookup(mindz , Liczby) : Portc.3 = 1
Case 2:                                                     'jednstki godzin
   Portd = Lookup(godzjed , Liczby) : Portc.4 = 1 : Portd.2 = Migaj
Case 3 :                                                    'Dziesiatki Godzin
   Portd = Lookup(godzdz , Liczby) : Portc.5 = 1
End Select


   Else
   If Z.0 = 0 Then
'Portc = Portc And &B0000001
 '     Portc.3 = 1
  '   Portd = 10010001


   Wysw = Liczpom And &B11
Portc = Portc And &B0000011
Select Case Wysw                                            ' obsluga wyświetlacza
Case 0:                                                     ' 1 cyfra (znak)
   Portd = Lookup(w4 , Liczby) : Portc.2 = 1
Case 1:                                                     '2 cyfra
   Portd = Lookup(w3 , Liczby) : Portc.3 = 1
Case 2:                                                     '3 cyfra
   Portd = Lookup(w2 , Liczby) : Portc.4 = 1
Case 3 :                                                    '4 cyfra
   Portd = Lookup(w1 , Liczby) : Portc.5 = 1
End Select

End If : End If

'wyświetlanie cyfr na wyświetlaczu
Return



Liczby:
Data &B00010100 , &B01110111 , &B01001100 , &B01000101 , &B00100111 , &B10000101 , &B10000100 , &B01010111 , &B00000100 , &B00000101

Powrót do góry
   
*zaba*
Poziom 12
Poziom 12

Dołączył: 27 Lut 2008
Posty: 96
Miasto: Pawłowice

Post 19 Sty 2009 23:45   

Re: Zegarek LED z sekundami


Witam mam taki programik w bascom który odlicza mi od 0 do 99 chciałbym zrobić to na trzy cyfry a nawet więcej oto on
Kod:

  $regfile = "attiny2313.dat"                               'najpierw określamy typ proca
$crystal = 1000000                                          'definiujemy z jakim taktowaniem będzie pracował
                                       'definiujemy z jakim taktowaniem będzie pracował
Dim Jedn As Byte , Dzies As Byte
Dim Ktorywys As Bit
Config Portb = Output                                       'wszystkie końcówki jako wyjścia
   Portb = &B00000000
Config Portd = &B11111111
   Portd = &B11111111                                       'wyświetlacze wyłączone
Enable Timer0
Enable Interrupts
Config Timer0 = Timer , Prescale = 64                       '1mhz/64/125=1/0.008s
On Timer0 Wysw
Do
If Pinb.1 = 1 Then
   Waitms 200
   Incr Jedn
End If
If Jedn = 10 Then
   Jedn = 0
   Incr Dzies
   If Dzies = 10 Then
      Dzies = 0
   End If
End If
Loop
End
Tabela:
Data 192 , 207 , 148 , 133 , 139 , 161 , 160 , 205 , 128 , 129
Wysw:
Timer0 = 131
      Portb = &B00000000
      Toggle Ktorywys
         If Ktorywys = 0 Then
            Portd = Lookup(jedn , Tabela)
            Portb.1 = 1
         Else
            Portd = Lookup(dzies , Tabela)
            Portb.2 = 1
         End If
Return


problem w tej ostatniej części a mianowicie chodzi mi dokładnie o instrukcje toggle i if jaki mi instrukcjami to zastapić

Kod:


  $regfile = "attiny2313.dat"                               'najpierw określamy typ proca
$crystal = 1000000                                          'definiujemy z jakim taktowaniem będzie pracował
                                       'definiujemy z jakim taktowaniem będzie pracował
Dim Jedn As Byte , Dzies As Byte , Setki As Byte ,
Dim Ktorywys As Integer
Declare Sub 1
Declare Sub 2
Declare Sub 3
Config Portb = Output                                       'wszystkie końcówki jako wyjścia
   Portb = &B00000000
Config Portd = &B11111111
   Portd = &B11111111                                       'wyświetlacze wyłączone
Enable Timer0
Enable Interrupts
Config Timer0 = Timer , Prescale = 64                       '1mhz/64/125=1/0.008s
On Timer0 Wysw
Do
If Pinb.1 = 1 Then
   Waitms 200
   Incr Jedn
End If
If Jedn = 10 Then
   Jedn = 0
   Incr Dzies
   If Dzies = 10 Then
      Dzies = 0
      Incr Setki
   End If
End If
Loop
End
Tabela:
Data 192 , 207 , 148 , 133 , 139 , 161 , 160 , 205 , 128 , 129
Wysw:
Timer0 = 131
        Portb = &B00000000

          - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      Toggle Ktorywys


            Portd = Lookup(jedn , Tabela)
            Portb.1 = 1 Problem                             'jaka Instrukcjew Tu Zastosowac


            Portd = Lookup(dzies , Tabela)
            Portb.2 = 1


            Portd = Lookup(setki , Tabela)
            Portb.3 = 1

           - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Return







Za wszystkie udzielone odpowiedzi dziękuje
Powrót do góry
   
dganmar
Poziom 6
Poziom 6

Dołączył: 09 Sty 2008
Posty: 19
Miasto: Świdwin

Post 20 Sty 2009 09:12   

Re: Zegarek LED z sekundami


Proponuje zrobić to poprzez funkcję - Select Case - jak jest w moim programie post wyżej tam 4 cyfry wyświetlam.
Listingu ponownie nie wklejam ;]
Powrót do góry
   
*zaba*
Poziom 12
Poziom 12

Dołączył: 27 Lut 2008
Posty: 96
Miasto: Pawłowice

Post 20 Sty 2009 22:26   

Re: Zegarek LED z sekundami


wielkie dzięki spróbuje

Dodano po 5 [godziny] 38 [minuty]:

mój program program działa tak ze wykonuje zadanie i daje odpowiednią liczbę np.1 i powraca na początek później robi to samo i daje 2 i tak w kółko
a multipleksowanie jest na timerze0 jeśli zmienna wyniesie =0 to wyświetlacz z jednostkami jeśli 1 to dziesiątki więc funkcja case chyba ty nie pasuje ale zrobiłem to inaczej
mój kod
Kod:

  $regfile = "attiny2313.dat"                               'najpierw określamy typ proca
$crystal = 1000000                                          'definiujemy z jakim taktowaniem będzie pracował
                                       'definiujemy z jakim taktowaniem będzie pracował
Dim Jedn As Byte , Dzies As Byte , Setki As Byte
Dim Ktorywys As Bit
Dim Ktorywys1 As Bit
Config Portb = Output                                       'wszystkie końcówki jako wyjścia
   Portb = &B00000000
Config Portd = &B11111111
   Portd = &B11111111                                       'wyświetlacze wyłączone
Enable Timer0
Enable Interrupts
Config Timer0 = Timer , Prescale = 64                       '1mhz/64/125=1/0.008s
On Timer0 Wysw
Enable Timer1
Enable Interrupts
Config Timer1 = Timer , Prescale = 1                       
 On Timer1 Wysw1
Do
If Pinb.1 = 1 Then
   Waitms 200
   Incr Jedn
End If
If Jedn = 10 Then
   Jedn = 0
   Incr Dzies
   If Dzies = 10 Then
      Dzies = 0
   Incr Setki
   If Setki = 10 Then
   Setki = 0
   End If
End If
End If
Loop
End
Tabela:
Data 192 , 207 , 148 , 133 , 139 , 161 , 160 , 205 , 128 , 129
 Wysw:
Timer0 = 131
      Portb = &B00000000
      Toggle Ktorywys

         If Ktorywys = 0 Then
            Portd = Lookup(jedn , Tabela)
            Portb.1 = 1
         Else
            Portd = Lookup(dzies , Tabela)
            Portb.2 = 1
         End If

Return


  Wysw1:
 Timer1 = 131
 Portb = &B00000000
         Toggle Ktorywys1
         If Ktorywys1 = 0 Then
            Portd = Lookup(setki , Tabela)
            Portb.3 = 1
            End If


    Return


a efekt jest przedstawiony w załączniku czyli 3 liczba (setki ) mi mryga i nie wiem jak to zrobić



PICT1961.AVI
 Opis:
0.00

Download
 Rozmiar:  4.93 MB




Powrót do góry
   
dganmar
Poziom 6
Poziom 6

Dołączył: 09 Sty 2008
Posty: 19
Miasto: Świdwin

Post 27 Sty 2009 00:54   

Re: Zegarek LED z sekundami


aby pierwsza cyfra nie migala dam taki kod a jak będę miał więcej czasu to ułożę go jakoś ładnie bo ja bym wszystko wrzucił w licznik a funkcje główna zostawił jako
Kod:
do
loop
end


No ale to też kwestia gustu :D. (ale moim zdaniem kod chaotyczny troche)
a oto tymczasowy kod w symulacjach działał:

Kod:
$regfile = "attiny2313.dat"                                 'najpierw określamy typ proca
$crystal = 1000000                                          'definiujemy z jakim taktowaniem będzie pracował
                                       'definiujemy z jakim taktowaniem będzie pracował
Dim Jedn As Byte , Dzies As Byte , Setki As Byte
Dim Ktorywys As Bit
Dim Ktorywys1 As Bit
Dim Liczpom As Byte                                         ' dodana zmienna pomocnicza
Dim Wyswietl As Byte                                        ' da funkcji case przelacza mniedzy cyrframi

Config Portb = Output                                       'wszystkie końcówki jako wyjścia
   Portb = &B00000000
Config Portd = &B11111111
   Portd = &B11111111                                       'wyświetlacze wyłączone
Enable Timer0
Enable Interrupts
Config Timer0 = Timer , Prescale = 64                       '1mhz/64/125=1/0.008s
On Timer0 Wysw


Liczpom = 3                                                 'licznik pomocniczy 3 bo 3 cyfry (max 999) chcesz mieć do 9999 zmień na 4

Do
If Pinb.1 = 1 Then
   Waitms 200
   Incr Jedn
End If
If Jedn = 10 Then
   Jedn = 0
   Incr Dzies
   If Dzies = 10 Then
      Dzies = 0
   Incr Setki
   If Setki = 10 Then
   Setki = 0
   End If
End If
End If
Loop
End
Tabela:
Data 192 , 207 , 148 , 133 , 139 , 161 , 160 , 205 , 128 , 129
 Wysw:

Timer0 = 131
Decr Liczpom

Wyswietl = Liczpom And &B11
Portb = Portb And &B0000000
Select Case Wyswietl                                        ' obsługa wyświetlacza
Case 0:                                                      minut
   Portd = Lookup(jedn , Tabela) : Portb.1 = 1
Case 1:                                                     
   Portd = Lookup(dzies , Tabela) : Portb.2 = 1
Case 2:                                                     
   Portd = Lookup(setki , Tabela) : Portb.3 = 1

End Select


    Return


nie wiem czy można tak całe kody wklejać na posty wiec następne jak co to już w plikach będę wrzucał

Mam nadzieje ze pomogłem. Jeśli tak punkcikiem jakimś nie pogardzę hehe ;]
Powrót do góry
   
Google
AdSense
Google Adsense


Post 27 Sty 2009 00:54   





Powrót do góry
   
piotr 171
Poziom 2
Poziom 2

Dołączył: 30 Sty 2007
Posty: 2
Miasto: wrocław

Post 17 Lut 2009 22:05   

Re: Zegarek LED z sekundami


Witam nie znam się za bardzo jeszcze na mikro kontrolerach więc moje pytanie brzmi czy jak programuje mikro kontroler to musi mieć on taki sam kwarc jak w urządzeniu docelowym
Powrót do góry
   
Mis
Poziom 13
Poziom 13

Dołączył: 17 Maj 2002
Posty: 113
Miasto: Bytom

Post 17 Lut 2009 22:52   

Re: Zegarek LED z sekundami


Nie. Jeśli mikrokontroler jest nowy, to przeważnie chodzi z wewnetrznego generatora RC i nie potrzebuje żadnego kwarcu do programowania. Ale jeśli przestawisz fuse bity na pracę z kwarcu, to już podczas programowania jest on wymagany. Częstotliwość tego kwarcu jest nieistotna... minimum 1MHz, maksimum tyle ile dopuszcza dany procesor.
Jeśli przez przypadek (lub celowo) przestawisz fuse bity na pracę z zewnętrznego generatora, to niestety aby go zaprogramować lub poprawić swój błąd musisz podłączyć zewnętrzne źródło sygnału zegarowego (np bazę kwarcową).
Powrót do góry
   
elek555
Poziom 23
Poziom 23

Dołączył: 19 Sty 2006
Posty: 2895
Miasto: uć

Post 18 Lut 2009 07:16   

Re: Zegarek LED z sekundami


Mis napisał:
..Częstotliwość tego kwarcu jest nieistotna... minimum 1MHz,

-Mis -zerknij może z jakim kwarcem współpracuje µC z tematu
Powrót do góry
   
Mis
Poziom 13
Poziom 13

Dołączył: 17 Maj 2002
Posty: 113
Miasto: Bytom

Post 18 Lut 2009 12:54   

Re: Zegarek LED z sekundami


ATmega8L może pracować do 8MHz. W tym projekcie procesor chodzi z wewnetrznego generatora 1MHz, a podłączony kwarc 32.768kHz służy do taktowania timera w procesorze. Więc do programowania nie potrzebujesz żadnego kwarcu, ale też nie ruszaj fuse bitów.
Powrót do góry
   
konrad92
Poziom 13
Poziom 13

Dołączył: 26 Sie 2006
Posty: 122
Miasto: BESTwina

Post 07 Mar 2009 15:10   

Re: Zegarek LED z sekundami


Witam,
w przypływie funduszy postanowiłem zrobić sobie taki zegarek :)
Jest on na 6 wyświetlaczach 0.8inch. Płytkę wyświetlaczy wykonałem na płytce uniwersalnej a sterowania i przycisków w eagle. Obeszło się bez komplikacji- zegarek ruszył od razu. Mała plątanina kabli, ale to się zamknie w jakieś ładnej obudowie z przyciemnionego pleksiglasu. Pozdrowienia dla autora.

Zegarek LED z sekundami

Zegarek LED z sekundami

Zegarek LED z sekundami
Powrót do góry
   
budzik33
Poziom 7
Poziom 7

Dołączył: 28 Kwi 2006
Posty: 24
Miasto: Kielce

Post 03 Kwi 2009 22:00   

Re: Zegarek LED z sekundami


Ruszył za pierwszym razem
Powrót do góry
   
farmer92
Poziom 6
Poziom 6

Dołączył: 05 Gru 2008
Posty: 18
Miasto: Mysłowice

Post 26 Wrz 2009 13:52   

Re: Zegarek LED z sekundami


Witam! Ma ktoś schemat na płytkę tego układu ale tak żeby płytka wyświetlaczy była osobno a płytka sterująca osobno? Chciałbym zrobić to na dwóch płytkach
Powrót do góry
   
Alemucha
Poziom 8
Poziom 8

Dołączył: 09 Paź 2009
Posty: 26
Miasto: Koluszki

Post 07 Lis 2009 10:02   

Re: Zegarek LED z sekundami


Nie macie pomysłu jak zwiększyć jasność w tym zegarze (z początku tematu)? Mam stare wyświetlacze Monsanto dość ciemne ale z ciekawym odcieniem (w brąz). Nie wiem jak "zwiększyć PWM" segmentów bo sądzę że w tym jest sprawa. Zmniejszanie rezystorów daje słabe wyniki
Powrót do góry
   
joozwa
Poziom 21
Poziom 21

Dołączył: 20 Lut 2007
Posty: 1325
Miasto: Łódź

Post 07 Lis 2009 17:15   

Re: Zegarek LED z sekundami


Witam
A gdzie w tym zegarze jest regulacja jasności wyświetlaczy przez PWM?
Jedyny sposób to zastosowanie dodatkowego np. 12V (ale lepiej 9V) stabilizatora do wyświetlaczy i podpięcie tam emiterów tranzystorów, a w ich bazach (do procka) dać odpowiednio spolaryzowane diody Zenera 7,5-8,2V (ale lepiej 5,1V). Pisałem raz o tym, ale wszyscy to olali ;) Przerobiony schemat jest w temacie (szukać). Dobór stabilizatora (można dać LM317 z rezystorami) zależy od napięć przewodzenia segmentów wyświetlacza - żeby piny procka nie pracowały z napięciem wyższym, niż 5V.
P.S. Mój zegarek chodzi chodzi już nieco ponad 2 lata. Parametry rezonatora nie zmieniły się zbytnio - zegarek w dalszym ciągu spieszy się ok. 8 sekund na miesiąc (nieco ponad 1,5 minuty/rok), co przy tak prostym zegarku kwarcowym bez zewnętrznej synchronizacji jest całkiem sensownym wynikiem.
Pozdrawiam
Powrót do góry
   
Napisz nowy temat  Odpowiedz do tematu      Strona Główna -> Forum elektroda -> Download, Artykuły -> Zegarek LED z sekundami
Strona 9 z 9 Idź do strony Poprzedni  1, 2, 3, 4, 5, 6, 7, 8, 9


[ Page generation time: 0.135 seconds ]

Regulamin || Administrator || Moderatorzy || Nasze bannery || Kontakt
elektroda.pl temat RSS