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

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;

К-во Просмотров: 290
Бесплатно скачать Курсовая работа: Верифікація послідовного порту