Программа "Ход конем"
Создание программы движения коня по шахматной доске, ее функциональное и эксплуатационное назначение, требования пользователя к программному изделию. Виды скриншотов, информационная совместимость, программные ограничения и требования к документации.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 17.02.2010 |
| Размер файла | 1,4 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
7
Федеральное агентство по образованию
Государственное образовательное учреждение высшего профессионального образования
«Курский государственный технический университет»
Кафедра ПО и ВТ
КУРСОВАЯ РАБОТА (ПРОЕКТ)
по дисциплине «Программирование на языках ВУ»
на тему «Ход конем»
Автор работы (проекта) А.В. Буштец
Л.М. Москаленко
Группа ПО-71
Руководитель работы (проекта) Е. А. Петрик
Работа (проект) защищена
Оценка
Председатель комиссии
Члены комиссии
1. ТЕХНИЧЕСКОЕ ЗАДАНИЕ
1.1 Введение
В настоящее время наблюдается, быстрый темп роста применения вычислительных машин в различных сферах человеческой деятельности.
Необходимо отметить, что без компьютеров и соответственно компьютерных программ не обходится не одно предприятие или фирма.
Данная программа может быть использована в фирмах, нуждающихся в программе, использующей представленный алгоритм.
1.2 Основания для разработки
Задание на курсовую работу по программированию на языках ВУ.
1.3 Назначение разработки
Написать программу движения коня по шахматной доске. Конь должен сходить заданное количество ходов по клеткам доски, не наступая на одну и туже клетку два раза.
1.3.1 Функциональное и эксплуатационное назначение изделия
Данная программа предназначена для вывода ходов коня по шахматной доске.
В работе должны быть решены следующие задачи:
1) необходимо просчитать движение коня по шахматной доске;
2) необходимо цифрами вывести ходы коня на шахматной доске.
1.3.1.1 Перечень требований пользователя к программному изделию
Должны быть предусмотрены:
* Возможность выбора клетки для коня на шахматной доске;
* Отображение ходов коня в виде шахматной доски с нумерацией
сделанных ходов.
1.3.3 Стандарты
При разработке данного программного продукта были использованы следующие ГОСТы: ГОСТ 19.701- 90 (ИСО 5807 - 85), 2.304 - 88
1.3.4 Информационная совместимость
Модули программного комплекса должны быть совместимы между собой на уровне исходного языка, а также форматов используемых данных.
1.3.5 Программные ограничения, совместимость
Программное изделие должно быть написано на языке высокого уровня Dеlphi 7.0 и работать под управлением операционной системы Windows 2000 (Windows Хр). Для запуска разработки необходимо наличие ЕХЕ - файла программы (выполняемого файла), свободной оперативной памяти компьютера.
1.3.6 Требования к составу и параметрам технических средств (аппаратные ограничения)
Для работы программного изделия требуется:
* компьютер, Intel Pentium 4 CPU 3.06 GHz. 512MB RAM$
* жесткий диск.
1.3.7 Входные данные
Входными данными для моделируемых устройств, будут являться данные, вводимые с клавиатуры. Входными данными будет являться:
* клетка старта;
* количество ходов.
1.3.8 Процессы обработки
При нажатии на файл с расширением ЕХЕ запускается ролик, рассказывающий нам о программе. После этого мы видим форму, которая состоит из шахматной доски, окон для ввода позиций х, y и количества ходов коня и двух кнопок «Начала », «Сначала». Перед началом работы программы надо ввести исходные данные мы можем, как вписать позиции начальной клетки, так и в ручную, путем нажатия на выбранную клетку мышкой, после этого надо ввести количество ходов и нажать кнопку «начало». Иначе программа выдаст сообщение о невозможности начала работы в соответствии с неправильным вводом. Через некоторое время место доски появится ее аналог с просчитанными ходами, неиспользовавшиеся клетки будут пронумерованы нулем. При нажатии на кнопку «сначала», программа вернется на начало для ввода новых данных. При нажатии на крестик в верхнем правом углу программа закроется.
1.3.9 Выходные данные
Выходные данные являются доска с просчитанными на ней ходами.
1.3.10 Результатирующие компоненты
Программное изделие должно содержать: тексты программ, содержащие собой комплекс файлов, содержащих совокупности операторов языка программирования, и готовую программу, полученную в результате компиляции исходных модулей. Для запуска программы должен присутствовать запускной файл с расширением ЕХЕ, точечные рисунки: ukaz, Безымянный, kon, и фаил wmv «logo».
1.3.11 Носители информации
Программный комплекс должен размещаться в виде исполняемых файлов на жестком диске компьютера пользователя или на другом виде носителя информации.
1.4 Требования к программной документации
Пакет прикладных программ должен быть представлен в виде текстов исходных модулей на языке Delphi 7.0, а также инструкции пользователя.
2. РАБОЧИЙ ПРОЕКТ
2.1 Общие сведения
Данная программа предназначена для расчета ходов коня по шахматной доске, с выводом результата на экран. В начале мы вводим координаты клетки, откуда начнет ходить конь, и количество ходов. Также мы можем ввести координаты клетки по-другому, соответственно выбрав ее на предложенной доске. На указанной клетке появляется фигура шахматного коня. После этого надо нажать на кнопку «начать», через некоторое время появится аналог шахматной доски с указанием расчетов ходов. Нумерация клеток будет производиться с указанной нами клетки, не использовавшиеся ячейки будут нумероваться нулем. Скриншоты работающей программы предложены на рис. 2.1.1.
2.1.1 Рисунок 1
2.2 Описание логической структуры, внешних и внутренних ограничений и характеристик
Модуль Unit1. Рис.2
2.1.1 Рисунок 2
2.2.1.1 Процедура epEfButton1Click объекта TF1k
Данная процедура предназначена для преобразования вводимых данных во внутренний формат для устройства с одним блоком памяти для обрабатываемого значения.
2.2.1.2 Программные ограничения
Для работы функции необходимы динамические библиотеки и ресурсы операционной системы Windows плюс библиотеки Rxlib, MediaPack отвечающие инициализацию, работу с графическим интерфейсом пользователя, распределение памяти и ресурса процессора под задачи, обрабатывающие сообщения и ошибки операционной среды.
Для того чтобы функция могла быть выполнена, необходимо наличие файла unit1.pas, где и определена сама функция.
2.2.1.3 Входные данные
Таблица 3.1
|
Наименование |
Тип |
Назначение |
|
|
Edit1.Text |
TEdit |
Позиция по х |
|
|
Edit2.Text |
TEdit |
Позиция по y |
|
|
Edit3.Text |
TEdit |
Количество ходов |
2.2.1.4 Выходные данные
В качестве выходных, выступают преобразованные данные модуля unit1, перечисленные в таблице.
Таблица 3.2
|
Наименование |
Тип |
Назначение |
|
|
StringGrid1 |
TStringGrid |
Обработанные ходы |
2.2.1.5 Методы решения
Процедура построена на основе управляющего автомата устройства со специальными формулами и обрабатываемым словом, хранящемся в одном блоке памяти.
2.2.2 Процедура epEfButton2Click объекта TF1k
Данная процедура предназначена для закрывания формы.
2.2.3 Процедура epEfButton3Click объекта TF1k
Данная процедура предназначена для удаления предыдущих расчетов и подготовки программы для новых установок.
2.2.4Процедура Image4-67Click объекта TF1k
Данная процедура предназначена для установки начальных данных.
2.2.4.1 Входные данные
Таблица 3.3
|
Наименование |
Тип |
Назначение |
|
|
Image4-67 |
TImage |
Позиция на доске |
2.2.4.2Выходные данные
Таблица 3.4
|
Наименование |
Тип |
Назначение |
|
|
Edit1.Text |
TEdit |
Позиция по х |
|
|
Edit2.Text |
TEdit |
Позиция по y |
|
|
Edit3.Text |
TEdit |
Количество ходов |
2.2.5 Процедура Panel1Click объекта TF2k
Данная процедура предназначена для перехода от видео ролика на саму программу.
2.2.6 Функция NextStep объекта TF1k
Данная функция предназначена для расчета вводимых данных, требуемого результата.
2.3 Внутренние данные
Таблица 3.5
|
Наименование |
Тип |
Назначение |
|
|
x, y |
Integer |
Индексные адреса начала отсчета |
|
|
allsteps |
Integer |
Количество ходов |
|
|
SqArr |
Array[1..8,1..8] of Integer |
Буфер для хранения выходных данных |
2.3.1 Методы решения
Алгоритм функции см. в приложении 1.
ПРИЛОЖЕНИЕ 1
x, y, allsteps
step>=allsteps Да
Нет
function NextStep StringGrid
ПРИЛОЖЕНИЕ 2
Код программы
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, ExtCtrls, regions;
type
TForm2 = class(TForm)
epRegionForm1: TepRegionForm;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
procedure Panel1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Panel1Click(Sender: TObject);
begin
form2.Hide;
Form1.Show;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, EPLabels, VCLBase, EPButtons, ExtCtrls, regions;
type
TForm1 = class(TForm)
Image1: TImage;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
StringGrid1: TStringGrid;
Image2: TImage;
Panel1: TPanel;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
Image9: TImage;
Image10: TImage;
Image11: TImage;
Image12: TImage;
Image13: TImage;
Image14: TImage;
Image15: TImage;
Image16: TImage;
Image17: TImage;
Image18: TImage;
Image19: TImage;
Image20: TImage;
Image21: TImage;
Image22: TImage;
Image23: TImage;
Image24: TImage;
Image25: TImage;
Image26: TImage;
Image27: TImage;
Image28: TImage;
Image29: TImage;
Image30: TImage;
Image31: TImage;
Image32: TImage;
Image33: TImage;
Image34: TImage;
Image35: TImage;
Image36: TImage;
Image37: TImage;
Image38: TImage;
Image39: TImage;
Image40: TImage;
Image41: TImage;
Image42: TImage;
Image43: TImage;
Image44: TImage;
Image45: TImage;
Image46: TImage;
Image47: TImage;
Image48: TImage;
Image49: TImage;
Image50: TImage;
Image51: TImage;
Image52: TImage;
Image53: TImage;
Image54: TImage;
Image55: TImage;
Image56: TImage;
Image57: TImage;
Image58: TImage;
Image59: TImage;
Image60: TImage;
Image61: TImage;
Image62: TImage;
Image63: TImage;
Image64: TImage;
Image65: TImage;
Image66: TImage;
Image67: TImage;
Image68: TImage;
procedure epEfButton1Click(Sender: TObject);
procedure epEfButton2Click(Sender: TObject);
procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image18MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image19MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image20MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image21MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image22MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image23MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image24MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image25MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image26MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image27MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image28MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image29MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image30MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image31MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image32MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image33MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image34MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image35MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image36MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image37MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image38MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image39MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image40MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image41MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image42MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image43MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image44MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image45MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image46MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image47MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image48MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image49MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image50MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image51MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image52MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image53MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image54MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image55MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image56MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image57MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image58MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image59MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image60MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image61MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image62MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image63MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image64MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image65MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image66MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image67MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image4Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure Image6Click(Sender: TObject);
procedure Image7Click(Sender: TObject);
procedure Image8Click(Sender: TObject);
procedure Image9Click(Sender: TObject);
procedure Image10Click(Sender: TObject);
procedure Image11Click(Sender: TObject);
procedure Image12Click(Sender: TObject);
procedure Image13Click(Sender: TObject);
procedure Image14Click(Sender: TObject);
procedure Image15Click(Sender: TObject);
procedure Image16Click(Sender: TObject);
procedure Image17Click(Sender: TObject);
procedure Image18Click(Sender: TObject);
procedure Image19Click(Sender: TObject);
procedure Image20Click(Sender: TObject);
procedure Image21Click(Sender: TObject);
procedure Image22Click(Sender: TObject);
procedure Image23Click(Sender: TObject);
procedure Image24Click(Sender: TObject);
procedure Image25Click(Sender: TObject);
procedure Image26Click(Sender: TObject);
procedure Image27Click(Sender: TObject);
procedure Image28Click(Sender: TObject);
procedure Image29Click(Sender: TObject);
procedure Image30Click(Sender: TObject);
procedure Image31Click(Sender: TObject);
procedure Image32Click(Sender: TObject);
procedure Image33Click(Sender: TObject);
procedure Image34Click(Sender: TObject);
procedure Image35Click(Sender: TObject);
procedure Image36Click(Sender: TObject);
procedure Image37Click(Sender: TObject);
procedure Image38Click(Sender: TObject);
procedure Image39Click(Sender: TObject);
procedure Image40Click(Sender: TObject);
procedure Image41Click(Sender: TObject);
procedure Image42Click(Sender: TObject);
procedure Image43Click(Sender: TObject);
procedure Image44Click(Sender: TObject);
procedure Image45Click(Sender: TObject);
procedure Image46Click(Sender: TObject);
procedure Image47Click(Sender: TObject);
procedure Image48Click(Sender: TObject);
procedure Image49Click(Sender: TObject);
procedure Image50Click(Sender: TObject);
procedure Image51Click(Sender: TObject);
procedure Image52Click(Sender: TObject);
procedure Image53Click(Sender: TObject);
procedure Image54Click(Sender: TObject);
procedure Image55Click(Sender: TObject);
procedure Image56Click(Sender: TObject);
procedure Image57Click(Sender: TObject);
procedure Image58Click(Sender: TObject);
procedure Image59Click(Sender: TObject);
procedure Image60Click(Sender: TObject);
procedure Image61Click(Sender: TObject);
procedure Image62Click(Sender: TObject);
procedure Image63Click(Sender: TObject);
procedure Image64Click(Sender: TObject);
procedure Image65Click(Sender: TObject);
procedure Image66Click(Sender: TObject);
procedure Image67Click(Sender: TObject);
procedure epEfButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
type
sqArr = Array[1..8, 1..8] of integer;
var
x, y: integer;
f: TextFile;
arr: sqArr;
allsteps: integer;
function NextStep(arr:sqArr; x, y: Byte; step: Word): Boolean;
begin
Result := False;
if (x >= 1) and (y >= 1) and (x <= 8) and (y <= 8) then
begin
if arr[x, y] = 0 then
begin
inc(step);
arr[x, y] := step;
Result := True;
if step >= allsteps then
for x := 1 to 8 do
begin
for y := 1 to 8 do
Form1.StringGrid1.Cells[y-1,x-1]:=IntToStr(arr[x][y]);
end
else begin
if not NextStep(arr, x + 1, y + 2, step) then
if not NextStep(arr, x - 1, y + 2, step) then
if not NextStep(arr, x + 1, y - 2, step) then
if not NextStep(arr, x - 1, y - 2, step) then
if not NextStep(arr, x + 2, y + 1, step) then
if not NextStep(arr, x + 2, y - 1, step) then
if not NextStep(arr, x - 2, y + 1, step) then
if not NextStep(arr, x - 2, y - 1, step) then
Result := False;
end;
end;
end;
end;
procedure TForm1.epEfButton1Click(Sender: TObject);
begin
x:=StrtoInt(Edit1.Text);
y:=StrtoInt(Edit2.Text);
allsteps:=StrtoInt(Edit3.Text);
if (x='')or(y='')or(allsteps='')
then
Showmessage('Недостаточно условия для выполнения!')
else
begin
Panel1.Visible:=false;
if allsteps>63 then
Showmessage('Недопустимое кол-во ходов!!!')
else
ZeroMemory(@arr, SizeOf(arr));
NextStep(arr, x, y, 0);
end;
end;
procedure TForm1.epEfButton2Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image4.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image5.Picture.LoadFromFile('ukaz.bmp');
Image4.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image6.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image7.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image8.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image9.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image10.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image11MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image11.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image12MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image12.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image13MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image13.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image14MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image14.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image15MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image15.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image16MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image16.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image17.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Image60.Picture:=Image68.Picture;
Image61.Picture:=Image68.Picture;
Image62.Picture:=Image68.Picture;
Image63.Picture:=Image68.Picture;
Image64.Picture:=Image68.Picture;
Image65.Picture:=Image68.Picture;
Image66.Picture:=Image68.Picture;
Image67.Picture:=Image68.Picture;
end;
procedure TForm1.Image17MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image17.Picture.LoadFromFile('ukaz.bmp');
Image5.Picture:=Image68.Picture;
Image6.Picture:=Image68.Picture;
Image7.Picture:=Image68.Picture;
Image8.Picture:=Image68.Picture;
Image9.Picture:=Image68.Picture;
Image10.Picture:=Image68.Picture;
Image11.Picture:=Image68.Picture;
Image12.Picture:=Image68.Picture;
Image13.Picture:=Image68.Picture;
Image14.Picture:=Image68.Picture;
Image15.Picture:=Image68.Picture;
Image16.Picture:=Image68.Picture;
Image4.Picture:=Image68.Picture;
Image18.Picture:=Image68.Picture;
Image19.Picture:=Image68.Picture;
Image20.Picture:=Image68.Picture;
Image21.Picture:=Image68.Picture;
Image22.Picture:=Image68.Picture;
Image23.Picture:=Image68.Picture;
Image24.Picture:=Image68.Picture;
Image25.Picture:=Image68.Picture;
Image26.Picture:=Image68.Picture;
Image27.Picture:=Image68.Picture;
Image28.Picture:=Image68.Picture;
Image29.Picture:=Image68.Picture;
Image30.Picture:=Image68.Picture;
Image31.Picture:=Image68.Picture;
Image32.Picture:=Image68.Picture;
Image33.Picture:=Image68.Picture;
Image34.Picture:=Image68.Picture;
Image35.Picture:=Image68.Picture;
Image36.Picture:=Image68.Picture;
Image37.Picture:=Image68.Picture;
Image38.Picture:=Image68.Picture;
Image39.Picture:=Image68.Picture;
Image40.Picture:=Image68.Picture;
Image41.Picture:=Image68.Picture;
Image42.Picture:=Image68.Picture;
Image43.Picture:=Image68.Picture;
Image44.Picture:=Image68.Picture;
Image45.Picture:=Image68.Picture;
Image46.Picture:=Image68.Picture;
Image47.Picture:=Image68.Picture;
Image48.Picture:=Image68.Picture;
Image49.Picture:=Image68.Picture;
Image50.Picture:=Image68.Picture;
Image51.Picture:=Image68.Picture;
Image52.Picture:=Image68.Picture;
Image53.Picture:=Image68.Picture;
Image54.Picture:=Image68.Picture;
Image55.Picture:=Image68.Picture;
Image56.Picture:=Image68.Picture;
Image57.Picture:=Image68.Picture;
Image58.Picture:=Image68.Picture;
Image59.Picture:=Image68.Picture;
Подобные документы
Функциональное и эксплуатационное назначение изделия. Перечень требований пользователя к программному изделию. Программные ограничения, совместимость. Требования к параметрам технических средств. Безопасность и секретность, требования к надежности.
курсовая работа [574,6 K], добавлен 27.04.2011Разработка программного продукта (лабиринт с входом и выходом, состоящий из комнат) в среде разработки Borland C++ Builder 6. Требования пользователя к программному изделию. Программные ограничения, совместимость. Основные процессы разработки программы.
курсовая работа [819,9 K], добавлен 14.01.2013Разработка программы нахождения оптимального пути обхода шахматной доски шахматным конем с обязательной визуализацией процесса и пошаговой демонстрацией. Тестирование графического интерфейса. Исходный код программы, составление и проверка алгоритма.
курсовая работа [468,3 K], добавлен 11.12.2012Функциональное и эксплуатационное назначение изделия, методологические ограничения. Требования к составу и параметрам технических средств. Описание алгоритма, входные и выходные данные. Стадии и этапы разработки, технико-экономическое обоснование.
курсовая работа [564,4 K], добавлен 18.01.2014Функциональное и эксплуатационное назначение генератора. Требования к составу и параметрам технических средств. Информационная и программная совместимость. Результирующие компоненты изделия. Безопасность и секретность. Удобства эксплуатации, мобильность.
курсовая работа [2,1 M], добавлен 07.03.2013Разработка программы ведения базы данных для отделения диспансеризации подростков студенческой поликлиники. Требования к программному изделию и программной документации. Стадии и этапы разработки программы. Требования к написанию пояснительной записки.
курсовая работа [18,9 K], добавлен 02.05.2009Разработка программы для автоматического формирования и заполнения "Ведомости на выдачу денег из кассы подотчётным лицам", предназначенной для использования бюджетными организациями. Основные требования к программному изделию. Руководство пользователя.
курсовая работа [175,5 K], добавлен 28.04.2009Требования к программе или программному изделию, к информационной и программной совместимости. Проектирование программного продукта. Процедура установки и удаления. Описание интерфейса, главное окно приложения. Основные возможности пользователя.
курсовая работа [678,1 K], добавлен 15.02.2016Средства программирования, описание языка С++. Назначение программы, требования к документации. Стадии разработки, виды испытаний. Используемые технические, программные средства. Вызов и загрузка, входные и выходные данные. Программа и методика испытаний.
контрольная работа [205,3 K], добавлен 23.07.2013Обоснование выбора средства программирования: входная и выходная информация, требования к аппаратному и программному обеспечению. Функциональное назначение программы, её глобальные переменные и константы, внутренняя структура и руководство пользователя.
курсовая работа [1,4 M], добавлен 07.09.2012
