Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
Топ:
Характеристика АТП и сварочно-жестяницкого участка: Транспорт в настоящее время является одной из важнейших отраслей народного хозяйства...
Методика измерений сопротивления растеканию тока анодного заземления: Анодный заземлитель (анод) – проводник, погруженный в электролитическую среду (грунт, раствор электролита) и подключенный к положительному...
Выпускная квалификационная работа: Основная часть ВКР, как правило, состоит из двух-трех глав, каждая из которых, в свою очередь...
Интересное:
Национальное богатство страны и его составляющие: для оценки элементов национального богатства используются...
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Отражение на счетах бухгалтерского учета процесса приобретения: Процесс заготовления представляет систему экономических событий, включающих приобретение организацией у поставщиков сырья...
Дисциплины:
 2020-08-21 |
 101 |
из
5.00
|
Заказать работу |
|
|
|
|
1) Общие сведения программного обеспечения
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
|
|
|
Адаптации растений и животных к жизни в горах: Большое значение для жизни организмов в горах имеют степень расчленения, крутизна и экспозиционные различия склонов...
Особенности сооружения опор в сложных условиях: Сооружение ВЛ в районах с суровыми климатическими и тяжелыми геологическими условиями...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!