Форум программистов, компьютерный форум, киберфорум
Микроконтроллеры
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 04.11.2020
Сообщений: 2
1

[AT89C4051 (mcu51)] Бегущие огни

04.11.2020, 19:47. Просмотров 721. Ответов 3
Метки нет (Все метки)

Светодиод загорается первый раз дольше чем 1 секунда, при достижении минимального номера эффекта

Задание: Написать программу «Бегущие огни». Программа «Бегущие огни»
должна выводить световые эффекты (не менее 16) с помощью 8 красных светодиодов (см. рис. 9). Эффекты переключаются двумя кнопками. При достижении максимального или минимального номера эффекта дважды по 0.5с. должен засветиться зеленый светодиод. Другая пара
кнопок должна регулировать скорость (не менее 16 скоростей) смены
кадров в эффектах. При достижении минимальной или максимальной
скорости должен засветиться зеленый светодиод на 1с. Если в течении
20 секунд не нажата ни одна кнопка, программа автоматически должна
переключать эффекты в сторону увеличения по циклу с выдержкой
каждого эффекта не менее 30 секунд.

MK 8051 частота 12 MHz

Assembler
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
DAT SEGMENT DATA
RSEG DAT
Speed equ 50h ;переменные
Zero equ 51h; несветящийся светодиод
Red equ 52h ; светящийся светодиод
AutoMode equ 53h ;переключение режима
BITD SEGMENT BIT
RSEG BITD
Direction equ 20h
GreenSleep equ 22h
bAutoMode equ 23h
doubleSleep equ 24h
 
MAIN SEGMENT CODE
RSEG MAIN
LJMP MAIN
CSEG AT 00BH
MOV TH0,#3
MOV TL0,#2
DEC R5 ;декремент задержки от дребезга
JNB P3.7,Skip0
JNB doubleSleep,Skip ;двойное свечение светодиода
CLR P3.7 ;вкл зеленого светодиода
MOV R6,#10 ; 
CLR doubleSleep
 
Skip0:
DEC R6
CJNE R6,#0,Skip
SETB P3.7
 
Skip:
DEC R1
CJNE R1,#0,InterruptEnd
MOV R1,Speed
MOV A,P1
JB Direction,Reverse ;бег влево
RL A
MOV P1,A
CJNE R3,#0,one
CJNE R4,#0,two
    MOV R3,Zero
    MOV R4,Red
    
one:
DEC R3
CLR P1.0
JMP InterruptEnd
two:
DEC R4
SETB P1.0
JMP InterruptEnd
 
Reverse: ;бег вправо
RR A
MOV P1,A
CJNE R3,#0,three
CJNE R4,#0,four
    MOV R3,Zero
    MOV R4,Red
    
three:
DEC R3
CLR P1.7
JMP InterruptEnd
four:
DEC R4
SETB P1.7
 
InterruptEnd:
JNB bAutoMode,returne ;подсчет задержки автопереключения
INC R7
CJNE R7,#200,returne
MOV R7,#0
DEC AutoMode
 
returne:
RETI
SpeedChangeDown: ;уменьшение скорости
INC Speed ;увеличение задержки между переключением
MOV A,Speed
CJNE A,#17,SpeedEndD
DEC Speed
 
SpeedSleepD:
    MOV R6,#20
    CLR P3.7
    
SpeedEndD:
    MOV AutoMode,#2
    MOV R7,#0
    SETB bAutoMode
RET
 
SpeedChangeUp: ;увеличение скорости
    DEC Speed ;уменьшение задержки между переключением
    MOV A,Speed
    CJNE A,#0,SpeedEndD
    INC Speed
    
SpeedSleepU:
    MOV R6,#20
    CLR P3.7
    
SpeedEndU:
    MOV AutoMode,#2
    MOV R7,#0   
    SETB bAutoMode
RET
 
ModeChange: ;подпрограмма изменения режима 
    MOV A,Red
    CJNE A,#8,Change
    JB Direction,ModeUp
    CPL Direction
    JMP ModeEnd
    
Change:
    JB Direction,ModeUp
    CLR C
    SUBB A, Zero
    JNZ PlusZero
    INC Red ;увеличение светящихся светодиодов на 1
    JMP ModeEnd
    
PlusZero:
    INC Zero ;увеличение несветящихся светодиодов на 1
    JMP ModeEnd
    
ModeUp:
    MOV A,Red
    CJNE A,#1,subbing
    JMP SleepMode
    
subbing:
    CLR C
    SUBB A,Zero
    JNZ MinusZero
    DEC Zero ;уменьшение несветящихся светодиодов на 1
    JMP ModeEnd
    
MinusZero:
    DEC Red ;уменьшение светящихся светодиодов(красных) на 1
    MOV A,Red
    CJNE A,#1,ModeEnd
    
