Тьнька2313 И 7 Сегментник.

**hwg76** · 15 мая, 2011

Ага...Этот кусок прога вообще не выполняет...

Реклама

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

**Андрей Шпакунов** · 15 мая, 2011

Типа надо так ?

SHET:
INC CIKL
INC CIKL2
CPI CIKL,10
CPI CIKL2,10
BRLO T1
LDI CIKL,0
LDI CIKL2,0
T1:
RETI

запустил так, вс пашет. а вот как сделать до 99 недопираю.

Изменено 15 мая, 2011 пользователем Андрей Шпакунов

Реклама

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

**hwg76** · 15 мая, 2011

И как она пашет?Вот то что у тебя получилось:

SHET:
INC CIKL  ;прибавить 1 к регистру CIKL
INC CIKL2 ;прибавить 1 к регистру CIKL2
CPI CIKL,10 ;сравнить CIKL с 10
CPI CIKL2,10 ;сравнить CIKL2 с 10
BRLO T1 ;если CIKL2 меньше 10,перейти на метку Т1
LDI CIKL,0 ;записать в CIKL 0
LDI CIKL2,0 ;записать в CIKL2 0
T1:      ;метка Т1
RETI  ;выход из подпрограммы прерываний

а вот какой алгоритм должен быть(если это секундомер до 99):

ПОДПРОГРАММА ПРЕРЫВАНИЙ.rar

Реклама

Выбираем схему BMS для корректной работы литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ, также как и для других, очень важен контроль процесса заряда и разряда, а специализированных микросхем для этого вида аккумуляторов не так много. Инженеры КОМПЭЛ подготовили список имеющихся микросхем и возможных решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

**Андрей Шпакунов** · 15 мая, 2011

О, спасибо огромное. Вобщем пошол дальше читать книги.

**hwg76** · 15 мая, 2011

Про 99 я не совсем понял.Когда будет 99,счёт должен остановиться?

**Андрей Шпакунов** · 15 мая, 2011

Обнулится, но я сам разберусь.

**Андрей Шпакунов** · 23 мая, 2011

Извините вопрос снимается. Вы чут-чуть ошиблись в выложеном файле:

Надо не CPI CIKL,0 а CPI CIKL,10 и тоже самое касательно CIKL2.

П.С. Извините что долго не писал, просто времени не было.

Зародился следущий вопрос. Как урезать это до 60сек? С десятками всё просто, а вот с еденицами у меня выходит только до 69сек. уже всю голову сломал, как это сделать??? Зарание спасибо.

Изменено 23 мая, 2011 пользователем Андрей Шпакунов

**hwg76** · 23 мая, 2011

Надо не CPI CIKL,0 а CPI CIKL,10 и тоже самое касательно CIKL2.

Да,всё верно,прошу прощения-перепутал.

...а вот с еденицами у меня выходит только до 69сек...

Почему 69,а не 59? А 60 это будет 0 если в цикле.

**Андрей Шпакунов** · 24 мая, 2011

Ой, извините, просто вчера не допер. Сделал так и всё работает. Спасибо!

Теперь новая идея: сделать этот же секундомер но на дин. индикации. Прочитал по этому поводу несколько статей, но не понял. Пожалуйста, подтолкните в нужном направлении. Зарание спасибо!

Изменено 24 мая, 2011 пользователем Андрей Шпакунов

**hwg76** · 24 мая, 2011

Алгоритм подпрограммы динамической индикации может быть таким(для индикаторов с ОА):

1.Установить единицу на PD.1,ноль на PD.0

2.Вывести цифру единиц в порт PB

3.Дать задержку

4.Установить ноль на PD.1,ноль на PD.0

5.Выключить порт PB

6.Установить ноль на PD.1,единицу на PD.0

7.Вывести цифру десятков в порт PB

8.Дать задержку

9.Установить ноль на PD.1,ноль на PD.0

10.Выключить порт PB

**Андрей Шпакунов** · 24 мая, 2011

Спасибо, буду разбиратся. а как подключать я знаю

**Андрей Шпакунов** · 25 мая, 2011

Сделал всё так как Вы написали, на индикаторах какойто бред. Вот код:

MAIN:
;индикация едениц
ldi Temp, 0b10000000  ; PD1 - 1. PD0 - 0.       
rcall Decod           ; выв. еденицы
rcall Delay           ; задержка
ldi Temp, 0b00000000  ; 0 на PD1,PD0
out PortB,Temp        ; вык. PB

;индикация десятков
ldi Temp, 0b01000000  ; PD1 - 0. PD0 - 1.      
rcall Decod2          ; выв, десятки
rcall Delay           ; задержка
ldi Temp, 0b00000000  ; 0 на PD1,PD0
out PortB,Temp        ; вык. PB

