Оглавление
Введение                                                                                                          3

1. Разработка эскизного и технического проектов программы           5

    1.1. Назначение и область применения                                                     5

    1.2. Технические характеристики                                                              5

           1.2.1. Постановка задачи                                                                      5

           1.2.2. Описание алгоритма                                                                   7

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

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

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

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

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

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

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

    2.5. Тестирование программы                                                                  38
3. Внедрение                                                                                                  39
Заключение                                                                                                   43
Библиографический список                                                                      44
Приложение                                                                                                  45
Введение.
При проектировании данной курсовой работы была решена задача по разработке приложения в Delphi. Delphi – визуальная среда проектирования, в основе которой лежит язык – Object Pascal. Delphi позволяет разрабатывать приложения работающие в операционной системе Windows.                                  Программа, описанная в этом проекте, создана на Delphi 5.

Внешний вид среды программирования Delphi отличается от внешнего вида других языков программирования, в которых разрабатываются приложения под Windows. Borland Pascal for Windows 7.0, Word for Windows эти языки отличаются спецификацией – MDI (Multiple Document Interface) – определяет особый способ управления нескольких дочерних окнах внутри одного большого окна. Среда Delphi же следует другой спецификации, называемой Single Document Interface (SDI), и состоит из нескольких отдельно расположенных окон.

После запуска Delphi 5 на экране появляются сразу четыре окна:

1.     Главное окно – Delphi 5 - Project 1.

2.     Окно стартовой формы – Form 1.

3.     Окно редактора свойств объектов – Object Inspector.

4.     Окно редактора кода – Unit1.pas.

Создание приложений в Delphi можно разделить на два этапа: создание окна, то есть помещение необходимых компонентов на форму; и написание кода программы.

Целью этого проекта является создать приложение представляющее собой игру «Кости». В этой программе использованы лишь некоторые возможности Delphi.
Задание на курсовую работу

«Алгоритмические языки и программирование»

Студент группы: ОИН - 309 - 11

Вася Пупкин.

Направление: «Информатика», № контракта: 55535356595954584

Тема: Разработка приложения для Windows, представляющего собой компьютерную игру «Кости».

Условие задачи:

Разработать программу, моделирующую игру «Кости». Играющий называет любое число в диапазоне от 2 до 12 и ставку, которую он делает в этот ход. Программа с помощью датчика случайных чисел дважды выбирает числа от 1 до 6 (“бросает кубик”, на гранях которого цифры от 1 до 6). Если сумма выпавших цифр меньше 7 и играющий задумал число меньшее 7, он выигрывает сделанную ставку. Если сумма выпавших цифр больше 7 и играющий задумал число большее 7, он также выигрывает сделанную ставку. Если играющий угадал сумму цифр, он получает в четыре раза больше очков, чем сделанная ставка. Ставка проиграна, если не имеет место ни одна из описанных ситуаций. В начальный момент у играющего 100 очков. В программе должно присутствовать графическое изображение поверхности кубика при каждом ходе игрока.

                 Задание выдано __________________
1. Разработка эскизного и технического проектов программы
1.1. Назначение и область применения.
В данном задании необходимо разработать программу представляющую собой игру. Программа предназначена для развлечения. Область применения: досуг программиста. Поскольку ставится задача разработать приложение под Windows, то использоваться программа может только под управлением Windows 9x.
1.2. Технические характеристики.
1.2.1. Постановка задачи

В условии задачи указывается на необходимость использования датчика случайных чисел. Программа дважды («бросает кости») генерирует число от 1 до 6. Для этого используется генератор случайных чисел – процедура Randomize, и функция random(6). Переменная, отвечающая за выпавшее число, после присваивания ей функции “random(6)” будет в диапазоне от 0 до 5, поэтому к ней необходимо прибавить единицу. Например: а:=random(6)+1; (1<a<6).Необходимо отметить, что если в тексте программы перед использованием выше указанной функции не прописать: Randomize; (не «включить» генератор случайных чисел) значения функции random(6) будут повторяться каждый раз при запуске программы.

Следующим условием является вывод графического изображения поверхности кубика при каждом ходе игрока. Для решения этой задачи с помощью встроенной в Delphi 5.0 программы “Image Editor” был создан файл ресурсов «к.res». Файл ресурсов к.res содержит восемь рисунков (восемь растровых изображений – Bitmap), два из которых используются для красивого оформления приложения. Остальные отображают грани кубика. В программе объявлены переменные типа TBitmap.В них, с помощью метода LoadFromResourceName загружаются изображения из файла ресурсов. Далее эти переменные изображаются на компонентах – Image. Метод LoadFromResourceName имеет два параметра идентификатор программы и имя ресурса. В качестве идентификатора программы используется глобальная переменная Hinstance, имя ресурса должно быть представлено в виде строковой константы. Для того чтобы ресурсы были доступны программе необходимо в текст программы добавить директиву компилятору {$R k.res}. Эта строка помещается в начале текста модуля.                                                                 При разработке приложений Delphi так же создаёт файл ресурсов, который содержит картинку исполняемого файла.

