Объектный подход реализации программных систем
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TIntro. ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;;TIntro. Start01MouseDown (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TIntro. Start01MouseUp (Sender: TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;;.
Окно с числовым игровым полем
Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls;= class (TForm): TImage;: TLabel;
Label2: TLabel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;FormCreate (Sender: TObject);Image1Click (Sender: TObject);FormPaint (Sender: TObject);FormKeyDown (Sender: TObject; var Key: Word;: TShiftState);SwitchClick (Sender: TObject);ResetClick (Sender: TObject);ExitClick (Sender: TObject);SwitchMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{ Private declarations }
{ Public declarations };: TMain;: array [1.16] of integer;, keybpos: integer;: string;pre;
{$R *. dfm}startpjat ();,q,w,a: integer;: =0;. label2. caption: =0;;[1]: =random (16);i: =2 to 16 do: =1;(a=1) do: =0;[i]: =random (16);q: =i-1 downto 1 do(pjat [i] =pjat [q]) then w: =w+1;(w=0) then a: =2;;;;ReloadPole (canvas: TCanvas);i,q,w,x,y: integer;. Rectangle (0,0, 201, 201);keyb=yes then. Brush. Color: =clGradientInactiveCaption;keybpos of
: begin x: =0; y: =0; end;
: begin x: =50; y: =0; end;
: begin x: =100; y: =0; end;
: begin x: =150; y: =0; end;
: begin x: =0; y: =50; end;
: begin x: =50; y: =50; end;
: begin x: =100; y: =50; end;
: begin x: =150; y: =50; end;
: begin x: =0; y: =100; end;
: begin x: =50; y: =100; end;
: begin x: =100; y: =100; end;
: begin x: =150; y: =100; end;
: begin x: =0; y: =150; end;
: begin x: =50; y: =150; end;
: begin x: =100; y: =150; end;
: begin x: =150; y: =150; end;;
canvas. Rectangle (x,y,x+51,y+51);
canvas. Brush. Color: =clWhite;;: =3;q: =0 to w doi: =0 to w do. MoveTo (i*50,q*50);. LineTo ( (i) *50, (w-q+1) *50);. MoveTo (i*50,q*50);. LineTo ( (w-i+1) *50, (q) *50);;: =1;q: =1 to 4 doi: =1 to 4 do(pjat [w] =-3) and (cell<=12) then(cell+4,cell);;(main. image1. Canvas);;TMain. Image1Click (Sender: TObject);,y,cell: integer;keyb=no then: =mouse. CursorPos. x-image1. left-main. Left-4;
y: =mouse. CursorPos. y-image1. top-main. top-30;: =x div 50;: =y div 50;
cell: =x*1+y*4+1;(pjat [cell-1] =0) and (cell>=2) and (cell=-3) and (cell<=12) then(cell+4,cell);;;TMain. SwitchClick (Sender: TObject);(keyb=yes): =no;(image1. Canvas);: =yes;(image1. Canvas);;;TMain. ExitClick (Sender: TObject);;;TMain. FormPaint (Sender: TObject);. Caption: =pre. WholestepsText;keyb=nokeyb=yes;TMain. FormKeyDown (Sender: TObject; var Key: Word;: TShiftState);keyb=yesKey of_down: direction (sdown);_left: direction (sleft);_up: direction (sup);_right: direction (sright);_space: direction (space);_TAB: SwitchClick (Sender);key of_TAB: SwitchClick (Sender);;;TMain. SwitchMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TMain. SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;TMain. ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TMain. ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;TMain. ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =False;. Visible: =True;;TMain. ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: =True;. Visible: =False;;.
Окно с буквенным игровым полем
Unit2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls;= class (TForm): TImage;
Label1: TLabel;: TLabel;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;FormCreate (Sender: TObject);Image1Click (Sender: TObject);FormPaint (Sender: TObject);FormKeyDown (Sender: TObject; var Key: Word;: TShiftState);SwitchClick (Sender: TObject);ResetClick (Sender: TObject);ExitClick (Sender: TObject);SwitchMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{ Private declarations }
{ Public declarations };: TMain1;: array [1.16] of integer;, keybpos: integer;: string;pre;
{$R *. dfm}startpjat ();,q,w,a: integer;: =0;. label2. caption: =0;;[1]: =random (16);i: =2 to 16 do: =1;(a=1) do: =0;[i]: =random (16);q: =i-1 downto 1 do(pjat [i] =pjat [q]) then w: =w+1;(w=0) then a: =2;;;;ReloadPole (canvas: TCanvas);i,q,w,x,y: integer;: array [1.15] of char;[1]: =a;[2]: =b;[3]: =c;[4]: =d;[5]: =e;[6]: =f;[7]: =g;[8]: =h;[9]: =i;[10]: =j;[11]: =k;[12]: =l;[13]: =m;[14]: =n;[15]: =o;. Rectangle (0,0, 201, 201);keyb=yes then. Brush. Color: =clGradientInactiveCaption;keybpos of
: begin x: =0; y: =0; end;
: begin x: =50; y: =0; end;
: begin x: =100; y: =0; end;
: begin x: =150; y: =0; end;
: begin x: =0; y: =50; end;
: begin x: =50; y: =50; end;
: begin x: =100; y: =50; end;
: begin x: =150; y: =50; end;
: begin x: =0; y: =100; end;
: begin x: =50; y: =100; end;
: begin x: =100; y: =100; end;
: begin x: =150; y: =100; end;
: begin x: =0; y: =150; end;
: begin x: =50; y: =150; end;
: begin x: =100; y: =150; end;
: begin x: =150; y: =150; end;;. Rectangle (x,y,x+51,y+51);. Brush. Color: =clWhite;;: =3;q: =0 to w doi: =0 to w do. MoveTo (i*50,q*50);. LineTo ( (i) *50, (w-q+1) *50);. MoveTo (i*50,q*50);. LineTo ( (w-i+1) *50, (q) *50);;: =1;q: =1 to 4 doi: =1 to 4 do(pjat [w] 0) then result: =no;;TMain1. FormCreate (Sender: TObject);();(image1. Canvas);. left: = (screen. Width-main1. Width) div 2;. top: = (screen. Height-main1. Height) div 2;: =no;: =1;;TMain1. ResetClick (Sender: TObject);();(image1. Canvas);;go (i,cell: integer);[i]: =pjat [cell];[cell]: =0;: =steps+1;(main1. image1. Canvas);. label2. Caption: =inttostr (steps);CheckPole=yes then showmessage (pre. wintext);;direction (dire: string);cell: integer;dire