freaquency:=k*256;
if(get_char(BASE)=TRUE) then k:=Value; {lower byte of freaquency}
freaquency:=freaquency+k;
freaquency_r:=10e5/freaquency; {convertion in Hz}
if(get_char(BASE)=TRUE) then k:=Value; {higer byte of fase}
Возможно вы искали - Курсовая работа: Автомобильная сигнализация
fase:=k*256;
if(get_char(BASE)=TRUE) then k:=Value; {lower byte of fase}
fase:=fase+k;
if(freaquency<7) then {60MHz}
begin
Похожий материал - Курсовая работа: Разработка микропроцессорной системы Автомобильные часы-термометр-вольтметр на базе микроконтроллера
divider:=1;
end;
if(freaquency>6)and(freaquency<$0E00) then {60/Nd+2}
begin
divider:=(75*freaquency)/512+1;
Очень интересно - Курсовая работа: Автомобільний охоронний сигналізатор на мікроконтролері
end;
if(freaquency>$0DFF)and(freaquency<$1C00) then {30/Nd+2}
begin
divider:=(75*freaquency)/1024+2;
end;
Вам будет интересно - Реферат: Адаптивные сборочные робототехнические комплексы (РТК)
if(freaquency>$1BFF)and(freaquency<$3700) then {15/Nd+2}
begin
divider:=(75*freaquency)/2048+2;
end;
if(freaquency<$3700) then fase_r:=360*(freaquency_r*divider/6e7) {convertion}
Похожий материал - Реферат: Адміністрування користувачів з використанням локальних і глобальних груп
else {fase measured MK}
begin
fase_r:=360*((2*fase)/freaquency);
end;