Следующим условием задачи является, определение выигрыша или проигрыша ставки. Для этого применена конструкция if … else. В данной задаче выигрыш ставки соответствует условиям:

1.     Если сумма выпавших цифр меньше 7 и играющий задумал число меньшее 7, он выигрывает сделанную ставку.

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

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

При выполнении данного проекта условие задачи было дополнено.

Во-первых, чтобы игра заканчивалась не только банкротом игрока – введено условие победы в игре. Если игрок набрал тысячу или больше очков игра заканчивается победой игрока. Это реализовано с помощью конструкции if … else.

Во-вторых, в процессе игры (перед выводом графического изображения поверхности кубика) выводится движущееся изображение кубика. Благодаря чему у играющего создаётся впечатление, что он видит брошенные кости (движущиеся кости). Для этого с помощью программы Macromedia Flash MX PRO 2004 7.0[1] были созданы AVI-файлы. При воспроизведении этих файлов можно наблюдать, как меняется изображение поверхности кубика – эффект “брошенных костей”. При запуске, приложение запрашивает путь к AVI-файлам (прилагаются к проекту). В дальнейшем, после нажатия кнопки «Играть» (после броска кубиков), эти AVI-файлы проигрываются, после чего выводится изображение кубика (кости “остановились”). Для воспроизведения используются компоненты – MediaPlayer. Экранами для воспроизведения служат компоненты – Panel. Компоненты Panel и Image(компонент для вывода изображений) расположены в одном месте и в зависимости от действия программы (воспроизведение или вывод изображений) поочерёдно становятся видимыми – невидимыми. Это происходит так: игрок (после ввода числа и ставки) нажимает кнопку «Играть» компонент Image становится невидимым компонент Panel – видимым, воспроизводятся AVI-файлы, затем компонент Panel становится невидимым компонент Image – видимым, выводятся изображения кубиков.

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

1.     Ввод пути к AVI-файлам и проверка правильности ввода. (Рис.2.)

2.     Ввод числа и ставки, проверка правильности ввода. Генерация случайных чисел. Воспроизведение AVI-файлов и вывод графических изображений. (Рис.3.)

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

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





                                                                                                      Блок 1

                                                                                                   





                                                                                                       Блок 2





                                                                                                       Блок 3






                                                                                                       Блок 4






                            Рис.1. Обобщенная схема алгоритма.

·        Ввод пути к AVI-файлам производится на главной форме (в диалоговом окне
Project
Options –
Main
Form), которая открывается после запуска приложения. Здесь же программа проверяет правильность этого пути с помощью инструкции Try. В случае ошибки (исключения “except”) программа выводит сообщение об этом и предлагает пользователю попробовать ещё, пользователь исправляет ошибку или выходит из программы. Если ошибки нет, открывается основная форма (игровое поле).





                  Да                                                                       Нет





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





                                                        Да




                                                         Да





                                                         Да






                                                          Да





                                                    Да





                                                                Да





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

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

Bank:=bank+4*st

                                                   Да





                                  Да

	Bank:=bank+st

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



                                                         Да





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

 

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

Полный листинг программы представлен в приложении (стр. 45).
2.4. Описание программы
§        Общие сведения

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

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

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

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

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

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

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

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

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

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

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

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

К выходным данным в программе относится переменная bank. Она выводится в недоступное для ввода поле и показывает текущее количество очков игрока. Также к выходным данным можно отнести битовые образы, отображающие графическое изображение поверхности кубиков и воспроизведение AVI-файлов.
2.5. Тестирование программы
Данная программа написана в среде программирования Delphi 5. Среда программирования Delphi 5 позволяет легко протестировать программу. Для этого используется трассировка – выполнение программы по шагам, инструкция за инструкцией. Трассировка помогает программисту определить на каком этапе выполнения программы возникает ошибка. Для того чтобы начать трассировку, необходимо из меню Run выбрать команду Step over или Trace into. В результате в окне редактора кода будет выделена первая инструкция программы и выделится следующая. Чтобы выполнить выделенную инструкцию, необходимо из меню Run выбрать команду Step over (нажать клавишу <F8>) или Trace into (нажать клавишу <F7>).

