www.diagram.com.ua
www.diagram.com.ua

Русский: Русская версия English: English version

Translate it!

+ Поиск по всему сайту
+ Поиск по журналам
+ Поиск по статьям сайта
+ Поиск по каталогу схем
+ Поиск по схемам СССР
+ Поиск по Библиотеке

ВСЕ СТАТЬИ А-Я

БЕСПЛАТНАЯ БИБЛИОТЕКА
ЭНЦИКЛОПЕДИЯ РАДИОЭЛЕКТРОНИКИ И ЭЛЕКТРОТЕХНИКИ
СПРАВОЧНИК
АРХИВ СТАТЕЙ

НОВОСТИ НАУКИ И ТЕХНИКИ, НОВИНКИ ЭЛЕКТРОНИКИ

ФОРУМЫ
ВАШИ ИСТОРИИ ИЗ ЖИЗНИ
ОБРАТНАЯ СВЯЗЬ
ОТЗЫВЫ О САЙТЕ

КАРТА САЙТА

Бесплатная техническая библиотека РАЗДЕЛЫ БЕСПЛАТНОЙ ТЕХНИЧЕСКОЙ БИБЛИОТЕКИ:
Архив и лента новостей
Книги и сборники
Технические журналы
Архив статей и поиск
Схемы и сервис-мануалы
Электронные справочники
Русские инструкции
Радиоэлектронные и электротехнические устройства

СКАЧАЙТЕ БЕСПЛАТНО:

ЭНЦИКЛОПЕДИЯ РАДИОЭЛЕКТРОНИКИ И ЭЛЕКТРОТЕХНИКИ БЕСПЛАТНО:
Автомобиль
Автомобильные электронные устройства
Аккумуляторы, зарядные устройства
Акустические системы
Альтернативные источники энергии
Антенны
Антенны КВ
Антенны телевизионные
Антенны УКВ
Антенные усилители
Аудио и видеонаблюдение
Аудиотехника
Блоки питания
Бытовая электроника
Бытовые электроприборы
Видеотехника
ВЧ усилители мощности
Галогенные лампы
Генераторы, гетеродины
Гирлянды
Гражданская радиосвязь
Детекторы напряженности поля
Дозиметры
Дом, приусадебное хозяйство, хобби
Зажигание автомобиля
Заземление и зануление
Зарядные устройства, аккумуляторы, батарейки
Защита электроаппаратуры
Звонки и аудио-имитаторы
Измерения, настройка, согласование антенн
Измерительная техника
Индикаторы, датчики, детекторы
Инструмент электрика
Инфракрасная техника
Кварцевые фильтры
Компьютерные интерфейсы
Компьютерные устройства
Компьютерный модинг
Компьютеры
Личная безопасность
Люминесцентные лампы
Медицина
Металлоискатели
Микроконтроллеры
Микрофоны, радиомикрофоны
Мобильная связь
Модернизация радиостанций
Модуляторы
Молниезащита
Музыканту
Начинающему радиолюбителю
Ограничители сигнала, компрессоры
Освещение
Освещение. Схемы управления
Охрана и безопасность
Охрана и сигнализация автомобиля
Охрана и сигнализация через мобильную связь
Охранные устройства и сигнализация объектов
Переговорные устройства
Передатчики
Передача данных
Предварительные усилители
Преобразователи напряжения, выпрямители, инверторы
Применение микросхем
Пускорегулирующие аппараты люминесцентных ламп
Работа с CAD-программами
Радиолюбительские расчеты
Радиолюбителю-конструктору
Радиоприем
Радиостанции портативные
Радиостанции, трансиверы
Радиоуправление
Разная бытовая электроника
Разные компьютерные устройства
Разные узлы радиолюбительской техники
Разные устройства гражданской радиосвязи
Разные электронные устройства
Разные электроустройства
Регуляторы мощности, термометры, термостабилизаторы
Регуляторы тембра, громкости
Регуляторы тока, напряжения, мощности
Сварочное оборудование
Светодиоды
Синтезаторы частоты
Смесители, преобразователи частоты
Спидометры и тахометры
Справочник электрика
Справочные материалы
Стабилизаторы напряжения
Студенту на заметку
Телевидение
Телефония
Теория антенн
Техника QRP
Технологии радиолюбителя
Технология антенн
Трансвертеры
Узлы радиолюбительской техники
Усилители мощности
Усилители мощности автомобильные
Усилители мощности ламповые
Усилители мощности транзисторные
Усилители низкой частоты
Устройства защитного отключения
Фильтры и согласующие устройства
Цветомузыкальные установки
Цифровая техника
Часы, таймеры, реле, коммутаторы нагрузки
Электрику
Электрику. ПТЭ
Электрику. ПУЭ
Электрические схемы автомобилей
Электрические счетчики
Электричество для начинающих
Электробезопасность, пожаробезопасность
Электродвигатели
Электромонтажные работы
Электронный впрыск топлива
Электропитание
Электроснабжение
Электротехнические материалы

