F.A.Q. и статьи последних тем

Помогите с подключением датчика высоты

Thu, 15 Jul 2021 21:57:57 +0000

Ребят прошу помощи ,нужна распиновка датчика положения кузова ,от туарега .

Контакты на разъёме задействованы 1,5,6 пин,не так как на ренж роверах 1,4,5.

Пытался подключить на столе ,перед установкой ,ничего не вышло .

Ткните носом где +5v ,0,и провод сигнала датчика .

Сайлентблоки

Tue, 20 Jan 2026 20:32:50 +0000

Авто Mercedes-Benz GLC 220/2015г./2.1 АТ (170 л.с.)/Дизель.

Делал диагностику. Фото передних сайлентблоков. В отчёте написано типа критично - нужна замена. Работники сервиса говорят, что трещины мелкие, замена пока не нужна, можно ездить. Что подскажут знающие люди? Кому верить? Благодарю за ответы.

Неисправность системы

Thu, 15 Feb 2024 11:26:49 +0000

Добрый день ! Возможно кто то сталкивался с ситуацией , стоят датчики высоты rqh и контроллер кпп-3 . Ситуация такая , при выставлении среднего уровня , задняя ось начинает то подниматься , то опускаться, соответственно контроллер не может понять положение , процесс зацикленный

Чем обжать рукав после замены?

Tue, 28 Feb 2023 19:06:40 +0000

Восстанавливаю очень редкую штатную пневму на Субару 95 года. Рукава возьму из подушек, имеющихся в продаже, скорее всего, СВ0041. Вопрос в том, как зафиксировать (обжать) рукав на поршне? С завода он подвернут, и зажат кольцом изнутри. Как завальцевать такое кольцо в домашних условиях, я не представляю. На ум приходят только ленточные хомуты от ШРУСа. Какие еще есть варианты качественной фиксации?

Изготовление пневмостоек ВАЗ (сварочные работы)

Sat, 07 Jan 2023 12:09:24 +0000

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

Как правильно приварить нижний фланец?

На какой высоте приварить? (без занижения)

помогите щёлкают клапана

Sat, 25 Jul 2020 20:47:28 +0000

запутался уже совсем с пультом управления и блоком клапанов.

провода с фишек были отрезаны (от пульта до клапанов) подключаю все провода и 3 кнопки (из 7 на пульте) все включают только один какой нибудь клапан!

может есть в москве кто может все это подключить? не за бесплатно конечно.

Жесткая пневма

Fri, 20 May 2022 15:48:08 +0000

Ситуация следущая,автомобиль 2112 купе

поставил 4х контурную пневмоподвеску на рубенах,передние стойки новые -70 покупал на Багоне,задние б/у

в любом положении очень жестко

стоят 17ые диски,знаю что теряю в комфорте на них,но на штампах ситуация не лучше

С чем это связанно?

Подушка рукав, нужна помощь

Wed, 13 Apr 2022 08:56:11 +0000

В общем в этой теме две недели, из за высоких колёс (195/45 р16 7.5jПротер подушку и не понимаю где и по каким характеристикам искать новую. Маркировок никаких на подушке не нашёл, хотелось бы что бы кто то из старичков разжевал. По штангету нижний диаметр посадочный 35, сверху под шток 4, длина не расправленного рукава на фото, в интернете что то такие не нашёл

Один клапан не сбрасывает воздух

Wed, 05 Jan 2022 19:46:45 +0000

Клапан спуска на одно колесо,не сбрасывает воздух

даже щелчка нету

Подбор подушки на заднюю ось, сузуки свифт

Fri, 19 Apr 2019 13:22:49 +0000

здравствуйте.

сузуки свифт, 2007г., передний привод. макферсон и балка.

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

что бы мне хотелось сделать со всем этим :

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

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

был бы рад любым комментариям.

Нужна помощь

Mon, 07 Dec 2020 10:29:46 +0000

Могут ли травить манометры камаз?

уходит воздух , все замылил нигде не сифонит

Хелп ми

Mon, 14 Sep 2020 19:28:20 +0000

Всем привет, стал обладателем пневмы, скоро зима, ничего толкового не могу найти за обслугу зимой. Подскажите, мне нужно зимой просто часто не баловаться пневмой, залить антифриз в систему(подскажите куда именно) и стравливать с рессивера конденсат(тоже подскажите как сделать это)? Помогите пожалуйста, а то зима близко.

Блоки клапанов ГБО

Sun, 27 Jan 2013 21:15:09 +0000

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

Начну с самого всем известного клапана ГБО.

Клапан открывается при помощи электромагнитной катушки, на которую подается напряжение. При отсутствии тока пружинка прижимает соленоид, который само-запирается давлением. Такой же эффект можно наблюдать дома в ванной) ) ) при полной ванной когда пробку подносишь, ее втягивает и происходит герметизация.

Клапан держит давление только в одну сторону!
Это обязательно надо учитывать при постройке пневмы.
Можно успешно собрать элементарную систему управления на этих клапанах.
Блок же в свою очередь добавляет компактности, уменьшает количество соединений (а каждое соединение это потенциальная утечка воздуха)

В конце я выложу ссылку на архив в котором содержатся 3D модели на два варианта моих блоков. По этим поделям можно снять любые размеры.

Первый вариант:

Второй вариант:

Разница только в расположении клапанов и выходов. первый блок более трудоемок в изготовлении.
Рекомендую выбрать второй вариант.
Материал: алюминий, (если сталь, то обязательно делать гальваническое покрытие).

Многие ругают клапан ГБО, считают, что лучше поставят хорошие "американские"
А давайте заглянем внутрь знаменитых клапанов Accu Air:

Без катушек:

При открученных клапанах предстает до боли знакомая картина внутренностей ГБО клапанов.

Ну при взгляде на соленоид становится ясно, что это точь в точь такая же конструкция как и ГБО.

Может в других моделях все по другому?

Да все тоже самое…:-)

Но постойте есть же еще один вид клапанов "быстрые"

У самого стоят такие:

проходное сечение воздуха у них доходит до 1/2"( ~12,5мм) Соленоид не способен перекрыть такое огромное отверстие герметично…

Но все оказывается намного проще. Клапану и не надо перекрывать огромное отверстие, ему достаточно перекрывать маленькое отверстие управляющего канала:

А перекрытие основного потока идет мембраной:

P.S. ссылка на скачивание 3D моделей блоков: https://www.dropbox.com/s/rdtfbtnlmv4p2tt/Blok_klapanov.rar

Здесь содержится два варианта блока клапанов.
Сохранены в трех разных форматах на всякий случай.
Открывать можно в программах 3d моделирования: SolidWorks, NX, kompas, solidEdge и др.
По представленным моделям можно снять любой размер.

ЧЕРТЕЖИ

пневма на койловер subaru

Wed, 14 Aug 2019 05:30:23 +0000

Добрый день, Прошу помощи в подборе пневмобалонов и установки на койловеры TEIN. Для начало хотел бы начать с задних стоек-вот параметры:диаметр стойки 52,3,диаметр штока 12, общая длинна от начало резьбы на стойке до опорной шайбы штока 155мм. На самой стойке место без резьбы всего 25мм, на штоке тоже, ноесли сделать шайбу и того меньше.Что посоветуете? Какие параметры балона, с каким диаметром поршня, что еще нужно для установки балона на стойку?

Извиняюсь, если есть такая тема уже! Удалю если кто скинет адрес.

Полный кастом

Thu, 06 Dec 2018 19:03:43 +0000

Доброго времени суток, нужен совет.

Загорелся я пневмой, подкопил деньжат, и начал лопатить ваш форум, нашёл здесь очень много ответов, но все таки парочку осталось.

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

2-при таком варианте кастома подача воздуха осуществляется только через верхний брикет подушки или же нет? И хорошо ли это? а то в большинстве случаев в форуме подача идёт через низ, то есть через поршень.

3-не могу найти рукав отдельно, а хотелось бы, то что находил имеет цену полноценной подушки(хотелось бы сэкономить на не нужном)

4- варианты материалов ? То есть из чего точить, метал понятно, но не хотелось бы тяжёлой конструкции. Возможно ли использовать полиуретан, текстолит или что то другое?

5-форма поршня конусом вниз, то есть верхний диаметр больше нижнего-если опыт вождения на подобном, как полёт?

6- ну и последний вопрос- возможно ли поставить подушку без сварки фланца? Хотя бы на испытания, что бы понять на какой высоте потом заварить выше-ниже

помогите разобраться с причиной

Sun, 28 Apr 2019 15:38:08 +0000

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

Прошу помощи по электрике ( подключение компрессора)

Mon, 11 Mar 2019 16:38:13 +0000

Добрый день! Прошу помощи как подключить компрессор, если аккумулятор находится вместе с ним в багажнике? Компрессор беркут р20. Фото схемы приложил, но схема для аккумулятора под капотом. Можео ли не использовать предохранитель 100 ампер и поставить реле на 30А, если аккумулятор в багажнике?

https://drive.google.com/file/d/1vagnglrBvPXs7V0UazEXxxUUWdqkprOQ/view?usp=drivesdk

Гермитизация сварочных швов

Thu, 26 Nov 2015 23:38:57 +0000

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

Бюджетный цифровой манометр (сделай сам)

Tue, 12 Feb 2013 21:17:11 +0000

На основе базовой схемы несколько доработаная конструкция для цифрового манометра-термостата . Датчик ММ393А, конструктивно крепится на массу, его резистивное сопротивление составляет , от 0 до 300 ом, чтобы получить на входе АЦП диапазон напряжения от 0 до 5V используем в схеме ОУ.
Операционный усилитель , хоть и является небольшим усложнением схемы, но с его помощью можно добиться неплохой точности показаний прибора, даже с таким примитивным датчиком давления как ММ393А ( это самый доступный, другие специализирование стоят достойных денег ).
А выход из МК, настраиваемого порога включения/выключения с настраиваемым гистерезисом (или просто сигнал) дополнительного устройства, делает эту схему полноценной, для любого применения !!!!
А так же, всё получается ещё интереснее когда это 2 в 1. Например: манометр/манометр , манометр/вольтметр , манометр/термостат ……… , ну в общем по этому же принципу схемы базовой схемы какие угодно комбинации устройств. В данном случае схема работает как манометр/термостат.

Фото датчика давления .
Схема:

В схеме используется датчик— ММ393А с рабочим давлением от 0 до 8 кг/см²
и температурый датчик NTC термистор 640-10k.
Светодиоды имитируют включение исполнительных устройств.

Видео работы цифрового манометра
( шкала для кг/см² на манометре отградуирована до 7 атм. красным цветом)

Плата для корпуса DIP:

Прошивка цифрового манометра-термостата 5-0V_100_999.rar
Настройка и управление (назначение кнопок , светодиодов) аналогично описаному в базовой схеме.
Работать будет и с другими автомобильными датчиками серии ММ3ххх , вот примерные характеристики таких датчиков

Датчик ММ358 при отсутствии давления должен иметь сопротивление 160...175 Ом, при давлении в 2 кг/см² — 110...114 Ом, при давлении в 4 кг/см² — 58...65 Ом, при давлении в 6кг/см²  — 0...5 Ом
Датчик 23.3839 при отсутствии давления должен иметь сопротивление 305...330 Ом, при давлении в 1,5 кг/см²  — 180...200 Ом, при давлении в 4,5 кг/см²  — 70...80 Ом, при давлении в 6кг/см² — 0...8 Ом
Датчик ММ393А при отсутствии давления должен иметь сопротивление 310...320 Ом, при давлении в 4 кг/см² — 115...130 Ом, при давлении в 6 кг/см²  — 55...65 Ом, при давлении в 8 кг/см² — 0...15 Ом.

Экслюзивное фото , что у датчика давления, внутри.

Вольтметр от 0.0 до 50.0 вольт, давление от 0.0 до 8.0 кг/см , канал давления с использованием корректировки экспонентой.
Для измерительной схемы с применением аналогово автомобильного датчика , автор этой программы MACTEPok сделал небольшую редакцию кода в этой программе.
Так как аналоговые датчики ММ3хх имеют некоторую нелинейность изменения сопротивления при увеличении давления.
Для программной корректировки, в программу внесена експонента.

Any_var = Chvar_1 / 2000 ' 2000 - можно задавать изгиб линии
Any_var = Negativ * Any_var ' Если закоментировать, изменим направление изгиба экспоненты
Any_var = Exp(any_var)
Chvar_1 = 1023 - Chvar_1
Chvar_1 = Chvar_1 / 12.786 ' диапазон до 80
Any_var = Chvar_1 * Any_var
Chvar_1 = Any_var

Таким образом, получаем вот такую коректированую кривизну измерения

Схема;
Исходный код программы;

'* Filename : Универсальный 2х-канальный индикатор *
'* Revision : 5.0 *
'* Controller : ATMEGA8 *
'* Compiler : BASCOM-AVR 2.0.6.1 *
'* Author : MACTEPOK *
'*******************************************************************************
$regfile = "m8def.dat" 'определяем контроллер
$crystal = 8000000 'внутренний генератор
'$sim
$lib "mcsbyte.lbx" 'подключаем библиотеку функций
$hwstack = 40
$swstack = 16
$framesize = 32

Config Pinc.0 = Input : Portc.0 = 1 'кнопка Выбор
Config Pinc.1 = Input : Portc.1 = 1 'кнопка Вверх
Config Pinc.2 = Input : Portc.2 = 1 'кнопка Вниз

Config Portd = Output : Config Portb = Output 'порты на выход к которым подключен индикатор

Load1 Alias Portb.3 'нагрузка №1
Load2 Alias Portb.4 'нагрузка №2
Vibor Alias Pinc.0 'кнопка Выбор
Up Alias Pinc.1 'кнопка Вверх
Down Alias Pinc.2 'кнопка Вниз

Config Adc = Single , Prescaler = Auto , Reference = Avcc 'настраиваем АЦП
Dim W As Byte , Y As Byte , X As Byte , I As Byte , Z As Byte , Chislo(6) As Integer , Channel_1 As Integer , On1 As Word , Off1 As Word , Channel_2 As Integer , On2 As Word , Off2 As Word , Sostoyanie As Byte , Sostoyanie_2 As Byte , Copy_print As Integer , Copy_print_sec As Integer , Copy_var As Integer , _print As Integer , _print_sec As Integer , Pokazaniya As Integer , View_menu As Byte , Booton_flag As Bit , Booton_flag_2 As Bit , Count As Word , Error_flag As Bit
Dim Razryad_1 As Byte , Razryad_2 As Byte , Temp_najatiya As Byte , Indicator As Byte
Dim Menu_punkt As Byte , Any_var As Single 'пункт меню
Dim Set_flag As Bit 'флаг режима настройки уставок
Dim Podskaz_flag As Bit , Podskaz_flag_sec As Bit 'флаги режима отображения подсказок на соответствующих каналах
Dim Default As Eram Byte At &H14 'переменная EEPROM для записи начальных уставок для первого включения прибора
Dim Adc_ready As Bit ' Флаг готовности АЦП
Dim Chvar_1 As Single , Chvar_2 As Single ' промежуточные переменные для расчетов
Dim Ch1 As Integer , Ch2 As Integer,

Const Negativ = -1

A Alias Portd.2 : B Alias Portd.6 : C Alias Portb.7 : D Alias Portb.2 'порты, к которым подключены сегменты индикатора
E Alias Portd.0 : F Alias Portb.6 : G Alias Portd.7 : H Alias Portb.5 '
Dig1 Alias Portd.3 : Dig2 Alias Portd.4 : Dig3 Alias Portd.1 ' порты, к которым подключены общие аноды 1го индикатора
Dig1_sec Alias Portd.5 : Dig2_sec Alias Portb.0 : Dig3_sec Alias Portb.1 ' порты, к которым подключены общие аноды 2го индикатора

For X = 1 To 6 ' присваиваем всем цифрам пустоту, чтоб в момент включения не высвечивались нули
Chislo(x) = 11
Next
'*********** ___ Переключение типа индикаторов (ОК/ОА) ___ *********************
Readeeprom Indicator , 26
If Vibor = 0 Then ' Удерживая кнопку УСТ, подаем питание.
For X = 1 To 200
If X = 150 Then ' При длительном нажатии
Set Booton_flag
Toggle Indicator.3 ' Переключаем младший (четвертый) бит переменной. Номер бита выбрал произвольно
Writeeeprom Indicator , 26
If Indicator = &B00000000 Then ' Если переключили на ОА, зажжем все сегменты идикатора для подтверждения
Reset A : Reset B : Reset C : Reset D : Reset E : Reset F : Reset G : Reset H
Set Dig1 : Set Dig2 : Set Dig3 : Set Dig1_sec : Set Dig2_sec : Set Dig3_sec
End If
If Indicator = &B00001000 Then ' Если переключили на ОK, зажжем все сегменты идикатора для подтверждения
Set A : Set B : Set C : Set D : Set E : Set F : Set G : Set H
Reset Dig1 : Reset Dig2 : Reset Dig3 : Reset Dig1_sec : Reset Dig2_sec : Reset Dig3_sec
End If
Waitms 1500
Exit For
End If
If Vibor = 1 Then Exit For
Waitms 10
Next
End If
'*******************************************************************************
If Default = 255 Then 'при первом запуске, когда Default=255
Off1 = 70 'присваиваем начальный уставки
On1 = 50
Off2 = 140
On2 = 120
Indicator = &B00001000 ' для ОА. Indicator = &B00001000 для ОК
Razryad_1 = &B10111011
Razryad_2 = &B10111011
Writeeeprom On1 , 0 ' Записываем в EEPROM уставку ON1
Writeeeprom Off1 , 5 ' Записываем в EEPROM уставку OFF1
Writeeeprom On2 , 10 ' Записываем в EEPROM уставку ON2
Writeeeprom Off2 , 14 ' Записываем в EEPROM уставку OFF2
Writeeeprom Razryad_1 , 16
Writeeeprom Razryad_2 , 17
Writeeeprom Indicator , 26
Default = 100 ' присваиваем значение 100(произвольное, отличное от 255) и больше этот кусок кода выполняться не будет
End If
Readeeprom On1 , 0 ' Считываем из EEPROM уставку ON1
Readeeprom Off1 , 5 ' Считываем из EEPROM уставку OFF1
Readeeprom On2 , 10 ' Считываем из EEPROM уставку ON2
Readeeprom Off2 , 14 ' Считываем из EEPROM уставку OFF2
Readeeprom Razryad_1 , 16
Readeeprom Razryad_2 , 17

Config Timer0 = Timer , Prescale = 64 : On Timer0 Pulse ' конфигурируем таймер 0 и назначаем подпрограмму которая выполняется при переполнении таймера
Config Timer1 = Timer , Prescale = 1 : On Timer1 Bootons ' конфигурируем таймер 1 и назначаем подпрограмму которая выполняется при переполнении таймера
Enable Interrupts : Enable Timer0 : Enable Timer1 ' разрешаем прерывания, таймер 0, таймер 1
Start Timer0 : Start Timer1
Start Adc ' начало преобразования

X = 50 ' чтобы опрос АЦП произошел в первом круге
Do
If X > 50 And Timer0 < 50 Then
Stop Timer0 : Stop Timer1 ' на время преобразования останавливаем таймеры
Ch1 = Getadc(5) ' Давление
Ch2 = Getadc(4) ' Напряжение
Chvar_1 = Ch1
Chvar_2 = Ch2
Start Timer0 : Start Timer1
Any_var = Chvar_1 / 2000 ' 2000 - можно задавать изгиб линии
Any_var = Negativ * Any_var ' Если закоментировать, изменим направление изгиба экспоненты
Any_var = Exp(any_var)
Chvar_1 = 1023 - Chvar_1
Chvar_1 = Chvar_1 / 12.786 'пересчет тут любая формула для требуемого диапазона или необходимой характеристики ==============
Any_var = Chvar_1 * Any_var
Chvar_1 = Any_var

Chvar_2 = Chvar_2 / 2.046 'пересчет тут любая формула для требуемого диапазона или необходимой характеристики ==============
If Chvar_2 > 500 Then Chvar_2 = 500 'верхний предел показаний

Stop Timer0 : Stop Timer1
If Ch1 < 1023 Then
If Chvar_1 > 0 Then Channel_1 = Chvar_1 ' присваиваем значения переменных для индикации
If Chvar_1 > 80 Then Channel_1 = 80 'верхний предел показаний
Else
Channel_1 = 0
End If
Channel_2 = Chvar_2
Start Timer0 : Start Timer1
X = 0
End If

If On1 < Off1 Then 'если уставка ON1 < OFF1 то режим нагревателя
If Channel_1 <= On1 Then Sostoyanie = 1 'если значение первого канала АЦП ниже уставки ON1, то включаем нагрузку №1
If Channel_1 >= Off1 Then Sostoyanie = 0 'если значение первого канала АЦП выше уставки OFF1, то выключаем нагрузку №1
Else 'если уставка ON1 > OFF1 то режим охладителя
If Channel_1 >= On1 Then Sostoyanie = 1 'если значение первого канала АЦП выше уставки ON1, то включаем нагрузку №1
If Channel_1 <= Off1 Then Sostoyanie = 0 'если значение первого канала АЦП ниже уставки OFF1, то выключаем нагрузку №1
End If

If Sostoyanie = 1 Then Set Load1 Else Reset Load1 'управление 1м каналом нагрузки

If On2 < Off2 Then 'если уставка ON2 < OFF2 то режим нагревателя
If Channel_2 <= On2 Then Sostoyanie_2 = 1 'если давление ниже уставки ON2, то включаем нагрузку №2
If Channel_2 >= Off2 Then Sostoyanie_2 = 0 'если давление выше уставки OFF2, то выключаем нагрузку №2
Else 'если уставка ON2 > OFF2 то режим охладителя
If Channel_2 >= On2 Then Sostoyanie_2 = 1 'если давление выше уставки ON2, то включаем нагрузку №2
If Channel_2 <= Off2 Then Sostoyanie_2 = 0 'если давление ниже уставки OFF2, то выключаем нагрузку №2
End If

If Sostoyanie_2 = 1 Then Set Load2 Else Reset Load2 'управление 2м каналом нагрузки

Loop

'*******************************************************************************
' Индикация

Pulse:
If View_menu <> 0 And Error_flag = 0 Then Incr Count 'если находимся в меню и нет ошибки ввода уставок,то инкриментируем счетчик, который отвечает за автоматический выход из меню (~ через 5 сек)
If Count > 7000 Then 'задается время автоматического выхода из меню
Count = 0 'сброс счетчика
View_menu = 0 ' выход из меню в основной режим
End If
' H = 1 ' выключаем точку на индикаторе
Stop Timer0 'останавливаем таймер 0
Select Case View_menu 'в зависимости от пункта меню, записываем в переменные расчета следующие данные
Case 0 :
_print = Channel_1 ' основной режим. 1й индикатор показывает значение АЦП 1го канала
_print_sec = Channel_2 ' основной режим. 2й индикатор показывает значение АЦП 2го канала
Case 1 :
_print = On1 ' 1й индикатор показывает значение уставки ON1
_print_sec = Channel_2 ' 2й индикатор показывает значение АЦП 2го канала
Case 2 :
_print = Off1 ' 1й индикатор показывает значение уставки OFF1
_print_sec = Channel_2 ' 2й индикатор показывает значение АЦП 2го канала
Case 3 :
_print = Channel_1 ' 1й индикатор показывает значение АЦП 1го канала
_print_sec = On2 ' 2й индикатор показывает значение уставки ON2
Case 4 :
_print = Channel_1 ' 1й индикатор показывает значение АЦП 1го канала
_print_sec = Off2 ' 2й индикатор показывает значение уставки OFF2
End Select

If Podskaz_flag = 0 Then 'если не выводим на 1й индикатор подсказки, то работаем с числами
Copy_print = _print '
Copy_var = Copy_print '
For I = 3 To 1 Step -1 ' цикл в котором разбивается переменная на 3 числа
Chislo(i) = Copy_print Mod 10 ' заносим в масив последнюю цифру от числа Copy_print(123 mod 10 = 3)
Copy_print = Copy_print / 10 ' отсекаем последнюю цифру от числа Copy_print (123/10=12)
Next ' убираем незначимые нули
If Copy_var < 100 Then Chislo(1) = 11 'для 2х значного числа
' If Copy_var < 10 Then Chislo(2) = 11 'для однозначного числа
End If
If Podskaz_flag_sec = 0 Then 'если не выводим на 2й индикатор подсказки, то работаем с числами
Copy_print_sec = _print_sec '
Copy_var = Copy_print_sec
For I = 6 To 4 Step -1 ' цикл в котором разбивается переменная на 3 числа
Chislo(i) = Copy_print_sec Mod 10 ' заносим в масив последнюю цифру от числа _print(123 mod 10 = 3)
Copy_print_sec = Copy_print_sec / 10 ' отсекаем последнюю цифру от числа Copy_print_sec (123/10=12)
Next 'убираем незначимые нули
If Copy_var < 100 Then Chislo(4) = 11 'для 2х значного числа
' If Copy_var < 10 Then Chislo(5) = 11 'для однозначного числа
End If

If Indicator = 0 Then ' Гасим индикаторы перед выводом информации
Reset Dig1 : Reset Dig2 : Reset Dig3 : Reset Dig1_sec : Reset Dig2_sec : Reset Dig3_sec ' Для индикатора с ОА
Else
Set Dig1 : Set Dig2 : Set Dig3 : Set Dig1_sec : Set Dig2_sec : Set Dig3_sec 'Для индикатора с ОK
End If

Incr W : If W > 6 Then W = 1 ' выбираем какую цифру сейчас включать
Y = 0
Gosub Look : A = Z ' переходим к подпрограмме Look, которая определяет нужно ли сейчас загорется сегменту А
Gosub Look : B = Z
Gosub Look : C = Z
Gosub Look : D = Z
Gosub Look : E = Z
Gosub Look : F = Z
Gosub Look : G = Z

Select Case W ' включаем цифру(разряд) которую выбрали (w). Подаем плюс на общий провод конкретной цифры (разряда)
Case 1 :
If Indicator = 0 Then
Set Dig3
If Podskaz_flag = 0 Then H = Razryad_1.3 Else H = 1
Else
Reset Dig3
If Podskaz_flag = 0 Then
H = Razryad_1.3
Toggle H
Else
H = 0
End If
End If
Case 2 :
If Indicator = 0 Then
Set Dig2
If Podskaz_flag = 0 Then H = Razryad_1.2 Else H = 1
Else
Reset Dig2
If Podskaz_flag = 0 Then
H = Razryad_1.2
Toggle H
Else
H = 0
End If
End If
Case 3 :
If Indicator = 0 Then
Set Dig1
If Podskaz_flag = 0 Then H = Razryad_1.1 Else H = 1
Else
Reset Dig1
If Podskaz_flag = 0 Then
H = Razryad_1.1
Toggle H
Else
H = 0
End If
End If
Case 4 :
If Indicator = 0 Then
Set Dig3_sec
If Podskaz_flag_sec = 0 Then H = Razryad_2.3 Else H = 1
Else
Reset Dig3_sec
If Podskaz_flag_sec = 0 Then
H = Razryad_2.3
Toggle H
Else
H = 0
End If
End If
Case 5 :
If Indicator = 0 Then
Set Dig2_sec
If Podskaz_flag_sec = 0 Then H = Razryad_2.2 Else H = 1
Else
Reset Dig2_sec
If Podskaz_flag_sec = 0 Then
H = Razryad_2.2
Toggle H
Else
H = 0
End If
End If
Case 6 :
If Indicator = 0 Then
Set Dig1_sec
If Podskaz_flag_sec = 0 Then H = Razryad_2.1 Else H = 1
Else
Reset Dig1_sec
If Podskaz_flag_sec = 0 Then
H = Razryad_2.1
Toggle H
Else
H = 0
End If
End If
End Select
'

Start Timer0
Return
'
Look: ' подпрограмма которая определяет нужно ли сейчас гореть сегменту, который вызвал эту подпрограмму
Z = Chislo(w) * 7 : Z = Y + Z ' определяем порядковый номер числа из таблици DATA. W - это цифра которую будем выводить 1..2..3, Y это номер сегмента (A=0 B=1 C=2...G=7)
If Indicator = 0 Then
Z = Lookup(z , Cifri_oa) ' выбираем из таблици включить или выключить нужный сегмент -OA
Else
Z = Lookup(z , Cifri_ok) '-OK
End If
Incr Y 'Y это номер сегмента (A=0 B=1 C=2...). Chislo(w) * 7 - переход на начало нужной строки Data.Z = Y + Z - по очереди перебираем сегменты в строке.
Return
'
Cifri_oa:
' таблица сегментом для индикаторов с общим плюсом |Chislo(i)| Символ |
Data 0 , 0 , 0 , 0 , 0 , 0 , 1 '0
Data 1 , 0 , 0 , 1 , 1 , 1 , 1 '1
Data 0 , 0 , 1 , 0 , 0 , 1 , 0 '2
Data 0 , 0 , 0 , 0 , 1 , 1 , 0 '3
Data 1 , 0 , 0 , 1 , 1 , 0 , 0 '4
Data 0 , 1 , 0 , 0 , 1 , 0 , 0 '5
Data 0 , 1 , 0 , 0 , 0 , 0 , 0 '6
Data 0 , 0 , 0 , 1 , 1 , 1 , 1 '7
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 '8
Data 0 , 0 , 0 , 0 , 1 , 0 , 0 '9
Data 1 , 1 , 1 , 1 , 1 , 1 , 0 '10 "-"
Data 1 , 1 , 1 , 1 , 1 , 1 , 1 '11 ""
Data 1 , 1 , 1 , 0 , 0 , 0 , 1 '12 "L"
Data 1 , 1 , 0 , 1 , 0 , 1 , 0 '13 "n"
Data 0 , 1 , 1 , 1 , 0 , 0 , 0 '14 "F"
Data 0 , 1 , 1 , 0 , 0 , 0 , 0 '15 "E"
Data 1 , 1 , 1 , 1 , 0 , 1 , 0 '16 "r"

'*******************************************************************************
Cifri_ok:
' таблица сегментом для индикаторов с общим минусом |Chislo(i)| Символ |
Data 1 , 1 , 1 , 1 , 1 , 1 , 0 '0
Data 0 , 1 , 1 , 0 , 0 , 0 , 0 '1
Data 1 , 1 , 0 , 1 , 1 , 0 , 1 '2
Data 1 , 1 , 1 , 1 , 0 , 0 , 1 '3
Data 0 , 1 , 1 , 0 , 0 , 1 , 1 '4
Data 1 , 0 , 1 , 1 , 0 , 1 , 1 '5
Data 1 , 0 , 1 , 1 , 1 , 1 , 1 '6
Data 1 , 1 , 1 , 0 , 0 , 0 , 0 '7
Data 1 , 1 , 1 , 1 , 1 , 1 , 1 '8
Data 1 , 1 , 1 , 1 , 0 , 1 , 1 '9
Data 0 , 0 , 0 , 0 , 0 , 0 , 1 '10 "-"
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 '11 "" пусто
Data 0 , 0 , 0 , 1 , 1 , 1 , 0 '12 "L"
Data 0 , 0 , 1 , 0 , 1 , 0 , 1 '13 "n"
Data 1 , 0 , 0 , 0 , 1 , 1 , 1 '14 "F"
Data 1 , 0 , 0 , 1 , 1 , 1 , 1 '15 "E"
Data 0 , 0 , 0 , 0 , 1 , 0 , 1 '16 "r"

'*******************************************************************************
'
'*******************************************************************************
' Опрос кнопок
Bootons:
Incr X
Stop Timer1
If Vibor = 0 And Booton_flag = 0 And Up = 1 And Down = 1 Then Gosub Set_mode ' Нажатие кнопки УСТ
If Set_flag = 1 And Vibor = 1 Then 'Кнопки Вверх и Вниз активны только после входа в меню
If Up = 0 Then Gosub Up_const
If Down = 0 Then Gosub Down_const
End If
If Vibor = 0 And Up = 0 And View_menu = 0 And Booton_flag_2 = 0 Then Gosub Set_h_led1
If Vibor = 0 And Down = 0 And View_menu = 0 And Booton_flag_2 = 0 Then Gosub Set_h_led2

If Vibor = 1 And Up = 1 And Down = 1 Then Reset Booton_flag 'сброс флага удержания кнопки
If Vibor = 1 Then Reset Booton_flag_2
Start Timer1 : Start Timer0
Return
'*******************************************************************************
'
'
Set_mode:
Enable Interrupts : Enable Timer0 : Start Timer0

Set Set_flag ' поднимаем флаг режима настройки уставок (находимся в меню)
Set Booton_flag ' поднимаем флаг удержания кнопки (пока не сбросится, в следующий пункт меню не попадаем)
Count = 0 'сброс счетчика автоматического выхода из меню
If On1 = Off1 Or On2 = Off2 Then Gosub Errors 'Блокировка ввода уставок. Переходим в подпрограмму индикации ошибки
Incr View_menu ' следующий пункт меню
If View_menu > 4 Then View_menu = 0 ' всего 4 пункта меню, 0й - основной режим

Select Case View_menu 'индикация подсказок пунктов меню
Case 0 : ' ---
Set Podskaz_flag
Set Podskaz_flag_sec
Chislo(1) = 10
Chislo(2) = 10
Chislo(3) = 10
Chislo(4) = 10
Chislo(5) = 10
Chislo(6) = 10
Reset Set_flag '
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom Off2 , 14 ' запись уставки OFF2 в EEPROM

Case 1 : ' On1
Set Podskaz_flag 'Поднимаем флаг вывода подсказок (буквы) на 1й индикатор
Chislo(3) = 1
Chislo(2) = 13
Chislo(1) = 0
Waitms 500

Case 2 : ' OF1
Set Podskaz_flag 'Поднимаем флаг вывода подсказок (буквы) на 1й индикатор
Chislo(3) = 1
Chislo(2) = 14
Chislo(1) = 0
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom On1 , 0 ' запись уставки ON1 в EEPROM

Case 3 : ' On2
Set Podskaz_flag_sec 'Поднимаем флаг вывода подсказок (буквы) на 2й индикатор
Chislo(6) = 2
Chislo(5) = 13
Chislo(4) = 0
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom Off1 , 5 ' запись уставки OFF1 в EEPROM

Case 4 : ' OFF2
Set Podskaz_flag_sec 'Поднимаем флаг вывода подсказок (буквы) на 2й индикатор
Chislo(6) = 2
Chislo(5) = 14
Chislo(4) = 0
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom On2 , 10 ' запись уставки ON2 в EEPROM

End Select

Reset Podskaz_flag
Reset Podskaz_flag_sec
Return
'
Errors:
Set Error_flag ' поднимаем флаг ошибки
If On1 = Off1 Then
Set Podskaz_flag
Chislo(1) = 15
Chislo(2) = 16 'Выводим подсказку Err и мигаем на 1м индикаторе
Chislo(3) = 16
Waitms 500
Chislo(1) = 11
Chislo(2) = 11
Chislo(3) = 11
Waitms 500
Chislo(1) = 15
Chislo(2) = 16
Chislo(3) = 16
Waitms 500
Chislo(1) = 11
Chislo(2) = 11
Chislo(3) = 11
Waitms 500
End If
If On2 = Off2 Then
Set Podskaz_flag_sec
Chislo(4) = 15
Chislo(5) = 16 'Выводим подсказку Err и мигаем на 2м индикаторе
Chislo(6) = 16
Waitms 500
Chislo(4) = 11
Chislo(5) = 11
Chislo(6) = 11
Waitms 500
Chislo(4) = 15
Chislo(5) = 16
Chislo(6) = 16
Waitms 500
Chislo(4) = 11
Chislo(5) = 11
Chislo(6) = 11
Waitms 500
End If
Select Case View_menu ' взависимости от того, в каком пункте меню ввели неверное значение
Case 0 : ' возвращаем из EEPROM предыдущие значения
Case 1 :
Readeeprom On1 , 0
Case 2 :
Readeeprom Off1 , 5
Case 3 :
Readeeprom On2 , 10
Case 4 :
Readeeprom Off2 , 14
End Select
Decr View_menu ' возвращаемся в предыдущий пункт меню (в ошибочный)
Count = 0 : Reset Error_flag
Return
'
Up_const:
Enable Interrupts : Enable Timer0 : Start Timer0
Count = 0
Select Case View_menu
Case 1 :
If On1 < 80 Then Incr On1 '
Case 2 : '
If Off1 < 80 Then Incr Off1
Case 3 : '
If On2 < 500 Then Incr On2 '
Case 4 : '
If Off2 < 500 Then Incr Off2
End Select ' время задержки установки кн.+ значений уставок
Waitms 100
Return
'
'
Down_const:
Enable Interrupts : Enable Timer0 : Start Timer0
Count = 0
Select Case View_menu
Case 1 :
If On1 > 0 Then Decr On1 ' добавляется второе условие при работе с отрицательными числами
Case 2 :
If Off1 > 0 Then Decr Off1
Case 3 :
If On2 > 0 Then Decr On2
Case 4 :
If Off2 > 0 Then Decr Off2
End Select
Waitms 100 ' время задержки установки кн.- значений уставок
Return
'
'
Set_h_led1:
Set Booton_flag_2
Rotate Razryad_1 , Left
Stop Timer1 : Stop Timer0
Writeeeprom Razryad_1 , 16
Return
'
'
Set_h_led2:
Set Booton_flag_2
Rotate Razryad_2 , Left
Stop Timer1 : Stop Timer0
Writeeeprom Razryad_2 , 17
Return

Схема с применением температурного датчика DS18b20 и второй канал для измерения давления.

Исходный код программы;

'* Filename : Универсальный 2х-канальный индикатор *
'* Revision : 5.0 *
'* Controller : ATMEGA8 *
'* Compiler : BASCOM-AVR 2.0.6.1 *
'* Author : MACTEPOK *
'*******************************************************************************
$regfile = "m8def.dat" 'определяем контроллер
$crystal = 8000000 'внутренний генератор
'$sim
$lib "mcsbyte.lbx" 'подключаем библиотеку функций
$hwstack = 40
$swstack = 16
$framesize = 32

Config Pinc.0 = Input : Portc.0 = 1 'кнопка Выбор
Config Pinc.1 = Input : Portc.1 = 1 'кнопка Вверх
Config Pinc.2 = Input : Portc.2 = 1 'кнопка Вниз

Config Portd = Output : Config Portb = Output 'порты на выход к которым подключен индикатор

Config 1wire = Portc.4 ' Порт для подключения датчика DS18B20

Load1 Alias Portb.3 'нагрузка №1
Load2 Alias Portb.4 'нагрузка №2
Vibor Alias Pinc.0 'кнопка Выбор
Up Alias Pinc.1 'кнопка Вверх
Down Alias Pinc.2 'кнопка Вниз

Config Adc = Single , Prescaler = Auto , Reference = Avcc 'настраиваем АЦП
Dim W As Byte , Y As Byte , X As Byte , I As Byte , Z As Byte , Chislo(6) As Integer , Channel_1 As Integer , Channel_1word As Word , On1 As Word , Off1 As Word , Channel_2 As Integer , On2 As Word , Off2 As Word , Sostoyanie As Byte , Sostoyanie_2 As Byte , Copy_print As Integer , Copy_print_sec As Integer , Copy_var As Integer , _print As Integer , _print_sec As Integer , Pokazaniya As Integer , View_menu As Byte , Booton_flag As Bit , Booton_flag_2 As Bit , Count As Word , Error_flag As Bit , Error_temp_flag As Bit
Dim Razryad_1 As Byte , Razryad_2 As Byte , Temp_najatiya As Byte , Indicator As Byte
Dim Menu_punkt As Byte , Any_var As Single 'пункт меню
Dim Set_flag As Bit 'флаг режима настройки уставок
Dim Podskaz_flag As Bit , Podskaz_flag_sec As Bit 'флаги режима отображения подсказок на соответствующих каналах
Dim Default As Eram Byte At &H14 'переменная EEPROM для записи начальных уставок для первого включения прибора
Dim Adc_ready As Bit ' Флаг готовности АЦП
Dim Chvar_1 As Single , Chvar_2 As Integer ' промежуточные переменные для расчетов
Dim Ch1 As Integer , Ch2 As Integer,
Dim Numb As Word , Dsid1(8) As Byte , Bd1 As Byte , Bd2 As Byte , Bd(9) As Byte , ' Переменные для работы с DS18B20
Dim T1 As Single , T2 As Integer , Minus_flag As Bit , Read_flag As Bit , Conv_flag As Bit , Ds_count As Byte
Const Negativ = -1

A Alias Portd.2 : B Alias Portd.6 : C Alias Portb.7 : D Alias Portb.2 'порты, к которым подключены сегменты индикатора
E Alias Portd.0 : F Alias Portb.6 : G Alias Portd.7 : H Alias Portb.5 '
Dig1 Alias Portd.3 : Dig2 Alias Portd.4 : Dig3 Alias Portd.1 ' порты, к которым подключены общие аноды 1го индикатора
Dig1_sec Alias Portd.5 : Dig2_sec Alias Portb.0 : Dig3_sec Alias Portb.1 ' порты, к которым подключены общие аноды 2го индикатора

'A Alias Portd.5 : B Alias Portd.7 : C Alias Portd.3 : D Alias Portd.1 'порты, к которым подключены сегменты индикатора
'E Alias Portd.0 : F Alias Portd.6 : G Alias Portd.4 : H Alias Portd.2 '
'Dig1 Alias Portb.0 : Dig2 Alias Portb.1 : Dig3 Alias Portb.2 ' порты, к которым подключены общие аноды 1го индикатора
'Dig1_sec Alias Portb.5 : Dig2_sec Alias Portb.6 : Dig3_sec Alias Portb.7 ' порты, к которым подключены общие аноды 2го индикатора

'Numb = 1wirecount()
'If Numb > 0 Then Dsid1(1) = 1wsearchfirst() Else Set Error_temp_flag
For X = 1 To 6 ' присваиваем всем цифрам пустоту, чтоб в момент включения не высвечивались нули
Chislo(x) = 11
Next
'*********** ___ Переключение типа индикаторов (ОК/ОА) ___ *********************
Readeeprom Indicator , 26
If Vibor = 0 Then ' Удерживая кнопку УСТ, подаем питание.
For X = 1 To 200
If X = 150 Then ' При длительном нажатии
Set Booton_flag
Toggle Indicator.3 ' Переключаем младший (четвертый) бит переменной. Номер бита выбрал произвольно
Writeeeprom Indicator , 26
If Indicator = &B00000000 Then ' Если переключили на ОА, зажжем все сегменты идикатора для подтверждения
Reset A : Reset B : Reset C : Reset D : Reset E : Reset F : Reset G : Reset H
Set Dig1 : Set Dig2 : Set Dig3 : Set Dig1_sec : Set Dig2_sec : Set Dig3_sec
End If
If Indicator = &B00001000 Then ' Если переключили на ОK, зажжем все сегменты идикатора для подтверждения
Set A : Set B : Set C : Set D : Set E : Set F : Set G : Set H
Reset Dig1 : Reset Dig2 : Reset Dig3 : Reset Dig1_sec : Reset Dig2_sec : Reset Dig3_sec
End If
Waitms 1500
Exit For
End If
If Vibor = 1 Then Exit For
Waitms 10
Next
End If
'*******************************************************************************
If Default = 255 Then 'при первом запуске, когда Default=255
Off1 = 70 'присваиваем начальный уставки
On1 = 50
Off2 = 30
On2 = 27
' Indicator = &B00001000
Indicator = &B00000000 ' для ОА. Indicator = &B00001000 для ОК
Razryad_1 = &B10111011
Razryad_2 = &B11101110
Writeeeprom On1 , 0 ' Записываем в EEPROM уставку ON1
Writeeeprom Off1 , 5 ' Записываем в EEPROM уставку OFF1
Writeeeprom On2 , 10 ' Записываем в EEPROM уставку ON2
Writeeeprom Off2 , 14 ' Записываем в EEPROM уставку OFF2
Writeeeprom Razryad_1 , 16
Writeeeprom Razryad_2 , 17
Writeeeprom Indicator , 26
Default = 100 ' присваиваем значение 100(произвольное, отличное от 255) и больше этот кусок кода выполняться не будет
End If
Readeeprom On1 , 0 ' Считываем из EEPROM уставку ON1
Readeeprom Off1 , 5 ' Считываем из EEPROM уставку OFF1
Readeeprom On2 , 10 ' Считываем из EEPROM уставку ON2
Readeeprom Off2 , 14 ' Считываем из EEPROM уставку OFF2
Readeeprom Razryad_1 , 16
Readeeprom Razryad_2 , 17

Config Timer0 = Timer , Prescale = 64 : On Timer0 Pulse ' конфигурируем таймер 0 и назначаем подпрограмму которая выполняется при переполнении таймера
Config Timer1 = Timer , Prescale = 1 : On Timer1 Bootons ' конфигурируем таймер 1 и назначаем подпрограмму которая выполняется при переполнении таймера
Enable Interrupts : Enable Timer0 : Enable Timer1 ' разрешаем прерывания, таймер 0, таймер 1
Start Timer0 : Start Timer1
Start Adc ' начало преобразования

X = 60

Do
If X > 50 And Timer0 < 50 Then
Stop Timer0 : Stop Timer1 ' на время преобразования останавливаем таймеры
Ch1 = Getadc(5) ' 1 канал 'опрос АЦП
Chvar_1 = Ch1
Start Timer0 : Start Timer1
Any_var = Chvar_1 / 2000 ' 2000 - можно задавать изгиб линии
Any_var = Negativ * Any_var
Any_var = Exp(any_var)
Chvar_1 = 1023 - Chvar_1
Chvar_1 = Chvar_1 / 12.035 'пересчет тут любая формула для требуемого диапазона или необходимой характеристики ==============
Any_var = Chvar_1 * Any_var
Chvar_1 = Any_var
Stop Timer0 : Stop Timer1
If Ch1 < 1023 Then
If Chvar_1 > 0 Then Channel_1 = Chvar_1 ' присваиваем значения переменных для индикации
If Chvar_1 > 85 Then Channel_1 = 85 'верхний предел показаний
Else
Channel_1 = 0
End If
Start Timer0 : Start Timer1
X = 0
End If

If Conv_flag = 0 And Timer0 < 50 Then
1wreset '
1wwrite &HCC ' Выдаем команду чтения ПЗУ
1wwrite &H44 ' Запуск измерения
Set Conv_flag
Ds_count = 0
End If
'
If Read_flag = 1 And Timer0 < 50 Then '
1wreset
1wwrite &HCC
1wwrite &HBE ' Команда чтения ОЗУ датчика
Bd(1) = 1wread(9)
If Bd(9) = Crc8(bd(1) , 8) Then
Bd1 = Bd(1) ' Читаем нулевой байт
Bd2 = Bd(2) ' Читаем первый байт
If Bd2 >= 248 Then
Bd1 = &H100 - Bd1
Bd2 = &HFF - Bd2
If Err = 0 Then Set Minus_flag ' Znak = "-"
Else
Reset Minus_flag ' Znak = "+"
End If
T1 = Bd1 / 16 ' Сдвигаем нулевой байт вправо на 4 бита (2*2*2*2=16)
T2 = Bd2 * 16 ' Сдвигаем первый байт влево на 4 бита (2*2*2*2=16)
T1 = T1 + T2
' T1 = T1 * 10
Chvar_2 = T1 'отсекаем от температуры все после запятой
If Err = 0 Then
If Chvar_2 > 120 Then Chvar_2 = 120
Channel_2 = Chvar_2
End If
Reset Read_flag
Reset Conv_flag
End If
End If
If On1 < Off1 Then 'если уставка ON1 < OFF1 то режим нагревателя
If Channel_1 <= On1 Then Sostoyanie = 1 'если значение первого канала АЦП ниже уставки ON1, то включаем нагрузку №1
If Channel_1 >= Off1 Then Sostoyanie = 0 'если значение первого канала АЦП выше уставки OFF1, то выключаем нагрузку №1
Else 'если уставка ON1 > OFF1 то режим охладителя
If Channel_1 >= On1 Then Sostoyanie = 1 'если значение первого канала АЦП выше уставки ON1, то включаем нагрузку №1
If Channel_1 <= Off1 Then Sostoyanie = 0 'если значение первого канала АЦП ниже уставки OFF1, то выключаем нагрузку №1
End If

If Sostoyanie = 1 Then Set Load1 Else Reset Load1 'управление 1м каналом нагрузки

If Minus_flag = 0 Then
If On2 < Off2 Then 'если уставка ON2 < OFF2 то режим нагревателя
If Channel_2 <= On2 Then Sostoyanie_2 = 1 'если давление ниже уставки ON2, то включаем нагрузку №2
If Channel_2 >= Off2 Then Sostoyanie_2 = 0 'если давление выше уставки OFF2, то выключаем нагрузку №2
Else 'если уставка ON2 > OFF2 то режим охладителя
If Channel_2 >= On2 Then Sostoyanie_2 = 1 'если давление выше уставки ON2, то включаем нагрузку №2
If Channel_2 <= Off2 Then Sostoyanie_2 = 0 'если давление ниже уставки OFF2, то выключаем нагрузку №2
End If
End If

If Sostoyanie_2 = 1 Then Set Load2 Else Reset Load2 'управление 2м каналом нагрузки

Loop

'*******************************************************************************
' Индикация

Pulse:
Stop Timer0
If View_menu <> 0 And Error_flag = 0 Then Incr Count 'если находимся в меню и нет ошибки ввода уставок,то инкриментируем счетчик, который отвечает за автоматический выход из меню (~ через 5 сек)
If Count > 7000 Then 'задается время автоматического выхода из меню
Count = 0 'сброс счетчика
View_menu = 0 ' выход из меню в основной режим
End If
' H = 1 ' выключаем точку на индикаторе
'останавливаем таймер 0
Select Case View_menu 'в зависимости от пункта меню, записываем в переменные расчета следующие данные
Case 0 :
_print = Channel_1 ' основной режим. 1й индикатор показывает значение АЦП 1го канала
_print_sec = Channel_2 ' основной режим. 2й индикатор показывает значение АЦП 2го канала
Case 1 :
_print = On1 ' 1й индикатор показывает значение уставки ON1
_print_sec = Channel_2 ' 2й индикатор показывает значение АЦП 2го канала
Case 2 :
_print = Off1 ' 1й индикатор показывает значение уставки OFF1
_print_sec = Channel_2 ' 2й индикатор показывает значение АЦП 2го канала
Case 3 :
_print = Channel_1 ' 1й индикатор показывает значение АЦП 1го канала
_print_sec = On2 ' 2й индикатор показывает значение уставки ON2
Case 4 :
_print = Channel_1 ' 1й индикатор показывает значение АЦП 1го канала
_print_sec = Off2 ' 2й индикатор показывает значение уставки OFF2
End Select

If Podskaz_flag = 0 Then 'если не выводим на 1й индикатор подсказки, то работаем с числами
Copy_print = _print '
Copy_var = Copy_print '
For I = 3 To 1 Step -1 ' цикл в котором разбивается переменная на 3 числа
Chislo(i) = Copy_print Mod 10 ' заносим в масив последнюю цифру от числа Copy_print(123 mod 10 = 3)
Copy_print = Copy_print / 10 ' отсекаем последнюю цифру от числа Copy_print (123/10=12)
Next ' убираем незначимые нули
If Copy_var < 100 Then Chislo(1) = 11 'для 2х значного числа
' If Copy_var < 10 Then Chislo(2) = 11 'для однозначного числа
End If
If Podskaz_flag_sec = 0 Then 'если не выводим на 2й индикатор подсказки, то работаем с числами
Copy_print_sec = _print_sec '
Copy_var = Copy_print_sec
For I = 6 To 4 Step -1 ' цикл в котором разбивается переменная на 3 числа
Chislo(i) = Copy_print_sec Mod 10 ' заносим в масив последнюю цифру от числа _print(123 mod 10 = 3)
Copy_print_sec = Copy_print_sec / 10 ' отсекаем последнюю цифру от числа Copy_print_sec (123/10=12)
Next 'убираем незначимые нули
If Copy_var < 100 Then Chislo(4) = 11 'для 2х значного числа
If Copy_var < 10 Then Chislo(5) = 11 'для однозначного числа
If Minus_flag = 1 And View_menu < 3 Then Chislo(4) = 10
End If

If Indicator = 0 Then ' Гасим индикаторы перед выводом информации
Reset Dig1 : Reset Dig2 : Reset Dig3 : Reset Dig1_sec : Reset Dig2_sec : Reset Dig3_sec ' Для индикатора с ОА
Else
Set Dig1 : Set Dig2 : Set Dig3 : Set Dig1_sec : Set Dig2_sec : Set Dig3_sec 'Для индикатора с ОK
End If

Incr W : If W > 6 Then W = 1 ' выбираем какую цифру сейчас включать
Y = 0
Gosub Look : A = Z ' переходим к подпрограмме Look, которая определяет нужно ли сейчас загорется сегменту А
Gosub Look : B = Z
Gosub Look : C = Z
Gosub Look : D = Z
Gosub Look : E = Z
Gosub Look : F = Z
Gosub Look : G = Z

Select Case W ' включаем цифру(разряд) которую выбрали (w). Подаем плюс на общий провод конкретной цифры (разряда)
Case 1 :
If Indicator = 0 Then
Set Dig3
If Podskaz_flag = 0 Then H = Razryad_1.3 Else H = 1
Else
Reset Dig3
If Podskaz_flag = 0 Then
H = Razryad_1.3
Toggle H
Else
H = 0
End If
End If
Case 2 :
If Indicator = 0 Then
Set Dig2
If Podskaz_flag = 0 Then H = Razryad_1.2 Else H = 1
Else
Reset Dig2
If Podskaz_flag = 0 Then
H = Razryad_1.2
Toggle H
Else
H = 0
End If
End If
Case 3 :
If Indicator = 0 Then
Set Dig1
If Podskaz_flag = 0 Then H = Razryad_1.1 Else H = 1
Else
Reset Dig1
If Podskaz_flag = 0 Then
H = Razryad_1.1
Toggle H
Else
H = 0
End If
End If
Case 4 :
If Indicator = 0 Then
Set Dig3_sec
If Podskaz_flag_sec = 0 Then H = Razryad_2.3 Else H = 1
Else
Reset Dig3_sec
If Podskaz_flag_sec = 0 Then
H = Razryad_2.3
Toggle H
Else
H = 0
End If
End If
Case 5 :
If Indicator = 0 Then
Set Dig2_sec
If Podskaz_flag_sec = 0 Then H = Razryad_2.2 Else H = 1
Else
Reset Dig2_sec
If Podskaz_flag_sec = 0 Then
H = Razryad_2.2
Toggle H
Else
H = 0
End If
End If
Case 6 :
If Indicator = 0 Then
Set Dig1_sec
If Podskaz_flag_sec = 0 Then H = Razryad_2.1 Else H = 1
Else
Reset Dig1_sec
If Podskaz_flag_sec = 0 Then
H = Razryad_2.1
Toggle H
Else
H = 0
End If
End If
End Select
'

Start Timer0
Return
'
Look: ' подпрограмма которая определяет нужно ли сейчас гореть сегменту, который вызвал эту подпрограмму
Z = Chislo(w) * 7 : Z = Y + Z ' определяем порядковый номер числа из таблици DATA. W - это цифра которую будем выводить 1..2..3, Y это номер сегмента (A=0 B=1 C=2...G=7)
If Indicator = 0 Then
Z = Lookup(z , Cifri_oa) ' выбираем из таблици включить или выключить нужный сегмент -OA
Else
Z = Lookup(z , Cifri_ok) '-OK
End If
Incr Y 'Y это номер сегмента (A=0 B=1 C=2...). Chislo(w) * 7 - переход на начало нужной строки Data.Z = Y + Z - по очереди перебираем сегменты в строке.
Return
'
Cifri_oa:
' таблица сегментом для индикаторов с общим плюсом |Chislo(i)| Символ |
Data 0 , 0 , 0 , 0 , 0 , 0 , 1 '0
Data 1 , 0 , 0 , 1 , 1 , 1 , 1 '1
Data 0 , 0 , 1 , 0 , 0 , 1 , 0 '2
Data 0 , 0 , 0 , 0 , 1 , 1 , 0 '3
Data 1 , 0 , 0 , 1 , 1 , 0 , 0 '4
Data 0 , 1 , 0 , 0 , 1 , 0 , 0 '5
Data 0 , 1 , 0 , 0 , 0 , 0 , 0 '6
Data 0 , 0 , 0 , 1 , 1 , 1 , 1 '7
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 '8
Data 0 , 0 , 0 , 0 , 1 , 0 , 0 '9
Data 1 , 1 , 1 , 1 , 1 , 1 , 0 '10 "-"
Data 1 , 1 , 1 , 1 , 1 , 1 , 1 '11 ""
Data 1 , 1 , 1 , 0 , 0 , 0 , 1 '12 "L"
Data 1 , 1 , 0 , 1 , 0 , 1 , 0 '13 "n"
Data 0 , 1 , 1 , 1 , 0 , 0 , 0 '14 "F"
Data 0 , 1 , 1 , 0 , 0 , 0 , 0 '15 "E"
Data 1 , 1 , 1 , 1 , 0 , 1 , 0 '16 "r"

'*******************************************************************************
Cifri_ok:
' таблица сегментом для индикаторов с общим минусом |Chislo(i)| Символ |
Data 1 , 1 , 1 , 1 , 1 , 1 , 0 '0
Data 0 , 1 , 1 , 0 , 0 , 0 , 0 '1
Data 1 , 1 , 0 , 1 , 1 , 0 , 1 '2
Data 1 , 1 , 1 , 1 , 0 , 0 , 1 '3
Data 0 , 1 , 1 , 0 , 0 , 1 , 1 '4
Data 1 , 0 , 1 , 1 , 0 , 1 , 1 '5
Data 1 , 0 , 1 , 1 , 1 , 1 , 1 '6
Data 1 , 1 , 1 , 0 , 0 , 0 , 0 '7
Data 1 , 1 , 1 , 1 , 1 , 1 , 1 '8
Data 1 , 1 , 1 , 1 , 0 , 1 , 1 '9
Data 0 , 0 , 0 , 0 , 0 , 0 , 1 '10 "-"
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 '11 "" пусто
Data 0 , 0 , 0 , 1 , 1 , 1 , 0 '12 "L"
Data 0 , 0 , 1 , 0 , 1 , 0 , 1 '13 "n"
Data 1 , 0 , 0 , 0 , 1 , 1 , 1 '14 "F"
Data 1 , 0 , 0 , 1 , 1 , 1 , 1 '15 "E"
Data 0 , 0 , 0 , 0 , 1 , 0 , 1 '16 "r"

'*******************************************************************************
'
'*******************************************************************************
' Опрос кнопок
Bootons:
Incr X
If Conv_flag = 1 And Ds_count < 254 Then Incr Ds_count
If Ds_count > 160 Then
Set Read_flag
End If
Stop Timer1
If Vibor = 0 And Booton_flag = 0 And Up = 1 And Down = 1 Then Gosub Set_mode ' Нажатие кнопки УСТ
If Set_flag = 1 And Vibor = 1 Then 'Кнопки Вверх и Вниз активны только после входа в меню
If Up = 0 Then Gosub Up_const
If Down = 0 Then Gosub Down_const
End If
If Vibor = 0 And Up = 0 And View_menu = 0 And Booton_flag_2 = 0 Then Gosub Set_h_led1
If Vibor = 0 And Down = 0 And View_menu = 0 And Booton_flag_2 = 0 Then Gosub Set_h_led2

If Vibor = 1 And Up = 1 And Down = 1 Then Reset Booton_flag 'сброс флага удержания кнопки
If Vibor = 1 Then Reset Booton_flag_2
Start Timer1 : Start Timer0
Return
'*******************************************************************************
'
'
Set_mode:
Enable Interrupts : Enable Timer0 : Start Timer0

Set Set_flag ' поднимаем флаг режима настройки уставок (находимся в меню)
Set Booton_flag ' поднимаем флаг удержания кнопки (пока не сбросится, в следующий пункт меню не попадаем)
Count = 0 'сброс счетчика автоматического выхода из меню
If On1 = Off1 Or On2 = Off2 Then Gosub Errors 'Блокировка ввода уставок. Переходим в подпрограмму индикации ошибки
Incr View_menu ' следующий пункт меню
If View_menu > 4 Then View_menu = 0 ' всего 4 пункта меню, 0й - основной режим

Select Case View_menu 'индикация подсказок пунктов меню
Case 0 : ' ---
Set Podskaz_flag
Set Podskaz_flag_sec
Chislo(1) = 10
Chislo(2) = 10
Chislo(3) = 10
Chislo(4) = 10
Chislo(5) = 10
Chislo(6) = 10
Reset Set_flag '
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom Off2 , 14 ' запись уставки OFF2 в EEPROM

Case 1 : ' On1
Set Podskaz_flag 'Поднимаем флаг вывода подсказок (буквы) на 1й индикатор
Chislo(3) = 1
Chislo(2) = 13
Chislo(1) = 0
Waitms 500

Case 2 : ' OF1
Set Podskaz_flag 'Поднимаем флаг вывода подсказок (буквы) на 1й индикатор
Chislo(3) = 1
Chislo(2) = 14
Chislo(1) = 0
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom On1 , 0 ' запись уставки ON1 в EEPROM

Case 3 : ' On2
Set Podskaz_flag_sec 'Поднимаем флаг вывода подсказок (буквы) на 2й индикатор
Chislo(6) = 2
Chislo(5) = 13
Chislo(4) = 0
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom Off1 , 5 ' запись уставки OFF1 в EEPROM

Case 4 : ' OFF2
Set Podskaz_flag_sec 'Поднимаем флаг вывода подсказок (буквы) на 2й индикатор
Chislo(6) = 2
Chislo(5) = 14
Chislo(4) = 0
Waitms 500
Stop Timer1 : Stop Timer0
Writeeeprom On2 , 10 ' запись уставки ON2 в EEPROM

End Select

Reset Podskaz_flag
Reset Podskaz_flag_sec
Return
'
Errors:
Set Error_flag ' поднимаем флаг ошибки
If On1 = Off1 Then
Set Podskaz_flag
Chislo(1) = 15
Chislo(2) = 16 'Выводим подсказку Err и мигаем на 1м индикаторе
Chislo(3) = 16
Waitms 500
Chislo(1) = 11
Chislo(2) = 11
Chislo(3) = 11
Waitms 500
Chislo(1) = 15
Chislo(2) = 16
Chislo(3) = 16
Waitms 500
Chislo(1) = 11
Chislo(2) = 11
Chislo(3) = 11
Waitms 500
End If
If On2 = Off2 Then
Set Podskaz_flag_sec
Chislo(4) = 15
Chislo(5) = 16 'Выводим подсказку Err и мигаем на 2м индикаторе
Chislo(6) = 16
Waitms 500
Chislo(4) = 11
Chislo(5) = 11
Chislo(6) = 11
Waitms 500
Chislo(4) = 15
Chislo(5) = 16
Chislo(6) = 16
Waitms 500
Chislo(4) = 11
Chislo(5) = 11
Chislo(6) = 11
Waitms 500
End If
Select Case View_menu ' взависимости от того, в каком пункте меню ввели неверное значение
Case 0 : ' возвращаем из EEPROM предыдущие значения
Case 1 :
Readeeprom On1 , 0
Case 2 :
Readeeprom Off1 , 5
Case 3 :
Readeeprom On2 , 10
Case 4 :
Readeeprom Off2 , 14
End Select
Decr View_menu ' возвращаемся в предыдущий пункт меню (в ошибочный)
Count = 0 : Reset Error_flag
Return
'
Up_const:
Enable Interrupts : Enable Timer0 : Start Timer0
Count = 0
Select Case View_menu
Case 1 :
If On1 < 85 Then Incr On1 '
Case 2 : '
If Off1 < 85 Then Incr Off1
Case 3 : '
If On2 < 120 Then Incr On2 '
Case 4 : '
If Off2 < 120 Then Incr Off2
End Select
Waitms 30
Return
'
'
Down_const:
Enable Interrupts : Enable Timer0 : Start Timer0
Count = 0
Select Case View_menu
Case 1 :
If On1 > 0 Then Decr On1 ' добавляется второе условие при работе с отрицательными числами
Case 2 :
If Off1 > 0 Then Decr Off1
Case 3 :
If On2 > 0 Then Decr On2
Case 4 :
If Off2 > 0 Then Decr Off2
End Select
Waitms 30
Return
'
'
Set_h_led1:
Set Booton_flag_2
Rotate Razryad_1 , Left
Stop Timer1 : Stop Timer0
Writeeeprom Razryad_1 , 16
Return
'
'
Set_h_led2:
Set Booton_flag_2
Rotate Razryad_2 , Left
Stop Timer1 : Stop Timer0
Writeeeprom Razryad_2 , 17
Return

Всё взято тут

посоветуйте пневмоамортизатор

Tue, 09 Aug 2016 02:46:52 +0000

Здравствуйте. задумал поставить себе пневму. т.к. хочется иногда быть пониже :)

1. вес авто примерно 1500 кг. развесовка примерно 60-40. авто в процессе, не взешивал.

2. подвеска передняя и задняя на двойных рычагах. (супра 80 и чайзер 100)

3. пружины спереди стоят 95 мм сзади 90 мм

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

5. высота передних пружин в рабочем положении 220 мм в разжатом 265 мм. расстояние между болтами амортихатора 310 и 355 мм соответственно.

задние в разжатом 280 мм пружина и расстояние между креплениями 370 мм

6. диаметр амортизатора 45 мм

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

вот такие амортизаторы стоят. регулируемые по высоте, выкручены в самый низ.

фото передней подвески. ракурс не очень удачный, но тесноту видно. пневму изначально НЕ планировали.

это задняя подвеска

Геометрия подвески.Подвижность штока

Wed, 02 Oct 2013 17:44:33 +0000

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

И так по картинке.
Длинну аммортизатора взял 450мм, длинну нижнего рычага 500мм, аммортизатора 400мм(200мм вверх и вниз).Все данные взяты для понимания картины.

Черным нарисован аммортизатор в стоковом положении(в окотором считаем что шток стоит вертикально).

Зеленым нарисован аммортизатор в верхнем положении(сложен аммортизатор).В данном положении нижний рычаг поднимаеться вверх(занижение), и естественно относительно горизонтали укорачиваеться(464мм) тоесть уже смещение нижнего крепления аммортизатора на 36мм…Шток в таком положении выгнулся относительно стока на 4 градуса.

Красным нарисован максимальный вылет аммортизатора…И также идет сдвиг на 36мм.
И здесь шток сдвигаеться относительно стока на 3 градуса.

Сдвиги получились одинковые потому что в 2е стороны выход штока 200мм.

Если мы зажимаем штоком верхний брекет подушки, и упираем его в опору, то шток не имеет возможности менять угол.В таком случае вес авто давит на шток, и со временем(если угол не большой требуеться), гнет самое тонкое место.Обычно это место нажодиться на стыке рабочей части штока с нерабочей.

Тоже самое происходит когда аммортизатор укорачиваем…угол увеличиваеться, тк укорачиваеться больше чем задуманно производителем.

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

Словарь начинающего

Fri, 24 Jan 2014 13:00:14 +0000

Соклановцы, предлагаю создать краткий словарь для начинающих (меня в том числе).

Например:

ДАВКА (Давление) — сила, с которой давит газ, стремясь к расширению под действием теплового движения его молекул; оно выражается обычно в кгс/см2, или в атм (1 атм соответствует давлению 1,03 кгс/см2).

ТРАВКА (стравливание) - падение давления в результате утечки газа.

Ну и так далее

Доброго времени суток

Mon, 29 Oct 2018 17:54:38 +0000

Не знаю в какой раздел писать, простите заранее.

Установил пневму в airmasters.ru сливы на каябы ультра ср на поло седан. Изначально в приоритете был комфорт.

Т.к. в теории подвесок не силен, мной был предложен вариант Каябы ультра ср, т.е. я покупаю и они отправляют их во Владимир для подготовки передних амортов.

В итоге: получил жесткую подвеску с рулежкой под картинг и очень расстроен.

Мастера-установщики твердят - дело в спорт-амортах. А менять их уже будет накладно, и так раскошелился на 200к. Систему ставил Autopilot V2

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

Крепление датчика высоты, обмен опытом

Fri, 25 Sep 2015 15:01:08 +0000

Соклубники, давайте обмениваться опытом, у кого как стоят датчики высоты?

Гуглится данная тема плохо, картинки найти еще сложнее, предлагаю обменяться фото установки датчиков (любых) в данной теме.

Свои вертел и так и сяк, так и не определился с местом для установки (многорычажка).

Зачем нужен обратный клапан перед блоком клапанов

Mon, 05 Feb 2018 22:49:17 +0000

Необходим ли обратный клапан перед блоком клапанов? Просто видел вкручивают клапана напрямую в рессивер на тройничках, или обратный клапан нужен только когда стоит именно блок ? Спрашиваю потому что имею 2х контурный блок как на певрвом фото и 4 клапана ловато, которые удобнее будет вкуртить в рессивер, чем продолжать к ним магистраль из двухконтурного блока. Обратный клапан в системе если что имеется, стоит перед входом в рессивер.