Вот подпрограмма задержки:

;---задержка
Delay:
ldi Temp,0
dll: dec Temp
brne dll
ret

В чем ошибка? Зарание спасибо!

Изменено 25 мая, 2011 пользователем Андрей Шпакунов

**Григорий Т.** · 25 мая, 2011

Андрей Шпакунов, трудно ориентироваться по кусочкам. Это уже для динамической индикации? Вывода в порт D не видно. И программу Decod2 изменили?

**Андрей Шпакунов** · 25 мая, 2011

Да, это для динамики, вот весь код:

.INCLUDE "tn2313def.inc"
.LIST
;--------------
.DEF TEMP=R16 ;рабоч. регистр
.DEF CIKL=R17 ;регистр счёта
.DEF CIKL2=R18 ;регистр счёта
.EQU KDEL=3907;коэф. задержки таймера
;--------------
.dseg
Digit: .byte 4

.CSEG
.ORG 0
;--переопределение вектора прерываний--
RJMP INIT        ;1 RESET 
RETI             ;2 INT0_EXT 
RETI             ;3 INT1_EXT 
RETI             ;4 TIM1_CAPT 
RJMP SHET        ;5 TIM1_COMPA 
RETI             ;6 TIM1_OVF 
RETI             ;7 TIM0_OVF 
RETI             ;8 USART0_RXC 
RETI             ;9 USART0_UDRE 
RETI             ;10 USART0_TXC 
RETI             ;11 ANA_COMP 
RETI             ;12 PCINT 
RETI             ;13 TIMER1_COMPB 
RETI             ;14 TIMER0_COMPA 
RETI             ;15 TIMER0_COMPB 
RETI             ;16 USI_START 
RETI             ;17 USI_OVERFLOW 
RETI             ;18 EE_READY 
RETI             ;19 WDT_OVERFLOW 
;--------------
INIT:
;--иниц. стека--
LDI TEMP,RAMEND
OUT SPL,TEMP
;--настройка портов--
LDI TEMP,0XFF   ;порты B и D
OUT DDRB,TEMP   ;на 
OUT DDRD,TEMP   ;вывод
LDI TEMP,63     ;индикация 0
OUT PORTB,TEMP
;--выкл.компарат.--
LDI TEMP,0X80
OUT ACSR,TEMP
;--настройка таймера--
LDI TEMP,0X0D
OUT TCCR1B,TEMP
LDI TEMP,HIGH(KDEL)
OUT OCR1AH,TEMP
LDI TEMP,LOW(KDEL)
OUT OCR1AL,TEMP
;--опред. маски прерываний--
LDI TEMP,0B01000000 ;разрешено прерывание
OUT TIMSK,TEMP      ;№5
SEI                 ;глобальное разрешение прерываний
;--------------------
;ОСНОВНОЙ ЦИКЛ
MAIN:
;индикация едениц
ldi Temp, 0b10000000  ; PD1 - 1. PD0 - 0.       
rcall Decod           ; выв. еденицы
rcall Delay           ; задержка
ldi Temp, 0b00000000  ; 0 на PD1,PD0
out PortB,Temp        ; вык. PB

;индикация десятков
ldi Temp, 0b01000000  ; PD1 - 0. PD0 - 1.      
rcall Decod2          ; выв, десятки
rcall Delay           ; задержка
ldi Temp, 0b00000000  ; 0 на PD1,PD0
out PortB,Temp        ; вык. PB

;--подпр.прер. по Т1--
SHET:
INC CIKL
CPI CIKL,10 ;сравнить CIKL с 10  
BRLO T1
LDI CIKL,0 ;записать в CIKL 0 
INC CIKL2  ;прибавить 1 к регистру CIKL 2
CPI CIKL2,6
BRLO T1
LDI CIKL2,0

T1:      ;метка Т1 
RETI  ;выход из подпрограммы прерываний