СТАТЬИ БЕСПЛАТНО:
Батарейки и аккумуляторы
Большая энциклопедия для детей и взрослых
Биографии великих ученых
Важнейшие научные открытия
Детская научная лаборатория
Должностные инструкции
Домашняя мастерская
Жизнь замечательных физиков
Заводские технологии на дому - простые рецепты
Инструменты и механизмы для сельского хозяйства
Искусство аудио
Искусство видео
История техники, технологии, предметов вокруг нас
И тут появился изобретатель
Конспекты лекций, шпаргалки
Личный транспорт: наземный, водный, воздушный
Любителям путешествовать - советы туристу
Мобильные телефоны
Моделирование
Опыты по физике
Опыты по химии
Нормативная документация по охране труда
Основы безопасной жизнедеятельности (ОБЖД)
Основы первой медицинской помощи (ОПМП)
Охрана труда
Параметры, аналоги, маркировка радиодеталей
Радио - начинающим
Секреты ремонта
Советы радиолюбителям
Строителю, домашнему мастеру
Справочная информация
Типовые инструкции по охране труда (ТОИ)
Функциональный состав импортных ТВ
Функциональный состав, пульты, шасси, эквиваленты импортных телевизоров
Чудеса природы. Увлекательное путешествие вокруг земного шара
Шпионские штучки
Электрик в доме
Эффектные фокусы и их разгадки

ЖУРНАЛЫ БЕСПЛАТНО:
Блокнот Радиоаматора
Домашний компьютер
Домашний ПК
КВ журнал
КВ и УКВ
Квант
Компьютерра
Конструктор
Левша
Моделист-конструктор
М-Хобби
Наука и жизнь
Новости электроники
Новый Радиоежегодник
Популярная механика
Радио
Радио Телевизия Електроника
Радиоаматор
Радиодело
Радиодизайн
Радиокомпоненты
Радиоконструктор
Радиолюбитель
Радиомир
Радиосхема
Радиохобби
Ремонт и сервис
Ремонт электронной техники
Сам
Сервисный центр
Силовые машины
Схемотехника
Техника - молодежи
Химия и жизнь
ЭКиС
Электрик
Электроника
Юный техник
Юный техник для умелых рук
Я - электрик
A Radio. Prakticka Elektronika
Amaterske Radio
Chip
Circuit Cellar
Electronique et Loisirs
Electronique Pratique
Elektor Electronics
Elektronika dla Wszystkich
Elektronika Praktyczna
Everyday Practical Electronics
Evil Genius
Funkamateur
Nuts And Volts
QEX
QST
Radiotechnika Evkonyve
Servo
Stereophile

КНИГИ СЕРИЙНЫЕ БЕСПЛАТНО:
Библиотека по автоматике
Библиотека электромонтера
Библиотечка Квант
Библиотечка электротехника
Знай и умей
Массовая радиобиблиотека

КНИГИ ПО РАДИОТЕХНИКЕ И ЭЛЕКТРОНИКЕ БЕСПЛАТНО:
Автомобиль
Аппаратура СВЧ
Запись и воспроизведение звука
Ламповая аппаратура
Начинающему радиолюбителю
Охрана и безопасность
Радиолокация, навигация
Радиотехнические технологии
Радиоуправление, моделизм
Робототехника
Схемотехника
Теоретическая электроника, радиотехника
Усилители
Цифровая обработка сигналов
Электроника в быту
Электроника в медицине
Электроника в науке
Электроника для музыканта