В любой момент можно завершить трассировку и продолжить выполнение программы в реальном темпе (зависит от скорости работы процессора). Для этого надо из меню Run выбрать команду Run.

При тестировании программы «Кости», не контролируемых программой ошибок, не обнаружено.
3. Внедрение

§ Условия выполнения программы.

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

Для запуска программы необходимо открыть папку my project и запустить исполняемый файл Kosti.exe. В результате откроется окно программы (Aboutbox3) ввода пути к AVI-файлам. В этом окне необходимо ввести пути к файлам Kos.avi и Kos1.avi. Это можно сделать двумя способами: прописать путь в поля для ввода либо кликнуть на имени файла. (Для удобства нужно поместить exe-файл в ту же директорию, что и avi-файлы.) После нажатия кнопки OK (в случае правильного ввода) появляется основное окно программы (игровое поле). Здесь имеются два поля для ввода числа и ставки. Ввод в эти поля ограничен, т.е. игрок может вводить только цифры. В поле, помеченное как «Введите число» необходимо ввести число от двух до двенадцати; в поле, помеченное как «Сделайте ставку» необходимо ввести число, не превышающее количество очков в банке. После ввода числа и ставки в соответствующие поля игроку остается нажать кнопку «Играть». В случае правильного ввода числа и ставки проиграются AVI-файлы (впечатление брошенных кубиков) и появятся изображения кубиков соответствующие выпавшим. Если сумма выпавших цифр меньше 7 и играющий задумал число меньшее 7, он выигрывает сделанную ставку. Если сумма выпавших цифр больше 7 и играющий задумал число большее 7, он также выигрывает сделанную ставку. Если играющий угадал сумму цифр, он получает в четыре раза больше очков, чем сделанная ставка. В другом случае игрок проигрывает ставку.

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

В нижнем левом углу формы находится кнопка «выход». С её помощью можно в любой момент выйти из программы.
§ Сообщения оператору

В процессе выполнения программы могут возникнуть сообщения об ошибке или об окончании игры (победе или поражении).

- Первое сообщение об ошибке может возникнуть во время ввода пути к AVI-файлам. В случае ошибки возникнет следующее сообщение:


В этом случае следует нажать кнопку ОК и повторить ввод (см. выполнение программы).

- Следующее сообщение может возникнуть, если пользователь не введя число и ставку, нажал кнопку «играть».

Следует нажать ОК

И ввести число и ставку.
- Также программой предусмотрены ситуации, когда введено число, а ставка нет и когда введена ставка, а число нет. На каждую из этих ошибок предусмотрены сообщения оператору:


                                                     и
В обоих случаях пользователю необходимо кликнуть ОК и выполнить предписания сообщения.

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

В этом случае также следует

исправить ошибку.
- На случай если пользователь случайно нажал кнопку «выход», “крестик ” или соответствующий пункт меню, предусмотрено сообщение – подтверждение на закрытие программы.

Если пользователь действительно

хочет выйти следует нажать – Да,

если нет – Нет.
- Чтобы проинформировать пользователя о конце игры используются сообщения:

1. Игра закончилась победой игрока.

Следует нажать ОК. Далее кнопка «играть»

будет недоступна пока не будет нажата кнопка

«заново».
2. Игра закончилась поражением игрока.

Следует нажать ОК. Далее кнопка

«играть» будет недоступна

пока не будет нажата кнопка

«заново».
Заключение

При проектировании программного обеспечения на Delphi перед программистом открываются широкие возможности этой мощной среды программирования. Borland Delphi позволяет создавать самые различные программы: от простейших однооконных приложений до программ управления распределенными базами.

Программа, написанная мной в процессе разработки курсового проекта, является крошечным примером мультимедийных возможностей Delphi. В программе используются компоненты необходимые для воспроизведения AVI-файлов. В Delphi имеется компонент MediaPlayer!!!

С помощью Delphi можно написать программу – проигрыватель, типа Light Alloy; программу, которая будет управлять приводом CD-ROMа; и т.д.

При всех этих возможностях разработка программ не требует большого количества времени, так как среда Delphi “берет на себя большую часть рутинной работы, оставляя программисту работу по конструированию диалоговых окон и функций обработки событий”[3].
Библиографический список
1. Лабзина Т.А. Юнита №5. Система программирования Delphi. Москва 2001 г.  – 138 стр.

2. Пестриков В.М. , Маслобоев А.Н. Turbo Pascal 7.0. Санкт-Петербург; издательство НиТ, 2003 г.  – 368 стр.

3. Культин Н. Основы программирования в Delphi 7; издательство БХВ-Петербург, 2003 г.  – 598 стр.

4. Андреев А.Г. Delphi. Петербург, 2001 г.  – 960стр.

