Сообщений в теме: 1974

[hfelyx]

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

 

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

 

1 - Базовая (авторская Gipsy)  - больше не поддерживается. Обновлённая  и улучшенная версия измерителя находится по этому адресу:   https://bezkz.su/foru…984-bakometr-2/

Также доступны готовые платы https://bezkz.su/foru…a-gaza-topliva/

 

 

2 - 2х-с внешним опорным (модернизированная Sergey_L)
 схема2.jpg   92.9К
Пост #497 - смена общего АНОДА на КАТОД
Пост #900 - смена ПОЗИТИВ на НЕГАТИВ
Исходники, модель и прошивка 0-25-50  _Bak_2x_OA_.rar   63.11К
Для уменьшения "болтанки" между 12 и 13 выводами ПИКа можно добавить емкость 1-10мкФ (по совету Gipsy)

Прошивка (0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40) с миганием меньше 5 литров (вместо лампы) под "классику" для AndreyUA
Фотоотчет от AndreyUA
Прошивка на 20л без мигания и с калибровкой 0, 10, 20. для экспериментов Kotmur
Все для нашей "классики" (схема и прошивка)
Печатка от Kotmur все на одной плате под шестерошный стаканчик
Фотоотчет от Kotmur
Прошивка на 50л, шаг 5л, мигание 10л, ОА
Прошивка на 55л, шаг 5л, мигание 10л, ОА
Фотоотчет и Печатка от -=OLLEG=-
Прошивки под PIC16F684 на 20 и 40 литров
Прошивка на классику 2106 с общим катодом под PIC16F676 0,1,2,3,4,5,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40 с притуханием с 4л
Исходники под 676, ОК
Мои издевательства над приборкой

Пост # 1764 с допиленной, Новогодней прошивкой под "классику" 40L, OA, без болтанки и лишнего нуля.

 BAK_2_OA_N_80_5.hex   5.64К

3 - 3х-с внутренним опорным (модернизированная Sergey_L)


Исходники, модель и прошивка 0-127-255  _Bak_3x_OA_.rar   67.86К
Печатка от ASUS
Фотоотчет от ASUS

[Gipsy]

Готовые платы https://bezkz.su/foru…a-gaza-topliva/

[hfelyx]

собрана устройство по этой схеме

Прикрепленные файлы

•  0807190.lay   16.6К
•  s7556832.jpg   22.58К

[miron]

всем привет, краткий отчет по пятилитровой пришивке(остальные на момент испытаний были недосягаемы); вся схема потребляет 20мА, через делитель (бак) идет 2.5мА, все цифры(литры) отображаются отлично, как и предполагалось достоверные данные можно считать только на стоянке (когда бензин спокоен), показания одинаковы что с заведеным мотором что с заглушеным, измерительная цепь запитана от общей пятивольтовой кренки. во время движения цифры скачут, здесь сказываются конструкция измерителя (имеем что имеем), на торпеду измеритель не выносил лежал на полке под бардачком( выносить наверно и не буду во время движения будет отвлекать) пристрою гдето рядом. сегодня с ним был совершон 280км перелет, все нормально.
Думаю особого внимания заслуживает двухлитровая прошивка (по идее показания будут точнее, и нетак важно на скоко кривой бак), на досуге ее както испытаю(но сначала нада выпить 20 двухлитровых баклаг пива), удобней калибровать.

[ASUS]

Gipsy, Хочу к вашему вниманию предоставить альтернативный датчик, он статический.Надо как можно больше убрать механики.И упростить конструкцию! ниже файл в ворлде дос

Прикрепленные файлы

•  _izmeritel_topl.doc   116.5К

[ASUS]

подправил чуть схему))

Добавлено (13.04.2011, 18:12)
---------------------------------------------
обьясните мне куда какой провод с датчика подсоединять! Там их три!

Прикрепленные файлы

•  s8292280.png   15.52К

[hfelyx]

ПЕЧАТКА,ноги семисегментников надо немного раздвинуть(формовировать)

Прикрепленные файлы

•  3405348.lay   63.91К
•  s1393932.jpg   27.95К

[ASUS]

предлагаю печатную плату с двух частей

Прикрепленные файлы

•  4470395.gif   11.66К
•  bakomerchic.lay   35.88К

[Belsad]

У меня вопрос по поводу индикатора, а именно, с общим анодом или катодом и динамический или статический?

[Gipsy]

Belsad, динамический, общий анод

[ASUS]

Газ имеет свойство при разных температурах создавать разное давление поэтому никаким прибором точно не определить количество! Талько свешиванием! Есть конешно электронные датчики давления ну этот микроконтроллер и принцип роботы будут очень отличатся! Газ надо мерять газовым счетчиком!

Добавлено (29.04.2011, 21:27)
---------------------------------------------
Такое предложение у меня! У микроконтроллере остались не задействованые выводы! Возможно ли добавить третюю цыфру которая будет показывать десятые литра! и добавить кнопочку еще одну или оставить эту ну сделать так чтоб можно было сразу выбрать предел калибровки, потом шаг а дальше калибровать и потом этому устройству можно будет присвоить названия универсального

Добавлено (29.04.2011, 21:39)
---------------------------------------------
управление можно так! при первом включеннии кнопочкой короткими нажатиями выбрать шаг, нажав и удерживая перейти в режим калибровки! Когда бак полон ! вновь нажать и удерживать чтоб прейти в режим измерения!

[Gipsy]

Quote (@SUS)

Такое предложение у меня! У микроконтроллере остались не задействованые выводы! Возможно ли добавить третюю цыфру которая будет показывать десятые литра! и добавить кнопочку еще одну или оставить эту ну сделать так чтоб можно было сразу выбрать предел калибровки, потом шаг а дальше калибровать и потом этому устройству можно будет присвоить названия универсального

Добавлено (29.04.2011, 21:39)
---------------------------------------------
управление можно так! при первом включеннии кнопочкой короткими нажатиями выбрать шаг, нажав и удерживая перейти в режим калибровки! Когда бак полон ! вновь нажать и удерживать чтоб прейти в режим измерения!

Как говорится "нет предела совершенству" и улучшать можно безгранично :). Но ввиду отсутствия свободного времени вряд ли я буду заниматься какими-то переделками прошивки.

Quote

program bakometr;

const
stNormal : byte = 1;
stCalibr : byte = 2;
AdrHi : byte = 12;
litr : array [0..AdrHi] of byte = (0,5,10,15,20,25,30,35,40,45,50,55,60);

var
C1 : sbit at porta.5;
C2 : sbit at porta.2;
i,j,cc: byte;
V : word; absolute 0x30;
Vhi : byte; absolute 0x31;
VLo : byte; absolute 0x30;

L10,L1:byte;
dat : array [0..AdrHi] of byte;
mode : byte;
calibrN : byte;

procedure Led(i: byte);
begin
if I=0 then begin
portc:=$04;
porta.4:=0;
end;
if I=1 then begin
portc:=$2D;
porta.4:=1;
end;
if I=2 then begin
portc:=$22;
porta.4:=0;
end;
if I=3 then begin
portc:=$28;
porta.4:=0;
end;
if I=4 then begin
portc:=$09;
porta.4:=1;
end;
if I=5 then begin
portc:=$18;
porta.4:=0;
end;
if I=6 then begin
portc:=$10;
porta.4:=0;
end;
if I=7 then begin
portc:=$0D;
porta.4:=0;
end;
if I=8 then begin
portc:=$00;
porta.4:=0;
end;
if I=9 then begin
portc:=$08;
porta.4:=0;
end;
end;

procedure delay10;
begin
delay_ms(10);
end;

procedure ReadData;
begin
for i := 0 to AdrHi do dat[i]:=EEPROM_Read(i);
end;

begin
porta := %00010000;
trisa := %11001011;
portc := $FF;
trisc := 0;
wpua := 1;
cmcon := $07;
ansel := 2;
adcon0:= 4;
adcon1:= $30;

mode:=stNormal;
ReadData;
ADC_Init;
i:=0;
while true do
begin
inc(I);
if mode = stNormal then
begin
if (i.7) and (V<6) then
begin
C1:=0;
C2:=0;
end;
if i=0 then
begin
V:=ADC_Read(1);
V:=V shr 2;
if V<=dat[AdrHi]
then V:=litr[adrHi]
else begin
if V>=dat[0]
then V:=litr[0]
else begin
for j:=0 to AdrHi-1 do
if (V<=dat[j]) and (V>dat[j+1]) then cc:=j;
if cc=AdrHi
then V:=Litr[AdrHi]
else begin
V:= (dat[cc]-V);
j:=(Litr[cc+1]-Litr[cc]);
V:= V * j;
j:=(dat[cc]-dat[cc+1]);
V:= V / j;
V:= V + litr[cc];
end;
end;
end;
L10:= v div 10;
L1 := V mod 10;
if (porta.0 = 0) then
begin
C1:=1;
C2:=1;
portc:=$3B;
porta.4:=1;
calibrN:=0;
mode:=stCalibr;
delay10;
repeat until porta.0 = 1;
delay10;
end;
end;
end;
if mode = stCalibr then
begin
L10:=litr[calibrN] div 10;
l1:=litr[calibrN] mod 10;
if i>127 then
begin
C1:=0;
C2:=0;
end;
if porta.0 = 0 then
begin
delay10;
repeat until porta.0 = 1;
delay10;
V:=adc_read(1);
V:=V shr 2;
EEPROM_Write(calibrN,VLo);
inc(calibrN);
if calibrN>AdrHi then
begin
mode:= stNormal;
CalibrN:=0;
delay10;
delay10;
delay10;
delay10;
ReadData;
end;
end;
end;

delay_ms(1);
if i.0 then begin
C2 := 0;
Led(L10);
C1 := 1;
end else
begin
C1 := 0;
Led(L1);
C2 := 1;
end;
end;

end.

Вот вам исходник - кому интересно - переделывайте.

Эта строчка отвечает за точки калибровки:
litr : array [0..AdrHi] of byte = (0,5,10,15,20,25,30,35,40,45,50,55,60);
В даном примере - прошивка до 60Л с калибровкой через 5Л

AdrHi : byte = 12; - количество точек калибровки

[Belsad]

А чем эту прошивку скомпелировать, научил бы кто, а цыган, поможешь?

Добавлено (04.05.2011, 23:03)
---------------------------------------------
http://gbo-shop.ru/m…er-class-b.html

Этот мультиклапан помоему мериет не давление а уровень сжиженого газа.

[Gipsy]

Belsad, - компилятор http://www.mikroe.com/eng....tup.zip

[Mehvz]

Кто подскажет, если делать калибровку штатный датчик надо отключать или нет.
Пробовал на ВАЗе 2107 когда подключаю даный прибор то стрелка датчика отклоняется мол в пустом баке есть несколько литров топлива.
Что делать…

[Gipsy]

Mehvz, увеличте сопротивление входного делителя, схема ставится в паралель с штатным прибором

Например так

Прикрепленные файлы

•  s5945240.gif   11.42К

[Belsad]

Начал собирать, хочу показать что получилось, панелька собрана на оргстекле не очень аккуратно - но мне пойдет.

Добавлено (21.05.2011, 10:56)
---------------------------------------------
Вопрос, точка на индикаторе светится?

Добавлено (21.05.2011, 10:57)
---------------------------------------------
И ещё вопрос, в теме обсуждения несколько схем подключения в том числе без подачи напряжения на датчик, на Мазду какой собирать?

Прикрепленные файлы

•  s6850142.jpg   11.67К
•  s1690516.jpg   23.15К

[ASUS]

Украсил

Добавлено (21.05.2011, 15:09)
---------------------------------------------

Прикрепленные файлы

•  s2014991.gif   119.04К

[dimoniy_32]

Собрал работает ,куда подключать,
к какому проводу от датчика розовому? машина ваз 2106

[Gipsy]

@SUS, Красиво украсил, только доработки то не учтены
Важно мнение людей, которые запустили девайс в железе.

Правильная (по моему мнению) схема :

Ув. соавторы, может определимся с включением схемы и выдадим таки "на гора" окончательный вариант?

 

Прикрепленные файлы

•  s1401255.gif   11.42К