SleepMode:
    ;задержка для свечения зеленого светодиода
    MOV R6,#10;
    CLR P3.7
    SETB doubleSleep ;установка двойного свечения светодиода
 
    CLR bAutoMode
    MOV R5,#2
    CJNE R5,#0,$
    LCALL ModeChange ;изменение режима
 
ModeEnd:
    MOV AutoMode,#2 ;обнуление счетчика автопереключения
    MOV R7,#0
    SETB bAutoMode ;запуск счетчика автопереключения RET
    RET
 
MAIN: ;основная программа
SETB P3.7
MOV Speed,#6
MOV Zero,#1
MOV Red,#1
MOV R3,#1
MOV R4,#1
MOV AutoMode,#2
MOV R7,#0
SETB bAutoMode
MOV R1,#2 ;задержка в 50мс перед тем как засветится
MOV TMOD,#00000001b ;настройка 0 таймера(16 бит)
MOV TH0,#21 ; 61
MOV TL0,#26  ;66
MOV IE,#10000010b ;разрешение прерываний для таймера 0
SETB TR0 ;запуск таймера
 
BACKE:
    JB P3.2,sd ;если нажата р3,2
    CLR bAutoMode
    MOV R5,#2
    CJNE R5,#0,$
    JNB P3.2,$
    LCALL SpeedChangeDown ;изменение скорости
 
sd:
    JB P3.3, su ;если нажата р3,3
    CLR bAutoMode
    MOV R5,#2
    CJNE R5,#0,$
    JNB P3.3,$
    LCALL SpeedChangeUp ;изменение скорости
 
su:
    JB P3.4,md ;если нажата р3,4
    CLR bAutoMode
    MOV R5,#2
    CJNE R5,#0,$
    JNB P3.4,$
    CPL Direction ;установка направления
    LCALL ModeChange ;изменение режима
    CPL Direction
md:
    JB P3.5,mu ;если нажата р3,5
    CLR bAutoMode
    MOV R5,#2
    CJNE R5,#0,$
    JNB P3.5,$
    LCALL ModeChange ;изменение режима
 
mu:
    MOV A, AutoMode ;автопереключение режима
    JNZ BACKE
    CLR bAutoMode
    LCALL ModeChange
    INC AutoMode
JMP BACKE
 
END
Подскажите как сделать так, чтобы при достижении максимального или минимального номера эффекта дважды по 0.5с. должен за
0
Миниатюры
[AT89C4051 (mcu51)] Бегущие огни  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.11.2020, 19:47
Ответы с готовыми решениями:

Бегущие огни
Здравствуйте. Использую Keil uVision5, мк - STM32407VG. Хочу написать бегущие огоньки с помощью...

Бегущие огни
сделал давно (лет 8 назад), вернее даже не доделал. Схему даже придумал сам (ну во всяком случае я...

Бегущие огни
Привет всем!Имеется вот такой код для микроконтроллера! #include <iom8535v.h> #include...

Бегущие огни на AtMega48
Здравствуйте! Не могли бы вы, пожалуйста, помочь с написанием кода программы под условия,...

3
950 / 580 / 96
Регистрация: 15.05.2012
Сообщений: 3,384
05.11.2020, 10:13 2
Зажгите 2*0,5= 1сек. А в записке укажите, что промежуток есть, но неразличимый глазом.
0
0 / 0 / 0
Регистрация: 04.11.2020
Сообщений: 2
06.11.2020, 16:49  [ТС] 3
При достижении максимального или минимального номера эффекта дважды по 0.5с. должен засветиться зеленый светодиод.

Так он светится больше одной секунды, затухает и снова загорается примерно на 0.5 ((((((
0
950 / 580 / 96
Регистрация: 15.05.2012
Сообщений: 3,384
07.11.2020, 19:45 4
Assembler
1
2
    MOV R6,#20
    CLR P3.7
и

Assembler
1
2
MOV R6,#10;
    CLR P3.7
подозрительно выглядят.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2020, 19:45

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

К1816ВЕ48. Бегущие огни
Помогите реализовать программу в среде Ассемблер. Задание таково: На светодиодах, подключенных к...

Arduino бегущие огни
Привет . Помогите с бегущими огнями . Я в интернете нашел скетчи для arduino бегущие огни на 7...

Как сделать бегущие огни?
Я не шарю в этом и по этому у меня вопрос. Меня интересует как сделать не одновременное включение и...

ATtiny2313. Бегущие огни с автореверсом
Всем привет. Хочу сделать бегущие огни чтобы с автореверсом. Написал код залил его в...

Бегущие огни как настроить кнопку.
Доброго всем Уважаемые форумчане! Есть некий код бегущих огней (взятый с радиопати), в нём при...

ATtiny 2313. Бегущие огни через прерывания
Помогите пожалуйста отредактировать/исправить код на авр студио. Задание было таково: - "Создать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.