обробна зображення обраним порогом (автоматично або вручну) і визначальна місця розташування об'єкта на бінарному зображенні. Було проведено дослідження компонентів програмної середовища Borland Turbo Delphi, які можуть використовуватися для створення подібного роду програм. p align="justify"> Створена програма має можливість виділення області пошуку об'єкта на бінарному зображенні, з подальшим її аналізом. В результаті програми підсумкова інформація зберігається в текстовий файл, ім'я якого вибирає сам користувач. p align="justify"> пороговий сегментація програма зображення
Список літератури
) селю А.А. "Конспект лекцій з ПіОА";
) селю А.А. "Огляд та частина диплома";
3) # "justify"> Додаток
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, jpeg, ExtCtrls, MPlayer, StdCtrls; = class (TForm): TImage;: TMediaPlayer;: TTimer; : TLabel; FormActivate (Sender: TObject); Timer1Timer (Sender: TObject); Label1MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer); Label1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1; Unit2;
{$ R *. dfm}: integer;// секундиTForm1.FormActivate (Sender: TObject);. Play;. Timer1.Enabled: = True; TForm1.Timer1Timer (Sender: TObject);: = sec +1; sec = 5 then label1.show; (sec mod 2) = 1begin label1.Font.color: = clGreen; label1.Color: = ClYellow; endbegin label1.Font.color: = clYellow; label1.Color: = clgreen; end;; TForm1.Label1MouseMove (Sender: TObject; Shift: TShiftState; X,: Integer);. Cursor: = crHandPoint; TForm1.Label1Click (Sender: TObject);. show;. Hide;. Stop;. Enabled : = False;;. Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, ExtDlgs, math, ExtCtrls, shellapi; = class (TForm): TMainMenu;: TMenuItem;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TSaveDialog;: TLabel;: TLabel;: TTimer;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel ;: TButton;: TButton;: TButton;: TLabel;: TLabel;: TMenuItem;: TMenuItem;: TMenuItem;: TColorDialog;: TPanel;: TButton;: TGroupBox;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TEdit;: TLabel;: TGroupBox;: TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TMemo;: TButton;: TMenuItem;: TEdit;: TEdit;: TLabel;: TLabel; : TGroupBox;: TLabel;: TLabel;: TScrollBar;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel ;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TOpenDialog; FormClose (Sender: TObject; var Action: TCloseAction); N6Click (Sender: TObject); N9Click (Sender: TObject); Button2Click (Sender: TObject ); Button3Click (Sender: TObject); N8Click (Sender: TObject); ScrollBar1Change (Sender: TObject); FormCreate (Sender: TObject); Timer1Timer (Sender: TObje...
