Bascom AVR: Ustawienia czasu w automacie schodowym na ATtiny2313 nie działają

Question

Potrzebuje pomocy z Bascomem! Oto moj plik zrodlowy, program ma (w podstawowej wersji) dzialac jak automat schodowy, a po kompilacji i programowaniu obojetnie jak ustawie zworki(wedle schematu) swiatlo wylacza sie po tym samym czasie(ok7,8s)... Czemu??? Jakby co to SW1 jest do ustawiania...

Mol · Answer

Config Portb = Input : Portb = &B11111111 'wedle schematu
Config Portd = &B0111100 : Portd = &B1000011 'dipswitche to wejscia...

Zamiast tego sprubój ddrb = &B00000000, ddrd = &B11111111 , nie wiem czemu portb ustawiasz ( Portb = &B11111111) przeciesz to wejścia.No i podłącz od plusa jakieś oporniki pod oba porty.

LordBlick · Answer

1. Po co pod port wyjściowy rezystory podciagające ? Jak już to do GND, aby przy resecie cudów nie było (stan wysokiej impedancji) 2. Nie słyszał kolega, ze przy takiej konfiguracji (DDRX=0 PORTX=1) portów podciągnięcie już jest po wewnętrznych rezystorach w µkontrolerze ? Polecam , jest tam sporo dokumentacji... electro_Nick : Może jednak by czasik w procedurze timera zmniejszać i gdy się wyzeruje podjąć akcję wyłączenia ? Pozdr. Light-I

electro_Nick · Answer

@Mol: port ustawiam zeby rezystory podciagajace sie wlaczyly... @light jaka to roznica zeby zmiejszac? Powinno teoretycznie dzialac w obu przypadkach... Ale moge sprobowac....

LordBlick · Answer

Bo w każdym przypadku układ się wyłączy, jak licznik dojdzie do 120, no nie ? Zamiast nielegancko zamieniać kod switchy na BCD, nie lepiej przykładowo wczytać całość stanu portu ?: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka_SW = PORTB BTW : Dla czytelności warto kod programu zaznaczyć myszą i wcisnąć przycisk Code, zajmuje wtedy on minej miejsca przy czytaniu i łatwiej jest wyodrębnić logiczną całość. Podprocedury można odzielic pustymi liniami. Pozdr. Lighti

zumek · Answer

UPDATE: Powinieneś usunąć Return-y w: Select Case Tryb .. Pozdrawiam Piotrek PS I czemu jest tak .... dziwnie napisany

LordBlick · Answer

Nie widzę oświeżania TCNT1, co nie jest zbyt dużym pominięciem, bo będzie działać, ale czas wywoływania można doprecyzować, bo póki co przerwanie wykonuje się co $$\frac {Xtal}{1024 \cdot 256}$$. Nie widze definicji zegara (Xtal).