КНИГИ ПО РЕМОНТУ БЕСПЛАТНО:
Ремонт аудиотехники
Ремонт бытовая техники
Ремонт видеотехники
Ремонт телевизоров ламповых
Ремонт телевизоров полупроводниковых
Ремонт мониторов
Ремонт оргтехники
Ремонт радиоприемников
Ремонт телефонов и факсов
Спутниковое телевидение
Теория телевидения
Теория ремонта электроники

КНИГИ ПО ИЗМЕРЕНИЯМ БЕСПЛАТНО:
Измерения и метрология
Измерительная аппаратура
Измерительная техника. Схемы и описания

КНИГИ ПО СВЯЗИ БЕСПЛАТНО:
Антенны
Аппаратура любительской радиосвязи
Линии связи, передача данных
Мобильные телефоны
Теория и практика радиосвязи

КНИГИ ПО ЭЛЕКТРИКЕ БЕСПЛАТНО:
Автоматика, автоматизация, управление
Аккумуляторы, элементы питания, зарядные устройства
Альтернативные источники энергии
Источники питания, стабилизаторы, преобразователи
Молниезащита
Осветительная аппаратура
Охрана труда, электробезопасность, пожаробезопасность
Релейная защита
Сварка, сварочное оборудование
Теория электротехники
Устройства телемеханики
Электрику, электромонтажнику, электромеханику
Электрические сети, воздушные и кабельные линии
Электродвигатели
Электрооборудование
Электропривод
Электростанции, подстанции
Электротехнические справочники
Энергетика, электроснабжение

СБОРНИКИ БЕСПЛАТНО:
В помощь радиолюбителю
Радиоаматор-лучшее
Радиоежегодник

СПРАВОЧНИКИ БЕСПЛАТНО:
Зарубежные микросхемы и транзисторы
Измерительная техника. Схемы и описания
Медицинская аппаратура
Механизмы импортной аудио и видеоаппаратуры
Прошивки зарубежной аппаратуры
Пульты ДУ импортных телевизоров
Радиокомпоненты Atmel
Радиокомпоненты Cirrus Logic
Радиокомпоненты Maxim
Радиокомпоненты Microchip
Радиокомпоненты Mitsubishi
Радиокомпоненты Motorola
Радиокомпоненты National Semiconductor
Радиокомпоненты Panasonic
Радиокомпоненты Philips
Радиокомпоненты Rohm
Радиокомпоненты Samsung
Радиокомпоненты Sharp
Радиокомпоненты Sony
Радиокомпоненты Toshiba
Соответствие моделей и шасси телевизоров
Строчные трансформаторы HR
Строчные трансформаторы Konig

СХЕМЫ И СЕРВИС-МАНУАЛЫ БЕСПЛАТНО:
Бытовая техника Beko
Бытовая техника Braun
Бытовая техника Candy
Бытовая техника Elenberg
Бытовая техника Elica
Бытовая техника Gorenje
Бытовая техника Hansa
Бытовая техника Merloni
Бытовая техника SEB
Бытовая техника Snaige
Бытовая техника Stinol
Бытовая техника Universal
Бытовая техника Whirpool

Зарубежные DVD-плееры
Зарубежные автомагнитолы
Зарубежная аудиоаппаратура
Зарубежные видеокамеры
Зарубежные видеомагнитофоны и видеоплееры
Зарубежные мониторы
Зарубежные моноблоки
Зарубежные телевизоры
Зарубежные телефоны
Зарубежные факсы

Мобильники Benq-Siemens
Мобильники Eastcom
Мобильники Ericsson
Мобильники Fly Bird
Мобильники LG
Мобильники Maxon
Мобильники Mitsubishi
Мобильники Motorola
Мобильники Nokia
Мобильники Panasonic
Мобильники Pantech
Мобильники Samsung
Мобильники Sharp
Мобильники Siemens
Мобильники Sony-Ericsson
Мобильники TCL
Мобильники Voxtel

