3 Описание программной реализации
Разработанный программный продукт написан на языке высокого уровня Delphi в виде MDI приложения. Описание структуры программы приведено на рисунке 3.1.
Рисунок 3.1 – Структура программы
При написании данного ПП было реализовано множество собственных функций. Рассмотрим подробнее ниже некоторые из них, которые представлены в таблице 3.1.
Таблица 3.1 – Функции
Название функции |
Параметры |
Описание |
procedure TForm_Main.N2Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Процедура открытия изображения |
procedure TForm_Main.N3Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Процедура сохранения изображения |
procedure TForm_Main.Gray(FCh,tCh: TForm_Child); |
tCh – указатель на текущее активное окно, FCh – указатель нового дочернего окна |
Процедура преобразования изображения в полутоновое |
procedure TForm_Main.N7Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Пункт главного меню для вызова процедуры преобразования изображения в полутоновое |
procedure TForm_Main.N8Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Процедура для вырезания выделенного фрагмента изображения |
procedure TForm_Main.N901Click(Sender: TObject); procedure TForm_Main.N1801Click(Sender: TObject); procedure TForm_Main.N2601Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Процедура выполняющая поворот изображения на 90, 180 и 270 градусов |
procedure TForm_Main.N12Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Вывод гистограммы изображения |
procedure TForm_Main.N15Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Процедура добавления аддитивного шума |
Продолжение таблицы 3.1
Название функции |
Параметры |
Описание |
procedure TForm_Main.N16Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Процедура добавления импульсного шума |
procedure TForm_Main.N19Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Осреднение скользящим окном |
procedure TForm_Main.N20Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Свертка с маской |
procedure TForm_Main.N21Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Медианный фильтр |
procedure TForm_Main.N22Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Фильтр Гаусса |
procedure TForm_Main.N23Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Сигма-фильтр |
procedure TForm_Main.N24Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Пороговая сегментация |
procedure TForm_Main.N25Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Алгоритм водораздела |
procedure TForm_Main.N29Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Оператор Лапласса |
procedure TForm_Main.N27Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Оператор Превитта |
procedure TForm_Main.N28Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Оператор Кирша |
procedure TForm_Main.A1Click(Sender: TObject); |
Sender: TObject – ссылка на объект который вызвал событие |
Цепное кодирование с использованием кода Фримена |
ВЫВОДЫ
Распознавание изображений как фундаментальное научное направление является неисчерпаемым. Это направление опирается на математику, физику, биологию, информатику. Методы и средства распознавания изображений имеют самые разнообразные применения: наука, техника, медицина, социальная сфера. Практически уже сейчас прогресс общества, особенно в сфере здравоохранения, во многом зависит от достижений распознавания изображений. В дальнейшем роль распознавания изображений в жизни человека будет возрастать еще больше.