Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
дипломка 1.doc
Скачиваний:
2
Добавлен:
01.07.2025
Размер:
2.51 Mб
Скачать

3 Специальная часть

    1. Описание разрабатываемых процедур и функций

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

Таблица 3.1- Процедуры и функции

Процедура

Описание

procedure TForm1.Image1Click(Sender: TObject);

Включает кнопки для выбора упражнений

procedure TForm1.Image4Click(Sender: TObject);

Включает кнопки для выбора видео

procedure TForm1.Image2DblClick(Sender: TObject);

Отключает все второстепенные кнопки на главной странице

procedure TForm1.Button1Click

Запуск игры «Тест на память

Procedure_TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

Запуск фоновой музыки

procedure TForm1.FormCreate(Sender: TObject);

Создание формы

procedure TForm1.N1Click(Sender: TObject);

Остановить фоновую музыку

procedure TForm2.ListBox1Click(Sender: TObject);

Выбор упражнения

procedure TForm2.N2Click(Sender: TObject);

Закрытие формы

Procedure_TForm3.ListBox1Click(Sender: TObject);

Выбор упражнения

procedure TForm4.ListBox1Click(Sender: TObject);

Выбор упражнения

procedure TForm5.ListBox1Click(Sender: TObject);

Выбор упражнения

procedure TForm6.ListBox1Click(Sender: TObject);

Выбор упражнения

procedure TForm7.ListBox1Click(Sender: TObject);

Выбор упражнения

Процедура

Описание

procedure TForm8.ListBox1Click(Sender:

Выбор видео

procedure TForm9.ListBox1Click(Sender: TObject);

Выбор видео

Procedure_TForm10.ListBox1Click(Sender: TObject);

Выбор видео

procedure PaintFace(x,y: integer);

рисует рожицу

procedure EraseFace(x,y: integer);

стирает рожицу

procedure Tvv.TimerTimer(Sender: TObject);

Местоположение рожицы

procedure Tvv.FormCreate(Sender: TObject);

Исходное положение рожицы

procedure Tvv.FormMouseDown(Sender: TObject; Button: TMouseButton;

Нажатие клавиши мыши

function GetNumb(k: integer) : integer;

генерирует k - разрядное число

procedure Tbuga.FormCreate(Sender: TObject);

Создание формы

procedure Tbuga.Button1Click(Sender: TObject);

щелчок на кнопке "Начать/Завершить"

procedure Tbuga.Timer1Timer(Sender: TObject);

Обработка события таймера

procedure Tbuga.Edit1KeyPress(Sender: TObject; var Key: Char);

нажатие клавиш в поле Edit1

    1. Таблица идентификаторов

Для обозначения в программе переменных, констант, меток, процедур, функций, классов, объектов, свойств, типов, программ и полей в записях вводятся идентификаторы. В таблице 3.2 описаны все идентификаторы, используемые в программе .

Таблица 3.1 - Идентификаторы

Идентефикатор

Описание

numb: integer

число, которое должен запомнить испытуемый

right: integer

количество правильно запомненных чисел

n: integer

счетчик чисел

N, i: integer;

генерируемое число

igrok: integer

число, которое ввел испытуемый

fx,fy: integer

координаты рожицы

n: integer

количество щелчков кнопкой мыши

p: integer

количество попаданий