Составление программной документации.

1) Общие сведения программного обеспечения

• Программа должна работать на IBM совместимых компьютерах
• Тип процессора Pentium-3 и выше
• Объём ОЗУ 32Мб и более

2) Структура программы.

Программа состоит из: трёх форм, одного компонента Image, двух компонентов

RadioButton, шести компонентов Button, и десяти компонентов Label.

3) Сообщение системному программисту.

Имеются сообщения о ходе выполнения программы.

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

19

          Изм. Лист № докум. Подпись Дата

Составление эксплуатационной документации.

1) Общие сведения

Реализовать «Игру в спички». Дано N (N < 30) спичек. Пользователь и компьютер поочерёдно берут 2-3 спички. Проигрывает тот, кому остаётся 1 спичка или их не остаётся вообще.

2) Копируем папку с программой на жёсткий диск компьютера.

3) Запуск Открываем файл Project1. exe.

4) Инструкция по работе:

а.  Вводим количество спичек

b. Выбираем количество изымаемых и нажимаем на кнопку «Ввод»

c. Нажимаем на кнопку «ход компьютера»

d. Игра заканчивается, когда остаётся 0-1 спичка.

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

20

          Изм. Лист № докум. Подпись Дата

Тестирование программного продукта.

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

21

          Изм. Лист № докум. Подпись Дата

 

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

22

          Изм. Лист № докум. Подпись Дата

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

23

          Изм. Лист № докум. Подпись Дата

 

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

24

          Изм. Лист № докум. Подпись Дата

 

 

 

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

25

          Изм. Лист № докум. Подпись Дата

 

 

 

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

26

          Изм. Лист № докум. Подпись Дата

Заключение

Я, Агишев Руслан Хамитович студент 3 курса группы 083 специальности230105.51 программное обеспечение средств вычислительной техники автоматизирование систем ФГОУ СПО «Ярославского автомеханического техникума», разработал отчетную программу в рамках практики на получение первичных профессиональных навыков.

 Для реализации программы я использовал язык программирования  Borland  Delphi 7.0, так как данная среда является одной из ведущих систем программирования, используемых для разработки современных программных продуктов, и в первую очередь приложений операционной системы Windows. Система программирования Delphi позволяет значительно упростить процесс создания Windows – приложений, а так же резко повысить производительность труда программиста.

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

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

27

          Изм. Лист № докум. Подпись Дата

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

Бобровский С.И.

Б72 Delphi 7. Учебный курс.- СПб.: Питер, 2008.- 736с.: ил.

 

Кандзюба С.П., Громов В.Н.

К82 Delphi 6. Базы данных и приложение. Лекции и упражнения.- К.: Издательство «ДиаСофт», 2001.- 576 с.

 

Культин Н.Б.

К90 Delphi в задачах и примерах.- СПб.: БХВ- Петербург, 2004.- 288 с.: ил.

 

Веб сайт

Http://www.wikipedia.org/wiki/Delphi

 

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

28

          Изм. Лист № докум. Подпись Дата

Приложение

unit Unit1;                                                                                      //главная форма

 

interface

 

uses

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

Dialogs, ExtCtrls, StdCtrls, Menus;

 

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Button1: TButton;

Button2: TButton;

Image1: TImage;

Button3: TButton;

Button4: TButton;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure Button3Click(Sender: TObject);                         // описание компонентов

procedure Edit1KeyPress(Sender: TObject; var Key: Char); // описание компонентов

procedure Button1Click(Sender: TObject);                        // описание компонентов

procedure Button2Click(Sender: TObject);                            // описание компонентов

procedure Button4Click(Sender: TObject);                       // описание компонентов

procedure N1Click(Sender: TObject);                               // описание компонентов

procedure N2Click(Sender: TObject);                              // описание компонентов

procedure N3Click(Sender: TObject);                              // описание компонентов

 

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1; n,m:integer;a:real;                                     //описание глобальных переменных

 

implementation

 

uses Unit2, Unit3;                                                                        //связь с формой 2 и формой 3

 

{$R *.dfm}

 

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

29

          Изм. Лист № докум. Подпись Дата

procedure TForm1.Button3Click(Sender: TObject);              //запуск процедуры

begin                                                                                       // начало процедуры

 

if Edit1.text<>'' then begin                                                     //условие проверки заполнения поля Edit1

 

n:=strtoint(edit1.text);                                                            //присвоение переменной n

m:=30-n;                                                                           //присвоение переменной m

image1.Width:=image1.Width-24*m;                                 // присвоение компонента Image1

 

Button1.Visible:=true;                                                          // присвоение компонента Button1

end else showmessage('введите количество спичек');      //вывод сообщения

 

end;                                                                                     // конец процедуры

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); //запуск процедуры

begin                                                                       // начало процедуры

 

if ((ord(key)>57) or (ord(key)<48)) and (ord(key)<>8) then //условие на ограниченный ввод данных

