15-puzzle/fi: what changed

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

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