Отечественные телевизоры
Отечественная аудиоаппаратура

Справочники по вхождению в режим сервиса

Схемы блоков питания импортных телевизоров и видеотехники

Телевизоры Avest
Телевизоры Beko
Телевизоры, аудио, видеотехника Elenberg, Cameron, Cortland
Телевизоры Erisson
Телевизоры Rainford
Телевизоры Roadstar
Телевизоры Rolsen
Телевизоры Vestel
Телевизоры Витязь
Телевизоры Горизонт
Телевизоры Рекорд
Телевизоры Рубин

Станки металлообрабатывающие
Электроинструмент Bocsh
Электроинструмент Makita

БЕСПЛАТНЫЙ АРХИВ СТАТЕЙ
(150000 статей в Архиве)

АЛФАВИТНЫЙ УКАЗАТЕЛЬ СТАТЕЙ:
Библиотечка Квант указатель
Библиотека по автоматике указатель
Библиотека электромонтера указатель
Библиотечка электротехника указатель
Блокнот Радиоаматора указатель
В помощь радиолюбителю указатель
Знай и умей указатель
Массовая радиобиблиотека указатель
КВ и УКВ указатель
КВ журнал указатель
Квант указатель
Конструктор указатель
Моделист-конструктор указатель
Наука и жизнь указатель
Новости электроники указатель
Новый Радиоежегодник указатель
Популярная механика указатель
Радио указатель
Радиоаматор указатель
Радиоаматор-лучшее указатель
Радиоежегодник указатель
Радиодело указатель
Радиодизайн указатель
Радиокомпоненты указатель
Радиоконструктор указатель
Радиолюбитель указатель
Радиомир указатель
Радиосхема указатель
Радиохобби указатель
Ремонт и сервис указатель
Ремонт электронной техники указатель
Сам указатель
Сервисный центр указатель
Силовая электроника указатель
Схемотехника указатель
Техника - молодежи указатель
Химия и жизнь указатель
ЭКиС (Электронные компоненты и системы) указатель
Электрик указатель
Электроника указатель
Юный техник указатель
Я - электрик указатель

СПРАВОЧНИК БЕСПЛАТНО

ПАРАМЕТРЫ РАДИОДЕТАЛЕЙ БЕСПЛАТНО

ДАТАШИТЫ БЕСПЛАТНО

ПРОШИВКИ БЕСПЛАТНО

РУССКИЕ ИНСТРУКЦИИ БЕСПЛАТНО


Стол заказов СТОЛ ЗАКАЗОВ:

СХЕМЫ ПОД ЗАКАЗ:
Импортные DVD
Импортные автоаудио
Импортные аудио
Импортные видеокамеры
Импортные видеомагнитофоны
Импортные кондиционеры
Импортные мониторы
Импортные моноблоки
Импортные проекторы
Импортные СВЧ-печи
Импортная спутниковая аппаратура
Импортные стиральные машины
Импортные телевизоры
Импортные телефоны
Импортные факсы
Импортные фотоаппараты
Импортные холодильники

Отечественные автоаудио
Отечественные видеомагнитофоны
Отечественные магнитофоны
Отечественные мониторы
Отечественные приборы
Отечественные радиолы
Отечественные радиоприемники
Отечественные усилители
Отечественные цветные телевизоры
Отечественные черно-белые телевизоры
Отечественные электрофоны


Бонусы БОНУСЫ:

НА ДОСУГЕ:
Интерактивные флеш-игры
Игры он-лайн
Ваши истории
Знаете ли Вы, что...
Зрительные иллюзии
Веселые задачки
Каталог Вивасан
Палиндромы

ИСТОРИИ ИЗ ЖИЗНИ

ССЫЛКИ

ДОБАВИТЬ В ЗАКЛАДКИ

Оставить отзыв о сайте

ДИАГРАММА
© 2000-2017

Дизайн и поддержка:
Александр Кузнецов

Техническое обеспечение:
Михаил Булах

Программирование:
Данил Мончукин

