Разработка программы игры в "Кости"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
зменяется суммарный счет и выводится сообщение о результатах текущего броска.
Спецификация программы.
Программа написана на Delphi 6. Файлы проекта (Приложения А) представлены в таблице 1.
Таблица 1.
Имя файлаТип файлаОписаниеabout.dfmФайл формыО программеabout.pasФайл программного модуляKosti.cfgФайл конфигурации проектаКурсовая.docДокумент WordЭтот файлKosti.dofФайл параметров проектаKosti.dprФайл проектаKosti.dskФайл конфигурации проектаKosti.resФайл ресурсовMain.dfmФайл формыГлавная формаMain.pasФайл программного модуляrules.dfmФайл формыПравила игрыrules.pasФайл программного модуляRusDlg.pasФайл программного модуляРусифицированные диалоги
. Текст программы
Текст программы
Модуль : about.pas Всего строк : 35
unit about;Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,, ExtCtrls;= class(TForm): TPanel;: TImage;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TLabel;: TLabel;: TLabel;: TLabel;
{ Private declarations }
{ Public declarations };: TAboutBox;
{$R *.dfm}.
Модуль : Kosti.dpr Всего строк : 18 Kosti;,in Main.pas {Form1},in RusDlg.pas,in about.pas {AboutBox},in rules.pas {FrmRules};
{$R *.res}.Initialize;.CreateForm(TForm1, Form1);.CreateForm(TAboutBox, AboutBox);.CreateForm(TFrmRules, FrmRules);.Run;
end.
Модуль : Main.pas Всего строк : 150
unit Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, Buttons, Spin, ExtCtrls, ImgList;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TLabel;: TPanel;: TLabel;: TSpinEdit;: TBitBtn;: TImageList;: TLabel;: TSpinEdit;: TBitBtn;GameNewClick(Sender: TObject);BitBtn1Click(Sender: TObject);FormCreate(Sender: TObject);FormPaint(Sender: TObject);HelpAboutClick(Sender: TObject);HelpRuleClick(Sender: TObject);GameExitClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;:integer; : integer=-1; : integer=-1; rusdlg,about, rules;
{$R *.dfm}TForm1.GameNewClick(Sender: TObject);:= 100; .Caption :=format(Ваша сумма :%d,[Score]);.visible:=true; .MaxValue := 100;.Show; ;TForm1.BitBtn1Click(Sender: TObject);i:integer;not (SpinNumb.Value in [2..12]) then
begin(Число должно быть от 2 до 12);
exit;;Spin.Value <1 then
begin(Ставка должна быть больше 0);
Scorethen">exit;;Spin.Value > Score then
begin(Ставка должна быть меньше текущего счета);
7)and(SpinNumb.Value>7))then(!!#13%d#13%d,[Spin.value,Spin.value]);(Score,Spin.value);elsei=SpinNumb.Valuethen(!!#13%d#13%d,[Spin.value,Spin.value*4]);(Score,Spin.value*4);.Caption:=IntToStr(Score);else(!!#13%d,[Spin.value]);(Score,Spin.value);;.Caption:=format(:%d,[Score]);">exit;;i:=1 to 10 do :=random(6); :=random(6);(nil); (100); ;:=t1+t2+2; ((i7)) then(Вы выиграли!!#13Ставка %d#13Выигрыш %d,[Spin.value,Spin.value]);(Score,Spin.value);elsei=SpinNumb.Value then (Вы выиграли!!#13Ставка %d#13Выигрыш %d,[Spin.value,Spin.value*4]);(Score,Spin.value*4); .Caption := IntToStr(Score);else(Вы Проигали!!#13Ставка %d,[Spin.value]);(Score,Spin.value);;.Caption :=format(Ваша сумма :%d,[Score]);
if score=0 then (Вы проигали!!#13Остаток на счету - 0.);
scorethenSpin.Value:=score;;TForm1.FormCreate(Sender:TObject);;;TForm1.FormPaint(Sender:TObject);notPanel.Visiblethenexit;t1=-1thenexit;.Draw(canvas,75,50,t1);.Draw(canvas,155,50,t2);;">t1:=-1;.Hide; .Hide;; ;.MaxValue := Score; spin.Value>score then Spin.Value := score;;TForm1.FormCreate(Sender: TObject);; ;TForm1.FormPaint(Sender: TObject);not Panel.Visible then exit;t1=-1 then exit; .Draw(canvas,75,50,t1); .Draw(canvas,155,50,t2); ;
TForm1.HelpAboutClick(Sender: TObject);.Show; ;TForm1.HelpRuleClick(Sender: TObject);.Show; ;TForm1.GameExitClick(Sender: TObject);; ;.
Модуль : rules.pas Всего строк : 35 rules;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, ComCtrls;= class(TForm): TRichEdit;: TBitBtn;FormCreate(Sender: TObject);
{ Private declarations }
{ Public declarations };: TFrmRules;
{$R *.dfm}TFrmRules.FormCreate(Sender: TObject);.SelStart:=0; .SelLength:=14;.SelAttributes.Size:=16; .SelAttributes.Style:=[fsBold];;.
Модуль : RusDlg.pas Всего строк : 50 RusDlg;forms,windows,SysUtils;Notify(Msg: string); overload;Notify(Msg: string; const Args: array of const); overload;Confirm(Msg: string): Boolean; overloadConfirm(Msg: string; const Args: array of const): Boolean; overload;Error(Msg: string); overload;Error(Msg: string; const Args: array of const);overload;CrError(Msg: string); Confirm(Msg: string): Boolean; overload;:= Application.MessageBox(PChar(Msg), Подтвердите, MB_ICONQUESTION or MB_YESNO) = IDYES;;Confirm(Msg: string; const Args: array of const): Boolean;overload;:= Confirm(format(msg,args));;Notify(Msg: string); overload;.MessageBox(PChar(Msg), Результат, MB_ICONINFORMATION or MB_OK);;Notify(Msg: string; const Args: array of const); overload;(format(msg,Args));;Error(Msg: string); overload;.MessageBox(PChar(Msg), Ошибка, MB_ICONERROR or MB_OK);;CrError(Msg: string);.MessageBox(PChar(Msg), Ошибка, MB_ICONERROR or MB_OK);;;Error(Msg: string; const Args: array of const); overload;(format(msg,Args));
end;.
. Описание и внедрение программы
Описание программы
Данная программа является игровой. Ее реализация имитирует игру в кости. Программа предназначена для релаксации персонала в нерабочее время.
().7(61,52,43).,..">Кости - одна из древнейших игр. Инструментом для игры являются кубики (кости) в количестве от одного до пяти в зависимости от вида игры. При правильной разметке противоположные грани костей должны в сумме составлять 7 (6 против 1, 5 против 2, 4 пр