5. Маленков И.С. Программирование. Петербург, 1998 г.  – 340стр.

6. Абдулов К.П. Delphi и Windows. Москва, 2002 г.  – 756стр.
Приложение

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

unit Abbox1;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls;
type

  TAboutBox1 = class(TForm)

    Panel1: TPanel;

    ProgramIcon: TImage;

    l1: TLabel;

    Version: TLabel;

    Copyright: TLabel;

    OKButton: TButton;

    Label1: TLabel;

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  AboutBox1: TAboutBox1;
implementation

{$R *.DFM}
procedure TAboutBox1.FormActivate(Sender: TObject);

// При активации формы присваиваем свойству Caption метки строку.

begin

   l1.Caption:='  Курсовой проект. Игра "Кости". '+#13+

               'Разработал студент группы Оин-309-11'+#13+

               'Вася Пупкин';

end;
end.
unit abbox2;

  // В этом модуле используются ресурсы. Поэтому указываем файл ресурсов.

   {r k.res}

interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls;
type

  TAboutBox2 = class(TForm)

    Panel1: TPanel;

    image: TImage;

    lab2: TLabel;

    lab3: TLabel;

    lab4: TLabel;

    lab1: TLabel;

    OKButton: TButton;

    Image1: TImage;

    procedure FormActivate(Sender: TObject);

    procedure OKButtonMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  AboutBox2: TAboutBox2;

  // Переменные, в которые будут загружены картинки.

  baks,kub:tbitmap;

implementation
{$R *.DFM}
procedure TAboutBox2.FormActivate(Sender: TObject);

 // Операторы, которые будут выполнены при активации формы.

 // На работу программы особого влияния не оказывают.

 // Сделано для красивого оформления.

begin

    // Создаём битовый образ для вывода картинки.

    kub:=tbitmap.Create;

    // Загружаем картинку из файла ресурсов.

    kub.LoadFromResourceName(hinstance,'kub');

    // Выводим картинку

    image.Canvas.Draw(0,0,kub);

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    // Прячем пока ненужные компоненты.

    lab1.Visible:=false;

    lab3.Visible:=false;

    lab4.Visible:=false;

    image1.Visible:=false;

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    // Показываем компонент с первой картинкой.

    image.Visible:=true;

    // Меняем цвет компонентов.

    panel1.Color:=clscrollbar;

    aboutbox2.Color:=clhighlight;

    // Показываем метку и выводим информацию.

    lab2.Visible:=true;

    lab2.Caption:=' Правила просты - угадай сумму цифр'+#13+

               'двух костей и выиграй ставку увеличенную'+#13+

               'в 4 раза. Если и загаданное число и сумма '+#13+

               'цифр костей больше 7 ставка - выирана.'+#13+

               'Если и загаданное число и сумма цифр '+#13+

               'костей меньше 7 ставка - также выиграна.'+#13+

               'В других случаях ставка будет проиграна.' ;

end;
procedure TAboutBox2.OKButtonMouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

  // При движении указателя на кнопке "OK" для красоты меняем внешний вид

  // окна.

begin

    // Прячем ненужные компоненты.

    lab2.Visible:=false;

    image.Visible:=false;

    // Показываем нужные.

    lab1.Visible:=true;

    lab3.Visible:=true;

    lab4.Visible:=true;

    image1.Visible:=true;

    // Создаём битовый образ второй картинки.

    baks:=tbitmap.Create;

    // Загружаем вторую картинку из файла ресурсов.

    baks.LoadFromResourceName(hinstance,'baks');

    // Выводим вторую картинку.

    image1.Canvas.Draw(0,0,baks);

    // Меняем цвет компонентов.

    panel1.Color:=clinactivecaption;

    aboutbox2.Color:=clinactivecaptiontext;

end;
procedure TAboutBox2.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

  // При движении указателя на форме меняем внешний вид окна на первоначальный.

  // Для чего вызываем процедуру активации формы.

begin

   formactivate(sender);

end;
end.
unit abbox3;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls, MPlayer, FileCtrl;
type

  TAboutBox3 = class(TForm)

    Panel1: TPanel;

    Edit1: TEdit;

    Edit2: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    file1: TFileListBox;

    dir1: TDirectoryListBox;

    disk1: TDriveComboBox;

    disk2: TDriveComboBox;

    dir2: TDirectoryListBox;

    file2: TFileListBox;

    Panel5: TPanel;

    Med1: TMediaPlayer;

    Med2: TMediaPlayer;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure disk1Change(Sender: TObject);

    procedure dir1Change(Sender: TObject);

    procedure disk2Change(Sender: TObject);

    procedure dir2Change(Sender: TObject);

    procedure file1Click(Sender: TObject);

    procedure file2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  AboutBox3: TAboutBox3;
