CopyFile('1.dat', 'Players.dat',False);

    DeleteFile('1.dat');

    //Добавление нового игрока в список

    ListBox.Items.Add(NameGamer);

    ListBox.ItemIndex:=ListBox.Items.Count-1;

  end;

end;

//-------------------------------------------------------------

//Удаление  игрока

//-------------------------------------------------------------

procedure TFormNew.BDelClick(Sender: TObject);

begin

  AssignFile(FO, 'Players.dat'); AssignFile(FS, '1.dat');

  Reset(FO); Rewrite(FS);   //Открытие файлов

  Readln(FO, S); KolGamer:=StrToInt(S);

  Writeln(FS, IntToStr(KolGamer-1)); //Запись уменьшеннго кол. игроков

  //Перезапись игроков кроме выделенного в списке

  for i:=1 to KolGamer do

    if i<>ListBox.ItemIndex+1 then

      for j:=1 to 6 do begin Readln(FO, S); Writeln(FS, S); end

    else for j:=1 to 6 do Readln(FO, S); //Пропуск 6 строчек

  //Закрытие файлов и удаление временного

  CloseFile(FO); CloseFile(FS);

  CopyFile('1.dat', 'Players.dat',False);

  DeleteFile('1.dat');

  FormCreate(nil); //Обновление списка игроков

end;

end.

 

• Тестирование  программы

 

     После запуска приложения появляется главное  окно программы в центре экрана, которое перекрыто диалоговым окном выбора игрока. Нажимаем кнопку «Новый». Появляется окно, в которое предлагается ввести имя создаваемого игрока. Вид программы представлен в приложении 1. Вводим имя «Сергей» и нажимаем клавишу «ОК». Имя игрока появляется в списке игроков. После нажатия на кнопку «Выбрать». Главное окно программы с начальными значениями становится активным. Вид программы на данном этапе представлен в приложении 1, второй рисунок. После нажатия на кнопку «Ход» вид окна программы изменился (приложение 1, третий рисунок). Далее, в таблице 4 представлена таблица с данными игры созданного игрока до полного проигрыша. Вид окна программы на последнем этапе игры представлен в приложении 1, четвертый рисунок.

Таблица 4

 

• Внедрение

      В разделе описываются (руководство  ГОСТ 19.505-79³):

• Условие выполнения программы;
• Выполнение программы;
• Сообщение оператору;

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

 

     Данное  приложение, разработанное в Delphi, способно работать на персональных компьютерах с минимальными требованиями Pentium 100, оперативной памятью 32 Мб, операционной средой Windows.

• Выполнение  программы

 

     Запустить приложение можно также как и  любое другое. Окно приложения загрузится и появится в центре экрана. Для добавления, удаления из списка или выбора игроков используются кнопки соответственно: «Добавить», «Удалить» и «Выбрать». Для хода игрока используется кнопка «Ход». Чтобы вызвать окно выбора игрока необходимо нажать кнопку «Игрок». Для выхода из программы необходимо нажать Alt+F4, нажать кнопку «Выход» или щелкнуть левой кнопкой мыши по крестику в правом верхнем углу экрана.

      

• Сообщение оператору

 

     Постоянно на протяжении всей игры в строку состояния  выводятся подсказки пользователю. Так, например, в первую панель строки выводятся сообщения о выигрыше или проигрыше сделанной ставки: «Ты выиграл!», «Ты проиграл!». Во вторую панель сумма выпавших значений на гранях кубиков. В третью панель выигрыш. Также если кредит игрока иссякнет, появится сообщение о проигрыше (приложение 1, четвертый рисунок).

 

Заключение

 

     В условии задачи не сказано о максимально допустимом выигрыше, поэтому в игре не предусмотрено данное ограничение. Также не ограничено количество разных игроков.

     Для уменьшения размера исполняемого файла  программы можно картинки граней кубиков загружать при запуске игры. Можно добавить озвучивание событий игры, уровень сложности игры и разные настройки параметров игры. Это вызвало бы больший интерес к игре.

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

     В целом приложение представляет собой почти самый простой вариант игры «Кости» с набором самых необходимых функций.

 

Список литературы

 

1. Емелина Е.И. Основы программирования на языке Паскаль. М., 1997.
2. Мануйлов В. Г. Разработка программного обеспечения на Паскале. М., 1998г.
3. Фаронов В.В.Турбо Паскаль 7.0. М., 1998
4. Культин Н. Програмирование на Object Pascal. Киев, 1998.
5. Федоров А. Г. Delphi 3.0 для всех. М., 1998.
6. Дарахвелидзе П., Марков Е. Программирование в Delphi 4.СПб.: БХВ. СПб., 1999
7. Роб Баас, Майк Фервай, Хайдемария Гюнтер. Delphi 4. Полное руководство. - К.: Издательская группа BHV, 1999
8. Изучаем Delphi. – СПб.: Питер, 2000. – 352 с.: ил.
9. Александровский А. Д. Delphi 5.0. Разработка корпоративных приложений. – М.: ДМК, 2000. – 512 с.: ил. (Серия «Для программистов»).
10. Delphi: быстрый старт. – СПб.: БХВ – Петербург, 2002. – 288 с.: ил.
11. Turbo Pascal / С.А. Немнюгин. – СПб: Издательство «Питер», 2000. – 496 с.: ил.
12. Изучаем Delphi. – СПб.: Питер, 2000. – 352 с.: ил.
13. Власов А.Я. Справочник по программированию на Object Pascal. Киев, 2001г.
14. Turbo Pascal в задачах и программах.  – СПб.: БХВ – Петербург,, 2002. – 560 с.: ил.
15. Delphi: быстрый старт. – СПб.: БХВ – Петербург, 2002. – 288 с.: ил.

 

 

Приложение 1

Виды  программы, принимаемые во время  ее тестирования. 

     

     

     

     

 

Приложение 2 

К семестровой  курсовой работе прилагается диск 1.44 Мб.