Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






Додаток 1





 

Призначення виводів мікросхеми КР1533ИР27

та її таблиця істинності.

 

 

Пояснення до таблиці

 

L - стан логічного нуля на виводі

H - стан логічної одиниці

X - будь-який стан

Q0 - попередній стан

 

 

ЗМІСТ

 

 

Навчальне видання

ПОСІБНИК

До лабораторного практикуму з курсу

²ЕОМ-експеримент та машинна обробка інформації²

для студентів радіофізичного факультету.

Частина 1

Упорядники: САВЕНКОВ Сергій Миколайович

ГОРУЛЬКО Роман Володимирович

 

 

Оригінал-макет підготовлено авторами

 


Uses Lpt,crt; {приєднуємо модуль, що працює з паралельним портом}

Var

Reg1, reg2, reg3: byte;

Data1, data2:word;

Begin

Data1:=1320;

Data2:=2354;

 

Reg1:=data1 and $ff; {виділяємо 8 молодших розрядів для каналу 1}

Reg3:=data2 and $ff; {виділяємо 8 молодших розрядів для каналу 2}

 

Reg2:=Reg2 or ($0f and trunc((data1 and $F00)/256); {Формуємо старшу частину

даних каналу 1 та записуємо до молодшого напівбайту до змінної, дані з якої будуть записані у регістр2 }

 

Reg2:=Reg2 or ($f0 and trunc((data2 and $F00)/16); {формуємо старшу частину даних каналу 2 у старшому напівбайті змінної регістру2}

 

{тепер посилаємо дані до порту}

Senddata(Reg1);

Delay(1)

{тепер виставляємо керуючі сигнали}

SendUpr(4+1); {128*0+64*0+32*0+16*0+8*0+4*1+2*0+1*1 - так встановлено біти в регістрі керування}

Delay(1); {пауза стробування. Її значення більше за 0.01 Сек.}

SendUpr(4); {вмикаємо строб}

Delay(1);

SendUpr(4); {вимикаємо строб}

{Тепер повторюємо те ж саме для каналів 2 та 3}

Senddata(Reg2);

Delay(1);

SendUpr(1); {128*0+64*0+32*0+16*0+8*0+4*0+2*0+1*1}

Delay(1);

SendUpr(0);

Delay(1);

SendUpr(1);

Senddata(Reg3);

Delay(1);

SendUpr(4+8+1); {128*0+64*0+32*0+16*0+8*0+4*0+2*0+1*1}

Delay(1);

SendUpr(4+8);

Delay(1);

SendUpr(4+8+1);

end.

 

 

Date: 2015-09-19; view: 214; Нарушение авторских прав; Помощь в написании работы --> СЮДА...



mydocx.ru - 2015-2024 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию