Лабораторная работа - Интерфейс RS-232C. Приём информации

Подождите немного. Документ загружается.

Лист

ДатаИзм. Лист № документа Подпись

Лабораторная работа № 5

ТЕМА: Интерфейс RS-232C. Приём информации.

ЦЕЛЬ: Исследование и изучение интерфейса RS-232C. Научиться программно

взаимодействовать с интерфейсом RS-232C.

Теоретические сведения:

RS-232C - предназначен для подключения к компьютеру стандартных внешних

устройств (принтера, сканера, модема, мыши и др.), а также для связи компьютеров между

собой. Основными преимуществами использования RS-232C по сравнению с Centronics

являются возможность передачи на большие расстояния (по стандарту длина соединительного

кабеля может доходить до 15 метров) и гораздо более простой кабель (с меньшим количеством

проводов). Данные в интерфейсе RS-232C передаются в последовательном коде (бит за битом)

побайтно. Каждый байт обрамляется стартовым и стоповыми битами. Данные могут

передаваться как в одну, так и в другую сторону по разным проводам (дуплексный режим).

Скорость передачи — до 14,4 Кbyte/sec (115,2 Кbit/sec) (реально 10,4 Кbyte/sec, учитывая

вспомогательные биты B/start, B/stop, B/check).

Традиционно скорость передачи данных по последовательным линиям и шинам (когда

речь идет о модемах и т.п.) измеряется в /бодах/ (bod – количество передаваемых битов за 1

секунду (bit/sek, Kbit/sek, Mbit/sek), а не в единицах байтов, как это делается для параллельных

шин, таких как, например ISА, РСI или АGР.

Скорость передачи по RS-232C может выбираться из ряда (Vbod): 110, 150, 300, 600,

1200, 2400, 4800, 9600, 19200, 38400, 57600, 115200 bit/seс.

Ход работы:

В качестве примера практической реализации стандартных и нестандартных устройств,

подключаемых к COM-порту, используем 4 бита (DCD/CD, RI, DSR, CTS) на ввод.

Рис.1

Лист

ДатаИзм. Лист № документа Подпись

На рис.1 показан электрический интерфейс для проверки программного кода. К разъёму

XR1 COM-port, на соответствующие выводы подключены 4 кнопки (T1-T4) и 2 светодиодных

индикатора LED1 (зелёный), LED2 (красный). Для ограничения тока, протекающего через

светодиоды, использованы резисторы R1, R2. В качестве потенциала, определяющего состояние

кнопок (T1-T4) используется внешнее напряжение Uz.

Пример контроля состояния (кнопок T1-T4) дискретных датчиков наполнения

топливных баков T1-T4, биты DCD/CD, RI, DSR, CTS (см. табл.1).

Табл.1

Листинг программы:

unit Unit1

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, ComCtrls, DBCtrls, ActnList, Spin, Buttons, ToolWin,

ImgList, TeEngine, Series, TeeProcs, Chart, TeeFunci, Grids, Calendar,

mAPI,MPlayer;

type

TForm1 = class(TForm)

Start: TButton;

Label1: TLabel;

Stop: TButton;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

LabelDSR: TLabel;

LabelCTS: TLabel;

LabelRI: TLabel;

LabelDCD: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure StartClick(Sender: TObject);

procedure Delay_Nms;

procedure StopClick(Sender: TObject);

private

{ Private declarations }

hCOM:tHandle;

public

{ Public declarations }

Nms : longint;

FirstTick : longint;

meTickCount: longint;

Tr_exit:Boolean;

end;

Лист

ДатаИзм. Лист № документа Подпись

const

Const_x=2;

var

Form1: TForm1;

implementation

{$R *.DFM}

//##############################################

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ShowMessage('Позаботьтесь о сохранении файла данных');

CloseHandle(hCOM);

end;

//##############################################

Procedure TForm1.Delay_Nms;

begin

FirstTick:=GetTickCount;

repeat

meTickCount:=GetTickCount;

Application.ProcessMessages;

until meTickCount-FirstTick >= Nms;

end;

//##############################################

//############# ОТКРЫВАЕМ ФОРМУ 1 ##############

//##############################################

procedure TForm1.FormCreate(Sender: TObject);

var

DCB:tDCB;

fSuccess:boolean;

begin

hCOM:=CreateFile('COM1',GENERIC_READ or GENERIC_WRITE,0,

nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

if hCOM=INVALID_HANDLE_VALUE then begin

ShowMessage('Не могу открыть порт');

Application.Terminate;

end;

SetupComm(hCOM,8192,8192);

try

fSuccess:=GetCommState(hCOM,DCB);

with DCB do begin

DCB.BaudRate:=9600;

DCB.ByteSize:=8;

DCB.Parity:=NoParity;

DCB.StopBits:=OneStopBit;

end;

fSuccess:=SetCommState(hCOM,DCB);

except

ShowMessage('Не удалось настроить порт');

end;

//##############################################

procedure TForm1.StartClick(Sender: TObject);

var

ModemStat: DWord;

MS_var: variant;

MS_byte: byte;

label Lab_1;

begin

EscapeCommFunction (hCOM, setDTR);

EscapeCommFunction (hCOM, setRTS);

Лист

ДатаИзм. Лист № документа Подпись

Tr_exit:=false;

Lab_1:

Nms:=50;

Delay_Nms;

//###########################################################

//пример выделения бита [DSR] /0010.0000/ или /$20/

GetCommModemStatus(hCOM, ModemStat);

MS_var:=ModemStat;

MS_byte:=MS_var;

MS_byte:= MS_var and $20;

MS_byte:= MS_byte shr 5;

if MS_byte > 0 then LabelDSR.Color:=clAqua

else LabelDSR.Color:=clWhite;

MS_var:= MS_byte;

LabelDSR.Caption:=MS_var;

//###########################################################

//пример выделения бита [CTS] /0001.0000/ или /$10/

GetCommModemStatus(hCOM, ModemStat);

MS_var:=ModemStat;

MS_byte:=MS_var;

MS_byte:= MS_var and $10;

MS_byte:= MS_byte shr 4;

if MS_byte > 0 then LabelCTS.Color:=clAqua

else LabelCTS.Color:=clWhite;

MS_var:= MS_byte;

LabelCTS.Caption:=MS_var;

//###########################################################

if Tr_exit=true then ExitProcess(0);

// if Tr_exit=true then Exit;

goto Lab_1;

end;

//##############################################

procedure TForm1.StopClick(Sender: TObject);

begin

Tr_exit:=True;

end;

END.

// EscapeCommFunction (hCOM, clrDTR);

// EscapeCommFunction (hCOM, clrRTS);

Лист

ДатаИзм. Лист № документа Подпись

Рис. 2. Форма контроля датчиков.

Вывод: в ходе лабораторной работы была изучена аппаратная и программная

реализация интерфейса RS-232C. Был проведён эксперимент в виде контроля

состояния датчиков для реализации приёма информации по интрефейсу RS-232C.

Для этого использовалась программа написанная в среде Delphi, в которой

использовались стандартные WinAPI-функции.