Автоматическое включение света фар

[AlexS]

gnomon, Почему ключ взят с таким большим запасом? Ток ламп не превышает 10А, а ключ на 165А

[gnomon]

AlexS, такой ключ просто был под рукой, да и сопротивление открытого канала у него самое низкое.
Можно поставить любой другой ключ серии PROFET на ток не менее 30...35 ампер.
Эти ключи специально разработаны для автомобильного применения.

[AVK74]

gnomon, а чисто поприколу, выложи исходник, а?
И нафиг кварц? Лучше от внутреннего RC затактироваться.

[gnomon]

Сообщение от AVK74

gnomon, а чисто поприколу, выложи исходник, а?
И нафиг кварц? Лучше от внутреннего RC затактироваться.

От исходника толка будет мало, т.к. он на написан на редком варианте Паскаля для AVR

Хотя... забирай исходник

program pwr1;

{$NOSHADOW}
{ $WG} {global Warnings off}
{$OPTIMISE}

Device = mega8, VCC=5;
{ $BOOTRST $01C00} {Reset Jump to $01C00}

Import SysTick, WatchDog, SoftPWM, FreqCount;

{ From System Import LongInt; }


Define
ProcClock = 16000000; {Hertz}
SysTick = 2; {msec}
WatchDog = msec2000; {presc = 7}
StackSize = $0032, iData;
FrameSize = $0032, iData;
FreqTimer = Timer1; {use Timer1}
SoftPWMport = PortD; {use PortB for PWM output}
SoftPWMtimer = Timer2, 10; {use timerx, PWM cycle time msec}
SoftPWMres = 100; {PWM resolution is 100 points}
SoftPWMchans = 1, 0; {x channels, bity is the first bit}

Implementation

{$IDATA}

{--------------------------------------------------------------}
{ Type Declarations }

type


{--------------------------------------------------------------}
{ Const Declarations }

{--------------------------------------------------------------}
{ Var Declarations }
{$IDATA}
var
TimeSpd : word;
StopCount: word;

const
SpeedOn : byte = 6;
SpeedMin : byte = 70;
SpeedMax : byte = 95;
TimeOn : word = (60000 div SpeedOn);
TimeMin : word = (60000 div SpeedMin);
TimeMax : word = (60000 div SpeedMax);
PWMOff : word = 0;
PWMStop: word = 30;
PWMMid : word = 85;
PWMMax : word = 95;
PWMStd : word = 100;
PWMDelta : word = ((PWMMax - PWMMin)*100) div (TimeMin - TimeMax);
StopCycles : byte = 22;

{ Main Program }
{$IDATA}

begin
InitPorts;
StopCount := 0;
SoftPWM1 := byte(PWMOff);
EnableInts;
loop
WatchDogStart;
if PinB.1 = false then
if SoftPWM1 <> byte(PWMStd) then
SetPWM(byte(PWMStd), 100);
else
mDelay(500);
endif;
else
SetFreqCountMode(TTimeBase100ms);
mDelay(1000);
if SemaStat(FreqCountSema) <> 0 then
TimeSpd := GetTimeCounter;
if GetFreqCountOvrFlow <> 0 then
if (PinB.1 = true) and (SoftPWM1 > byte(PWMStop)) then
inc(StopCount);
if StopCount >= StopCycles then
SetPWM(byte(PWMStop), 100);
StopCount := 0;
endif;
endif;
else
StopCount := 0;
if (TimeSpd <= TimeMax) and (SoftPWM1 <> byte(PWMMax)) then
SetPWM(byte(PWMMax), 50);
endif;
if (TimeSpd > TimeMax) and (TimeSpd < TimeMin) then
//SetPWM(byte((PWMMin * 100 + ((TimeMin - TimeSpd) * PWMDelta)) div 100), 20);
SetPWM(byte(PWMMid), 50);
endif;
if (TimeSpd <= TimeOn) and (TimeSpd >= TimeMin) and (SoftPWM1 <> byte(PWMMin)) then
SetPWM(byte(PWMMin), 50);
endif;
endif;
else
if (PinB.1 = true) and (SoftPWM1 > byte(PWMStop)) then
inc(StopCount);
if StopCount >= StopCycles then
SetPWM(byte(PWMStop), 100);
StopCount := 0;
endif;
endif;
endif;
endif;
WatchDogTrig;
endloop;
end pwr1.

Кварц нужен для увеличения производительности и точности, т.к. используется прожорливый программный ШИМ и прожорливая прецизионная процедура точного замера периода импульсов с датчика скорости с усреднением по нескольким замерам. С внутренним генератором точность измерения будет очень низкой +-10...15%.

[Илдус]

Спасибо за оценку. Замечания все правильные. Но:

1. Разъем хочу в живом варианте, т.к. возможно придется перешивать со временем. Все таки вариант то не массовый, а самодельный
2. 2-х стороняя плата - это хорошо. Но не технологично, если самому травить. А заказывать - дорого.
Да и боюсь я размещать ключ и проц близко друг к другу.
3.

рс оптрон выброси и поставь диод шотку ,ты ведь используешь управление "0" т е когда эбу включает реле К_3 ,пока двс не пустился!

Верно. Но пока ДВС не запущен - там +12В!!!! Это смертельно для проца. Если только делитель и шотки не поставить. А по занимаемой площади - это почти одинаково.

P.S. Замечания сугубо ИМХО, т.к. Ваш вариант тоже заслуживает внимания

[Андрей710]

Сообщение от Илдус

Верно. Но пока ДВС не запущен - там +12В!!!! Это смертельно для проца. Если только делитель и шотки не поставить. А по занимаемой площади - это почти одинаково.

вот как делал фрагмент схемы:

[Илдус]

Андрей710, да, этот вариант тоже возможен, совсем забыл, что можно диодом обойтись.

Пожалуй, это самая простая со схемотехнической точки зрения реализация.
Дальше - вопрос надежности.

Самый лучший и защищенный вариант - BTS555 + МК Фрискейл или майрочип + опторазвязка + фильтр по питанию.
Самый незащищенный вариант - приведенный Вами.
Насколько это надежно - покажет только практика.
За свою схему я тоже только с точки зрения надежности переживаю, но и наварачивать ее по полной за сумасшедшие деньги - тоже не хочу.

В общем - поработает 2-3 года - буду считать, что цель достигнута.

[mekong]

В связи со скорым введения нормы "движения со светом" задумался над сабжем и естественно в сети уже нашлось решение которое и было опробовано.
Вариант
http://www.niva-faq.msk.ru/tehnika/e...h/fary/avt.htm
я реализовал с небольшими отличиями и адаптацией под нашу проводку. Отличая в дополнительной диодной сборке шотки на габариты (возможно она и не нужна однако был горелый комповый БП) и убран предохранитель. При наличие парочки горелых комповых БП стоимость доработки = стоимости обычного 5 контактного реле.
Может и изобретение велосипеда а может кто еще захочет повторить. Если будут вопросы отвечу.

[Сантей]

mekong, Хотелось бы взглянуть на схемы/фото ну и т.п.

[mekong]

Сообщение от Сантей

mekong, Хотелось бы взглянуть на схемы/фото ну и т.п.

Схема почти один в один разница в примененной элементной базе и цветах проводов. Через пару часов постараюсь выложить схему и фото в сборе.