Игра Кости

Display – Med2;

Name – Med1;

Visible – False;

События: нет 

5 – Компонент Label4 (класс TLabel)

Свойства:

Caption – Пропишите путь вручную: ;

Font – жирный, размер 12;

ParentColor – True;

События: нет; 

6 – Компонент Edit1 (класс TEdit)

Свойства:

Color – clYellow;

События: нет. 

7 – Компонент Label5 (класс TLabel)

Свойства:

Caption – Либо кликните по имени файла;

Font – жирный, размер 12;

ParentColor – True;

События: нет; 

8 – Компонент Disk1 (класс TDriveComboBox)

Свойства:

Color – clYellow;

Name – Disk1;

События:

OnChange – Выполняется следующий оператор присваивания

                                  dir1.Drive:=disk1.Drive;

для «связки  дисков с папками». 

9 – Компонент Dir1 (класс TDirectoryListBox)

Свойства:

Color – clBlack;

Font – цвет белый

Name – Dir1;

События:

OnChange – Выполняется следующий оператор присваивания

                                  file1.Directory:=dir1.Directory;;

для «связки файлов с папками». 

10 – Компонент File1 (класс TFileListBox)

Свойства:

Color – clBlack;

Font – цвет белый;

Mask – Kos.avi;

Name – File1;

События:

OnClick – Выполняется следующий оператор присваивания

                                 edit1.Text:=file1.FileName;

путь к выбранному файлу прописывается в Edit1. 

11 – Компонент Button1 (класс TButton)

Свойства:

Caption – ok;

Font – жирный, размер 14;

События:

OnClick – проверяется правильность пути к файлам. Программа пытается (Try) открыть плееры в случае ошибки (Except) пользователю выводится сообщение об ошибке. Если ошибки нет, показывается основная форма (игровое поле). 

12 – Компонент Button2 (класс TButton)

Свойства:

Caption – Выход;

Font – жирный, размер 14;

События:

OnClick – закрывается приложение. 

13 – Компонент File2 (класс TFileListBox)

Свойства:

Color – clBlack;

Font – цвет белый;

Mask – Kos1.avi;

Name – File2;

События:

OnClick – Выполняется следующий оператор присваивания

                                 Edit2.Text:=file2.FileName;

путь к выбранному файлу прописывается в Edit2. 

14 – Компонент Dir2 (класс TDirectoryListBox)

Свойства:

Color – clBlack;

Font – цвет белый

Name – Dir2;

События:

OnChange – Выполняется следующий оператор присваивания

                                  File2.Directory:=dir2.Directory;;

для «связки  файлов с папками». 

15 – Компонент Disk2 (класс TDriveComboBox)

Свойства:

Color – clYellow;

Name – Disk2;

События:

OnChange – Выполняется следующий оператор присваивания

                                  Dir2.Drive:=disk2.Drive;

для «связки  дисков с папками». 

16 – Компонент Edit2 (класс TEdit)

Свойства:

Color – clYellow;

События: нет. 

17 – Компонент Med2 (класс TMediaPlayer)

Свойства:

Display – Med1;

Name – Med2;

Visible – False;

События: нет 

18 – Компонент Panel2 (класс TPanel)

Свойства:

Caption –        ;

Color – clBlack

События: нет 

19 – Компонент Panel1 (класс TPanel)

Свойства:

Caption –        ;

Color – clSilver

События: нет 

Окно  Aboutbox 4 – сообщение об ошибке ввода пути к AVI-файлам

 

1

2 

3                                                                                      4                     5

Компонент AboutBox4

Свойства:

BorderIcons (bsSystemMenu) – False;

Caption – WARNING;

Color – clTeal;

Name – AboutBox4;

События: нет. 

1 – Компонент Label1 (класс TLabel)

Свойства:

Caption – О   Ш   И   Б   К   А   ! ! !;

Color – clYellow;

Font – жирный, размер 14;

События: нет. 

2 – Компонент Label4 (класс TLabel)

Свойства:

Caption – Не верный путь, либо указаны;

Color – clWhite;

Font – жирный, размер 14;

События: нет. 

3 – Компонент Label3 (класс TLabel)

Свойства:

Caption –Попробуйте ещё раз;

Color – clLime;

Font – жирный, размер 14;

События: нет. 

4 – Компонент Label3 (класс TLabel)

Свойства:

Caption – одинаковые имена файлов;

Color – clYellow;

Font – жирный, размер 14;

События: нет. 

5 – Компонент OkButton (класс TButton)

Свойства:

Caption – ok;

Font – жирный, размер 14;

События: нет.

2.2. Спецификация программы 

      Исполняемый файл программы “Игра “Кости”” носит название Kosti.exe, расположен на дискете в директории My project. Исполняемый файл выделен иконкой. Программа использует AVI-файлы, которые также находятся на дискете. Состав проекта:

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

      Полный  листинг программы представлен  в приложении (стр. 45). 
 

      2.4. Описание программы 

• Общие сведения

      Программа «Кости» написана на интегральной системе  программирования Delphi 5. Она функционирует как приложение под Windows 9x95982000МЕXP. Исполняемый файл программы носит название Kosti.exe. Программа использует AVI-файлы, которые были созданы с помощью Macromedia Flash MX PRO 2004 версии 7.0

• Функциональное назначение

      Программа «Кости» является игрой, следовательно, её основное назначение – развлечение. Ограничений нет.

• Описание логической структуры

      При разработке программы «Кости» не использовались сложные логические описания. Для выбора действий программы при тех или иных условиях была применена стандартная конструкция If…..Else. Эта конструкция применена для определения проигрыша или выигрыша, предотвращения ошибок, а также для корректировки ввода символов в поля ввода ставки и числа.

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

      Для работы программы достаточно Pentium 100, 8мб оперативной памяти, около 1мб свободного пространства на жестком диске, Windows 95982000МЕXP, мышь; дополнительные устройства (дисководы гибких дисков, CDROM, принтер и т.п.) программой не используются.

• Вызов и загрузка

      Для того чтобы вызвать программу, необходимо запустить исполняемый файл Kosti.exe, который находится на дискете в папке my project (он выделен иконкой). Так же для нормального функционирования программы необходимы AVI-файлы, которые также имеются в папке my project.

• Входные данные

      В данной программе используются следующие  входные данные: пути к AVI-файлам, ставка, число. Все эти данные вводит пользователь². После ввода пути к файлам программа проверяет их правильность и в случае правильности “даёт добро” на дальнейшее выполнение программы. Данные ставка и число вводятся пользователем в виде строк, поэтому для работы с ними (подсчет, сравнение, вывод и т.д.) используются функции Strtoint и Inttostr.

      §   Выходные данные

      К выходным данным в программе относится  переменная bank. Она выводится в недоступное для ввода поле и показывает текущее количество очков игрока. Также к выходным данным можно отнести битовые образы, отображающие графическое изображение поверхности кубиков и воспроизведение AVI-файлов.