Управление 3W светодиодом

Понадобилось мне управлять 3W белым светодиодом. Регулировать ток в пределах от 50мА до максимума — 800мА. Покупать специальный драйвер не хотелось, поэтому решил делать из говна и палок транзисторов и резисторов.

Управлять светодиодом будет МК, реагируя на нажатия кнопок. Питание силовой части 5-6 Вольт.

Из множества вариантов я решил выбрать линейный стабилизатор. И вот почему:
— Прост в реализации, не отнимает много ресурсов МК.

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

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

Схема нарисовалась следующая:


Алгоритм регулировки прост до безобразия:
— Настраиваем таймер на ШИМ режим. Он работает независимо от МК и через RC цепочку регулирует напряжение на затворе полевика. В регистр OCR пихаем 0.
— Запускаем АЦП в режиме непрерывного преобразования. Вход АЦП подключен к шунтирующему резистору.
— По таймеру (с небольшой частотой) корректируем ШИМ регистр таким образом, чтобы ток, протекающий через светодиод соответствовал нужному нам значению.

Программу накидал за пол-вечера:

program test;

var
 Light: byte;
 soft_timer: byte; 

const
 Light_min=1;
 Light_Max=40;

procedure TIMER; org 0x3;
begin
Dec(soft_timer);
if soft_Timer=0 then
begin
 if ADCH < Light then if OCR0A < 255 then Inc(OCR0A);
 if ADCH > Light then if OCR0A > 0 then Dec(OCR0A);
 soft_timer := 255;
end;
end;

begin

Delay_ms(1000);
//Таймер ноль должен быть настроен на PWM режим:
COM0A1_bit := 1;
WGM00_bit := 1;
WGM01_bit := 1;
TCCR0B := 1; //Поехали!
OCR0A := 0;
TOIE0_bit := 1;

Light := 10;
soft_timer := 100;

DDRB.0 := 1; //ШИМ
PORTB.3 := 1; //Кнопка "Больше"
PORTB.4 := 1; //Кнопка "Меньше"

//Простите за "волшебные числа" :)
ADMUX.ADLAR := 1;
ADMUX.MUX0 := 1;
ADCSRA := %11100111;

asm sei end;

while true do
begin

 if PinB.3 = 0 then //Кнопка "Больше"
  begin
   if Light < Light_max then Inc(Light);
   Delay_ms(50);
  end;
  
 if PinB.4 = 0 then //Кнопка "Меньше"
  begin
   if Light > Light_min then Dec(Light);
   Delay_ms(50);
  end;
end;


end.

В итоге получилось вот это: