Игра Кости

 
 
 
 

         Рис.2. Ввод пути и обработка возможных ошибок (блок 1). 

• «Выпадение» случайных чисел происходит с  помощью генератора случайных чисел. Воспроизводятся AVI-файлы, затем в соответствии со случайными числами выводятся графические изображения кубиков.

                                                        Да 

                                                         Да 

                                                         Да

                                                          Да

                                                    Да

                                                                Да

 

 

 

 
 
 
 

                                   Рис.3. Ввод числа и ставки, обработка ошибок ввода

                                        Случайные числа вывод изображений (блок 2). 

• Определение проигрыша или выигрыша ставки, происходит путём сравнения числа (введенным пользователем) и сумой двух «случайных чисел». Если сумма двух «случайных чисел» равна числу загаданным пользователем, то ставка, увеличивается в четыре раза. Если сумма двух «случайных чисел» меньше семи и число, заданное пользователем меньше семи или сумма двух «случайных чисел» больше семи и число, заданное пользователем больше семи, то игрок выигрывает ставку. В остальных случаях игрок проигрывает ставку.

 
 
 
 

                                                   Да 

                                  Да

 
 

                 Рис.4. Определение проигрыша или выигрыша ставки (блок 3). 

• Определение победы или поражения  в игре осуществляется путём сравнения  количества очков в банке игрока с нолём и тысячей. Если количество очков равно 0 игрок проиграл. Он может начать заново или уйти побежденным. Если количество очков больше или равно 1000 игрок победил, о чём сообщает диалоговое окно.

 

                                                        Да

                                                         Да

 
 

                Рис.5. Определение победы или поражения в игре (блок 4).

 

1.2.3. Организация входных и выходных данных 

      В данной программе предусматривается  использование следующих входных  данных: пути к AVI-файлам, число, загаданное игроком, ставка. Данные число и ставка с помощью функции StrToint() вносятся в переменные chislo и st (типа byte) соответственно. Входные данные  - пути к файлам, присваиваются свойству FileName медиаплееров. Выходная данная – отображение текущего количества очков в банке игрока. Очки отображаются в виде строки, чтобы преобразовать число в строку использовалась функция IntTostr. 

      1.2.4. Выбор состава программных и технических средств 

      Для решения данной задачи целесообразно применить интегральную среду разработки программ – Delphi 5. Среда Delphi позволяет достаточно быстро разрабатывать приложения для Windows. Возможностей Delphi в визуальном оформлении окон программ с избытком достаточно для создания игры «Кости». Для полноценной работы Delphi 5 достаточно:

• Pentium 100;
• ОЗУ – не менее 8 Мб;
• Жесткий диск не менее 500 Мб;

 

1.3. Источники, использованные при разработке

     При разработке данной программы использовались материалы: рабочего учебника – Юнита  №5 Лабзина Т.А.. Система программирования Delphi. Москва 2001; Самоучителя – Основы программирования в Delphi7 Никита Культин Санкт-Петербург 2003. 
 

2.Разработка рабочего проекта 

2.1. Разработка программы 

      Для разработки приложения используется визуальная среда программирования Delphi 5. Проект программы содержит пять окон:

1. Aboutbox 1 – окно справки (о программе).
2. Aboutbox 2 – правила игры.
3. Aboutbox 3– ввод пути к AVI-файлам. (main form)
4. Aboutbox 4 – сообщение об ошибке ввода пути к AVI-файлам.
5. Form 1 – основное окно программы (игровое поле).

 

Окно  form1. Основное окно программы (игровое поле). 

                            1                        

                   

           2

          3

        4                                                                                                                  17

    5       

     6                                                                                                                     16

   7                                                                                                                      15

      8                                                                                                                     14 

   9                                                    10         11     12        13 
 
 
 

Компонент Form1.

Свойства:

Bordericons (biMaximize) – False.

BorderStyle – bsSingle;

Caption – Кости;

Color – clTeal;

Position – poDesktopCenter;

Visible – False;

События:

OnActivate – присваиваются начальные значения.

OnClose – запрос подтверждения на выход.

   OnMouseMove – для красивого оформления компонентам присваиваются следующие значения:

   button1.Default:=false;

   button2.Default:=false;

   button3.Default:=false;

   button4.Default:=false;

   edit1.Color:=clwindow;

   edit2.color:=clwindow; 

1 – компонент MainMenu (класс TMainMenu)

Свойства:

Items

Меню(N1)               Справка(N2)

Играть(N3)             Правила(N7) – ShortCut – F1.

Заново(N4)             О программе(N8) – ShortCut – F2

Выход(N6)

Свойство Caption N6 (меняется во время выполнения программы).

Свойство Enabled N3 (меняется во время выполнения программы).

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

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

Свойства:

Caption – Введите число;

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

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

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

Свойства:

Hint – Число от 2 до 12;

MaxLength – 2 (значение меняется во время выполнения программы);

События:

OnKeyPress – защита от ввода недопустимых символов.

OnMouseMove – для красивого оформления. Свойству Color присваивается – clyellow. 

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

Свойства:

Caption – Сделайте ставку;

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

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

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

Свойства:

Caption – Банк;

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

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

6 – Компонент L4 (класс TLabel)

Свойства:

Caption – 100 (меняется во время выполнения программы);

Font – жирный, размер 10, цвет красный;

Name – L4;

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

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

Свойства:

Hint – Не ставьте больше чем в банке;

MaxLength – 3;

События:

OnKeyPress – защита от ввода недопустимых символов.

OnMouseMove – для красивого оформления. Свойству Color присваивается – clred; 

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

Свойства:

Caption – Заново;

Cursor – crHandPoint;

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

Hint – Начать сначала;

События:

OnClick – присваиваются начальные значения (игра начинается заново);

OnMouseMove – для красивого оформления. Свойству Default присваивается значение True; 

9 – Компонент Button3 (класс TButton)

Свойства:

Caption – Выход;

Cursor – crHandPoint;

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

Hint – Exit;

События:

OnClick – Вызывается процедура закрытия формы;

OnMouseMove – для красивого оформления. Свойству Default присваивается значение True; 

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

Свойства:

Caption – Играть;

Cursor – crHandPoint;

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

Hint – Бросить кости;

События:

OnClick – Проверяется правильность ввода числа и ставки, воспроизводятся AVI-фалы, генерируются случайные числа, выводится графическое изображение кубиков, определяется проигрыш или выигрыш ставки, определяется проигрыш или выигрыш в игре.;

OnMouseMove – для красивого оформления. Свойству Default присваивается значение True; 

11 – Компонент Mp1 (класс TmediaPlayer)

Свойства:

Display – Panel2;

Name – Mp1;