implementation

    // Подключаем модули основной формы и Aboutbox-а сообщающего об ошибке.

uses Cursproj,abbox4;
{$R *.DFM}
procedure TAboutBox3.Button1Click(Sender: TObject);

    // Обработка события Onclick кнопки 'Ok'.

begin

   // Присваеваем свойствам "FileName" медиаплейеров свойства Text Edit-ов.

   med1.FileName:=edit1.Text;

   med2.FileName:=edit2.Text;
// Следующий блок программы - защита от неверного пути к AVI-файлам.

   // Пытаемся открыть медиаплейеры. Если возникнет ошибка (исключение)

   // будут выполнены операторы после служебного слова 'Except'.

   try

     med1.Open;

     med2.Open;

   except

     // Вызываем окно сообщающее об ошибке.

     aboutbox4.ShowModal;

     // Выходим из процедуры, т.о. даем пользователю возможность повторить

     // ввод пути.

     exit;

   end;

   // Если ошибки не произошло.

   // Закрываем медиаплейеры этого "Aboutbox-а". Это необходимо,

   // что бы AVI-файлы были доступны медиаплейерам основной формы

   med1.Close;

   med2.Close;

   // Вызываем основную форму (поле игры).

   form1.show;

   // Свойствам 'FileName' медиаплейеров основной формы присваеваем

   // теперь точно верные пути к AVI-файлам.

   form1.mp1.FileName:=aboutbox3.Edit1.Text;

   form1.mp2.FileName:=aboutbox3.Edit2.Text;

   // "Прячем" окно ввода путей к AVI-файлам.

   aboutbox3.Hide;

end;
procedure TAboutBox3.Button2Click(Sender: TObject);

  // Клик на кнопке 'Выход'

begin

  // Закрываем форму.

  Close;

end;

// Следующие процедуры обрабатывают события OnChange компонентов //FileListBox,

// DirectoryListBox, DriveListBox. Обрабатывают таким образом, что бы //связать

// их между собой, т.е. при смене диска менялись папки, при смене папки

// менялись файлы, а при выборе файла путь к нему прописывался в Edit-ах.

procedure TAboutBox3.disk1Change(Sender: TObject);

begin

   dir1.Drive:=disk1.Drive;

end;
procedure TAboutBox3.dir1Change(Sender: TObject);

begin

  file1.Directory:=dir1.Directory;

end;
procedure TAboutBox3.disk2Change(Sender: TObject);

begin

   dir2.Drive:=disk2.Drive;

end;
procedure TAboutBox3.dir2Change(Sender: TObject);

begin

   file2.Directory:=dir2.Directory;

end;
// При выборе файла, путь к нему прописывается в Edit1

procedure TAboutBox3.file1Click(Sender: TObject);

begin

   edit1.Text:=file1.FileName;

end;
// При выборе файла, путь к нему прописывается в Edit2
procedure TAboutBox3.file2Click(Sender: TObject);

begin

edit2.Text:=file2.FileName;

end;
end.
unit abbox4;

 // Модуль окна, которое информирует об ошибке ввода пути к AVI-файлам.

 // Не описано ни одной процедуры. Все надписи внесены при установке

 // свойств компонентов.

interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls;
type

  TAboutBox4 = class(TForm)

    OKButton: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  AboutBox4: TAboutBox4;
implementation
{$R *.DFM}
end.
unit Cursproj;

//Указываем файл ресурсов.

 {$r k.res}

interface
uses

  //Стандартные модули.

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Menus, StdCtrls, ExtCtrls, MPlayer;

  //Компоненты и процедуры использующиеся в программе.

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label1: TLabel;

    Button4: TButton;

    Label2: TLabel;

    Label3: TLabel;

    l4: TLabel;

    Image1: TImage;

    Image2: TImage;

    Label4: TLabel;

    l5: TLabel;

    Panel1: TPanel;

    Panel2: TPanel;

    mp1: TMediaPlayer;

    mp2: TMediaPlayer;

    Panel3: TPanel;

    Panel4: TPanel;

    Panel5: TPanel;

    Panel6: TPanel;

    Panel7: TPanel;

    Panel8: TPanel;

    Panel9: TPanel;

    procedure N8Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

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

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

    procedure Button1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure Button3Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;

 //Переменные, в которые будут загружены картинки.

  r1,r2,baks:tbitmap;

implementation

  //Подключение модулей "ABOUTBOX-ов".

uses Abbox1, abbox2, abbox3;
{$R *.DFM}
procedure TForm1.N8Click(Sender: TObject);