Маркетинг:
Татьяна Анастасьева

Перевод:
Наталья Кузнецова

Контакты

При использовании материалов сайта обязательна ссылка на http://www.diagram.com.ua

сделано в Украине
сделано в Украине

Диаграмма. Бесплатная техническая библиотека

Бесплатная техническая библиотека Бесплатная техническая библиотека Как скачивать файлы с сайта? Как скачивать файлы с сайта? Добавить в закладки, оставить отзывДобавить в закладки, оставить отзыв

Энциклопедия радиоэлектроники и электротехники. Большая подборка статей со схемами, иллюстрациями, комментариями Энциклопедия радиоэлектроники и электротехники

Бесплатная библиотека / Схемы радиоэлектронных и электротехнических устройств

Другая жизнь LPT порта. Часть 2

Энциклопедия радиоэлектроники и электротехники / Компьютеры

Комментарии к статье Комментарии к статье

Для записи сигналов на LPT порт я рекомендую собрать схему (рис. 1), состоящую из восьми переключателей и восьми резисторов сопротивлением 270 Ом - 1 кОм. При данном положении переключателей (кнопок) SW1-SW8 на всех верхних контактах присутствует логическая "1", при замыкании любого – на соответствующем контакте появится логический "0". Контакты можно подключать непосредственно к шине D0-D7 (контакты 2-9, адрес &H378) или к ERROR, SELECT, PAPER END, ACK и –BUSY (контакты 15, 13, 12, 10 и 11, адрес &H379).

Другая жизнь LPT порта

Рис. 1

Для отображения данных идущих с LPT порта рекомендую следующую схему.

Другая жизнь LPT порта

Рис. 2

Резисторы R1-R8 номиналом 270 - 330 Ом, светодиоды любые, скажем АЛ307Б. Питания такая схема не требует, все и так будет светиться. Я себе вывел вообще все сигналы, сразу все видно. А вообще настоятельно рекомендую скачать программу LPT 3D HARD Analyzer на http://valery-us4leh.narod.ru/dlpt.html. Написал ее Валерий Ковтун. С помощью этой программы… в общем сами увидете.

Давайте соберем генератор прямоугольных импульсов на микросхеме К561ЛА7. Питание генератора +5В. Дело в том, что удобнее все устройства собирать, например, на 155, 555 серии, чтобы сигналы имели ТТЛ уровень. Логический "ноль" 0-0,8В и лог "единица" 2,4-4,2В. Удобство 561 серии заключается в универсальности питания - она одинаково хорошо работает от +3В до +12В. Поэтому выбор микросхем остается на ваш вкус, вопрос лишь в том, чтобы получить прямоугольные импульсы амплитудой не более +5В. Схема простого генератора импульсов изображена на рисунке 3.

Другая жизнь LPT порта

Рис. 3

Сам генератор собран на элементах D1.1-D1.3, а элемент D1.4 я просто использовал для более "красивых" фронтов выходных импульсов. R1, R2, C1 – частотозадающие элементы. При данных параметрах элементов частота генерации составляет приблизительно 5-7 Гц. Для наглядности работу генератора можно представить в виде следующего графика:

Другая жизнь LPT порта

Рис. 4

Выход инвертора D1.4 соединен с 2 контактом LPT разъема (шина D0). Перед использованием генератора, необходимо перевести шину D0-D7 в режим приема данных. Для этого на адрес &H37A мы посылаем 43.

Код следующий. Для тех, кто использует

inpout32.dll

dlportio.dll

DOS

Out &H37A, 43 DlPortWritePortUchar &H37A, 43 OUT &H37A, 43

После этого начинаем опрашивать порт &H378.

Код следующий. Для тех, кто использует

inpout32.dll

dlportio.dll

DOS

Dim A as Integer

A = Inp(&H378)

Dim A as Integer

DlPortReadPortUchar(&H378)

DEFINT A-Z

A=INP(&H378)

Переменная A будет принимать значение то 254, то 255. Почему?

D0

D1

D2

D3

D4

D5

D6

D7

 

20

21

22

23

24

25

26

27

 

1

2

4

8

16

32

64

128

 

1

1

1

1

1

1

1

1

255

0

1

1

1

1

1

1

1

254

Дело в том, что после перевода шин D0-D7 в режим приема данных, на них выставляется уровень логической единицы (желтый ряд).

При появлении на шине D0 уровня лог "0" (голубой ряд) - первый бит принимает значение нуля, значит 0+21+22+23+24+25+26+27 = 254.

Таким образом, мы можем отследить изменение сигнала на шине D0, ну а если мы посчитаем количество изменений за 1 секунду, то мы получим… правильно - цифровой частотомер. Зная количество пришедших импульсов в секунду можно сказать о частоте в Герцах.

Итак, программа частотомер. На форме должны быть 3 кнопки и Label. Кнопка 1 пуск частотомер, Кнопка 2 стоп, Кнопка 3 – выход, Label – индицирует частоту.

*******************************************

Для тех, кто использует inpout32.dll

Option Explicit

'объявление библиотеки для работы с адресами порта

Private Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

'объявление библиотеки для подсчета миллисекунд

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim FTV As Long         'начальное значение системного времени

Dim STV As Long         'конечное значение системного времени

Dim FV As Integer       'FV-начальное состояние порта

Dim SV As Integer       'SV-сравниваемое состояние порта

Dim cntr                'счетчик импульсов

Dim J As Integer        'J=1 счет разрешен, J=0 счет не разрешен

Private Sub Command1_Click()

Out &H37A, 43                 'переводим шины D0-D7 в режим чтения

FTV = GetTickCount           'запомнили системное время в миллисекундах

J = 1                        'счет - разрешить

FV = Inp(&H378)              'считали состояние порта

SV = FV                      'SV равно состоянию порта

cntr = 0                     'счетчик в ноль

Do While J <> 0

    DoEvents

        STV = GetTickCount                     'запоминаем текущее системное время

        If STV > FTV + 1000 Then FrequencyShow 'если прошла секунда, отображаем результат

        FV = Inp(&H378)                        'постоянно опрашиваем адрес &H378

        If FV <> SV Then                       'если состояние порта изменилось

            SV = FV                            'SV равно состоянию порта

            cntr = cntr + 0.5                  'счетчик + 0.5

        End If

        If J = 0 Then Exit Do                  'если пользователь нажал Стоп

Loop

End Sub

Private Sub Command2_Click()

'остановка цикла

'если пользователь нажал Стоп

J = 0

End Sub

Private Sub Command3_Click()

J = 0             'счет – стоп

Out &H37A, 0      'восстанавливаем состояние шины D0-D7

Unload Me         'выход из программы

End Sub

'Подпрограмма отображения частоты

Public Sub FrequencyShow()

Label1.Caption = Int(cntr) & " Hz"  'отображаем результат

cntr = 0                            'счетчик в ноль

Pause (0.2)                         'задержка. Нужна для измерения малых частот

FTV = GetTickCount                  'запомнили системное время в миллисекундах

End Sub

'Подпрограмма задержки. Формат вызова: Pause(число секунд)

Public Sub Pause(Value As Single)

Dim Start, Finish

Start = Timer

    Do While Timer < Start + Value

        DoEvents

    Loop

Finish = Timer

End Sub

*******************************************

Для тех, кто использует dlportio.dll

Option Explicit

'объявление библиотеки для работы с адресами порта

Private Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte

Private Declare Sub DlPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte)

'объявление библиотеки для подсчета миллисекунд

Private Declare Function GetTickCount Lib "kernel32" () As Long

Dim FTV As Long         'начальное значение системного времени

Dim STV As Long         'конечное значение системного времени

Dim FV As Integer       'FV-начальное состояние порта

Dim SV As Integer       'SV-сравниваемое состояние порта

Dim cntr                'счетчик импульсов

Dim J As Integer        'J=1 счет разрешен, J=0 счет не разрешен

Private Sub Command1_Click()

DlPortWritePortUchar &H37A, 43     'переводим шины D0-D7 в режим чтения

FTV = GetTickCount                 'запомнили системное время в миллисекундах