Co do kodu można go niebywale skrócić wstawką asemblerową (pewnie w bascom też jest możliwość optymalizacji, ale ja wolę asm...

Spokojnie wywalamy ten "skomplikowany" kod konwersji stanów switchy na czas i tryb oraz wyrzucamy zmienne : Jedynkaczas, Dwojkaczas, Czworkaczas, Jedynkatryb, Dwojkatryb, Czworkatryb, Osemkatryb, Trybpomoc, Trybpomocdwa, Osemkaczas, Czaspomoc, Czaspomocdwa
----------------------------------
Edit : usunięto niedopracowany kod...

----------------------------------
Oczywiście wpisywane dane dla "Czasik" są inne, ale to już jak na mnie za duzo do poprawiania. w podobnych programach pisanych pod AVRasm2 robię tak, że kompilator przelicza żądany czas na wpisywane wartości, mając do dyspozycji prędkość zegara (Xtal) i okres wywołań i mogę wtedy sobie hulac z różnymi kwarcami i preskalerem timera, a i tak wszystko bedzie latać jak należy.
Pozdrawiam Light-I

Mam na sprzedaż:
30.07.2005 Moduł laserowy audio Philips VAM2201

zumek · Answer

Ja bym powiedział , że $$\frac {Xtal}{1024 \cdot 65536}$$ bo T1 pracuje w trybie 16-bit . Pozdrawiam Piotrek

LordBlick · Answer

Racja, mi najbardziej jednak chodziłoby o to, aby zrobic tak, że przerwanie wystepuje dokładnie co sekundę, wtedy Czasik byłby w sekundach, a jego rozmiar może być zamiast Byte - Word... - zabarłbym się nawet do edycji poprzedniego postu, ale nie mam zmiennej Xtal... Pozdr, Light-I

electro_Nick · Answer

Podlaczam uklad do Xtala 8867KHz, ale w bascomie to niepotrzebne no nie?

Dodano po 35 [minuty]:

@light:
cos jest z tym Twoim programem nietak... Teraz zarowka wcale sie nie wylacza... A nawet prescale zmienilem na 8...

LordBlick · Answer

Już pisałem (pod źródłami) co jest nie tak... Co do Xtal to w każdym języku jest to istotne... Jeżeli zmieniasz kwarc to piszesz program od nowa ? A tak jak uzależnisz wartości zmiennych od Xtal i prescale to zmieniasz definicje na początku, a program działa dalej prawidłowo...
No to poprawiony kod (niesprawdzony

) :

CONST T1_Prescale = 1024
CONST T1_Okres = 500 ' ms
CONST Podzial_ms = 1000 ' milisecond divisor
CONST OkresoSekunda = Podzial_ms / T1_Okres
CONST T1Delay = (_XTAL/(OkresoSekunda*T1_Prescale))	
DIM NastawaCzasu As Byte, NastawaTrybu As Byte, LicznikCzasu As Word
CONFIG Timer1 = Timer , Prescale = T1_Prescale
CONFIG ACI = Off
LOAD Timer1, T1Delay
CONFIG PORTB = Input : PORTB = &B11111111 'wedle schematu
CONFIG PORTD = &B0111100 : PORTD = &B1000011 'dipswitche to wejscia...
ENABLE Timer1
ENABLE Interrupts
On Timer1 PomiarCzasu
Do
Debounce Pind.6 , 0 , Wlaczanie , Sub 'gdy zostanie przycisniety
Loop
End ' Ta instrukcja się nie wykona, jest tylko dla ozdoby ;-)
'------------------
Wlaczanie:
$asm
in r16, PINB
com r16
ldi r18, 8
OdwracanieBit:
clc
ror r16
rol r17
dec r18
brne OdwracanieBit
mov r16, r17
swap r17
andi r16, 0x0F
andi r17, 0x0F
sts {NastawaCzasu}, r16
sts {NastawaTrybu}, r17
$end asm
Select Case NastawaCzasu 'wybor czasu wylacznia
Case 0 'czasy wylaczen
LicznikCzasu = 7*OkresoSekunda '7 sekund
Case 1
LicznikCzasu = 14*OkresoSekunda '14 sekund
Case 2
LicznikCzasu = 21*OkresoSekunda '21 sekund
Case 3
LicznikCzasu = 28*OkresoSekunda '28 sekund
Case 4
LicznikCzasu = 50*OkresoSekunda '50 sekund
Case 5
LicznikCzasu = 60*OkresoSekunda '60 sekund
Case 6
LicznikCzasu = 80*OkresoSekunda '80 sekund
Case 7
LicznikCzasu = 100*OkresoSekunda '100 sekund
Case 8
LicznikCzasu = 2*60*OkresoSekunda '2 minuty
Case 9
LicznikCzasu = 5*30*OkresoSekunda '2,5 minuty
Case 10
LicznikCzasu = 4*60*OkresoSekunda '4 minuty
Case 11
LicznikCzasu = 6*60*OkresoSekunda '6 minut
Case 12
LicznikCzasu = 8*60*OkresoSekunda '8 minut
Case 13
LicznikCzasu = 15*60*OkresoSekunda '15 minut
Case 14
LicznikCzasu = 20*60*OkresoSekunda '20 minut
Case 15
LicznikCzasu = 30*60*OkresoSekunda '30 minut
End Select ' Wszystkie przypadki wymienione, wiec innych nie bedzie...
Select Case NastawaTrybu
'--------
Case 1
Set Portd.2
Bitwait Pind.6 , Reset
Set Portd.3
Reset Portd.2
Bitwait Pind.6 , Reset
Set Portd.4
Reset Portd.3
Bitwait Pind.6 , Reset
Set Portd.5
Reset Portd.4
'--------
Case 2
Set Portd.2
Set Portd.3
Bitwait Pind.6 , Reset
Set Portd.4
Set Portd.5
Reset Portd.2
Reset Portd.3
Bitwait Pind.6 , Reset
Reset Portd.2
Reset Portd.3
Reset Portd.4
Reset Portd.5
'--------
Case 3
Set Portd.2
Set Portd.3
Set Portd.4
Set Portd.5
Bitwait Pind.6 , Reset
'--------
Case Else
$asm
sbi PORTD, 5 ; wszystkie zarowki
sbi PORTD, 4 ; sa zapalane na ustalony
sbi PORTD, 3 ; czas...
sbi PORTD, 2
$asm end
End Select
Return
'------------------
PomiarCzasu:
LOAD Timer1, T1Delay
If LicznikCzasu != 0 Then
Decr LicznikCzasu
else
$asm
cbi PORTD, 5
cbi PORTD, 4
cbi PORTD, 3
cbi PORTD, 2
$asm end
End If
Return

Prawda, że ładne ?

Uwaga : Ostatnia zmiana 3:23 27-03-2005 (po zmianie strefy czasowej...

)
Pozdr, Light-I

Mam na sprzedaż:
30.07.2005 Moduł laserowy audio Philips VAM2201

zumek · Answer

Pozwolisz Light-I na małą korektę :?:

... dzięki :wink:



Wlaczanie:
Select Case NastawaCzasu
...
End Select ' Wszystkie przypadki wymienione, wiec innych nie bedzie...
...

zamieńmy na


...
Tablica:
Data 7% , 14% , 21% , 28% , 50% , 60% , 80% , 100%
Data 120% , 150% , 240% , 360% , 480% , 900% , 1200% , 1800%
Wlaczanie:
Licznikczasu = Lookup(nastawaczasu , Tablica)
Licznikczasu = Licznikczasu * Okresosekunda
...

Prawda, że też ładne ? :wink:

Oszczędzimy trochę flashu i klawiatury

a)W kilku miejscach miast $end asm "pisnąłeś" $asm end".
b)a=x*y*z w Bascomie nie przejdzie

Pzdr.
Piotrek

PS
Reset Portx.x Bascom "tłumaczy na" cbi PORTx.x(Set/sbi) więc nie ma potrzeby pisać w asm.

LordBlick · Answer

No cóż, ja tk lubię asembler... OkresoSekunda jest stałą, więc kompilator powinien policzyć, co trzeba ? Przynajmniej mój kompilator (Avrasm) nie ma z takimi sprawami problemu... . Oczywiście stablicowanie to jest myśl... W każdym bądź razie zastrzegam się, że jakiekolwiek rozważania na temat Bascoma przeprowadzam na podstawie Helpa, nic nie kompilując... Pozdrawiam, Light-I

electro_Nick · Answer

Niestety, znowu was zmartwie... Program dziala jak uklad czasowy, ale ustawianie czasu nie ma sensu poniewaz i tak chyba Atmel sam losuje kiedy ma wylaczyc...
Czas jaki otrzymalem przy tym samym ustawieniu zworek to: od 2sekund do 7sekund... O co moze chodzic tym razem???
_xtal zmienilem na 8867, moze powinienem 8867000(w hertzach?)

LordBlick · Answer

oczywiście że w Hz... By się przydała jakaś zmienna, która by przekazywała do procedury przerwania, kiedy ma liczyć(= 1), a kiedy nie(=0) Pozdr. Light-I

electro_Nick · Answer

ale czy to moglo miec az taki wplyw na to, ze ten uklad niemal losowal kiedy ma wylaczyc???

LordBlick · Answer

