FAQ | Points | Add... | Recent posts | Search | Register | Log in


Elektroniczny zegarek LED z sekundami


Post new topic  Reply to topic      Main Page -> Forum Index -> Download, Articles -> Elektroniczny zegarek LED z sekundami
Author
Message
krzysztof2008x2
Poziom 11
Poziom 11


Joined: 11 Aug 2008
Posts: 65
Location: Miasto we mgle:)

Post#241 09 Dec 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?

Moderated by Faces:
Regulamin punkt 10.11

Back to top
   
marcin_oizo
Poziom 21
Poziom 21


Joined: 20 Sep 2005
Posts: 1411
Location: Częstochowa

Post#242 10 Dec 2008 18:57   

Re: Zegarek LED z sekundami


Taki wystarczy.
Przy zasilaniu samym akumulatorkiem działa podtrzymanie pamięci.
Back to top
   
Google

Google Adsense


Post# 10 Dec 2008 18:57   





Back to top
   
krzysztof2008x2
Poziom 11
Poziom 11


Joined: 11 Aug 2008
Posts: 65
Location: Miasto we mgle:)

Post#243 10 Dec 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ą.
Back to top
   
Duszek100
Poziom 6
Poziom 6


Joined: 23 Nov 2008
Posts: 16

Post#244 10 Dec 2008 19:39   

Re: Zegarek LED z sekundami


Czy to jest zasilane z sieci
Back to top
   
marcin_oizo
Poziom 21
Poziom 21


Joined: 20 Sep 2005
Posts: 1411
Location: Częstochowa

Post#245 10 Dec 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!
Back to top
   
marcin_oizo
Poziom 21
Poziom 21


Joined: 20 Sep 2005
Posts: 1411
Location: Częstochowa

Post#246 13 Dec 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...
Elektroniczny 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.
Back to top
   
Krzysztof2_15
Poziom 10
Poziom 10


Joined: 11 Dec 2008
Posts: 50

Post#247 17 Dec 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
Back to top
   
elek555
Poziom 23
Poziom 23


Joined: 19 Jan 2006
Posts: 3399
Location: between bad good and good evil

Post#248 17 Dec 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
Back to top
   
Krzysztof2_15
Poziom 10
Poziom 10


Joined: 11 Dec 2008
Posts: 50

Post#249 18 Dec 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
Back to top
   
dganmar
Poziom 9
Poziom 9


Joined: 09 Jan 2008
Posts: 42
Location: Świdwin

Post#250 21 Dec 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
Code:
'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

Back to top
   
*zaba*
Poziom 13
Poziom 13


Joined: 27 Feb 2008
Posts: 124
Location: Pawłowice

Post#251 19 Jan 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
Code:

  $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ć

Code:


  $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
Back to top
   
dganmar
Poziom 9
Poziom 9


Joined: 09 Jan 2008
Posts: 42
Location: Świdwin

Post#252 20 Jan 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 ;]
Back to top
   
*zaba*
Poziom 13
Poziom 13


Joined: 27 Feb 2008
Posts: 124
Location: Pawłowice

Post#253 20 Jan 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
Code:

  $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
 Description:
0.00

Download
 Filesize:  4.93 MB




Back to top
   
dganmar
Poziom 9
Poziom 9


Joined: 09 Jan 2008
Posts: 42
Location: Świdwin

Post#254 27 Jan 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
Code:
do
loop
end


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

Code:
$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 ;]
Back to top
   
piotr 171
Poziom 2
Poziom 2


Joined: 30 Jan 2007
Posts: 4
Location: wrocław

Post#255 17 Feb 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
Back to top
   
Mis
Poziom 14
Poziom 14


Joined: 17 May 2002
Posts: 168
Location: Bytom

Post#256 17 Feb 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ą).
Back to top
   
Google

Google Adsense


Post# 17 Feb 2009 22:52   





Back to top
   
