Курсовая работа: Верифікація послідовного порту

until Data<2;

mCod_bit[i,ii]:=Data;

if mCod_bit[i,ii]=1 then //Підрахунок одиниць

Parnist:=Parnist+1;

n:=iii+DovjSlova+KilStopBit;

if Form5.RadioGroup5.ItemIndex<>0 then //Якщо є біт парності,то n+1

inc(n);

ii:=0;

repeat

if ii<iii then

mCod_bit[i,ii]:=1; //Запис бітів паузи

if ii=iii then

mCod_bit[i,ii]:=0; //Запис біту старту

if ii=(n-KilStopBit) then //Запис біту парності

begin

case Form5.RadioGroup5.ItemIndex of

1:begin //непарна

if (Parnist mod 2)<>0 then

mCod_bit[i,ii]:=0

else mCod_bit[i,ii]:=1;

end;

2:begin //парна

if (Parnist mod 2)=0 then

mCod_bit[i,ii]:=0

else mCod_bit[i,ii]:=1;

end;

3:mCod_bit[i,ii]:=1; //постійно 1

4:mCod_bit[i,ii]:=0; //постійно 0

end;