Szczerze powiedziawszy nie mam pojęcia, Bascom jest dla mnie zbyt skomplikowany wewnętrznie i trzeba by podejrzeć kod wynikowy w asm, aby coś stwierdzić, np. czy te wstawki asemblerowe nie kłócą się z resztą kodu. Asembler dla mnie ma proste i przejrzyste klocki, z którymi można zrobic prawie wszystko, a można jak najbardziej uzywać w nim zmiennych (danych w pamieci SRAM), we wszystkim pełna kontrola nad mikrokontrolerem. Najbardziej jestem w stanie pomóc, gdyby projekt realizowano w asemblerze AVRasm2 od AVRStudio v.4.11 od Atmela (freeware).
P.S. Czy linia resetu w rzeczywistości wisi w powietrzu, czy też jest podciągnięta jakimś rezystorkiem (np. 10kΩ) do Vcc ?
P.S.2 Tabela zumka nie zgadza się z wcześniejszymi założeniami programu (OkresoSekunda wynosi 2)
P.S. 3 Znowu poprawiłem kod

:

CONST T1_Prescale = 1024
CONST T1_Okres = 500 ' ms
CONST Podzial_ms = 1000 ' milisecond divisor
CONST OkrSec = Podzial_ms / T1_Okres
CONST T1Delay = (_XTAL/(OkrSec*T1_Prescale))	
DIM NastawaCzasu As Byte, NastawaTrybu As Byte, LicznikCzasu As Word
CONFIG Timer1 = Timer, Prescale = T1_Prescale
CONFIG ACI = Off
LOAD Timer1, T1Delay
CONFIG PORTB = Input : PORTB = &B11111111 'wedle schematu
CONFIG PORTD = &B0111100 : PORTD = &B1000011 'dipswitche to wejscia...
ENABLE Timer1
ENABLE Interrupts
On Timer1 PomiarCzasu
Do
Debounce Pind.6, 0, Wlaczanie, Sub 'gdy zostanie przycisniety
Loop
End ' Ta instrukcja się nie wykona, jest tylko dla ozdoby ;-)
'------------------
Wlaczanie:
$asm
in r16, PINB
com r16
ldi r18, 8
OdwracanieBit:
clc
ror r16
rol r17
dec r18
brne OdwracanieBit
mov r16, r17
swap r17
andi r16, 0x0F
andi r17, 0x0F
sts {NastawaTrybu}, r17
rjmp UstawLicznikCzasu
TablicaCzasu:
.dw 7*OkrSec, 14*OkrSec, 21*OkrSec, 28*OkrSec, 50*OkrSec, 60*OkrSec, 80*OkrSec, 100*OkrSec
.dw 120*OkrSec, 150*OkrSec, 240*OkrSec, 360*OkrSec, 480*OkrSec, 900*OkrSec, 1200*OkrSec, 1800*OkrSec
UstawLicznikCzasu:
ldi ZH, high(1<<TablicaCzasu)
ldi ZL, low(1<<TablicaCzasu)
lsl r16 ; Oczywiście tablica jest z elementów dwubajtowych - "word" i index mnożymy * 2 ;-)
ldi r17, 0
add ZL, r16
adc ZH, r17
lpm
mov  r16, r0
ld r0, Z+
lpm
mov  r17, r0
cli
sts {LicznikCzasu}, r16
sts {LicznikCzasu+1}, r17
sei
$end asm
Select Case NastawaTrybu
'--------
Case 1
Set Portd.2
Bitwait Pind.6, Reset
Set Portd.3
Reset Portd.2
Bitwait Pind.6, Reset
Set Portd.4
Reset Portd.3
Bitwait Pind.6, Reset
Set Portd.5
Reset Portd.4
'--------
Case 2
Set Portd.2
Set Portd.3
Bitwait Pind.6, Reset
Set Portd.4
Set Portd.5
Reset Portd.2
Reset Portd.3
Bitwait Pind.6, Reset
Reset Portd.2
Reset Portd.3
Reset Portd.4
Reset Portd.5
'--------
Case 3
Set Portd.2
Set Portd.3
Set Portd.4
Set Portd.5
Bitwait Pind.6, Reset
'--------
Case Else
$asm
sbi PORTD, 5 ; wszystkie zarowki
sbi PORTD, 4 ; sa zapalane na ustalony
sbi PORTD, 3 ; czas...
sbi PORTD, 2
$end asm
End Select
Return
'------------------
PomiarCzasu:
LOAD Timer1, T1Delay
If LicznikCzasu <> 0 Then
Decr LicznikCzasu
else
$asm
cbi PORTD, 5
cbi PORTD, 4
cbi PORTD, 3
cbi PORTD, 2
$end asm
End If
Return

Pozdrawiam, Light-I

Mam na sprzedaż:
30.07.2005 Moduł laserowy audio Philips VAM2201

electro_Nick · Answer

reset wisis w powietrzu, podobno w AVR nie trzeba do niego nic podlaczac...(POR tam jest...). Ten program i tak nadal szaleje, dziala za pierwszym razem tylko...
Light, moze podjalbys sie napisania tego shitu od poczatku pod asm, tak zeby dzialal, oczywiscie za pieniadze...??? Jestem zdesperowany, za kilka dni potrzebuje to oddac bo to ma byc moja praca dyplomowa...

Dodano po 1 [minuty]

Poczekaj moment, wrzuce ten kod do bascoma i skomplikuje, tzn skompiluje...

Dodano po 3 [minuty]:

ldi XH, high(TablicaCzasu)
ldi XL, low(TablicaCzasu)
lsr r16 ' Oczywiście tablica jest z elementów dwubajtowych - "word" i index mnożymy * 2 ;-)

ldi r17, 0
add XL, r1

w linii od lsr pokazuje blad: (or) missing... czyzby tam brakowalo or?
poza tym gdzies bylo != zamiast =, to zmienilem...

LordBlick · Answer

Zależy czy to mowa o ATtiny2313, czy AT90S2313... Pomyliłem się, powinno być Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkalsl r16 Tak jak jest w Nocie katalogowej, nie wiem jak Bascom, ale asm nie ma do takiego wyrażenia zastrzeżeń. Powinno być wyrażenie, które by oznaczało, że wyrażenie jest różne od 0, chyba Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaLicznikCzasu  0 Then a to != wzięło mi się z asemblera i tam oznacza tak samo różne od... Pozdr. Light-I

electro_Nick · Answer

chodzi o AT90S2313, jak na schemacie, mozliwe ze przez to ze dawalem tam = uklad nie dzialal tak jak powinien...

zumek · Answer


$crystal = 8867000
$regfile = "2313def.dat"
Const T1_prescale = 1024
Const T1_okres = 500
Const Podzial_ms = 1000
Const Okresosekunda = Podzial_ms / T1_okres
Const T1delay = _xtal /(okresosekunda * T1_prescale)
Const Timer1_wpisz = &HFFFF - T1delay
Config Aci = Off
Config Timer1 = Timer , Prescale = 1       'T1_prescale
Config Portb = Input : Portb = &B11111111
Config Portd = &B0111100 : Portd = &B1000011
Dim Nastawaczasu As Byte , Nastawatrybu As Byte , Licznikczasu As Word
Enable Interrupts
On Timer1 Pomiarczasu

Licznikczasu = 0       'dla spokojności ducha
Do
   Debounce Pind.6 , 0 , Wlaczanie , Sub       'gdy zostanie przycisniety
   While Licznikczasu <> 0 : Wend
Loop
End       ' Ta instrukcja się nie wykona, jest tylko dla ozdoby ;-)
'------------------
Tablica:
Data 7% , 14% , 21% , 28% , 50% , 60% , 80% , 100%
Data 120% , 150% , 240% , 360% , 480% , 900% , 1200% , 1800%

Wlaczanie:
'dla uproszczenia kodu , odwrócone bity "nastwników"
Nastawaczasu = Portb Xor &HFF
Nastawatrybu = Nastawaczasu And &H0F

Shift Nastawaczasu , Right , 4
Licznikczasu = Lookup(nastawaczasu , Tablica)
Licznikczasu = Licznikczasu * Okresosekunda
Select Case Nastawatrybu
'--------
Case 1
   Set Portd.2
   Bitwait Pind.6 , Reset
   Set Portd.3
   Reset Portd.2
   Bitwait Pind.6 , Reset
   Set Portd.4
   Reset Portd.3
   Bitwait Pind.6 , Reset
   Set Portd.5
   Reset Portd.4
