Prosty zegar dla AVR

[lewandi]

witam
zaczynam sie trocheuczyć programowaniaw bascomie
napisałem program który działa prawie jak zegar, lecz sekundy zmieniają sie zbyt szybko.
czy ktos moze mi pomóc jak to zrobic, aby było dobrze.
próbowałem z TIMERami, ale mi nic nie wychodzi.
Pozdrawiam
lewandi

[mw]

Tutaj jest odpowiedz.
http://www.forum.ep.com.pl/viewtopic.php?t=15923

[lewandi]

Dzięki, zaraz biore się do roboty

[ Dodano: 28-11-2006, 20:46 ]
niestety chodzi zbyt szybko, to nie są sekundy (przynajmniej o 10x za szybko)
lewandi

[ Dodano: 03-12-2006, 17:45 ]
Witam . Napisałem program- zegar.


"
$sim

Cls
$crystal = 11059200
Config Lcd = 16 * 2
Dim Godzina As Byte , Minuta As Byte , Sekunda As Byte , Sekundy As Byte
Config Timer1 = Timer , Prescale = 1
Enable Timer1
Enable Interrupts
On Timer1 Czas
Delay
Sekunda = 49
Minuta = 58
Godzina = 23
Czas:
Do

Incr Sekunda
If Sekunda = 60 Then
Sekunda = 0
Incr Minuta
End If
If Minuta = 60 Then
Minuta = 0
Incr Godzina
End If
If Godzina = 24 Then
Godzina = 0
End If


Locate 1 , 3
Lcd "Jest teraz "
Lowerline
Locate 2 , 4

If Godzina < 10 Then : Lcd " " : End If : Lcd Godzina ; ":"
If Minuta < 10 Then : Lcd "0" : End If : Lcd Minuta ; ":"
If Sekunda < 10 Then : Lcd "0" : End If : Lcd Sekunda
Loop

Return "



Niestety działa tylko dla procesorów
90s44xx oraz 90s85xx

[jacynka84]

A jak to możliwe że tylko dla tych klocków? Piszesz na początku np

Kod: Zaznacz cały

$regfile = "m8def.dat"

dla atmega8 - sprawdź
ponadto w symulatory nie wierze - wiadomo teoria -praktyka a realny test...

[lewandi]

dzieki
musze sprawdzic
Lewandi