Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Додаток 1 ⇐ ПредыдущаяСтр 2 из 2
Призначення виводів мікросхеми КР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.
|