Курсовая работа: Верифікація послідовного порту
if ii=(n-KilStopBit)+1 then //Запис бітів стопу
begin
for j:=1 to KilStopBit do
begin
mCod_bit[i,ii]:=1;
inc(ii);
end;
end;
inc(ii);
until ii>n;
end;
Відповідно до рівнів напруги для логічних 0 та 1 на основі масиву mBit потрібно отримати масив напруг mU та побудувати графік залежності напруги від номеру біту на основі масиву mU (компонент DBChart). Для моделювання шумової складової напруги використано функцію Random, наприклад: mU[n]:=8.5+(Random-0.5)*2.
n:=1;
Str2:='';
Memo1.Clear;
for i:=1 to length(Str) do
begin
iii:=21;
repeat
dec(iii);
if mCod_bit[i,iii]=1 then
break;
until 1=2;
for ii:=0 to iii do
begin
Str2:=Str2+IntToStr(mCod_bit[i,ii]); //Запис до Str2 масиву mCod_bit
if mCod_bit[i,ii]=0 then
begin
mU[n]:=8.5+(Random-0.5)*2;