;--декодирование--
DECOD:
CPI CIKL,0
BREQ S0
CPI CIKL,1
BREQ S1
CPI CIKL,2
BREQ S2	   
CPI CIKL,3
BREQ S3
CPI CIKL,4
BREQ S4
CPI CIKL,5
BREQ S5
CPI CIKL,6
BREQ S6
CPI CIKL,7
BREQ S7
CPI CIKL,8
BREQ S8
CPI CIKL,9
BREQ S9
S0:
LDI TEMP,192         ;цифра 0
OUT PORTB,TEMP
RJMP D1
S1:
LDI TEMP,249         ;цифра 1
OUT PORTB,TEMP
RJMP D1
S2:
LDI TEMP,164         ;цифра 2
OUT PORTB,TEMP
RJMP D1
S3:
LDI TEMP,176        ;цифра 3
OUT PORTB,TEMP
RJMP D1
S4:
LDI TEMP,153         ;цифра 4
OUT PORTB,TEMP
RJMP D1
S5:
LDI TEMP,146         ;цифра 5
OUT PORTB,TEMP
RJMP D1
S6:
LDI TEMP,130          ;цифра 6 
OUT PORTB,TEMP
RJMP D1
S7:
LDI TEMP,248           ;цифра 7
OUT PORTB,TEMP
RJMP D1
S8:
LDI TEMP,128          ;цифра 8
OUT PORTB,TEMP
RJMP D1
S9:
LDI TEMP,144          ;цифра 9
OUT PORTB,TEMP
D1:
RET

;--декодирование2--
DECOD2:
CPI CIKL2,0
BREQ SS0
CPI CIKL2,1
BREQ SS1
CPI CIKL2,2
BREQ SS2	   
CPI CIKL2,3
BREQ SS3
CPI CIKL2,4
BREQ SS4
CPI CIKL2,5
BREQ SS5
CPI CIKL2,6
BREQ SS6
CPI CIKL2,7
BREQ SS7
CPI CIKL2,8
BREQ SS8
CPI CIKL2,9
BREQ SS9
SS0:
LDI TEMP,192         ;цифра 0
OUT PORTD,TEMP
RJMP D2
SS1:
LDI TEMP,249         ;цифра 1
OUT PORTD,TEMP
RJMP D2
SS2:
LDI TEMP,164         ;цифра 2
OUT PORTD,TEMP
RJMP D2
SS3:
LDI TEMP,176        ;цифра 3
OUT PORTD,TEMP
RJMP D2
SS4:
LDI TEMP,153         ;цифра 4
OUT PORTD,TEMP
RJMP D2
SS5:
LDI TEMP,146         ;цифра 5
OUT PORTD,TEMP
RJMP D2
SS6:
LDI TEMP,130          ;цифра 6 
OUT PORTD,TEMP
RJMP D2
SS7:
LDI TEMP,248           ;цифра 7
OUT PORTD,TEMP
RJMP D2
SS8:
LDI TEMP,128          ;цифра 8
OUT PORTD,TEMP
RJMP D2
SS9:
LDI TEMP,144          ;цифра 9
OUT PORTD,TEMP
D2:
RET


;---задержка
Delay:
ldi Temp,0
dll: dec Temp
brne dll
ret

**Григорий Т.** · 25 мая, 2011

Майн не закрыт. Decode2 не изменён....

И вообще сделано не логично. Декодеры нужно поместить в тело SHET и выполнить один раз после прерывания, сохранив результат декодирования. А индикация должна работать только с готовыми данными.

Изменено 25 мая, 2011 пользователем Григорий Т.

**Андрей Шпакунов** · 25 мая, 2011

Ясно, значит пошел воевать дальше.

**hwg76** · 26 мая, 2011

В AVR Studio есть отладчик(кнопка Start Debugging),очень полезная вещьч-можно просмотреть как работает прога по шагам,как меняются значения регистров,таймеров и т.д.Очень рекомендую...

Теперь по порядку:

...
.dseg
Digit: .byte 4
...

Зарезервировали в ОЗУ 4 байта памяти.Если не секрет для чего?

...
MAIN:
;индикация едениц
ldi Temp, 0b10000000  ; PD1 - 1. PD0 - 0.       
rcall Decod           ; выв. еденицы
rcall Delay           ; задержка
ldi Temp, 0b00000000  ; 0 на PD1,PD0
out PortB,Temp        ; вык. PB
;индикация десятков
ldi Temp, 0b01000000  ; PD1 - 0. PD0 - 1.      
rcall Decod2          ; выв, десятки
rcall Delay           ; задержка
ldi Temp, 0b00000000  ; 0 на PD1,PD0
out PortB,Temp        ; вык. PB
...

А вот,что на самом деле:

...
MAIN:
;индикация едениц
ldi Temp, 0b10000000  ; записали в Temp число 0b10000000(а надо бы 0b00000001)и забыли про него...         
rcall Decod           ; вызв. подпрогр.Decod
rcall Delay           ; вызв. подпрогр.Delay
ldi Temp, 0b00000000  ; записали в Temp число 0
out PortB,Temp        ; перекинули Temp в порт В
;индикация десятков
ldi Temp, 0b01000000  ; записали в Temp число 0b01000000(а надо бы 0b00000010)и забыли про  него...    
rcall Decod2          ; вызв. подпрогр.Decod2
rcall Delay           ; вызв. подпрогр.Delay
ldi Temp, 0b00000000  ; записали в Temp число 0
out PortB,Temp        ; перекинули Temp в порт В
...

