15-puzzle/fi: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## 15-peli
2	2
3	3		![](/wiki-images/2/20/Puzzle15.png)
4	4
5	5		15-peli on liukupalapeli joka koostuu kehyksestä jossa on numeroituja neliömäisiä laattoja satunnaisessa järjestyksessä missä yksi laatta puuttuu. Pelissä tavoitteena on sijoittaa laatat järjestykseen liu'uttamalla siirrettävä pala tyhjään tilaan.
6	6
7	7		## Luodaan ohjelmakoodi
8	8
9	9		- Luo uusi tyhjä graafinen sovellus lomakkeella [[TForm/fi\|Form1]]
10	10		- Muuta lomakkeen Form1 ominaisuus caption arvoon 15Puzzle'.
11	11		- Lisää uusi käännösyksikkö [[15-puzzle/fi\|unitGameBoard.pas]]
12	12		- Luodaan OnCreate tapahtumakäsittelijä lomakkeelle, käyttämällä komponenttimuokkaimen tapahtumat-välilehteä, valitsemalla OnCreate tapahtuma, klikkaamalla sen \[...\] painiketta tai kaksoisklikkaamalla painiketta lomakkeella.
13	13		- Lisää siihen seuraava koodi:
14	14
15	15		``` pascal
16	16		procedure TForm1.FormCreate(Sender: TObject);
17	17		var
18	18		i : Integer;
19	19		aButton: TButton;
20	20		point:TPoint;
21	21		begin
22	22		Randomize;
23	23		Puzzle15:= TGameBoard.Create;
24	24		i := 1;
25	25		while i < 16 do
26	26		begin //luodaan 15 painiketta
27	27		aButton:=TButton.Create(Self); //luodaan Button, Owner on Form1, kun painike myöhemmin julkaistaan
28	28		aButton.Parent:=Self; //määrittää, missä se on näytettävä
29	29		aButton.Caption:=IntToStr(i); //Painikkeessa näkyvä teksti
30	30		aButton.Width:=aButton.Height; //Painike on neliö
31	31		point := Puzzle15.ButtonPlace(aButton.Caption);
32	32		aButton.Left:= point.x* aButton.Width; //painikkeen vasemman reunan etäisyys
33	33		aButton.Top := point.y* aButton.Height;
34	34
35	35		aButton.OnClick:=@aButtonClick; //painikkeen tapahtumakäsittelijä
36	36		inc(i);
37	37		end;
38	38		Self.Height:=aButton.Height*6; //lomakkeen korkeuden määritys
39	39		Self.Width:=aButton.Width*6; //lomakkeen leveyden määritys
40	40		end;
41	41		```
42	42
43	43		- Luodaan komponenttimuokkaimella tapahtumakäsittelijä tapahtumalle FormDestroy, klikkaamalla sen painiketta \[...\].
44	44		- Täydennetään tapahtuman koodi seuraavaksi:
45	45
46	46		``` pascal
47	47		procedure TForm1.FormDestroy(Sender: TObject);
48	48		begin
49	49		FreeAndNil(Puzzle15);
50	50		end;
51	51		```
52	52
53	53		- Seuraavaksi luodaan tapahtumankäsittelijä painikkeiden klikkaukselle.
54	54		- Lähdekoodieditorissa siirrytään luokan TForm1 esittelyn private osaan.
55	55		- Lisää [[Procedure/fi\|aliohjelma]] `procedure aButtonClick (Sender: TObject);` ja paina näppäimiä `Ctrl`+`Shift`+`c` (Koodin täydennys aktivoituu ja luo aliohjelman rungon `procedure TForm1.aButtonClick (Sender: TObject) ;`.
56	56		- Täydennetään se tälläiseksi:
57	57
58	58		``` pascal
59	59		procedure TForm1.aButtonClick(Sender: TObject); //Painikkeen tapahtumankäsittelijä
60	60		var
61	61		i:integer;
62	62		point : TPoint;
63	63		begin
64	64		if (Sender is TButton) and //Tarkistetaan että tapahtuman tultiin näppäimen painalluksella
65	65		TryStrToInt(TButton(Sender).Caption, i) // ja onko sen teksti kokonaisluku
66	66		then
67	67		begin
68	68		if Puzzle15.CanMove(TButton(Sender).Caption) then
69	69		begin
70	70		point := Puzzle15.Change(TButton(Sender).Caption);
71	71		TButton(Sender).Left:= point.x* TButton(Sender).Width;
72	72		TButton(Sender).Top := point.y* TButton(Sender).Height;
73	73		end;
74	74		end;
75	75		end;
76	76		```
77	77
78	78		## Lähdekoodi
79	79
80	80		### unit1.pas
81	81
82	82		``` pascal
83	83		unit Unit1;
84	84
85	85		{$mode objfpc}{$H+}
86	86
87	87		interface
88	88
89	89		uses
90	90		Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
91	91		unitGameBoard;
92	92
93	93		type
94	94
95	95		{ TForm1 }
96	96
97	97		TForm1 = class(TForm)
98	98		procedure FormCreate(Sender: TObject);
99	99		procedure FormDestroy(Sender: TObject);
100	100		private
101	101		{ private declarations }
102	102		Puzzle15:TGameBoard;
103	103		procedure aButtonClick(Sender: TObject);
104	104
105	105		public
106	106		{ public declarations }
107	107		end;
108	108
109	109		var
110	110		Form1: TForm1;
111	111
112	112		implementation
113	113
114	114		{$R *.lfm}
115	115
116	116		{ TForm1 }
117	117
118	118		procedure TForm1.FormCreate(Sender: TObject);
119	119		var
120	120		i : Integer;
121	121		aButton: TButton;
122	122		point:TPoint;
123	123		begin
124	124		Randomize;
125	125		Puzzle15:= TGameBoard.Create;
126	126		i := 1;
127	127		while i < 16 do
128	128		begin //luodaan 15 painiketta
129	129		aButton:=TButton.Create(Self); //luodaan Button, Owner on Form1, kun painike myöhemmin julkaistaan
130	130		aButton.Parent:=Self; //määrittää, missä se on näytettävä
131	131		aButton.Caption:=IntToStr(i); //Painikkeessa näkyvä teksti
132	132		aButton.Width:=aButton.Height; //Painike on neliö
133	133		point := Puzzle15.ButtonPlace(aButton.Caption);
134	134		aButton.Left:= point.x* aButton.Width; //painikkeen vasemman reunan etäisyys
135	135		aButton.Top := point.y* aButton.Height;
136	136
137	137		aButton.OnClick:=@aButtonClick; //painikkeen tapahtumakäsittelijä
138	138		inc(i);
139	139		end;
140	140		Self.Height:=aButton.Height*6; //lomakkeen korkeuden määritys
141	141		Self.Width:=aButton.Width*6; //lomakkeen leveyden määritys
142	142		end;
143	143
144	144		procedure TForm1.FormDestroy(Sender: TObject);
145	145		begin
146	146		FreeAndNil(Puzzle15);
147	147		end;
148	148
149	149		procedure TForm1.aButtonClick(Sender: TObject); //Painikkeen tapahtumankäsittelijä
150	150		var
151	151		i:integer;
152	152		point : TPoint;
153	153		begin
154	154		if (Sender is TButton) and //Tarkistetaan että tapahtuman tultiin näppäimen painalluksella
155	155		TryStrToInt(TButton(Sender).Caption, i) // ja onko sen teksti kokonaisluku
156	156		then
157	157		begin
158	158		if Puzzle15.CanMove(TButton(Sender).Caption) then
159	159		begin
160	160		point := Puzzle15.Change(TButton(Sender).Caption);
161	161		TButton(Sender).Left:= point.x* TButton(Sender).Width;
162	162		TButton(Sender).Top := point.y* TButton(Sender).Height;
163	163		end;
164	164		end;
165	165		end;
166	166
167	167		end.
168	168		```
169	169
170	170		### Unit1.lfm
171	171
172		-	~~``` pascal~~
	172	+	``` lfm
173	173		object Form1: TForm1
174	174		Left = 362
175	175		Height = 184
176	176		Top = 162
177	177		Width = 432
178	178		Caption = '15Puzzle'
179	179		OnCreate = FormCreate
180	180		OnDestroy = FormDestroy
181	181		LCLVersion = '1.6.0.4'
182	182		end
183	183		```
184	184
185	185		### unitGameBoard.pas
186	186
187	187		``` pascal
188	188		unit unitGameBoard;
189	189
190	190		{$mode objfpc}{$H+}
191	191
192	192		interface
193	193
194	194		uses
195	195		Classes, SysUtils;
196	196
197	197		const
198	198		GB_MAX_BUTTONS = 15;
199	199		GB_MAX_X = 4;
200	200		GB_MAX_Y = 4;
201	201		GB_EMPTY_PLACE ='-';
202	202		type
203	203
204	204		{ TGameBoard }
205	205
206	206		TGameBoard = class
207	207		private
208	208		GameArray:array[1..GB_MAX_X, 1..GB_MAX_Y] of string;
209	209		function ValidPoint(a_point:TPoint):boolean;
210	210		public
211	211		constructor Create;
212	212		function ButtonPlace(a_name:string):TPoint;
213	213		function CanMove(a_name:string):Boolean;
214	214		function Change(a_name: string): TPoint;
215	215		procedure RandomArray;
216	216		destructor Destroy; override;
217	217		end;
218	218		implementation
219	219
220	220		{ TGameBoard }
221	221
222	222		function TGameBoard.ValidPoint(a_point: TPoint): boolean;
223	223		begin
224	224		result := true;
225	225		if a_point.y > GB_MAX_Y then result := false;
226	226		if a_point.x > GB_MAX_X then result := false;
227	227		if a_point.y < 1 then result := false;
228	228		if a_point.x < 1 then result := false;
229	229		end;
230	230
231	231		constructor TGameBoard.Create;
232	232		var
233	233		i, x, y : integer;
234	234		begin
235	235		i := 1;
236	236		for y := 1 to GB_MAX_Y do
237	237		for x := 1 to GB_MAX_X do
238	238		begin
239	239		if i < GB_MAX_BUTTONS+1
240	240		then GameArray[x,y] := IntToStr(i)
241	241		else GameArray[x,y] := GB_EMPTY_PLACE;
242	242		inc(i);
243	243		end;
244	244		RandomArray;
245	245		end;
246	246
247	247		function TGameBoard.ButtonPlace(a_name: string): TPoint;
248	248		var
249	249		x,y:integer;
250	250		begin
251	251		result.x := 0;
252	252		result.y := 0;
253	253		for y := 1 to GB_MAX_Y do
254	254		for x := 1 to GB_MAX_X do
255	255		if GameArray[x,y] = a_name then
256	256		begin
257	257		result.x := x;
258	258		result.y := y;
259	259		end;
260	260		end;
261	261
262	262		function TGameBoard.CanMove(a_name: string): Boolean;
263	263		var
264	264		empty, point:TPoint;
265	265		begin
266	266		result := false;
267	267		empty := ButtonPlace( GB_EMPTY_PLACE );
268	268		point := ButtonPlace(a_name);
269	269		if (abs(empty.x-point.x)=1) and (empty.y=point.y) then result := true;
270	270		if (abs(empty.y-point.y)=1) and (empty.x=point.x) then result := true;
271	271		end;
272	272
273	273		function TGameBoard.Change(a_name: string): TPoint;
274	274		var
275	275		empty, point:TPoint;
276	276		begin
277	277		empty := ButtonPlace( GB_EMPTY_PLACE );
278	278		result := empty;
279	279		point := ButtonPlace(a_name);
280	280		GameArray[point.x, point.y] := GB_EMPTY_PLACE;
281	281		GameArray[empty.x, empty.y] := a_name;
282	282		end;
283	283
284	284		procedure TGameBoard.RandomArray;
285	285		var
286	286		j,i:integer;
287	287		name:string;
288	288		point,point2:TPoint;
289	289		begin
290	290		for i := 0 to 1000 do
291	291		begin
292	292		j := random(4);
293	293		point := ButtonPlace( GB_EMPTY_PLACE );
294	294		point2 := point;
295	295		case j of
296	296		0: point2.x := point.x-1;
297	297		1: point2.x := point.x+1;
298	298		2: point2.y := point.y-1;
299	299		3: point2.y := point.y+1;
300	300		end;
301	301		if ValidPoint( point2 ) then
302	302		begin
303	303		name := GameArray[point2.x, point2.y];
304	304		GameArray[point.x, point.y] := name;
305	305		GameArray[point2.x, point2.y] := GB_EMPTY_PLACE;
306	306		end;
307	307		end;
308	308		end;
309	309
310	310		destructor TGameBoard.Destroy;
311	311		begin
312	312		inherited Destroy;
313	313		end;
314	314
315	315		end.
316	316		```
317	317
318	318		## Katso myös
319	319
320	320		- [[TButton/fi\|TButton]]
321	321
322	322		---
323	323		From the Free Pascal wiki, page "15-puzzle/fi", as it stood on 2022-08-06 after a change by Kai Burghardt, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history