begin

   //Вызов окна о программе

   aboutbox1.showmodal;

end;
procedure TForm1.N7Click(Sender: TObject);

begin

   //Вызов окна правила игры

   aboutbox2.showmodal;

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

//Процедура защиты от ввода недопустимых символов в поле ввода числа

begin

   //если введен символ "1", то следующим может быть только "0", "1" или "2"

if edit1.Text='1' then

   begin

    edit1.MaxLength:=2;

    case key of

    '0'..'2',#8:

    else key:=chr(0); //иначе символ не отображать

    end

   end

  else  //Пока ничего не введено (ноль не отображается).

   case key of

   '1'..'9',#8: //отображать только цифры. Разрешено использовать Backspase.

   else key:=chr(0);

  end;

  //Если введена цифра 2,3,4,5,6,7,8 или 9 максимальная длинна строки 1 символ.

  if   (edit1.Text='2') or (edit1.Text='3') or (edit1.Text='4')

     or(edit1.Text='5') or (edit1.Text='6') or (edit1.Text='7')

     or(edit1.Text='8') or (edit1.Text='9') then

     edit1.MaxLength:=1

  end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);

   // Для поля ввода ставки запрет ненужных символов анологичен.

begin

   edit2.MaxLength:=3;

   if (edit2.Text='') or (strtoint(edit2.text)>strtoint(l4.caption)) then

   case key of

   '1'..'9',#8:

   else key:=chr(0)

   end

   else

   case key of

   '0'..'9',#8:

   else key:=chr(0)

   end

end;

//Основная часть программы. Клик на кнопке 'Играть'.

procedure TForm1.Button1Click(Sender: TObject);

//Используемые переменные.

// St -  ставка игрока.

// bank- переменная отвечающая за кол-во очков.

// Sum - сумма цифр двух костей.

// Chislo - число загаданное игроком.

// K1,k2 - выпавшие кости.

var sum,chislo,k1,k2:byte;st,bank:integer;

   // "Перехват" возможных ошибок.

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

begin

    // Если не введены ни число ни ставка.

   if (edit1.Text='') and (edit2.Text='') then

     begin

       // Выводится соответствующее сообщение и программа выходит из процедуры.

       messagedlg('Введите число и ставку',mterror,[mbok],0);

       edit1.SetFocus;

       exit;

     end;

     // Если не введено число.

     if  edit1.Text='' then

      begin

       // Выводится соответствующее сообщение и программа выходит из процедуры.

       messagedlg('Введите число',mterror,[mbok],0);

       edit1.SetFocus;

       exit;

      end;

     // Если не введена ставка.

     if  edit2.Text='' then

      begin

       // Выводится соответствующее сообщение и программа выходит из процедуры.

       messagedlg('Сделайте ставку',mterror,[mbok],0);

       edit2.SetFocus;

       exit;

      end;

     // Если ставка равна нолю

     if edit2.Text='0' then

      begin

       // Выводится соответствующее сообщение и программа выходит из процедуры.

       messagedlg('Ноль это не ставка',mterror,[mbok],0);

       edit2.SetFocus;

       exit;

      end;

     // Преобразовываем строковые данные полей для ввода числа иставки и

     // заносим в соответствующие переменные.

     st:=strtoint(edit2.text);

     chislo:=strtoint(edit1.text);

     // Если игрок загадал единицу.

     if chislo=1 then

      begin

       // Выводится соответствующее сообщение и программа выходит из процедуры.

       messagedlg('Сумма цифр двух костей '+#13+

                  'не может быть равна - 1.',mterror,[mbok],0);

       edit1.Text:='';

       edit1.SetFocus;

       exit;

      end;

     // Если игрок сделал ствку больше чем есть в банке.

     if st>strtoint(l4.caption) then

      begin

       // Выводится соответствующее сообщение и программа выходит из процедуры.

       messagedlg('В долг играть нельзя',mterror,[mbok],0);

       edit2.SetFocus;

       exit;

      end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
     // "Прячем" компоненты для вывода иллюстраций.

     image1.Visible:=false;

     image2.Visible:=false;

     // "Показываем" компоненты (экраны) для вывода AVI-файлов.

     panel1.Visible:=true;

     panel2.Visible:=true;

     // Открываем медиаплейеры и проигрываем AVI-файлы.

     // Не предусматриваем исключения т.к. предусмотрели при закрытии

     // формы для ввода путей к AVI - файлам.

     mp1.Open;

     // Задаём размеры области вывода AVI-файла.

     mp1.DisplayRect:=rect(0,0,105,105);

     // Воспроизведение

     mp1.Play;

     mp2.Open;

     // Задаём размеры области вывода AVI-файла.

     mp2.DisplayRect:=rect(0,0,105,105);

     // Воспроизведение

     mp2.Play;

     // Устанавливаем задержку выполнения программы.

     // Что-бы проиграть AVI-файл.

     sleep(700);

     // "Прячем" компоненты (экраны) для вывода AVI-файлов.

     panel1.Visible:=false;

     panel2.Visible:=false;

     // "Показываем" компоненты для вывода иллюстраций.

     image1.Visible:=true;

     image2.Visible:=true;

     // Включаем генератор случайных чисел.

     randomize;

     // "Бросаем" кубики.

     // Присваеваем соответствующим переменным функцию random(6) и прибавляем 1.

     k1:=random(6)+1;

     k2:=random(6)+1;

     // Заносим в переменную сумму цифр костей.

     sum:=k1+k2;

     // Создаём битовый образ для вывода изображения первого кубика.

     r1:=tbitmap.Create;

     // Загружаем картинку из файла ресурсов.

     // Имя рисунка указываем с учётом выпавшей цифры.

     r1.LoadFromResourceName(hinstance,'b'+inttostr(k1));

     // Выводим картинку.

     image1.Canvas.Draw(0,0,r1);

     // Создаём битовый образ для вывода изображения второго кубика.

     r2:=tbitmap.Create;

     // Загружаем картинку из файла ресурсов.

     // Имя рисунка указываем с учётом выпавшей цифры.

     r2.LoadFromResourceName(hinstance,'b'+inttostr(k2));

     // Выводим картинку.

     image2.Canvas.Draw(0,0,r2);
{=========================================================}
 // Следующая часть программы определяет проиграл или выиграл игрок.

 // А так же величину выигрыша или проигрыша.

    // Если загаданное число равно сумме выпавших костей.

    if sum=chislo then

     begin

      // Ставку увеличиваем в 4 раза, прибавляем к имеющимся очкам в банке.

      bank:=strtoint(l4.caption)+4*st;

      // В поле для вывода кол-ва очей заносим теперешнее значение.

      l4.Caption:=inttostr(bank);

      // В метку для вывода информации

      // выводим сообщение о выигрыше и его кол-во.

      l5.Caption:='Невероятно!!! Вы угадали!!!'+#13+

                  'Выигрыш - '+inttostr(4*st);

     end

    else

    // Следуюшее условие. Если и загаданное число и сумма цифр двух

    // костей одновременно больше или меньше семи.

    if (chislo<7) and (sum<7) or (chislo>7) and (sum>7) then

     begin

      // Ставку прибавляем к имеющимся очкам в банке.

      bank:=strtoint(l4.caption)+st;

      // В поле для вывода кол-ва очей заносим теперешнее значение.

      l4.Caption:=inttostr(bank);

      // В метку для вывода информации

      // выводим сообщение о выигрыше и его кол-во.

      l5.Caption:='Вы выиграли - '+inttostr(st)+#13+

                  'Вам определённо везёт!';

     end

    else

    // Все остальные ситуации - проигрышные.

     begin

      // От имеющихся очей в банке отнимаем ставку.

      bank:=strtoint(l4.caption)-st;

      // В поле для вывода кол-ва очей заносим теперешнее значение.

      l4.Caption:=inttostr(bank);

      // В метку для вывода информации

      // выводим сообщение о проигрыше и его кол-во.

      l5.Caption:='Вы проиграли - '+inttostr(st)+#13+

                  'Попробуйте ещё!';

     end;

     // Определение победы или поражения в игре.

     // Если кол-во очей в банке игрока превышает 1000, игрок победил.

     if strtoint(l4.caption)>=1000 then

     // С помощью диалогового окна с одной кнопкой

     // выводим сообщение о победе в игре.

      begin

       messagedlg('    Вы обанкротили казино!!!'+#13+

                     'Вы можете начать заново.',mtcustom,[mbok],0);

       // Свойству "доступность" кнопки и пункту меню 'Играть'

       // присваеваем значение False.

       n3.Enabled:=false;

       button1.Enabled:=false;

      end;

     // Если кол-во очей в банке игрока равно 0, игрок проиграл.

     // Заметим, что кол-во очей в банке не может быть отрицательным,

     // т.к. игрок не может поставить больше чем есть в банке,

     // поэтому не используем знак '<='.

     if strtoint(l4.caption)=0 then

      // выводим сообщение о поражении в игре.

      begin

       messagedlg('           Вы банкрот.'+#13+

                  ' Начните заново или уходите побеждённым',mtcustom,[mbok],0);

       // Свойству "доступность" кнопки и пункту меню 'Играть'

       // присваеваем значение False.

       n3.Enabled:=false;

       button1.Enabled:=false;

       // Для пробуждения азарта у игрока свойству Caption кнопки и

       // пункту меню 'Выход' присваеваем не поднимающее дух выражение.

       n6.Caption:='Уйти побеждённым';

       button3.Caption:=' Уйти побеждённым';

      end;

     edit1.SetFocus;

