Мпасик мой (Несколько готовых курсовых работ), страница 3

Таблице I

В ИБ регистры (позиции D3 – D5) исспользуются в трех случаях: I) записи данных со входов D0- D7; 2) хранения данных;

3) выдачи данных на выходы Q0 –Q7.

Если вход ВР регистра заземлить, а на входы ВК2, R подать напряжение питания (что я сделано в блоке), то перечисленные режимы можно организовать следующим образом:

1. Режим записи данных – подачей управляющего сигнала на вход С.

2. Режим хранения данных организуется после снятия сигнала С, потому что вход ВР заземлен. При этом выходы Q0 –Q7 характеризуются высоким состоянием, т.е. регистр фактически отключен от ШД.

3. Режим выдачи данных организуется подачей на вход ВК1 нулевого сигнала. В исходном состоянии на этом входе – единица.

Особенностью работы регистра является то, что сразу после окончания сигнала С на выходе INT регистра формируется сигнал ЗП, т.е. нуль (исходное состояние - единица). Сигнал 3П может быть сброшен подачей единичного сигнала на вход BK2 (задним фронтом сигнала ВК2). Эта особенность используется для организации обмена между ИБ и ПЭВМ соответствующим включением регистра РЗ. Начало обмена инициируется ИБ, формирующим сигнал ЗП. Окончанием обмена управляет ПЭВМ, вырабатывая сигнал СТР, который, поступая на вход регистра КЗ, сбрасывает сигнал ЗП.

Шинный формирователь с инверсией К589ВП26 (позиция D2) служит для передачи сигнала ЗП на разряд D0 ШД с целью реализовать протокол обмена между ИБ и ПЭВМ. При передаче сигнале ЗП от входа D0 к выходу Q0 на управлявшие входы С и D должны быть поданы напряжения низкого уровня. При наличии единицы на входе С выход Q0 имеет высокоомное состояние (отключен от шины).

Дешифратор-демультиплексор К155ИДЗ (позиция D6) может ра­ботать в двух режимах: дешифрирования или демультиплексирования. В ИБ используется режим дешифрирования, который организуется пода­чей на стробирующие входы WO и W1 низких уровней напряжения. В этом случае входы 1,2,4,8 на которые подается четырехразрядное двоичное число, являются информационными.

Сигналы с выходов ДШ с помощью перемычек (переключателей) могут быть поданы на входы ВК (выбор кристалла) различных уст­ройств хранения информации. Этим обеспечивается адресация послед­них.

Установкой на входах W0 и W1 нулей с помощью различных двоичных комбинаций, подаваемых через инверторы или непосредственно (коммутация осуществляется с помощью перемычек или переклю­чателей), можно обеспечить идентификацию одного из 16 дешифрато­ров (максимальное количество дешифраторов и, соответственно, ИМП данного типа, которое монет быть в системе).

Например, если перемычками соединены контактные площадки 22-23, 24-26,18-2, то адрес регистра P1 определится комбинацией (010001)₂ = (11)₁₆ . При подаче такой комбинации на ША (входы Г1-Г6 разъема Х2) на выходе 2 ДШ будет низкий уровень сигнала, который подается на вход BKI регистра P1 и разрешает передачу байта данных из внутреннего буфера на ШД.

Если хотя 6ы на одном из входов WO или W1 устанавлива­ется напряжение высокого уровня, то на всех 16 выходах ДШ будет так же напряжение высокого уровня, независимо от того, какой код подается на входы.

1. Разработка и отладка программы передачи данных в среде Pascal.

Сегодня в медицинском приборостроении все более широко используются микропроцессорные средства и микроЭВМ. Стои­мость такой техники снижается с каждым годом, и она становится доступной для применения в медицине. Автоматизированный компьютерный анализ инспираторной и экспираторной частей петли поток - объем является наиболее перспективным методом количественной оценки нару­шений легочной вентиляции.

Необходимы сглаживание кривых и тщательная фильтрация сигналов, которую можно выполнить как в аналоговой, так и в цифровой области. Последняя имеет ряд преимуществ перед аналоговой:

• высокая помехоустойчивость,

• высокая точность преобразования сигналов,

• гибкое изменение параметров фильтра (при изменении алгоритмов и программ фильтрации).