J = 1                              'счет - разрешить

FV = DlPortReadPortUchar (&H378)   'считали состояние порта

SV = FV                            'SV равно состоянию порта

cntr = 0                           'счетчик в ноль

Do While J <> 0

    DoEvents

        STV = GetTickCount                     'запоминаем текущее системное время

        If STV > FTV + 1000 Then FrequencyShow 'если прошла секунда, отображаем результат

        FV = DlPortReadPortUchar (&H378)       'постоянно опрашиваем адрес &H378

        If FV <> SV Then                       'если состояние порта изменилось

            SV = FV                            'SV равно состоянию порта

            cntr = cntr + 0.5                  'счетчик + 0.5

        End If

        If J = 0 Then Exit Do                  'если пользователь нажал Стоп

Loop

End Sub

Private Sub Command2_Click()

'остановка цикла

'если пользователь нажал Стоп

J = 0

End Sub

Private Sub Command3_Click()

J = 0       'счет – стоп

DlPortWritePortUchar &H37A, 0      'восстанавливаем состояние шины D0-D7

Unload Me   'выход из программы

End Sub

'Подпрограмма отображения частоты

Public Sub FrequencyShow()

Label6.Caption = Int(cntr) & " Hz"  'отображаем результат

cntr = 0                            'счетчик в ноль

Pause (0.2)                         'задержка. Нужна для измерения малых частот

FTV = GetTickCount                  'запомнили системное время в миллисекундах

End Sub

'Подпрограмма задержки. Формат вызова: Pause(число секунд)

Public Sub Pause(Value As Single)

Dim Start, Finish

Start = Timer

    Do While Timer < Start + Value

        DoEvents

    Loop

Finish = Timer

End Sub

*******************************************

И все? Спросите ВЫ. Да и все. Вот и вся программа, которая почему-то работает.

Ø Как видите код практически один и тот же для разных библиотек, поэтому далее на примерах мы будем рассматривать код только с библиотекой dlportio.dll

Если внимательно проанализировать код программы частотомер, можно заметить, что к счетчику прибавляется 0.5,

cntr = cntr + 0.5,

а не 1. Дело в том, что данный код программы считает переход состояния порта как из 1 в 0, так и наоборот из 0 в 1, поэтому чтобы считать  частоту надо или прибавлять 0.5 , а потом выводить

Label1.Caption = Int(cntr) & "Hz"

Или прибавлять 1

cntr = cntr + 1,

А потом выводить

Label1.Caption = Int(cntr/2) & "Hz"

Вот такая математика.

Кстати, а вы не пробовали посадить какой-нибудь датчик на вращающийся вал какого-нибудь двигателя. Наверное, с помощью этой программы у вас получится прекрасный тахометр J

Ну что, поехали дальше.

Берем тот же генератор импульсов и вместо резистора R2 или R1 впаиваем терморезистор (автор статьи сходил в автомагазин и за 30 руб. купил термодатчик от ВАЗ-2101). Этот термодатчик меняет свое сопротивление в зависимости от температуры (3200 Ом при температуре +140С и 143 Ома при температуре +1000С.) Раз мы меняем сопротивление, то меняется и частота генератора, значит мы получаем преобразователь температура-частота, т.е. цифровой термометр. Хочу обратить ваше внимание на то, что изменение сопротивления в зависимости от температуры, происходит не линейно, что видно на следующем графике,

Другая жизнь LPT порта

рис. 5

поэтому "объяснить" компьютеру, что 100 импульсов это 20 градусов, а 110 импульсов – это 21 градус будет не очень просто, но тем не менее возможно. Вопрос только в размерах кода и алгоритме.

Если вместо резистора поставить датчик топлива от бензобака, то мы получим индикатор уровня жидкости. Отстраивать такой индикатор удобнее следующим образом:

1.  Замеряем частоту импульсов при пустой емкости

2.  Доливаем какой-то объем (в зависимости от того, какую градацию – точность вы хотите получить) и опять замеряем частоту

3.  И так до самого верха вашей емкости.

А можно построить индикатор уровня жидкости по другому принципу, если собрать конструкцию на рисунке ниже.