elek555
Poziom 23
Poziom 23


Joined: 19 Jan 2006
Posts: 3399
Location: between bad good and good evil

Post#257 18 Feb 2009 07:16   

Re: Zegarek LED z sekundami


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

-Mis -zerknij może z jakim kwarcem współpracuje µC z tematu
Back to top
   
Mis
Poziom 14
Poziom 14


Joined: 17 May 2002
Posts: 168
Location: Bytom

Post#258 18 Feb 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.
Back to top
   
konrad92
Poziom 14
Poziom 14


Joined: 26 Aug 2006
Posts: 177
Location: Dubna/Bestwina

Post#259 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.

Elektroniczny zegarek LED z sekundami

Elektroniczny zegarek LED z sekundami

Elektroniczny zegarek LED z sekundami
Back to top
   
budzik33
Poziom 8
Poziom 8


Joined: 28 Apr 2006
Posts: 29
Location: Kielce

Post#260 03 Apr 2009 22:00   

Re: Zegarek LED z sekundami


Ruszył za pierwszym razem
Back to top
   
farmer92
Poziom 8
Poziom 8


Joined: 05 Dec 2008
Posts: 29
Location: Mysłowice

Post#261 26 Sep 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
Back to top
   
Alemucha
Poziom 11
Poziom 11


Joined: 09 Oct 2009
Posts: 69
Location: Koluszki

Post#262 07 Nov 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
Back to top
   
joozwa
Poziom 21
Poziom 21


Joined: 20 Feb 2007
Posts: 1388
Location: Łódź

Post#263 07 Nov 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
Back to top
   
wilczasty
Poziom 13
Poziom 13


Joined: 12 Jan 2010
Posts: 139
Location: Kraków

Post#264 10 Feb 2010 19:54   

Re: Zegarek LED z sekundami


Witam,

Przepraszam, że odkopuję temat, ale nie chciałem tworzyć nowego.
Chciałem się zapytać czy byłą by możliwość dopisana do dodatkowej opcji która by pokazywała datę przykładowo: 23.02.09 i tak aby wyświetlało przykładowo godzinę 8s a datę 2s. Oraz żeby można było łatwo ustawić tą datę.

Pozdrawiam,
wilczasty :-)
Back to top
   
Google

Google Adsense


Post# 10 Feb 2010 19:54   





Back to top
   
Mateo18
Poziom 10
Poziom 10


Joined: 19 Mar 2009
Posts: 57
Location: Dobczyce

Post#265 11 Feb 2010 17:02   

Re: Zegarek LED z sekundami


mam problem z tym zegarem a dokładnie ze softem gdyż na wyświetlaczu mam same ósemki i nic innego soft mam z wczesniejszego postu ma ktoś pomysł w czym tkwi problem... pozdrawiam..

Dodano po 24 [minuty]:

chciałbym zamiast wyś. led założyć taki oto wyświetlacz z playera audio ale mam problem z jego odpaleniem ma ktoś pomysł jak to zmontować.

Elektroniczny zegarek LED z sekundami


http://www.elektroda.pl/rtvforum/viewtopic.php?p=7664646&highlight=#7664646
Back to top
   
idepopizze
Poziom 16
Poziom 16


Joined: 11 Dec 2008
Posts: 333
Location: małe

Post#266 06 May 2010 00:06   

Re: Elektroniczny zegarek LED z sekundami


@Mateo18

Jeżeli w dalszym ciągu chcesz zamontować ten wyświetkacz VFD to trzeba będzie przerobić zasilacz, żeby uzyskać napięcie do zasilania jak również stopnie sterujące segmentami w lampie. Potrzebne będzie dwa układy ULN 2804. Pozostała część układu pozostanie bez zmian.
Tu link do zbliżonej konstrukcji żeby nieco rozjaśnić temat.
Link
Back to top
   
Mateo18
Poziom 10
Poziom 10


Joined: 19 Mar 2009
Posts: 57
Location: Dobczyce

Post#267 08 May 2010 00:13   

Re: Elektroniczny zegarek LED z sekundami


dzięki za tego linka teraz wiem jak to zasilić sprawdziłem i działa jak uda mi się połączyć ten wyświetlacz z zegarem to pokarze jak to wyszło

Dodano po 3 [minuty]:

a ten projekt zegarka kwarcowego udało mi sie uruchomić mój błąd-ustawiłem atmege na 1MHz zamiast na 8MHz i dla tego nie ruszyło:)

Dodano po 1 [minuty]:

projekt fajny ale ciężko wykalibrować nawet trymerem

Dodano po 6 [minuty]:

teraz planuje zrobić taki zegar do kuczni z datą i temperaturą ale znowu problem ze softem albo konstrukcją sam już nie wiem co jest nie tak... http://www.elektroda.pl/rtvforum/viewtopic.php?p=7959856&highlight=#7959856
Back to top
   
PiRo_man
Poziom 3
Poziom 3


Joined: 22 Mar 2010
Posts: 7
Location: Świerklany

Post#268 23 May 2010 21:55   

Re: Elektroniczny zegarek LED z sekundami


Nie potrafię zaprogramować tego układu. Nie wiem o co chodzi. Mam ATmegę48 zamiast 8, niby wgrywa program, cyfry podczas programowania migają, po chwili gasną i nic się nie dzieje.

P.S. Jeśli zrobię zwarcie przy nóżkach Atmegi VCC z GND cyfry się zaświecają. Nie znam się na tym za bardzo i ciekawi mnie czy tak ma być?

Używam programatora USBasp, przesyłam programem avrdude.
Back to top
   
Mariuszek15
Poziom 20
Poziom 20


Joined: 18 Sep 2005
Posts: 913
Location: Chrzanów

Post#269 24 May 2010 11:03   

Re: Elektroniczny zegarek LED z sekundami


PiRo_man Program jest na ATMEGA8 a nie Atmega48 i dlatego Ci nie działa..
Back to top
   
PiRo_man
Poziom 3
Poziom 3


Joined: 22 Mar 2010
Posts: 7
Location: Świerklany

Post#270 26 May 2010 15:45   

Re: Elektroniczny zegarek LED z sekundami


Udało mi się go przerobić pod 48-kę. Inne rejestry po prostu były i to wszystko. Mam teraz problem z SIG_OUTPUT_COMPARE i z wyglądem cyfr na wyświetlaczu. Cały czas świecą mi się same dziewiątki... Przyciski do ustawienia godzin i minut również jeszcze nie działają, ale do tego to już spróbuję sam dojść.

Ma ktoś jakiś pomysł co może być z tym SIGiem i tymi dziewiątkami?
Back to top
   
Post new topic  Reply to topic      Main Page -> Forum Index -> Download, Articles -> Elektroniczny zegarek LED z sekundami
Statement for Wykop Statement for Facebook Statement for Delicious Statement for Digg Statement for Google Statement for Twitter Statement for Blip
Page 9 of 20 Go to page Previous  1, 2, 3 ... 8, 9, 10 ... 18, 19, 20  Next
Jump to page:
Similar topics
Kolejny zegarek LED na AtMega8, ale dokładny (160)
Mikrodot zegarek z kolorowych diod LED (10)
Najprostszy zegarek LED. Proszę o schemat. (2)
Zegarek na reke z wyswietlaczem LED na ATtiny2313 (24)
Zegarek na led (atmega8). (12)
Nie działa elektroniczny zegarek - zrobiony samodzielnie (14)
Strobeshnik zegarek stroboskopowy LED z dysku twardego (12)
Zegarek LED pic 16F84A na płytce uniwersalnej (21)

Page generation time: 1.581 seconds


FAQ || Administrator || Moderators || Widgets and banners || Contact
elektroda.pl topic RSS feed