'--------
Case 2
   Set Portd.2
   Set Portd.3
   Bitwait Pind.6 , Reset
   Set Portd.4
   Set Portd.5
   Reset Portd.2
   Reset Portd.3
   Bitwait Pind.6 , Reset
   Reset Portd.2
   Reset Portd.3
   Reset Portd.4
   Reset Portd.5
'--------
Case 3
   Set Portd.2
   Set Portd.3
   Set Portd.4
   Set Portd.5
   Bitwait Pind.6 , Reset
'--------
Case Else
   Set Portd.5       ' Wszystkie Zarowki
   Set Portd.4       ' Sa Zapalane Na Ustalony
   Set Portd.3       ' Czas...
   Set Portd.2
End Select
Timer1 = Timer1_wpisz
Reset Tifr.tov1
Enable Timer1
Return
'------------------
Pomiarczasu:

Timer1 = Timer1_wpisz
If Licznikczasu <> 0 Then
   Decr Licznikczasu
Else
   Disable Timer1
   Reset Portd.5
   Reset Portd.4
   Reset Portd.3
   Reset Portd.2
End If
Return

To powinno działać :wink:

Nie rozumiem "fajerwerków" dla trybów 1-3 i UWAGA - funkcja Debounce wykorzystuje Timer1.

Piotrek

electro_Nick · Answer

Na razie moge tyle powiedziec, ze komipluje bez bledu...

zumek · Answer

Aj... zapomniałem przestawić Prescale na 1024 i w kodzie jest na 1 , bo testowałem w AVRStudio Piotrek

LordBlick · Answer

Powinno być OK po :Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka Prescale = T1_prescale Nie ma to jak zgrana ekipa na elektrodzie... Pozdr. Light-I

electro_Nick · Answer

W tym programie jest wszystko OK, ale w ukladzie to dziala tak ze obojetnie jaki czas ustawie to wylacza sie po 7.74s Co moze byc tego przyczyna?

zumek · Answer

He he he he he ....
Ale ze mnie ?:? osioł :wink:


Nastawaczasu = Portb Xor &HFF

A przecież MUSIMY czytać Piny a nie Port , bo stan portu się nie zmienia.
Zamień powyższą linię na:


Nastawaczasu = Pinb Xor &HFF

I nie ma bata.

Piotrek

electro_Nick · Answer

Nie wiem czy dobrze kombinuje ale pinb to chyba pojedynczy pin a nie caly port... Musze to sprawdzic w ukladzie...

zumek · Answer

Nie. Pinb to wszystkie bity i/o o adresie 0x16 , a portb to 0x18. I nie ma różnicy czy Potrb,Pinb,Ddrb zawsze możemy odczytać cały rejestr lub pojedynczy bit . Piotrek

electro_Nick · Answer

Uklad (niestety) dziala tak jak przedtem, wedle mojego symulatora z bascoma nie sa zmieniane zmienne nastawatrybu i nastawa czasu...

zumek · Answer

Drogi kolego electro_Nick.
Zapuściłem symulator z Bascoma i ... działa, AVRStudio i ... działa.
a)ustaw pułapkę na "Nastawaczasu = Pinb Xor &HFF"
b)po zatrzymaniu programu na w/w lini wpisz do PINB FF(nie PORTB)
c)wykonaj kilka kroków i zatrzymaj sie na "Case 1"
d)zmienna "licznikczasu" bedzie wynosić 14
e)zresetuj symulator
f)uruchom ponownie
g)po zatrzymaniu na pułapce i nie zmieniając PINB
h)wykonaj kilka kroków i zatrzymaj sie na "Case 1"
i)zmienna "licznikczasu" bedzie wynosić 3600

I mówisz , że nie działa :?:

Piotrek

Bascom AVR: Ustawienia czasu w automacie schodowym na ATtiny2313 nie działają

Dlaczego ustawianie czasu zworkami nie działa w automacie schodowym na ATtiny2313 i wyłączenie następuje zawsze po tym samym czasie?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Post #21

Post #22

Post #23

Post #24

Post #25

Post #26

Post #27

Post #28

Post #29

Post #30

Podsumowanie tematu