Разработка программы Угадайка
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?аммного модуля для формы #1Определяет функциональность формы №1Unit2.dcuОбъектный файл для Unit2.pasОткомпилированная версия Unit2.pasUnit2.dfmФайл формы №2Содержит список свойств всех компонентов, включенных в форму №2Unit2.paФайл программного модуля для формы #2Определяет функциональность формы №2Unit3.dcuОбъектный файл для Unit3.pasОткомпилированная версия Unit3.pasUnit3.dfmФайл формы №3Содержит список свойств всех компонентов, включенных в форму №3Unit3.pasФайл программного модуля для формы #3Определяет функциональность формы №3Unit4.dcuОбъектный файл для Unit4.pasОткомпилированная версия Unit4.pasUnit4.dfmФайл формы №4Содержит список свойств всех компонентов, включенных в форму №4Unit4.pasФайл программного модуля для формы #4Определяет функциональность формы №4
Текст программы
Приводится полный листинг программы, содержащей 4 модуля (Unit):
unit Unit1;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ActnList, ComCtrls;= class(TForm): TButton;: TButton;
Label1: TLabel;
UpDown1: TUpDown;
Edit1: TEdit;
Label2: TLabel;
Button3: TButton;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure Button3Click(Sender: TObject);
function FormHelp(Command: Word; Data: Integer;
var CallHelp: Boolean): Boolean;
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form1: TForm1;
ch: integer;// Загадываемое число
s: integer;// Кол-во попыток
p: integer;// Номер партии
k: integer;// Кол-во угадыванийUnit2, Unit3, Unit4;
{$R *.dfm}
// Действия, выполняемые при создании формы №1
procedure TForm1OnCreate();;:=random(101-1);.Label1.Caption:=IntToStr(ch);:=6;:=1;.Label2.Caption:=Осталось + IntToStr(6-s) + попыток;;
// Кнопка ВыходTForm1.Button2Click(Sender: TObject);.Close;.Terminate;;
//Кнопка Новая играTForm1.Button1Click(Sender: TObject);;:=random(101-1);.Caption:=IntToStr(ch);:=6;:=1;:=0;.Caption:=Осталось + IntToStr(s) + попыток;
//Label1.Visible:= True;.Visible:= True;.Visible:= True;.Visible:= True;.Visible:= True;.Caption:=Партия № + IntToStr(p);.Visible:= True;;TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);.Min:=1;.Max:=100;;
// Кнопка ОТВЕТИТЬTForm1.Button3Click(Sender: TObject);.Visible:= True;(Edit1.Text=IntToStr(ch)) then
begin
k:=k+1;
Form2.ShowModal;
IntToStr(ch))then">end;(Edit1.Text>IntToStr(ch)) then
begin
Label3.Caption:=Число +Edit1.Text+ больше загаданного;
s:=s-1;
Label2.Caption:=Осталось + IntToStr(s) + попыток;
end;(Edit1.Text<IntToStr(ch)) then
begin
Label3.Caption:=Число +Edit1.Text+ меньше загаданного;
s:=s-1;
Label2.Caption:=Осталось + IntToStr(s) + попыток;
end;s=0 then
begin
Form3.Label2.Caption:=Было загадано число +IntToStr(ch);
Form3.ShowModal;
s:=6;
Label4.Caption:=Партия № + IntToStr(p);
Label6.Caption:=Label6.Caption+IntToStr(p)+) число +IntToStr(ch)+#13;
end;p=6 then
begin
Label2.Visible:= False;
Label3.Visible:= False;
Label4.Visible:= False;
Edit1.Visible:= False;
Button3.Visible:= False;
UpDown1.Visible:= False;
Label6.Caption:=Вы угадали + IntToStr(k)+ раз;
Label6.Visible:= True;
Label5.Visible:= True;
end;;
//Кнопка СправкаTForm1.Button4Click(Sender: TObject);.ShowModal;;.
unit Unit2;
interface
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form2: TForm2;Unit1;
{$R *.dfm}TForm2.Button1Click(Sender: TObject);
Form2.Close;
p:=p+1;
Form1.Label4.Caption:=Партия № + IntToStr(p);
s:=6;
randomize;
ch:=random(101-1);
Form1.label1.Caption:=IntToStr(ch);.label3.Visible:= False;;.
unit Unit3;
interface
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm3 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;: TForm3;Unit1;
{$R *.dfm}TForm3.Button1Click(Sender: TObject);.Close;:=p+1;
Form1.Label4.Caption:=Партия № + IntToStr(p);
s:=6;
randomize;
ch:=random(101-1);
Form1.label1.Caption:=Было загадано число +IntToStr(ch);
Form1.Label2.Caption:=Осталось + IntToStr(s) + попыток;
Form1.label3.Visible:= False;;.
unit Unit4;
interface
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm4 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Form4: TForm4;Unit2, Unit1;
{$R *.dfm}TForm4.Button1Click(Sender: TObject);
Form4.Close;;
end.
Описание программы
Общие сведения:
Программа Угадайка. Наименование Ug.exe. Программа была написана на языке Object Pascal в среде программирования Delphi.
Функциональное назначение:
Приложение является логической игрой.
Используемые технические средства:
Для корректной работы приложения требуется компьютер с установленной операционной системой Windows.
Вызов и загрузка:
Программа запускается как обычное приложение Windows. Программа не требует установки и любых дополнительных файлов.
Входные и выходные данные:
Программа не требует и не использует никаких входных и выходных данных.
Тестирование программы
При тестировании программы требуется проверить, соответствует ли разработанная программа всем требованиям, изложенным в задании. Для проверки в течение выполнения программы на экран выводится статистическая информация, позволяющая визуально отследить, правильно ли выполняется требуемый алгоритм. В частности, на главной форме приложения указано, сколько осталось у пользователя попыток и какой сейчас по счету раунд.
Если пользователь использовал все попытки, но так и не угадал число, на экран для проверки выводится информационное сообщение с указанием загаданного числа.
3. Внедрение
Условия выполнения программы
Программа работает под управлением операционной системы Windows. Для удобства использ