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

end

else begin

mU[n]:=-8.5+(Random-0.5)*2;

inc(n);

end;

end;

end;

Отримана послідовність бітів відображається на формі

Memo1.Lines.Add(Str2); //Запис у поле mBit

Масив напруг відображається у вигляді діаграми і записується у файл.

DBChart1.Series[0].Clear; //Очисткаграфіка

for i:=1 to n-1 do //Побудоваграфіка

DBChart1.Series[0].Add(mU[i],IntToStr(i),clRed);

if SaveDialog1.Execute then //Записуфайл

begin

AssignFile(f,SaveDialog1.FileName);

Rewrite(f);

for i:=1 to n-1 do

writeln(f,mU[i]:3:1);

CloseFile(f);

end;

Рис. 1.3.Форма організації обміну даними через послідовний порт

1.2 Опис процедури зчитування повідомлення Read_Message

Розглянемо процедуру Read_Message для декодування повідомлень (зчитування з файлу). Спочатку значення аналогової напруги сигналу mU зчитується з текстового файлу і відображаються у вигляді діаграми (рис.4). Значення аналогової напруги сигналу mU перетворюються у масив бітів mBit, а на основі масиву бітів визначаються коди символів mCod_bit. За кодами символів визначаються самі символи, тобто текст повідомлення.

Розглянемо процес зчитування повідомлення з файлу на рівні програмного коду. Спочатку потрібно відкрити один з попередньо створених файлів і зчитати значення напруги в масив mU. На основі масиву mU будується графік залежності напруги від номеру біту.

Відповідно до рівнів напруги для логічних 0 та 1 на основі масиву напруг mU отримується масив логічних значень mBit.

for i:=1 to n-1 do

begin