|
| |
|
Слаботочка Книги 210 GOTO 120 В строках 130-160 контролируется понижение температуры ниже заданного и в соответствующий разряд выходного порта записывается 1 . В строках 170-190 вычисляется десятичное число для вывода в строке 200 8-разрядного двоичного числа. Например, если температура снижена в комнатах 2 и 6, то Р(2)-2 и Р(6)-32, а Zn34, что соответствует сигналу на выходе порта 001000Ю, по которому включаются насосы 2 и 6. Если в разных комнатах необходимо подцерживать различную температуру, то строки 130-160 придется изменить, например так: 130 FOR Х-1 ТО 5 140 LETP(X)-0 150 IFIN24<20THENLETP(1)-1: IF IN 25 < 25 THEN LET P(2)-2: IF IN 26 < 30 THEN LEN P (3)-4: IF IN (26+X) < 40 THEN P(3+X)-2P(2+X) 160 NEXTX Температура может контролироваться и с помощью кондиционеров и охлаждающих вентиляторов при этом в строке 150 проверка заменяется на . Диапазон измерения температуры может бьггь широким от отрицательных температур (например в детекторе мороза для гаража) до точки кипения для контроля неисправности бойлера. Программа может вырабатывать и звуковой сигнал тревоги при выходе температуры за заданные пределы. Например: IF IN 24 < 5 THEN LET Р(1)-1: BEEP 1,10 Эта программа может бьггь использована как подпрограмма в таймере: 10 : РОКЕ 23674,0 РОКЕ 23673,0:РОКЕ 23672,0 20 LET Т-ШТ((65536*РЕЕК 23674+256*РЕЕК 23673+РЕЕК 23672)/50) 30 IFQ>-7*T*3600 OR Q<-10*T*36OO OR Q>-15*T*3600 ORQ<-22*t*3600 THEN GO SUB 110 40 IFO-24*T*3600GOTO10 220 RETURN Строки 110-210 - это программа описанная выше строки 220 RETURN. Эта программа будет поддерживать трубуемую температуру с 7 до 10 утра и с 3 до 10 вечера. При необходимости в программу могут быть вк.<1ючены более сложные подпрограммы. 10 DIM а(8): DIMb(lOO): DIM р (100): DIM q(lO) 20 LET2r*:LETy-0:LET<rO 100 INPUT number of events ;a: LET gra 105 PRINT g 110 PRINT event period 120 FORn-lTOa 130 INPUT type 8-diglt number ;b(n) 140 PRINT n 150 INPUT type interval up to 255 ;p(n) 160 PRINT TAB 6;b(n);TAB 20;p(n) 170 LETz-b(n) 180 GO SUB 230 190 POKE (4000O+2*n),y 200 POKE (40001+2*n),p(n) 210 NEXTn 220 PRINT press any ke0) Start program : MUSE 0: GO TO 300 230 LET y-0 235 FOR v-8 TO 1 STEP-1 240 IFINT ((10(v-l -z)<-0THENLETq(v)-2(v-l):GOTO260 250 IF INT ((10 (y-1)) -z) >0 THEN LET q(v)-0: GO TO 270 260 LETz-(z-(10(v-l))) 270 LETy-y+q(v) 280 NEXTv 290 RETURN 300 FORb-lTOg i 310 LETy-PEEK (40000+2 b) 320 OUT 31,у 330 GO SUB 500 340 PRINT event ;b; ;z 350 PRINT TAB 17; period ;b; ;PEEK (40001+2*b) 360 LET Q-PEEK (40001+2*b); GO SUB 600 365 GOSUB 1110 370 NEXT b 380 GO TO 300 500 LETz-0 °V . 505 F0RW-8T01 STEP-Г ~ 510 IFINT (y-(2(w-l)))<0THENLETa(w)-0:GOro54feJ 520 IFINT (y42W-l)))>M)THENi1tA(W)-10( Щ 530 LETy-(y-(2(w-l))) 540 LETr-z+a(w) 550 NEXTw 560 RETURN 600 POKE 23674,0: POKE 23673,0: POKE 23672,0 610 LET t-INT ((65536*PEEK 23674+256*PEEK 23673+PEEK 23672)/50) 620 IF Q>-t THEN RETURN 630 GO TO 610 1110 DIMp(lO) 1120 LETz-0 изо FOR x-1 то 8 1140 LETp(x)-0 1150 IF IN (23+XX20 THEN LET p(x)-2(x-l) 1160 NEXTx 1170 FOR x-1 TO 8 1180 LETz-z-p(x) 1190 NEXTx 1200 OUT 31,2 1210 GOTO 1120 1220 RETURN 5.8. ОХРАННАЯ СИгаАЛИЗАЦИЯ Эта программа использует 8 входов АЦП вместе с ЦАП или выходным портом j подачи звукового сигнала тревоги когда по любому из входов сиганал превысит; вень 10. 10 FOR Х-1 ТО В 20 PRINT AT 2*X,0; INPUT ; X ; IN (23+X) 30 IF IN (23+X)>10 THEN GOTO 100 40 NEXT X 50 GOTO 10 100 PAUSE 100 110 IFIN(23+X)>10THENGOTO130 120 GOTO 40 130 CLS : FLASH 1: PRINT BREAK IN INPUT ; X; ALARM 140 OUT 31.255: GO TO 140 Программа выводит на экран значения входных сигналов для проверки датчиков, в качестве которых используются: 1. Простые переключатели подсоединенные к дверям и окнам при закрытом состоянии которых переключатели замкнуты и вырабатывают О . 2. Нажимные переключатели большой плош,ади, располагаемые под половиком. Которые в исходном состоянии вырабатывают О . 3. Датчики использующие инфракрасные лучи. 4. Магнитные или емкостные датчики приближающихся предметов расположен- ные на главных направлениях вокруг дома. 5. Комбинация всех датчиков. Подключив Отдельный оптрон к любому из выходов порта можно включать дополнительный звуковой или световой сигнал тревоги. Программу можно модернизир вать для получения прерывистого сигнала тревоги: 140 OUT 31,255; PAUSE 10: OUT 31,0: PAUSE 10: GOTQ 140 1 Программа не должна поднимать тревогу, если муха пересечет инфракрасный луч или ветер толкнет дверь и входной сигнал АЦП на мгновение возрастет. Строка 100 обеспечивает задержку на несколько секунд для повторной проверки перед подачей сигнала тревоги. 6. ПОЛЕЗНЫЕ СОВЕТЫ в этой главе описаны некоторые доработки которые не используют ЦАП или АЦП, но могут быть очень полезны при эксплуатации СПЕКТРУМА. Диапазон доработок лежит от дополнительного куска провода до замены клавиатуры. Все они должны рассматриваться как желательные, но не обязательные. 6.1 ОЖИВЛЕНИЕ ЗАВИСШЕЙ СИСТЕМЫ Иногда при запуске прогр&мм в машинных кодах или программ на БЕЙСИКЕ, содержащих подпрограммы ш машинных кодах, информация на экране пропадает, причиной этого может быть одна или несколько ошибок, таких как бесконечные циклы, отсутствие оператора возврата (201),-деление на О и т.д. кратковременное соединение выводов INTh ОВ при нажатых клавишах SHIFT/BREAK может вернуть обратно управление системе, принтом пользователь может продолжить поиск ошибок или написание программы без перезагрузки. Тем не менее хорошей привычкой будет сохранение программы на всех этапах ее создания. Это уменьшит ущерб при разрушении загруженной программы и затраты времени на ее восстановление. Кнопка замыкающая вывод INThQB может быть установлена на плате АЦП, ЦАП или любой другой, а также на неболыиой плате специально сдеданиой для кнопки. Порядок действий в случае зависания системы следующий; ? 1 Нажать кнопки SHIFT и BREAK-- 2 Один раз нажать кнопку INT. - - 3 Нажать ENTER и на экране появится листинг программы. Необходимо отметить, что эта операция не все1Да приводит к успеху, но дает дополнительный шанс при зависании системы. 6.2. УСИЛИТЕЛЬ ЗВУКА Динамик в СПЕКТРУМЕ очень мал и звук от него почти не слышен в шумной комнате. Звук может быть усилен при подключении к разъемам EAR и MIC кассетного магнитофона, который нужно переключить в режим ЗАПИСЬ и ПАУЗА и установить наиболыпую громкость. =- --f - =~ ~ ~ - ~ Неслоасная;дорабопса дешевого транзисторного приемника может предоставить пользоватёмо следующие удобства: 1. Усиление вьЬсодноп) сигнала ВЕЕР до желаемого уровня. № 2. Слуховой контроль сигналов записи и воспроизведения. 3. Усиление выходного сигнала ЦАП. 4. Исключение необходимости переключения штеккеров при загрузке и сохранении программ. 5. Прослушивание радиопередач во время работы на компьютере. Самые дешевые транзисторные приемники стоят всего 2-3 ф.с. и очень просты. Внутри корпуса расположена печатная плата на которой установлен ре1уляторуровня и органы настройки, небольшая 9В батарейка и громкоговоритель. При этом имеется достаточно свободного пространства для монтажа доработок. Проводники соединяющие радиоприемник и СПЕКТРУМ должны быть около 10 см. Переключатель устанавливается между гаездом и штеккером EAR для предупреждения обратной связи, возможной при подключении всех штеккеров. Переключатель должен иметь марки- ровку SAVE/LOAD. Наконец гаездо и штеккер MIC подключается коротким отрезком экранированного провода к регулятору уровня. Ре1улятор уровня используется обьм-ным образом. Элементы могут быть смонтированы внутри самым различным образом. В корпусе приемника сверлятся отверстия для гнезд, переключателя и выводящих проводов. Пока приемник используется в качестве усилителя его лучще настроить на свободную от радиостанций частоту. Для тех кто не хочет портить карманный радиоприемник можно предложить использовать в качестве усилителя для СПЕКТРУМА микросхему LM380. Подключение к магнитофону и СПЕКТРУМУ аналогично подключению радиоприемника. Интересно приблизить приемник к работающему СПЕКТРУМУ - звук из прием- . иикй (в виде шума) будет индицировать, что каждую секунду электрическая схема компьютера выполняет миллионы операций. 6.3. МОДЕРНИЗАЦИЯ КЛАВИАТУРЫ Клавиатура СПЕКТРУМА значительно лучше чем у ZX80 и ZX81, но уступает J многим другим компьютерам. Клавиатура СПЕКТРУМА, например, не дает уверен- ности при нажатии кнопки, легко можно промахнуться или держать клавишу нажа-/ той слишком долго, так что на экране появится несколько символов. Сравнительно несложно заменить кнопки СПЕКТРУМА на более удобные. Я приобрел дополнительную клавиатуру за несколько пенсов и с минимумом затрат получил полезное усовер-шенствование компьютерной системы. Клавиатура подключается к двум разьемам внутри корпуса. Это единственная доработка трвЗующая открывания корпуса. Это следует делать как можно реже, поскольку соединение разьемов клавиатуры очень слабое. Клавиатура представляет собой матрицу ключей, подключенных к разъемам KB 1 и КВ2. Четыре горизонтальных ряда кнопок составклены из 8 групп по 5 кнопок и подключены к разъему КВ2. Вертикальные колонки объединены попарно и подключены к рязъему кв1. Ряд и колонка нажатой кнопки определяется специальной подпрограммой ROM. Для замены клавиатуры необходимо: 1. Открыть корпус и отключить два гибких разъема от KB 1 и КВ2. 2. Собрать новую клавиатуру по приведенной схеме и подключить с помощью гибкого кабеля к KB 1 и КВ2. Для подключения использовать 0,1 дюймовые штырьки, которые вставляются в КВ1 и КВ2. 3. Проверить работу клавиатуры и при необходимости устранить ошибки подключения. 4. Нанести иа кнопки соответствующие надписи. Старая клавиатура может быть сохранена для другого применения. Неплохо поместить СПЕКТРУМ с новой клавиатурой в пылезащитный футляр для предохранения электронной схемы и переключателей клавиатуры. 1. Можно использовать стабилизатор типа 317К с регулируемым выходным напряжением от 1,2 до 37В и током нагрузки до 1,5А. Для изготовления стабилизатора требуется минимум дополнительных элементов. Другим положительным свойством такого решения является возможность работы с разряженным до 1 ОВ аккумуляторе *. 2. Вместо стабилизатора можно использовать гасящие элементы, которые снизят напряжение с 12 до 9,5В. С учетом проблемы охлаждения наиболее подходят для этой цели 4 кремниевых диода с максимально допустимым током до ЗА, например типа 1N5400. Эти диоды сравнительно дешевы и имеют простую форму корпуса, что облегчает их монтаж на плате. Диоды включаются последовательно в прямом направлении. В СПЕКТРУМЕ имеется собственный стабилизатор для использования внешних источников питания с нестабилизированнымиапряжением, поэтому полученное с помощью гасящих диодов ийвряжение 9,5В можИО сразу подавать на СПЕКТРУМ без дополнительной стабилизации. Необходимо отметить, что одновременное подключение СПЕКТРУМА и ТУ создает существенную нагрузку на автомобильную батарею, однако из-за помех по питанию включать двигатель для подзарядки аккумулятора нельзя. 65. АВАРИЙНЫЙ ИСТОЧЙИК ПИТАНИЯ Источник сетевого питания не всегда и не везде работает без перерывов. В сельской местности, например, часто бывают кратковременные перерывы электропитания, приводящие к разрушению загруженных в. память СПЕКТРУМА программ. Если установнтьбатареюРР9и подключить еечерез ЗА днод типа 1N5400, тоэто позволит пользователю сохранить программу находящуюся в памяти СПЕКТРУМА при пропадании сетевого питания. При длительном отсутствии сетевого напряжения можно сохранить загруженную программу на кассете, если магнитофон имеет питание от батарей. Нет необходимости делать какой- либо индикатор пропадания сетевого питания - при пропадании питания от сети погаснет экран телевизора. Диод отключает батарею при нормальной работе сети, однако при вьпслючении СПЕКТРУМА батарею необходимо отключать. Ленинград - Москва 1991 -1992.  6.4. СПЕКТРУМ В АВТОМАШИНЕ Этот проект не относится к каким либо новьпл разработкам, он предназначен для тех кто использует СПЕКТРУМ во время путешествий или просто вне дома, когда источником питания является 12В автомобильная аккумуляторная батарея или гене- ратор. Для питания СПЕКТРУМА требуется источник питания 9В с током до 1,2А. К ,> сожалению, стабилизатор с таким напряжением найти трудно, чаще встречаются стабилизаторы 5В, 12В, 15В. В этой ситуации можно предложить два выхода: 1 2 3 4 5 6 7 8 9 [10] 11 12 13 |