ATNEL tech-forum

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-28T19:12:21+01:00

No to równie dobrze mogą migać te wartości których nie ustawiasz

Statystyki: Napisane przez barney — 28 cze 2013, o 19:12

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-28T17:59:58+01:00

Za bardzo skomplikowane jak na moją znajomość bascoma. Myślałem raczej żeby przyciskiem 1 wybierać czy ustawiam godziny, minuty czy sekundy, a przyciskami 1 i 2 ustawiać - góra, dół. Tylko nie wiem jak zrobić żeby podczas ustawiania np minut, na wyświetlaczu było widać co się ustawia. Np przez miganie minut, albo wyświetlanie w negatywie.

Statystyki: Napisane przez pavel0910 — 28 cze 2013, o 17:59

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-28T17:49:19+01:00

No dla 3 przycisków (1,2,3) proponuje tak:
Długie przytrzymanie 3 wchodzi w tryb programowania
Klikając 2 przełączasz się między godzinami a minutami (wybrana aktualnie wartość mruga).
Klikając 1 zwiększasz wybraną wartość.
Następne kliknięcie w 3 akceptuje dokonane zmiany, brak kliknięć przez ~15 sekund wychodzi bez zmian.

Statystyki: Napisane przez barney — 28 cze 2013, o 17:49

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-28T17:45:08+01:00

Dołożyłem kondensatory 33pF do kwarcu i zegarek ruszył normalnie. Teraz muszę włączyć go na dłużej i sprawdzić czy odmierza czas dokładnie.

Nie wiem jak zrobić jakieś fajne menu do ustawiania godziny za pomocą 3 przycisków. Macie jakiś pomysł? Da się zrobić tak, aby pierwszym przyciskiem wybrać ustawienie godziny i żeby wtedy godzina mrugała? Z minutami i sekundami tak samo.

Statystyki: Napisane przez pavel0910 — 28 cze 2013, o 17:45

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-28T16:50:26+01:00

Ja ze swej strony zaproponowałbym zastosowanie DS1307 albo PCF8583 zdaje się.

Statystyki: Napisane przez matrix — 28 cze 2013, o 16:50

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-28T14:26:34+01:00

Wgrałem do ATmegi taki kod, z książki Pana Wiązani.

[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 8000000

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Cursor Off

Config Clock = Soft
Config Date = Dmy , Separator = /

Enable Interrupts

Time$ = "12:00:00"
Date$ = "28/06/13"

Do
Cls
Lcd Time$
Lowerline
Lcd Date$
Waitms 100
Loop

End[/syntax]

Zegarek działa, ale dalej tak szybko odmierza czas. Kwarc na pewno zegarkowy, kupiłem nowy.

Statystyki: Napisane przez pavel0910 — 28 cze 2013, o 14:26

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-27T20:56:29+01:00

pavel0910 napisał(a):

ATmega ma ustawiony fusebit na wewnętrzny oscylator 8Mhz, do XTAL1 i XTAL2 mam podłączony kwarc zegarkowy.

pavel0910 napisał(a):

Próbowałem różne kwarce.

Jeśli ustawiłeś na wewnętrzny oscylator to mikrokontroler korzysta z tego źródła taktowania (jest więc ok. 8.0MHz). Wewnętrzny oscylator nie jest dobry do zastosowań "zegarkowych".
Ustaw zewnętrzne taktowanie, wtedy będziesz widział efekt podłączania różnych rezonatorów kwarcowych.

Statystyki: Napisane przez nori2 — 27 cze 2013, o 20:56

Re: ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie c

2013-06-27T20:49:39+01:00

Nie znam bascoma ale jak działasz na wewnętrznym oscylatorze to dlaczego podłączasz kwarc zegarkowy pod XTAL? Przecież to Ci nic nie da...

Statystyki: Napisane przez krzyychu — 27 cze 2013, o 20:49

ATmega8 - Bascom - prosty zegarek, szybkie odmierzanie czasu

2013-06-27T20:30:29+01:00

Witam.
Chciałem sobie zrobić prosty zegarek. Napisałem kod, podłączyłem wszystko na mojej płytce testowej i niby działa, ale ... Za szybko odmierza czas. 1 sekunda trwa tutaj dużo krócej. W ciągu 1 minuty w rzeczywistości, naliczy 170 sekund.

ATmega ma ustawiony fusebit na wewnętrzny oscylator 8Mhz, do XTAL1 i XTAL2 mam podłączony kwarc zegarkowy.

Kod wygląda tak:
[syntax=basic4gl]$regfile = "m8adef.dat"
$crystal = 8000000

'------------------------------------------------------------------------------

Config Timer2 = Timer , Async = On , Prescale = 128
On Timer2 Licznik

Enable Interrupts
Enable Timer2

'------------------------------------------------------------------------------

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db5 = Portc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Cursor Off

Cls

'------------------------------------------------------------------------------

Config Portb.5 = Output
Portb.5 = 1

'------------------------------------------------------------------------------

Dim Zmienna As Word

'------------------------------------------------------------------------------

Do
Upperline
Lcd Zmienna
Loop

End

'------------------------------------------------------------------------------

Licznik:
Incr Zmienna
Return[/syntax]

Co może być tego przyczyną? Próbowałem różne kwarce.
Proszę o pomoc i pozdrawiam.

Statystyki: Napisane przez pavel0910 — 27 cze 2013, o 20:30