На характеристики цифрового фильтра, в отличие от функциональных узлов аналоговой техники, не влияют большинство источников погрешностей, например, нестабильность источников питания, колебания температуры, старение компонентов и другие. Конечно, в цифровых фильтрах проявляются специфические погрешности обработки, связанные с неизбежным округлением коэффициентов, квантованием исходных сигналов (что приводит к появлению шумов квантования) и частотными искажениями дискретизации.

Указанные преимущества цифровых фильтров в полной мере реализуются при анализе низкочастотных сигналов, получаемых в результате медицинских обследований. Эти сигналы могут значи­тельно искажаться аналоговыми схемами из-за дрейфа параметров, в особенности это относится к спирографическим исследованиям, где информативная граница спектра сигнала не превышает 20...40 Гц. Таким образом, для обработки сигнала будет использоваться дискретная низкочастотная фильтрация на компьютере.

Нам хотелось бы иметь возможность указать адрес порта с которым будем работать, значение которое мы захотим туда (в порт) записать и две кнопки: одна предназначена для записи данных в порт, другая для чтения. С верхней панели перетаскиваем на форму нужное количество edit-окошек, статических текстов и кнопок. При выделении нужного элемента на форме справа в окне Object Inspector можно задавать различные свойства для элемента. В итоге сформируйте форму так как на рис. ниже.

Теперь возьмемся собственно за программирование. Для начала нам нужно как-то подсоединить inpout32.dll к нашему проекту. Для этого в Delphi есть несколько вариантов, но остановимся на следующем: в папку где расположен проект программы помещаем только библиотеку inpout32.dll (lib и h файлы, как это делали раньше, здесь уже не нужны). Далее в заголовке программы в секции uses помещаем прототипы функций Out32 и Inp32 со специальной директивой компилятора external, говорящей откуда нужно эти функции брать.

uses

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

Dialogs, StdCtrls;

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';

function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

Ok. Теперь создадим обработчики на нажатие кнопок. Для этого дважды щелкаем на кнопке в редакторе формы. Нас автоматом переносит к коду функции-обработчика. Рассмотрим сначала функцию для записи данных в порт. Тут особенно сложно ничего нет. В переменные Port и Data помещаем данные из соответствующих окошек ввода предварительно преобразовав их из текста в целое число. Затем вызываем функцию Out32() с этими параметрами.

procedure TForm1.Button1Click(Sender: TObject);

var

Port: word;

Data: Byte;

begin

Data:= StrToInt(Edit1.Text);

Port:= StrToInt(Edit2.Text);

Out32(Port, Data);

end;

Аналогично делаем для кнопки для чтения данных. Из нужного edit-окошка считываем введенное там значение адреса порта откуда будет проводится чтение, преобразуем его в число. Вызываем функцию Inp32() с этим параметром. Затем выводим окно сообщения с результатом чтения.

procedure TForm1.Button2Click(Sender: TObject);

var

Port: word;

Data: Byte;

begin

Port:= StrToInt(Edit3.Text);

Data:= Inp32(Port);

MessageDlg('Value: '+ IntToStr(Data), mtInformation, [mbOK], 0);

end;

Компилируем, запускаем (можно одной кнопкой в виде зеленой стрелки на верхней панели). Протестируем приложение. Попробуем записать в регистр DATA LPT потра число 0. Для этого в качестве адреса указываем 888 (или $378, что одно и тоже), в качестве данных - 0. Нажимаем на соответствующую кнопку (наблюдаем это на LPT-тестере). Аналогично проводим чтение.

Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';

function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

type

TForm1 = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

Port: word;

Data: Byte;

begin

Data:= StrToInt(Edit1.Text);

Port:= StrToInt(Edit2.Text);

Out32(Port, Data);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

Port: word;

Data: Byte;

begin

Port:= StrToInt(Edit3.Text);

Data:= Inp32(Port);

MessageDlg('Value: '+ IntToStr(Data), mtInformation, [mbOK], 0);

end;

end.

Unit

object Form1: TForm1

Left = 227

Top = 171

Width = 323

Height = 159

Caption = 'Form1'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object Label1: TLabel

Left = 8

Top = 16

Width = 60

Height = 13