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

mBit[i-1]:=0;

if (mU[i]<=-5)and(mU[i]>=-12) then

mBit[i-1]:=1;

Str2:=Str2+FloatToStr(mBit[i-1]);

end;

Значення елементів масиву mBit відображаються на формі:

Memo1.Lines.Add(Str2);

Згідно з форматом послідовної передачі даних декодуються значення масиву mBit, тобто послідовність бітів розділяється на байти, видаляються службові біти, а значення бітів даних записуються в масив mCod_bit. Для цього проводиться послідовний аналіз усіх бітів масиву mBit. Згідно з фор-матом передачі даних послідовність бітів починається з паузи, після якої слідує старт-біт. Закінчується послідовність бітів даних бітом контролю і стоп-бітом.

j:=1;

for i:=1 to KilSymv do //Відокремлення службових бітів

begin

repeat

if Str2[j]='0' then //Після 0 йдуть інформаційні символи

begin

for iii:=0 to DovjSlova-1 do

begin

inc(j);

mCod_bit[i,iii]:=StrToInt(Str2[j]);

end;

j:=j+KilStopBit; //Стрибок на біт паузи наступного повідомлення

if Form5.RadioGroup5.ItemIndex<>0 then

inc(j);

break;

end

else inc(j);

until 1=2;

end;

На основі бітів даних (масив mCod_bit) для кожного символу отримується його код (масив mCod), перетворенням набору з 8 біт у десяткове число. Коди символів відображаються на формі.

fori:=1 toKilSymvdo//Перетворення у 10-ве число