key:=chr(0);

 

 

end;                                                                                      // конец процедуры

 

procedure TForm1.Button1Click(Sender: TObject);         // запуск процедуры

begin                                                                                   // начало процедуры

if (radiobutton1.checked=true) or (radiobutton2.checked=true) then begin //условие активности

                                                                                          //компонента radiobutton1 или radiobutton2

 

Button1.Visible:=false;                                                      //присвоение компонента Button1

Button2.Visible:=true;                                                     //присвоение компонента Button2

 

if radiobutton1.checked=true then begin                        //условие активности компонента radiobutton1

image1.Width:=image1.Width-48; n:=n-2;                    // присвоение компонента Image1

if n<=1 then showmessage('компьютер проиграл');    //условие

end;

 

if radiobutton2.checked=true then begin                       //условие активности компонента radiobutton2

image1.Width:=image1.Width-72; n:=n-3;                    // присвоение компонента Image1

if n<=1 then showmessage('компьютер проиграл');     //условие и вывод сообщения

 

end;

 

end

else showmessage('выбирите количество изымаемых спичек'); //вывод сообщения

 

end;                                                                                                   // конец процедуры

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

30

          Изм. Лист № докум. Подпись Дата

procedure TForm1.Button2Click(Sender: TObject);                      //запуск процедуры

begin                                                                                               //начало процедуры

Button2.Visible:=false;                                                                  // присвоение компонента Button2

Button1.Visible:=true;                                                                   // присвоение компонента Button1

 

 

randomize; 

a:=random;                                                                                       // присвоение переменной а

if a<=0.5 then a:=2                                                                          //условие

else a:=3;

 

if a=2 then begin                                                                              //условие значения переменной а

image1.Width:=image1.Width-48; n:=n-2;                                     // присвоение компонента Image1

if n<=1 then showmessage('вы проиграли');                                 //условие и вывод сообщения

 

end;

 

if a=3 then begin                                                                              //условие значения переменной а

image1.Width:=image1.Width-72; n:=n-3;                                    // присвоение компонента Image1

if n<=1 then showmessage('вы проиграли');                                 //условие и вывод сообщения

 

end;

 

end;                                                                                                 //конец процедуры

 

procedure TForm1.Button4Click(Sender: TObject);                      //запуск процедуры

begin                                                                                               //начало процедуры

Edit1.Clear;

image1.Picture.LoadFromFile('Спича.bmp');

image1.Height:=49; image1.Width:=720;                                      //размеры компонента image1

 

end;                                                                                                //конец процедуры

 

 

procedure TForm1.N1Click(Sender: TObject);                            //запуск процедуры

begin                                                                                              //начало процедуры

form2.show;                                                                              //переход на вторую форму

form1.Visible:=false;                                                                     //закрытие первой формы

 

 

end;                                                                                               //конец процедуры

 

procedure TForm1.N2Click(Sender: TObject);                            //запуск процедуры

begin                                                                                             //начало процедуры

form3.show;                                                                                 //переход на третью форму

form1.Visible:=false;                                                                   //закрытие первой формы

end;                                                                                               //конец процедуры

 

procedure TForm1.N3Click(Sender: TObject);                           //запуск процедуры

begin                                                                                             //начало процедуры

Close;

end;

end.                                                                                                 //конец программы

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

31

          Изм. Лист № докум. Подпись Дата

unit Unit2;                                                                                            //форма «автор»

 

interface

 

uses

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

Dialogs, StdCtrls;

 

type

TForm2 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);                                           // описание компонентов

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form2: TForm2;

 

implementation

 

uses Unit1;                                                                                                  //связь с формой 1

 

{$R *.dfm}

 

procedure TForm2.Button1Click(Sender: TObject);                                //запуск процедуры

begin                                                                                                           //начало процедуры

form1.show;                                                                                              //переход на первую форму

form2.Visible:=false                                                                                 //закрытие второй формы

end;                                                                                                           //конец процедуры

 

end.                                                                                                            //конец программы

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

32

          Изм. Лист № докум. Подпись Дата

unit Unit3;                                                                                         //форма «правила игры»

 

interface

 

uses

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

Dialogs, StdCtrls;

 

type

TForm3 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);                                            // описание компонентов

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form3: TForm3;

 

implementation

 

uses Unit1;                                                                                                //связь с формой 1

 

{$R *.dfm}

 

procedure TForm3.Button1Click(Sender: TObject);                               //запуск процедуры

begin                                                                                                         //начало процедуры

form1.show;                                                                                             //переход на первую форму

form3.Visible:=false                                                                                 //закрытие третей формы

end;                                                                                                           //конец процедуры

 

end.                                                                                                            //конец программы

.        

ППН 230105.51.011.001.00 ПЗ

 

Лист

 

33

          Изм. Лист № докум. Подпись Дата