Другая жизнь LPT порта

рис. 6

Если меняется уровень жидкости, то меняется и положение поплавка с магнитом, стало быть замыкаются (размыкаются ) соответствующие герконы. Трубку лучше всего использовать тонкостенную пластиковую. Схема данного устройства такова:

Другая жизнь LPT порта

рис. 7

Обрабатывать информацию с такого устройства можно по следующему алгоритму.

  1. Перевести шины по адресу &H378  в режим чтения.
  2. Пустой бак – 255
  3. Одно деление снизу – 254
  4. Два деления снизу – 252
  5. Три деления – 248
  6. Четыре деления – 240
  7. Пять делений – 224 и т.д.

Ø Некоторые могут мне возразить, что не обязательно переводить шины D0-D7 в режим чтения, и так все будет работать. На это могу ответить только следующее – кто хочет, пусть не переводит. Дискутировать на этот предмет – не буду. Если порт &H378 не стоит в режиме приема данных и на используемом контакте (в нашем случае 2 – D0 ) присутствует логическая "1", то генератор работать не будет. Выходной ток шины D0-D7 в режиме передачи данных больше, чем выходной ток КМОП микросхемы (561ЛА7), поэтому генерации не будет. Конечно, если закоротить пинцетом контакт на землю, то никакого тока не хватит. Но мне кажется, не трудно набрать лишнюю строчку кода и сделать так, как советуют разработчики компьютерного железа.

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

Другая жизнь LPT порта

рис. 8

После подачи питания на генератор мы вдруг обнаружим, что генератор-то не работает. А будет он работать только тогда, когда на входе 2 элемента D1.1 появится уровень логической "1".

DlPortWritePortUchar &H378, 1

И все сразу заработало. Вот вам генератор, управляемый компьютером. Ну, генератор это все мелко, хотя надо отдать должное этому устройству – в очень многих электронных схемах за основу взят именно генератор импульсов. А не подключить ли нам что-нибудь посерьезнее к компьютеру.

Вот такая схема

Другая жизнь LPT порта

рис. 9

Вход данного устройства подключаем к любому понравившемуся нам выходу, например к D3, вход GND соединяем с общим проводом разъема, а вот  +12В придется взять от отдельного источника питания. Реле можно взять автомобильное. Вообще все параметры элементов могут быть совершенно другими (я брал то, что было под рукой)

DlPortWritePortUchar &H378, 8

или

DlPortWritePortUchar &H378, 9

или

DlPortWritePortUchar &H378, 10

Главное, чтобы на шине D3 была лог "1". Реле сработает, а вот что вы к нему подцепите – это уже ваше дело. Вообще при коммутации высоковольтных устройств необходимо (на всякий случай) предохраниться от короткого замыкания, от пробоя на корпус, в общем сделать так. Чтобы в случае аварии ваш чудесный LPT порт не сгорел. Поэтому для таких подключений удобно использовать гальваническую развязку порта и вашего устройства, например, через оптопару.

Другая жизнь LPT порта

рис. 10

Если в вашем устройстве все "сгорит", то через свет – увы, ток не пройдет, не придумали еще такого.

На этом вторая часть заканчивается. Будет ли третья часть – думаю будет, а вот о чем в ней пойдет речь…

Автор: Клюшников Алексей, г. Иваново; Публикация: www.cxem.net

Смотрите другие статьи раздела Компьютеры.

Читайте и пишите полезные комментарии к этой статье.

Рекомендуем скачать в нашей Бесплатной технической библиотеке:

журналы Радиоконструктор 2011 (архив за год)

журналы Электрик 2001 (архив за год)

книга Импульсные измерительные преобразователи. Куликов С.В., 1974

книга Транзисторы. Справочник. Чернышев А.А. (ред), 1975

статья Лазерный светотелефон

статья Профессиональные вредности производственной среды

справочник Сервисные меню зарубежных телевизоров. Книга №16

Оставьте свой комментарий к этой статье:

Имя:

E-mail (не обязательно):

Комментарий:

[lol][;)][roll][oops][cry][up][down][!][?]