Навигация:

Главная Случайная страница Обратная связь ТОП Интересно знать Избранные Новые материалы

Топ:

Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного...

Методика измерений сопротивления растеканию тока анодного заземления: Анодный заземлитель (анод) – проводник, погруженный в электролитическую среду (грунт, раствор электролита) и подключенный к положительному...

Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...

Интересное:

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

Лечение прогрессирующих форм рака: Одним из наиболее важных достижений экспериментальной химиотерапии опухолей, начатой в 60-х и реализованной в 70-х годах, является...

Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...

Дисциплины:

Автоматизация Антропология Археология Архитектура Аудит Биология Бухгалтерия Военная наука Генетика География Геология Демография Журналистика Зоология Иностранные языки Информатика Искусство История Кинематография Компьютеризация Кораблестроение Кулинария Культура Лексикология Лингвистика Литература Логика Маркетинг Математика Машиностроение Медицина Менеджмент Металлургия Метрология Механика Музыкология Науковедение Образование Охрана Труда Педагогика Политология Правоотношение Предпринимательство Приборостроение Программирование Производство Промышленность Психология Радиосвязь Религия Риторика Социология Спорт Стандартизация Статистика Строительство Теология Технологии Торговля Транспорт Фармакология Физика Физиология Философия Финансы Химия Хозяйство Черчение Экология Экономика Электроника Энергетика Юриспруденция

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

2020-08-21

128

0.00 из 5.00 0 оценок

Заказать работу

Содержание

⇐ ПредыдущаяСтр 2 из 2

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

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

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

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

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

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

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

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

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

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

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

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

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

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

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

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

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

Заключение

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

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

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

ППН 230105.51.011.001.00 ПЗ

Лист

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

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

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

Б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 ПЗ

Лист

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

Приложение

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 ПЗ

Лист

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

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 ПЗ

Лист

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

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 ПЗ

Лист

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

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 ПЗ

Лист

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

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 ПЗ

Лист

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

⇐ Предыдущая 12

Поделиться с друзьями:

Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...

Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...

Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...

Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...