end;

{=========================================================}
procedure TForm1.FormActivate(Sender: TObject);

    // Операторы, которые выполняет программа при активации формы.

begin

   // "прячем" компоненты (экраны) для вывода AVI-файлов.

   panel1.Visible:=false;

   panel2.Visible:=false;

   // Создаём битовый образ.

   baks:=tbitmap.Create;

   // Загружаем картинку из файла ресурсов.

   baks.LoadFromResourceName(hinstance,'baks');

   // Для красивого оформления в компоненты для вывода иллюстраций, пока,

   // до хода игрока, выводим рисунок.

   image1.Canvas.Draw(0,0,baks);

   image2.Canvas.Draw(0,0,baks);

   // В метку для вывода сообщений о выигрыше или проигрыше выводим пожелание.

   l5.Caption:='     Удачи!!!';

   // Т.к. во время выполнения меняются надписи на кнопке и пункте меню

   //'Выход', и в дальнейшем нам пригодится эта процедура присвоим

   //"нормальные" надписи.

   button3.Caption:='Выход';

   n6.Caption:='Выход';

   // По той же причине

   n3.Enabled:=true;

   button1.Enabled:=true;

   // Присвоим нулевые значения полям для ввода числа и ставки

   // и стартовое значение величены очей.

   edit1.Text:='';

   edit2.Text:='';

   l4.Caption:='100';

end;
procedure TForm1.Button2Click(Sender: TObject);

  // Клик на кнопке 'Заново'.

begin

   // Необходимо начать игру с начала для этого просто вызовем процедуру:

    FormActivate(Sender)

end;
procedure TForm1.Button4Click(Sender: TObject);

  // Клик на кнопке 'Ва-банк'.

begin

  // Все очки банка заносим в поле для ввода ставки.

  edit2.Text:=l4.Caption;

end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

   // Операторы которые выполняются при попытке закрыть приложение.

begin

   // Стандартное Windows-кое окно с двумя кнопками (надписи на русском).

   if MessageBox(Form1.Handle,

    PChar('Хотите выйти?'),

    PChar('КОСТИ'), 4)=mrYes then

    // Клик на кнопке 'Да'

    begin

    // Параметру процедуры FormClose присваемваем значение cafree

    // (освободить) закрыть.

    action:=cafree;

    // Нельзя забыть про спрятавшееся окно Aboutbox2

    // если его не закрыть "от него" не освободится оперативная память.

    aboutbox3.close;

    end

   else

    // Иначе (клик на кнопке 'нет')

    // Параметру процедуры FormClose присваемваем значение canone

    // ничего не делать.

    action:=canone;

end;
procedure TForm1.Button3Click(Sender: TObject);

   // Клик на кнопке 'Выход'.

begin

   // Вызываем процедуру закрытия формы.

   close

end;
procedure TForm1.N6Click(Sender: TObject);

   // Клик на пункте меню 'Выход'.

begin

   // Вызываем процедуру закрытия формы.

   close

end;
procedure TForm1.N3Click(Sender: TObject);

   // Клик на пункте меню 'Играть'

   // Дублирует кнопку 'Играть'.

begin

   // Вызываем процедуру обработки события Onclick кнопки 'Играть'.

   button1.Click

end;
procedure TForm1.N4Click(Sender: TObject);

  // Клик на пункте меню 'Заново'

  // Дублирует кнопку 'Заново'.

begin

  // Вызываем процедуру обработки события Onclick кнопки 'Заново'.

  button2.Click

end;
//////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Следующие процедуры обрабатывают события MouseMove на разных компонентах,

// и для красивого оформления меняют их внешний вид.

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

    button1.Default:=true;

end;
procedure TForm1.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

   Button2.Default:=true;

end;
procedure TForm1.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

   Button3.Default:=true;

end;
procedure TForm1.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

   Button4.Default:=true;

end;
procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

   edit1.Color:=clyellow;

end;
procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

    edit2.Color:=clred;

end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

  // Движение указателя мыши на форме возвращает внешний вид компонентов.

begin

   button1.Default:=false;

   button2.Default:=false;

   button3.Default:=false;

   button4.Default:=false;

   edit1.Color:=clwindow;

   edit2.color:=clwindow;

end;
end.

---