После этого выполнится подпрогр. SHET и начнётся перезагрузка с метки INIT...

P.S.:подпрогр.Decod и Decod2 очень похожи,как бы сделать одну универсальную?...

**Андрей Шпакунов** · 26 мая, 2011

А, значит надо так?

MAIN:
;индикация едениц
ldi Temp, 0b00000001  ; записали в Temp число 0b00000001     
out PortD,temp        ; перекинули Temp в порт D 
rcall Decod           ; вызв. подпрогр.Decod
out PortB,CIKL        ; перекинули в порт В
rcall Delay           ; вызв. подпрогр.Delay
ldi Temp, 0b00000000  ; записали в Temp число 0
out PortD,temp        ; перекинули Temp в порт D        

;индикация десятков
ldi Temp, 0b00000010  ; записали в Temp число 0b00000010
out PortD,temp        ; перекинули Temp в порт D 
rcall Decod2          ; вызв. подпрогр.Decod2
out PortB,CIKL        ; перекинули в порт В
rcall Delay           ; вызв. подпрогр.Delay
ldi Temp, 0b00000000  ; записали в Temp число 0
out PortD,temp        ; перекинули Temp в порт D 

ret

Но непонял две вещи: Как выкл РВ и совсем непонял как обьеденить ДЕКОДы?

Изменено 26 мая, 2011 пользователем Андрей Шпакунов

**hwg76** · 26 мая, 2011

Смотрим:

MAIN:
;индикация едениц
ldi Temp, 0b00000001  ; "включили" индикатор     
out PortD,temp        ;  единиц (ОК)
rcall Decod           ; декодировали единицы и вывели на индикатор единиц(ОК)
out PortB,CIKL        ; вывели в порт В недекодированное знач. единиц(это к чему?) 
rcall Delay           ; дали погореть единицам(ОК)
ldi Temp, 0b00000000  ; записали в Temp число 0(и чего?)

;индикация десятков
ldi Temp, 0b00000010  ; записали в Temp число 0b00000010(ОК)
out PortD,temp        ; перекинули Temp в порт D (ОК)
rcall Decod2          ; вызв. подпрогр.Decod2(Decod2 не переделана под дин. индикацию)
out PortB,CIKL        ; перекинули в порт В знач. Cikl (?...)
rcall Delay           ; вызв. подпрогр.Delay (ОК)
ldi Temp, 0b00000000  ; записали в Temp число 0(?...)

ret

...Как выкл РВ...

Записать в него 0.

...как обьеденить ДЕКОДы?

Переделайте Decod2 и сравните чем он отличается от Decod.

Изменено 26 мая, 2011 пользователем hwg76

**Андрей Шпакунов** · 26 мая, 2011

Вот, теперь вроде всё правильно:

MAIN:
;индикация едениц:
ldi Temp, 0b00000001  ; записали в Temp число 0b00000001     
out PortD,temp        ; и вывели еого в порт Д 
rcall Decod           ; вызв. подпрогр.Decod 
rcall Delay           ; вызв. подпрогр.Delay
ldi Temp, 0b00000000  ; записали в Temp число 0
out PortD,temp        ; перекинули Temp в порт D
out PortB,temp 

;индикация десятков
ldi Temp, 0b00000010  ; записали в Temp число 0b00000010
out Port,temp        ; и вывели еого в порт Д
rcall Decod2          ; вызв. подпрогр.Decod2
rcall Delay           ; вызв. подпрогр.Delay
ldi Temp, 0b00000000  ; записали в Temp число 0
out PortD,temp        ; перекинули Temp в порт D
out PortB,temp 
ret

Вот правленый декод2(как я понял его надо только урезать)

;--äåêîäèðîâàíèå2--
DECOD2:
CPI CIKL2,0
BREQ SS0
CPI CIKL2,1
BREQ SS1
CPI CIKL2,2
BREQ SS2	   
CPI CIKL2,3
BREQ SS3
CPI CIKL2,4
BREQ SS4
CPI CIKL2,5
BREQ SS5
CPI CIKL2,6
BREQ SS6
SS0:
LDI TEMP,192         ;öèôðà 0
OUT PORTB,TEMP
RJMP D2
SS1:
LDI TEMP,249         ;öèôðà 1
OUT PORTB,TEMP
RJMP D2
SS2:
LDI TEMP,164         ;öèôðà 2
OUT PORTB,TEMP
RJMP D2
SS3:
LDI TEMP,176        ;öèôðà 3
OUT PORTB,TEMP
RJMP D2
SS4:
LDI TEMP,153         ;öèôðà 4
OUT PORTB,TEMP
RJMP D2
SS5:
LDI TEMP,146         ;öèôðà 5
OUT PORTB,TEMP
RJMP D2
SS6:
LDI TEMP,130          ;öèôðà 6 
OUT PORTB,TEMP
D2:
RET

Разница между ними только в кол-ве цифр и в том что в 1 ЦИКЛ, а в другом ЦИКЛ2.

Изменено 26 мая, 2011 пользователем Андрей Шпакунов

**hwg76** · 26 мая, 2011

Вроде гуд!Отладчик что говорит?

Разница между ними только в кол-ве цифр и в том что в 1 ЦИКЛ, а в другом ЦИКЛ2.

Ага...А занимает пол страницы...Может в подпрограмме вместо CIKL и CIKL2 использовать какой нибудь временный регистр(скажем CIK),а перед вызовом подпрограммы в CIK засовывать значение CIKL или CIKL2?А кол-во цифр взять максимальное?

**hwg76** · 26 мая, 2011

Ещё надо добавить в подпрограмму прерываний кое-что:

SHET:
PUSH TEMP
IN TEMP,SREG
...
;ТЕЛО ПОДПРОГРАММЫ ПРЕРЫВАНИЙ 
... 
OUT SREG,TEMP
POP TEMP
RETI

Изменено 26 мая, 2011 пользователем hwg76

**Андрей Шпакунов** · 26 мая, 2011

Понял, вопрос снимается, сейчас буду делать.

Значит декодирование должно выглядить так?

;--декодирование--
DECOD:
CPI CIK,0
BREQ S0
CPI CIK,1
BREQ S1
CPI CIK,2
BREQ S2	   
CPI CIK,3
BREQ S3
CPI CIK,4
BREQ S4
CPI CIK,5
BREQ S5
CPI CIK,6
BREQ S6
CPI CIK,7
BREQ S7
CPI CIK,8
BREQ S8
CPI CIK,9
BREQ S9
S0:
LDI TEMP,192         ;цифра 0
OUT PORTB,TEMP
RJMP D1
S1:
LDI TEMP,249         ;цифра 1
OUT PORTB,TEMP
RJMP D1
S2:
LDI TEMP,164         ;цифра 2
OUT PORTB,TEMP
RJMP D1
S3:
LDI TEMP,176        ;цифра 3
OUT PORTB,TEMP
RJMP D1
S4:
LDI TEMP,153         ;цифра 4
OUT PORTB,TEMP
RJMP D1
S5:
LDI TEMP,146         ;цифра 5
OUT PORTB,TEMP
RJMP D1
S6:
LDI TEMP,130          ;цифра 6 
OUT PORTB,TEMP
RJMP D1
S7:
LDI TEMP,248           ;цифра 7
OUT PORTB,TEMP
RJMP D1
S8:
LDI TEMP,128          ;цифра 8
OUT PORTB,TEMP
RJMP D1
S9:
LDI TEMP,144          ;цифра 9
OUT PORTB,TEMP
D1:
RET

Изменено 26 мая, 2011 пользователем Андрей Шпакунов

**hwg76** · 26 мая, 2011

ОК!

...
MOV CIK,CIKL
RCALL DECOD
...
MOV CIK,CIKL2
RCALL DECOD
...

Изменено 26 мая, 2011 пользователем hwg76

**Григорий Т.** · 26 мая, 2011

Андрей Шпакунов, MAIN у вас всё же не правильный. Вы включаете индикацию единиц, и только потом начинаете вычислять сегменты. И зачем их вычислять так часто? Достаточно сделать это один раз во время очередного прерывания.

И DECOD можно сделать короче

DECOD:
LDI	ZH,high(table) 	;старший адрес таблицы сегментов
ldi	ZL,low(table)	;младший адрес таблицы сегментов
add	ZL,CIKL		;плюс смещение 
lpm			;поместить элемент таблицы в R0
ret
	;таблица сегментов

.org	FLASHEND-20
table:	.db	192,249,164,176,153,146,130,248,128,144

Изменено 26 мая, 2011 пользователем Григорий Т.

Войти

Тьнька2313 И 7 Сегментник.

Рекомендуемые сообщения

Ссылка на комментарий

Поделиться на другие сайты

Топ авторов темы

Топ авторов темы

Изображения в теме

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Присоединяйтесь к обсуждению

Последние посетители 0 пользователей онлайн

Сообщения