Основы программирования микроконтроллеров ATMega128 и 68hc908. Китаев Ю.В. - 34 стр.

UptoLike

ВУЗ: 

Университет ИТМО | Санкт-Петербург

Составители: 

Рубрика: 

TIMSK.1:=1;//== бит OСIE0:=1 - разрешить прерывания при совпадении
//== текущего значения таймера0 с кодом в регистре совпадения OCR0
end;
var b: boolean;
interrupt TIMER0COMP; //== обработчик прерывания при переполнении
//== таймера0
//== ровно через 1 сек от TOSC=32768Гц в асинхронном режиме
begin
b:=not b; //== мигаем
PORTE.7:= b; //== светодиодом
end;
{ Main Program }
{$IDATA}
begin
Init_Ports;
Init_Timer0Async;
EnableInts; //== разрешить прерывания
loop //== бесконечный цикл
while not ScanKeyOnce(kn) do endwhile;//== ожидаем нажатия на клавишу
key:=byte(keyASCII[kn+1]); //== +1, т.к. в паскале в 0-м байте -длина
//== строки!
while ScanKeyOnce(kn) do endwhile;//== ожидаем отпускание клавишы
case key of //== выполняем действия в соотв-ии с нажатой клавишей
//== (#,*,0..9)
'0'..'9':
PORTE:=%10111111; //== подаем на анод правого 8-ми сегм. инд-ра
//== напряж-е
PORTC:=byte(key8segm[kn+1]); //== выводим 8-ми сегм. код нажатой
//== клавиши на LED индикатор
| //== этот разделитель ‘|’ обязателен
endcase;
endloop;
end myATMega128.
Снова запустите на выполнение программу
и кнопкой Flash ->
Program запишите усовершенствованный код программы в ПЗУ. Затем,
нажимая на клавиши 0,1,2…9 удостовертесь в том, что соответствующие
цифры отображаются на LED индикаторе. Результат покажите
преподавателю.
34

Страницы